Retro1.org codex

*DECK PRF$NS
PROC PRF$NS;                 # PREFIX TABLE FOR NCF/NLF/NDF            #
# TITLE PRF$NS - PREFIX TABLE FOR NCF/NLF/NDF.                         #
 
      BEGIN    # PRF$NS # 
# 
**    PRF$NS - PREFIX TABLE FOR NCF/NLF/NDF.
* 
*     J.C. LEE    1981
* 
*     THIS SYMPL TEXT CONTAINS DEFS AND FORMATS FOR 
*     THE PREFIX TABLE. 
* 
# 
      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$COMMNT   C(08,00,70); # COMMENTS                      #
        ITEM PRF$TITLE    C(08,00,50); # TITLE- TRUNCATED TO 50 CHARS  #
        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   # PRF$NS #
      TERM