COMTFMT 
COMMON
  
#     COMTFMT - COMMON DEFINITIONS USED BY REPORT FORMATTER.          # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMTFMT #
  
# 
***   COMTFMT - COMMON DEFINITIONS USED BY REPORT FORMATTER.
* 
*     *COMTFMT* CONTAINS COMMON DECLARATIONS USED ONLY BY 
*     THE *M860* REPORT FORMATTER ROUTINES. 
*     DEFINITIONS NEEDED BY CALLING ROUTINES ARE CONTAINED
*     IN *COMTOUT*. 
# 
  
  
      DEF BLANK      #0,0,0,0#;      # PARAMETERS FOR BLANK LINE #
      DEF EMPTY      #0#;            # INDICATES EMPTY FIELD #
      DEF LINELEN    #14#;           # WORDS IN A PRINT LINE #
      DEF MAXLC      #66#;           # MAXIMUM LINE COUNT PER PAGE #
      DEF MAXLINE    #O"777777"#;    # EJECT LINE COUNT # 
      DEF PRBUFL     #O"1001"#;      # LENGTH OF *CIO* BUFFER # 
      DEF PRCEJ      #"1"#;          # PAGE EJECT CARRIAGE CONTROL #
      DEF PRCOLIM    #140#;          # COLUMN LIMIT # 
      DEF PRDBL      #"0"#;          # DOUBLE SPACE CARRIAGE CONTROL #
      DEF PRDEFLIM   #60#;           # DEFAULT LINE LIMIT # 
      DEF PRTABENT   #3#;            # NUMBER OF PRINT TABLE ENTRIES #
      DEF SPACES     #" "#;          # USED TO BLANK FILL ITEMS # 
  
      COMMON TFMTCOM; 
  
        BEGIN  # TFMTCOM #
  
        ITEM ORD        U;           # ORDINAL OF PRINT TABLE ENTRY # 
  
        BASED 
        ARRAY RPFET [0:0] S(SFETL);;  # REPORT FILE *FET* # 
  
        ARRAY LINEBUFF [1:PRTABENT] S(LINELEN);  # PRINT LINE BUFFER #
          BEGIN 
          ITEM LIN$BUF    C(00,00,140);  # HOLDS 138 CHARACTER LINE # 
          ITEM LIN$CNTRL  C(00,00,01);  # CARRIAGE CONTROL CHARACTER #
          ITEM LIN$HEAD   C(00,06,37);  # OPTIONAL HEADER MESSAGE # 
          ITEM LIN$DATE   C(03,54,10);  # CURRENT DATE #
          ITEM LIN$TIME   C(04,54,10);  # CURRENT TIME #
          ITEM LIN$PAGE   C(06,06,04);  # *PAGE* #
          ITEM LIN$PAGENM C(06,30,06);  # PAGE NUMBER # 
          END 
  
        ARRAY MSG [0:0] P(4);        # USED FOR DAYFILE MESSAGES #
          BEGIN 
          ITEM MSGITEM    C(00,00,38);  # MESSAGE DISPLAYED # 
          ITEM MSGZERO    U(03,48,12) = [0];  # TERMINATES MESSAGE #
          END 
  
        ARRAY PRBUF [1:PRTABENT] S(PRBUFL);;  # *CIO* BUFFER #
  
        ARRAY PRTABLE [1:PRTABENT] S(8);  # PRINT TABLE # 
          BEGIN 
          ITEM PRTLFN     C(00,00,10);  # REPORT FILE NAME #
          ITEM PRTFETP    U(00,42,18) =  # ADDRESS OF *FET* # 
            [PRTABENT(0)];
          ITEM PRTLINE    U(01,00,18);  # CURRENT LINE NUMBER # 
          ITEM PRTPAGE    U(01,18,18);  # CURRENT PAGE NUMBER # 
          ITEM PRTLINELIM U(01,42,18);  # LINE LIMIT #
          ITEM PRTDATE    C(02,00,10);  # CURRENT DATE #
          ITEM PRTTIME    C(03,00,10);  # CURRENT TIME #
          ITEM PRTHEADT   C(04,00,37);  # OPTIONAL HEADER MESSAGE # 
          ITEM PRTHEADP   U(07,42,18);  # HEADER PROCEDURE ADDRESS #
  
          END 
  
  
        END  # TFMTCOM #
  
      END  # COMTFMT #
  
                                               CONTROL LIST;
