Retro1.org codex

*DECK NDCB$NS 
PROC NDCB$NS;                # NPU DUMP CONTROL BLOCK COMMON DECK      #
 
# TITLE NDCB$NS - NPU DUMP CONTROL BLOCK TEXT.                         #
 
      BEGIN    # NDCB$NS #
# 
**    NDCB$NS - NPU DUMP CONTROL BLOCK TEXT.
* 
*     J.C. LEE    1981
* 
*     THIS SYMPL TEXT CONTAINS THE NPU DUMP CONTROL BLOCK 
*     DEFS, STATUS LIST AND FORMAT. 
* 
# 
 
      CONTROL STEXT;
      DEF NDCB$IDENT # 12 #;           # NDCB TSB IDENTIFIER           #
      DEF NDCB$SIZE  # 11 #; # NDCB SIZE IN 16-BIT NPU WORDS           #
# 
      NDCB NPU WORD INDEXES 
# 
      STATUS NDCBINDEX       # STATUS LIST FOR NDCB WORD INDEXES       #
        NDCB$RDF,            # RELOAD DUMP FLAG                        #
        NDCB$LTDF,           # LONG TERM DUMP FLAG                     #
        NDCB$LPATH,          # MOST RECENT LOAD PATH                   #
        NDCB$DATE1,          # MOST RECENT LOAD DATE                   #
        NDCB$DATE2, 
        NDCB$DATE3, 
        NDCB$TIME1,          # MOST RECENT LOAD TIME                   #
        NDCB$TIME2, 
        NDCB$TIME3, 
        NDCB$HALTC,          # NPU HALT CODE                           #
        NDCB$PREG,           # NPU P-REGISTER DATA                     #
        ; 
 
      BASED ARRAY NDCB [0:0] S(1);
        BEGIN 
        ITEM NDCB$ID    U(00,00,06);   # NDCB IDENTIFIER               #
        ITEM NDCB$BS    U(00,06,12);   # NDCB BLOCK SIZE               #
        ITEM NDCB$WORD  U(00,00,60);
        END 
 
      END   # NDCB$NS # 
      TERM