*COMDECK LFGCOM 
      COMMON FLAGCOM;        # COMMON AREA FOR FLAGS AND CONSTANTS     #
        BEGIN 
          ITEM
               SEMIFLG B,    #OVERLAY DESCRIPTION INDICATOR            #
               FIRSTRD B, 
               SKIP B,
               COLONFLG B,   #INDICATES END OF FILE DESCRIPTION        #
               EOFLG B,      # END OF FILE FLAG                        #
               EOIFLG B,     # END OF INFORMATION FLAG                 #
               EOCARD B,     # END OF CARD FLAG                        #
               MRIF B,       # MEMORY RESIDENT INDICATOR FLAG          #
               MRFTF B,      # MEMORY RESIDENT FIRST TIME FLAG         #
               OVFTF B,      #OVERLAY RECORD FIRST TIME FLAG #
               ANYERRF B,    # FLAG TO INDICATE ABNORMAL ENDING        #
               MODCNT I;     # COUNT OF MODULES IN MEMORY RESIDENT     #
        END 
      DEF SYSDF   #0#;
      DEF NUMCDS # 50 #;     # MAXIMUM NUMBER OF FILE DESCRIPTIONS     #
      DEF NUMPARM # 200 #;   # MAXIMUM NUMBER OF FILE DESCRIPTION      #
                             # PARAMETERS                              #
      DEF INPUT #INPLFG#;    # INPUT FILE#
      DEF OUTPUT #OUTLFG#;   # OUTPUT FILE# 
      DEF MEMRES #0#;      #MEMORY RESIDENT RECORD TYPE                #
      DEF OVLAREA #1#;     #OVERLAY AREA RECORD TYPE                   #
      DEF OVLHEAD #2#;     #OVERLAY HEADER RECORD TYPE                 #
      DEF MEMIMG #4#;      #MEMORY IMAGE RECORD TYPE                   #
      COMMON INCOM;          # COMMON AREA FOR INPUT BUFFER            #
        BEGIN 
          ITEM READHO;       # TEMPORARY SCRATCH WORD FOR READH        #
          ARRAY INDATA [0:7];ITEM CH;  #INPUT CARD BUFFER              #
          ITEM IEOF B,          # INPUT END OF FILE INDICATOR          #
               SWD,             # BUFFER WORD POSITION                 #
               SBT;             # BUFFER BIT POSITION                  #
        END 
      COMMON OUTCOM;         # COMMON AREA FOR OUTPUT BUFFER           #
        BEGIN 
          ITEM OUTL C(135);            # OUTPUT LINE BUFFER            #
          ITEM OL;                  # CHARACTER COUNT                  #
        END 
      COMMON FITCOM;         # COMMON AREA FOR ALL FETS                #
        BEGIN 
          ARRAY INPLFG [0:0] S(8); ITEM INP; #FET FOR INPUT FILE# 
          ARRAY OUTLFG [0:0] S(8); ITEM OUTPU; #FET FOR OUTPUT FILE#
          ARRAY FILN [0:0] S(13); ITEM TAPE;   #FET FOR TAPE INPUT FILE#
          ARRAY NPUFL [0:7]; ITEM NPUFIT;  # FET FOR NPUFL             #
          ITEM FITADD;                 # WORD CONTAINING FIT ADDRESS   #
        END 
      CONTROL PRESET; 
      COMMON PARMTAB; 
        BEGIN 
          ITEM SEMI I=O"77";
          ITEM COMMA I=O"56"; 
          ITEM COLON63 I = O"63"; 
          ITEM COLON64 I = O"00"; 
          ITEM PERIOD I=O"57";
          ITEM NTAPES I;     #NO. OF FILE DESCRIPTION CARDS            #
          ITEM NPAR I;
          ITEM CT I;
          ARRAY PARAMS [0:NUMPARM] S(1);
            BEGIN            # CONTAINS ALL PARAMETERS FOR             #
                             # ALL INPUT FILE DESCRIPTION CARDS        #
            ITEM PARAM  C(0,0,7);      # MRES OR OVERLAY RECORD NAME   #
            ITEM PTYPE U(0,42,6);      # 0 = OVERLAY, 1 = MRES         #
            ITEM SR    C(0,54,1);      # NUMBER OF RECORDS TO SKIP     #
                                       # BEFORE READING INPUT RECORD   #
            END 
          ARRAY CDLFN [0:NUMCDS] S(1);
            BEGIN 
            ITEM CARDLFN C(0,0,7);     # NAME OF FILE CONTAINING INPUT #
                                       # TO BE REFORMATTED             #
            ITEM DLM     U(0,42,18);   # POINTER TO FIRST PARAMETER    #
                                       # OF FILE DESCRIPTION CARD      #
            END 
          BASED ARRAY BPARAMS [0:NUMPARM] S(1); 
            BEGIN            # SET OVER PARAMETERS FOR A SINGLE        #
                             # INPUT FILE DESCRIPTION                  #
            ITEM BPARAM C(0,0,7);      # MRES OR OVERLAY RECORD NAME   #
            ITEM BPTYPE U(0,42,6);     # 0 = OVERLAY, 1 = MRES         #
            ITEM BSR    C(0,54,1);     # NUMBER OF RECORDS TO SKIP     #
            END 
        END 
      BASED ARRAY CHARSET [0:0] S(1); 
          ITEM C64 B (0,0,1); 
