Retro1.org codex

*DECK LFGPRF
PROC LFGPRF;
      BEGIN # LFGPRF #
      CONTROL STEXT;
      DEF PRF$IDENT       # O"7700" #; # PREFIX TABLE IDENTIFIER       #
      DEF PRF$SIZE        # 17 #;      # PREFIX TABLE SIZE             #
      COMMON PRF$COM; 
      BEGIN 
      BASED ARRAY PRF$TABLE [0:0] S(PRF$SIZE);
        BEGIN                # PREFIX TABLE                            #
        ITEM PRF$ID       U(00,00,12); # TABLE IDENTIFIER              #
        ITEM PRF$WC       U(00,12,12); # TABLE WORD COUNT              #
        ITEM PRF$ZERO1    U(00,24,36); # ZEROED                        #
        ITEM PRF$LFN      C(01,00,07); # FILE NAME                     #
        ITEM PRF$ZERO2    U(01,42,18); # ZEROED                        #
        ITEM PRF$DATE     C(02,00,10); # FILE CREATION DATE            #
        ITEM PRF$TIME     C(03,00,10); # FILE CREATION TIME            #
        ITEM PRF$OPS      C(04,00,10); # VERSION OF OPERATING SYSTEM   #
        ITEM PRF$NSVER    C(05,00,30); # NS VERSION                    #
        ITEM PRF$PRNAME   C(05,00,07); # PROGRAM THAT CREATED THE FILE #
        ITEM PRF$PRVER    C(05,42,03); # PROGRAM VERSION NUMBER        #
        ITEM PRF$PRLEV    C(06,00,05); # PROGRAM MODIFICATION LEVEL    #
        ITEM PRF$BLNK1    C(06,30,05);
        ITEM PRF$BLNK2    C(07,00,10);
        ITEM PRF$COMMNT   C(08,00,70); # COMMENTS                      #
        ITEM PRF$NPNAME   C(15,00,07); # NPU NAME                      #
        ITEM PRF$NPPREG   U(15,44,16); # NPU P-REGISTER CONTENTS       #
        ITEM PRF$NPUVAR   C(16,00,06); # NPU VARIANT NAME              #
        ITEM PRF$NPUID    U(16,36,08); # NPU NODE NUMBER               #
        ITEM PRF$NPHALT   U(16,44,16); # NPU HALT CODE                 #
        END 
      END   # PRF$COM # 
      END   # LFGPRF #
      TERM
      PROC LFGIB; 
      BEGIN 
# 
***   LFGIB - INPUT BUFFER. 
* 
*     LFGIB CONTAINS A COMMON AREA FOR THE LFG INPUT BUFFER.
* 
# 
      CONTROL STEXT;
      COMMON IB;
        BEGIN 
        ARRAY IBU [0:O"2000"] S(1); 
          BEGIN 
          ITEM IBUF U;
          END 
        END 
      END TERM