Retro1.org codex

*DECK DTSB$NS 
PROC DTSB$NS; 
 
# TITLE DTSB$NS - DUMP TSB TEXT.                                       #
 
      BEGIN    # DTSB$NS #
# 
**    DTSB$NS - DUMP TSB TEXT.
* 
*     J.C. LEE    1981
* 
*     THIS SYMPL TEXT CONTAINS DEFS AND COMMON BLOCK
*     FOR DUMP TSB. 
* 
# 
 
      CONTROL STEXT;
 
      DEF DTSB$IDENT # 10 #;           # DUMP TSB IDENTIFIER           #
      DEF L$DTSBHDR  # 1 #;            # DTSB HEADER SIZE              #
      DEF L$DFET     # 6 #;            # NPU DUMP FILE FET SIZE        #
      DEF L$DBUF     # O"1001" #;      # CIO BUFFER LENGTH             #
      DEF L$DTSB     # L$DTSBHDR + L$DFET + L$DBUF #;  # DUMP TSB SIZE #
 
      COMMON DTSB$COM;
      BEGIN # DTSB$COM #
 
      BASED ARRAY DTSB$HDR [0:0] S(L$DTSBHDR);
        BEGIN 
        ITEM DTSB$HDRWD U(00,00,60);   # DTSB HEADER WORD              #
        ITEM DTSB$ID    U(00,00,06);   # DTSB IDENTIFIER               #
        ITEM DTSB$BS    U(00,06,12);   # DTSB SIZE                     #
        ITEM DTSB$PDATE U(00,24,36);   # PACKED BINARY DUMP DATE/TIME  #
        ITEM DTSB$DDATE U(00,24,18);   # PACKED BINARY DUMP DATE       #
        ITEM DTSB$DTIME U(00,42,18);   # PACKED BINARY DUMP TIME       #
        END 
 
      BASED ARRAY DTSB$FET [0:0] S(L$DFET); 
        BEGIN                          # FET FOR SEQUENTIAL FILE NDF   #
        ITEM DFET$LFN   C(00,00,07);   # LOGICAL FILE NAME             #
        ITEM DFET$CODE  U(00,51,09);   # REQUEST/RETURN CODE           #
        ITEM DFET$FM    B(00,58,01);   # ?ILE MODE BIT, SET IF BINARY  #
        ITEM DFET$COMP  B(00,59,01);   # COMPLETION BIT                #
        ITEM DFET$DT    U(01,00,12);   # DEVICE TYPE                   #
        ITEM DFET$RAN   B(01,12,01);   # RANDOM ACCESS BIT             #
        ITEM DFET$UP    B(01,14,01);   # USER PROCESSING BIT           #
        ITEM DFET$EP    B(01,15,01);   # ERROR PROCESSING BIT          #
        ITEM DFET$LEN   U(01,36,06);   # FET LENGTH - 5                #
        ITEM DFET$FIRST I(01,42,18);   # FIRST PTR                     #
        ITEM DFET$IN    I(02,42,18);   # IN PTR                        #
        ITEM DFET$OUT   I(03,42,18);   # OUT PTR                       #
        ITEM DFET$LIMIT I(04,42,18);   # LIMIT PTR                     #
        END 
 
      BASED ARRAY DTSB$BUF [1:L$DBUF] S(1); 
        BEGIN                          # CIO BUFFER FOR NDF I/O        #
        ITEM DTSB$BUFWD U(00,00,60);   # CIO BUFFER WORD               #
        END 
 
      END   # DTSB$COM #
 
      END   # DTSB$NS # 
      TERM