Retro1.org codex

*DECK LTSB$NS 
PROC LTSB$NS; 
 
# TITLE LTSB$NS - LOAD TSB TEXT.                                       #
 
      BEGIN    # LTSB$NS #
# 
**    LTSB$NS - LOAD TSB TEXT.
* 
*     J.C. LEE    1981
* 
*     THIS SYMPL TEXT CONTAINS THE DEFS AND COMMON BLOCK
*     TO BE USED BY THE LOAD TSB PROCESSOR. 
* 
# 
 
      CONTROL STEXT;
 
      DEF LTSB$IDENT # 9 #;            # LOAD TSB IDENTIFIER           #
      DEF L$LTSBHDR  # 1 #;            # LTSB HEADER SIZE              #
      DEF L$LFET     # 7 #;            # NPU LOAD FILE FET LENGTH      #
      DEF L$LBUF     # O"1001" #;      # CIO BUFFER LENGTH             #
      DEF L$LTSB     # L$LTSBHDR + L$LFET + L$LBUF #;  # LOAD TSB SIZE #
      DEF READWOK    # 0 #;            # READW TRANSFER COMPLETE STATUS#
 
      COMMON LTSB$COM;
      BEGIN # LTSB$COM #
 
      BASED ARRAY LTSB$HDR [0:0] S(L$LTSBHDR);
        BEGIN 
        ITEM LTSB$HDRWD U(00,00,60);   # LTSB HEADER WORD              #
        ITEM LTSB$ID    U(00,00,06);   # LTSB IDENTIFIER               #
        ITEM LTSB$BS    U(00,06,12);   # LTSB SIZE                     #
        END 
 
      BASED ARRAY LTSB$FET [0:0] S(L$LFET); 
        BEGIN                          # FET FOR RANDOM ACCESS NLF/NCF #
        ITEM LFET$LFN   C(00,00,07);   # LOGICAL FILE NAME             #
        ITEM LFET$CODE  U(00,50,10);   # REQUEST/RETURN CODE           #
        ITEM LFET$FM    B(00,58,01);   # FILE MODE BIT. SET IF BINARY  #
        ITEM LFET$COMP  B(00,59,01);   # COMPLETION BIT                #
        ITEM LFET$DT    U(01,00,12);   # DEVICE TYPE                   #
        ITEM LFET$RAN   B(01,12,01);   # RANDOM ACCESS BIT             #
        ITEM LFET$UP    B(01,14,01);   # USER PROCESSING BIT           #
        ITEM LFET$EP    B(01,15,01);   # ERROR PROCESSING BIT          #
        ITEM LFET$LEN   U(01,36,06);   # FET LENGTH - 5                #
        ITEM LFET$FIRST I(01,42,18);   # FIRST PTR                     #
        ITEM LFET$IN    I(02,42,18);   # IN PTR                        #
        ITEM LFET$OUT   I(03,42,18);   # OUT PTR                       #
        ITEM LFET$LIMIT I(04,42,18);   # LIMIT PTR                     #
        ITEM LFET$CRI   U(06,00,30);   # CURRENT RANDOM INDEX          #
        ITEM LFET$RWR   B(06,30,01);   # RANDOM REWRITE REQUEST        #
        ITEM LFET$RR    U(06,31,29);   # RANDOM INDEX FOR I/O REQUEST  #
        END 
 
      BASED ARRAY LTSB$BUF [1:L$LBUF] S(1); 
        BEGIN                          # CIO BUFFER FOR NCF/NLF        #
        ITEM LTSB$BUFWD U(00,00,60);   # CIO BUFFER WORD               #
        END 
 
      END   # LTSB$COM #
 
      END   # LTSB$NS # 
      TERM