Retro1.org codex

*DECK NPT$NS
PROC NPT$NS;                 # NPU TABLE                               #
# TITLE NPT$NS - NPU TABLE DEFS AND FORMAT.                            #
 
      BEGIN    # NPT$NS # 
# 
**    NPT$NS - NPU TABLE TEXT.
* 
*     J.C. LEE
* 
*     THIS SYMPL TEXT CONTAINS DEFS AND FORMATS FOR 
*     NPU TABLE.
* 
# 
      CONTROL STEXT;
      DEF NPT$IDENT       # 5 #;       # NPU TABLE IDENTIFIER          #
      DEF NPT$HDRL        # 1 #;       # NPU TABLE HEADER LENGTH       #
      DEF NPT$ENTRYL      # 5 #;       # NPU TABLE ENTRY SIZE          #
      COMMON NPT$COM; 
      BEGIN # NPT$COM # 
 
      ITEM NTORD      U;               # NPU TABLE ORDINAL OF ENTRY    #
      ITEM NPNAM      C(7);            # NPU NAME OF CURRENT ENTRY     #
 
      BASED ARRAY NPT$HEADER [0:0] S(NPT$HDRL); 
        BEGIN                # NPU TABLE HEADER FORMAT                 #
        ITEM NPT$ID       U(00,00,06); # NPU TABLE IDENTIFIER          #
        ITEM NPT$EC       U(00,06,12); # NPU TABLE ENTRY COUNT         #
        ITEM NPT$ZERO1    U(00,18,18); # NOT USED                      #
        ITEM NPT$NLTAIL   U(00,36,12); # TAIL PTR (TSBN) OF NACB LIST  #
        ITEM NPT$NLHEAD   U(00,48,12); # HEAD PTR (TSBN) OF NACB LIST  #
        END 
      BASED ARRAY NPT$ENTRY [1:1] S(NPT$ENTRYL);
        BEGIN                # NPU TABLE ENTRY FORMAT                  #
        ITEM NPT$NPNAME   C(00,00,07); # DISPLAY CODE NPU NAME         #
        ITEM NPT$F$LF     B(00,44,01); # LAST LOAD FAILED FLAG         #
        ITEM NPT$F$DFDM   B(00,45,01); # DEFAULT DUMP FLAG             #
        ITEM NPT$F$LTDF   B(00,46,01); # LONG TERM DUMP FLAG           #
        ITEM NPT$F$BSUD   B(00,47,01); # SUD BYPASS FLAG               #
        ITEM NPT$PECNT    U(00,48,04); # PROTOCOL ERROR COUNT          #
        ITEM NPT$NN       U(00,52,08); # NPU NODE NUMBER               #
        ITEM NPT$NPUVAR   C(01,00,06); # NPU VARIANT NAME              #
        ITEM NPT$NCTORD   U(01,36,08); # NCT ORDINAL                   #
        ITEM NPT$LSN      U(01,44,04); # LOAD SEQUENCE NUMBER          #
        ITEM NPT$NSTTSB   U(01,48,12); # NPU STATUS TABLE TSB NUMBER   #
        ITEM NPT$NATTSB   U(02,00,12); # NPUT ACTIVITY TABLE TSB NO.   #
        ITEM NPT$NBRS     U(02,12,48); # NEIGHBOR NODE NUMBERS         #
        ITEM NPT$NBN1     U(02,12,08); # NEIGHBOR NODE 1               #
        ITEM NPT$NBN2     U(02,20,08); # NEIGHBOR NODE 2               #
        ITEM NPT$NBN3     U(02,28,08); # NEIGHBOR NODE 3               #
        ITEM NPT$NBN4     U(02,36,08); # NEIGHBOR NODE 4               #
        ITEM NPT$NBN5     U(02,44,08); # NEIGHBOR NODE 5               #
        ITEM NPT$NBN6     U(02,52,08); # NEIGHBOR NODE 6               #
        ITEM NPT$NCBSZ    U(03,00,30); # LENGTH OF NCB IN NPU WORDS    #
        ITEM NPT$NCBRI    U(03,30,30); # RELATIVE SECTOR ADDRESS OF NCB#
        ITEM NPT$ALFWD    U(04,00,60); # ALTERNATE NLF WORD            #
        ITEM NPT$DIRTSB   U(04,48,12); # ALT NLF DIRECTORY TSB NO      #
        ITEM NPT$ALFPFN   C(04,00,07); # ALTERNATE NLF PFN             #
        END 
      END   # NPT$COM # 
      END   # NPT$NS #
      TERM