Retro1.org codex

*DECK NST$NS
PROC NST$NS;                 # NPU STATUS TABLE                        #
# TITLE NST$NS - NPU STATUS TABLE DEFS AND FORMATS.                    #
 
      BEGIN    # NST$NS # 
# 
**    NST$NS - NPU STATUS TABLE DEFS AND FORMATS. 
* 
*     J.C. LEE    1981
* 
*     THIS SYMPL TEXT CONTAINS THE NPU STATUS DEFS/FORMATS. 
* 
# 
      CONTROL STEXT;
      DEF NST$IDENT       # 6 #;       # NST IDENTIFIER                #
      DEF NST$ISIZE       # 11 #;      # NST INITIAL SIZE              #
      COMMON NST$COM; 
      BEGIN # NST$COM # 
      BASED ARRAY NST [0:0] S(NST$ISIZE); 
        BEGIN                          # NPU STATUS TABLE              #
        ITEM NST$HDRWD    U(00,00,60); # NST HEADER WORD               #
        ITEM NST$ID       U(00,00,06); # NST IDENTIFIER                #
        ITEM NST$BS       U(00,06,12); # NST SIZE                      #
        ITEM NST$DTIMER   U(00,18,24); # TIMER FOR CHECKING MULT LOADS #
        ITEM NST$LCOUNT   U(00,42,2);  # LOAD COUNT WITHIN DTIMER      #
        ITEM NST$NPUNN    U(00,44,8);  # NPU NODE NO                   #
        ITEM NST$NTORD    U(00,52,8);  # NPU TABLE ORDINAL             #
        ITEM NST$LPDATE   U(01,00,36); # PACKED BINARY LOAD DATE/TIME  #
        ITEM NST$LDATE    U(01,00,18); # DATE OF MOST RECENT LOAD      #
        ITEM NST$LTIME    U(01,18,18); # TIME OF MOST RECENT LOAD      #
        ITEM NST$SAMSPC   U(01,55,05); # CONSEC SAM PREEMPT CNT        #
        ITEM NST$DPDATE   U(02,00,36); #  PACKED BINARY LOAD DATE/TIME #
        ITEM NST$DDATE    U(02,00,18); # DATE OF MOST RECENT DUMP      #
        ITEM NST$DTIME    U(02,18,18); # TIME OF MOST RECENT DUMP      #
        ITEM NST$LC       U(02,36,08); # NUMBER OF LOADS               #
        ITEM NST$NHC      U(02,44,16); # NPU HALT CODE IN HEXADECIMAL  #
        ITEM NST$NDFPFN   C(03,00,07); # NAME OF MOST RECENT DUMP FILE #
        ITEM NST$SLFC     U(03,42,02); # LOAD FAILURE COUNT            #
        ITEM NST$NPR      U(03,44,16); # NPU P-REGISTER CONTENTS       #
        ITEM NST$EVMSG    U(04,00,60); # MOST RECENT EVENT MESSAGE     #
        ITEM NST$EVMTXT   C(04,00,60); # EVENT MESSAGE TEXT            #
        ITEM NST$EVMEND   U(10,00,60); # LINE TERMINATOR               #
        END 
      END   # NST$COM # 
      END   # NST$NS #
      TERM