Retro1.org codex

*DECK LFGHDRC 
      PROC LFGHDRC; 
      BEGIN 
# 
***   LFGHDRC - HEADER RECORD FORMAT. 
* 
*     LFGHDRC CONTAINS THE FORMAT OF THE HEADER RECORDS ON THE
*     LFG INPUT FILES.
* 
# 
      CONTROL STEXT;
      COMMON HCOM;           # COMMON AREA FOR HEADER RECORDS          #
        BEGIN 
          BASED ARRAY HEADER[0:0] S(8); 
            ITEM
                 WCOUNT U(0,0,16),     # WORD COUNT                    #
                 TRAILER U(0,16,1),    # 1 IF TRAILER RECORD           #
                 HEADT U(0,17,3),      # HEADER TYPE                   #
                 NUSED2 U(0,20,5),     # NOT USED                      #
                 PAGEN U(0,25,7),      # PAGE NUMBER                   #
                 PAGER U(0,32,5),      # PAGE REGISTER                 #
                 PAGED U(0,37,11),     # PAGE DISPLACEMENT             #
                 MCNT U(0,32,16),      # MODULE COUNT FOR MEMORY RES   #
                 NAME1 U(0,49,7), 
                 NAME2A U(0,57,3),
                 NAME2B U(1,0,4), 
                 NAME3 U(1,5,7),
                 NAME4 U(1,13,7), 
                 NAME5 U(1,21,7), 
                 NAME6 U(1,29,7), 
                 COMMENT C(1,36,64);   # COMMENTS                      #
        END 
      END TERM