*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