Retro1.org codex

*DECK DIR$NS
PROC DIR$NS;                 # NLF/NCF DIRECTORY FORMATS/DEFS          #
# TITLE DIR$NS - NLF/NCF DIRECTORY FORMATS/DEFS.                       #
 
      BEGIN    # DIR$NS # 
# 
**    DIR$NS - NLF/NCF DIRECTORY FORMATS/DEFS.
* 
*     J.C. LEE    1981
* 
*     THIS SYMPL TEXT CONTAINS NLF/NCF DIRECTORY
*     FORMATS/DEFS. 
* 
# 
      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   # DIR$NS #
      TERM