Retro1.org codex

*DECK LFGDB 
      PROC LFGDB; 
      BEGIN 
# 
***   LFGDB - DIRECTORY BUFFER FORMAT.
* 
*     LFGDB CONTAINS THE FORMAT FOR THE NLF DIRECTORY BUFFER
*     HEADER AND ENTRIES. 
* 
# 
      CONTROL STEXT;
      COMMON DB;             # DIRECTORY BUFFER                        #
        BEGIN 
        ARRAY DIRB [0:O"1000"] S(1);
          BEGIN 
          ITEM DIRB$WORD U; 
          END 
        END 
      END TERM
PROC LFGDIR;                 # NLF/NCF DIRECTORY FORMATS/DEFS          #
      BEGIN # LFGDIR #
      CONTROL STEXT;
      DEF DIR$IDENT       # O"7000" #; # OPLD IDENTIFIER               #
      DEF DIR$HDRL        # 2 #;       # DIRECTORY HEADER LENGTH       #
      DEF DIR$ENTRYL      # 2 #;       # DIRECTORY ENTRY LENGTH        #
      DEF DIR$RT$FH       # O"7700" #; # FILE HEADER RECORD TYPE       #
      DEF DIR$RT$NC       # O"1603" #; # NCB RECORD TYPE               #
      DEF DIR$RT$NX       # O"1630" #; # NPU XREF TABLE RECORD TYPE    #
      DEF DIR$RT$PH       # O"2010" #; # PHYLINK TABLE RECORD TYPE     #
      COMMON DIR$COM; 
      BEGIN # DIR$COM # 
      ITEM NLFDIRFWA  U;     # FWA OF DEFAULT NLF DIRECTORY RECORD     #
      BASED ARRAY DIR [0:0] S(DIR$HDRL);
        BEGIN                          # OPLD DIRECTORY                #
        ITEM DIR$HDRWD1   U(00,00,60); # HEADER WORD ONE               #
        ITEM DIR$HDRWD2   U(01,00,60); # HEADER WORD TWO               #
        ITEM DIR$ID       U(00,00,12); # SET TO 7000                   #
        ITEM DIR$ZERO     U(00,12,12); # ZEROED                        #
        ITEM DIR$FID      C(00,42,03); # FILE ID, "NCF" OR "NLF"       #
        ITEM DIR$WC       U(01,48,12); # DIRECTORY LENGTH              #
        ITEM DIR$NLFEW1   U(00,00,60); # NLF DIRECTORY ENTRY WORD ONE  #
        ITEM DIR$RNAME    C(00,00,06); # RECORD NAME IN DISPLAY CODE   #
        ITEM DIR$NCFEW1   U(00,00,60); # NCF DIRECTORY ENTRY WORD ONE  #
        ITEM DIR$NCFRT    U(00,00,12); # NCF RECORD TYPE               #
        ITEM DIR$NCFNID   U(00,12,08); # NPU NODE NUMBER               #
        ITEM DIR$NCBSZ    U(00,20,16); # NCB SIZE                      #
        ITEM DIR$EW2      U(01,00,60); # DIRECTORY ENTRY WORD TWO      #
        ITEM DIR$RL       U(01,00,30); # RECORD LENGTH                 #
        ITEM DIR$RSA      U(01,30,30); # RELATIVE SECTOR ADDRESS       #
        END 
      END   # DIR$COM # 
      END   # LFGDIR #
      TERM