Retro1.org codex

*DECK NAT$NS
PROC NAT$NS;                 # NPU ACTIVITY TABLE FORMAT               #
# TITLE NAT$NS - NPU ACTIVITY TABLE TEXT.                              #
 
      BEGIN    # NAT$NS # 
# 
**    NAT$NS - NPU ACTIVITY TABLE FORMAT. 
* 
*     J.C. LEE    1981
* 
*     THIS SYMPL TEXT CONTAINS DEFS, STATUS LIST, AND 
*     COMMON BLOCK FOR NPU ACTIVITY TABLE FORMAT. 
* 
# 
      CONTROL STEXT;
      DEF NAT$IDENT       # 3 #;       # TABLE IDENTIFIER              #
      DEF NAT$SIZE        # 7 #;       # NPU ACTIVITY TABLE SIZE       #
      STATUS PRISTATE                  # NPU PRIMARY STATE             #
        NPS$NONO,                      # 0 NOT USED                    #
        NPS$LSAM,                      # 1 LOADING SAM                 #
        NPS$DNPU,                      # 2 DUMPING NPU                 #
        NPS$LNPU,                      # 3 LOADING NPU                 #
         NPS$DNDCB,                    # 4 DUMPING NDCB                #
        ; 
      STATUS SECSTATE                  # NPU SECONDARY STATE           #
        NSS$NONO,                      # 0 NOT USED                    #
        NSS$WLOAD,                     # 1 WAITING FOR LOAD RESPONSE   #
        NSS$WDUMP,                     # 2 WAITING FOR DUMP RESPONSE   #
        NSS$WSTART,                    # 3 WAITING FOR START RESPONSE  #
        NSS$WNDCB,                     # 4 WAITING FOR LOAD NDCB RESP. #
        ; 
      STATUS NWSTIM                    # LEGAL NETWORK STIMULI         #
        RQ$SAMLOAD,                    # NPU/IN/R (SAM LOAD)           #
        RQ$NPULOAD,                    # NPU/IN/R (NPU LOAD)           #
        NR$NPUDTD,                     # NPU/DT/N (DUMP)               #
        AR$NPUDTD,                     # NPU/DT/A (DUMP)               #
        NR$NPUDTL,                     # NPU/DT/N (LOAD)               #
        AR$NPUDTL,                     # NPU/DT/A (LOAD)               #
        NR$NPUDTS,                     # NPU/DT/N (START)              #
        AR$NPUDTS,                     # NPU/DT/A (START)              #
        DUMMY,
        ; 
      STATUS NPUSTATE                  # LEGAL NPU STATES              #
        IDLE,                          # IDLE                          #
        DUMPNDCB,                      # DUMPING NDCB                  #
        LOADSUD,                       # LOADING SUD                   #
        STARTSUD,                      # STARTING SUD                  #
        DUMPSUD,                       # DUMPING SUD                   #
        LOADNPU,                       # LOADING NPU                   #
        STARTNPU,                      # STARTING NPU                  #
        LOADNDCB,                      # LOADING NDCB                  #
        DUMPNPU,                       # DUMPING NPU                   #
        LOADDBS,                       # LOADING DUMP BOOTSTRAP        #
        STARTDBS,                      # STARTING DUMP BOOTSTRAP       #
        LOADSAM,                       # LOADING SAM                   #
        STARTSAM,                      # STARTING SAM                  #
        BADSTATE,                      # BAD NPU STATE                 #
        ; 
      COMMON NAT$COM; 
      BEGIN # NAT$COM # 
      BASED ARRAY NAT P(NAT$SIZE);
        BEGIN                # NPU ACTIVITY TABLE                      #
        ITEM NAT$ID       U(00,00,06); # NAT IDENTIFIER                #
        ITEM NAT$BS       U(00,06,12); # NPU ACTIVITY TABLE SIZE       #
        ITEM NAT$NCTORD   U(00,18,12); # NODE CONNECTION TABLE ORDINAL #
        ITEM NAT$DEC      U(00,33,03); # XPCB DIRECTIVE ERROR COUNT    #
        ITEM NAT$NLBP     U(00,36,12); # NAT LIST BACKWARD PTR (TSBN)  #
        ITEM NAT$NLFP     U(00,48,12); # NAT LIST FORWARD PTR (TSBN)   #
        ITEM NAT$LPATH    U(01,00,16); # LOAD PATH                     #
        ITEM NAT$SN       U(01,00,08); # NODE NUMBER OF LOAD REQUESTOR #
        ITEM NAT$HN       U(01,08,08); # COUPLER NODE NUMBER           #
        ITEM NAT$PN       U(01,16,08); # PORT NUMBER                   #
        ITEM NAT$SPN      U(01,24,08); # SUBPORT NUMBER                #
        ITEM NAT$LSN      U(01,32,04); # LOAD SEQUENCE NUMBER          #
        ITEM NAT$NTORD    U(01,36,08); # NPU TABLE ORDINAL             #
        ITEM NAT$F$SNDF   B(01,45,01); # SAVE NDF FLAG                 #
        ITEM NAT$F$SEFL   B(01,46,01); # SELF LOADING FLAG             #
        ITEM NAT$F$RMTL   B(01,47,01); # REMOTE LOAD FLAG              #
        ITEM NAT$RETRYS   U(01,48,03); # NPU/DT/R RETRY COUNT          #
        ITEM NAT$STATE    U(01,53,07); # NPU STATE                     #
        ITEM NAT$PSTATE   S:PRISTATE(01,53,03);  # PRIMARY STATE       #
        ITEM NAT$SSTATE   S:SECSTATE(01,56,03);  # SECONDARY STATE     #
        ITEM NAT$SUD      U(01,59,01); # SUD INDICATOR                 #
        ITEM NAT$BC       U(02,04,08); # BATCH COUNT                   #
        ITEM NAT$NDTSBN   U(02,12,12); # NPU DUMP TSB NUMBER           #
        ITEM NAT$PITSBN   U(02,24,12); # TSB NUMBER OF PICB            #
        ITEM NAT$PENDI    U(02,36,12); # PICB INDEX OF END DIRECTIVE   #
        ITEM NAT$PDIRI    U(02,48,12); # CURRENT XPCB DIRECTIVE INDEX  #
        ITEM NAT$PCBDIR   U(03,00,60); # CURRENT XPCB DIRECTIVE        #
        ITEM NAT$CODE     U(03,00,04); # DIRECTIVE CODE                #
        ITEM NAT$F$DP     B(03,07,01); # SET IF DIRECTIVE PROCESSED    #
        ITEM NAT$DBT      U(03,08,03); # DUMP BLOCK TYPE               #
        ITEM NAT$F$SUD    B(03,11,01); # SUD BIT                       #
        ITEM NAT$DIRP1    U(03,12,24); # DIRECTIVE PARAMETER 1         #
        ITEM NAT$DIRP2    U(03,36,24); # DIRECTIVE PARAMETER 2         #
        ITEM NAT$LMNAME   C(03,12,06); # LOAD MODULE NAME              #
        ITEM NAT$DBA      U(03,12,24); # DUMP BEGINNING ADDRESS        #
        ITEM NAT$DBA1     U(03,12,04); # DUMP BEGINNING ADDRESS 1      #
        ITEM NAT$DBA2     U(03,16,20); # DUMP BEGINNING ADDRESS 2      #
        ITEM NAT$DEA      U(03,36,24); # DUMP ENDING ADDRESS           #
        ITEM NAT$NCBSZ    U(03,12,24); # MAX NCB SIZE ALLOWED          #
        ITEM NAT$CRRI     U(04,00,30); # CRI OF CURRENT RECORD         #
        ITEM NAT$NRRI     U(04,30,30); # CRI OF NEXT RECORD            #
        ITEM NAT$LTIMER   U(05,00,24); # LOCAL TIMER IN SECONDS        #
        ITEM NAT$GTIMER   U(05,24,24); # GLOBAL TIMER IN SECONDS       #
        ITEM NAT$SMTSBN   U(05,48,12); # TSB NO. OF DUMP NDCB RESPONSE #
        ITEM NAT$NCBFWA   U(06,00,24); # NCB FWA                       #
        ITEM NAT$LPDATE   U(06,00,36); # LOAD DATE/TIME IN PACKED BIN  #
        ITEM NAT$LDATE    U(06,00,18); # LOAD DATE IN PACKED BINARY    #
        ITEM NAT$LTIME    U(06,18,18); # LOAD TIME IN PACKED BINARY    #
        ITEM NAT$NDCBA    U(06,36,24); # NDCB FWA                      #
        ITEM NAT$NDCBA1   U(06,36,04); # NDCB ADDRESS PART 1           #
        ITEM NAT$NDCBA2   U(06,40,20); # NDCB ADDRESS PART 2           #
        END 
      END   # NAT$COM # 
      END   # NAT$NS #
      TERM