Retro1.org codex

*DECK PIC$NS
PROC PIC$NS;                 # PROGRAM INITIATION CONTROL BLOCK        #
# TITLE PIC$NS - PROGRAM INITIATION CONTROL BLOCK TEXT.                #
 
      BEGIN    # PIC$NS # 
# 
**    PIC$NS - PICB TEXT. 
* 
*     J.C. LEE    1981
* 
*     THIS SYMPL TEXT CONTAINS DEFS, STATUS LIST, AND FORMATS 
*     FOR PICB. 
* 
# 
      CONTROL STEXT;
# 
      DIRECTIVE CODE VALUES FOR PICB DIRECTIVES 
# 
      STATUS DIRCODE
        DUMP,                          # DUMP SPECIFIED AREA           #
        LOAD,                          # LOAD SPECIFIED MODULE         #
        START,                         # START NPU,WAIT FOR RESPONSE   #
        RESERV1,                       # RESERVED                      #
        STARTC,                        # RESTORE NDCB, START NPU       #
        LOADNCB,                       # LOAD NCB AT SPECIFIED LOCATION#
        SAVENDF,                       # SAVE DUMP FILE                #
        RESERV2,                       # RESERVED                      #
        RESERV3,                       # RESERVED                      #
        RESERV4,                       # RESERVED                      #
        RESERV5,                       # RESERVED                      #
        RESERV6,                       # RESERVED                      #
        RESERV7,                       # RESERVED                      #
        RESERV8,                       # RESERVED                      #
        RESERV9,                       # RESERVED                      #
        ENDPCB,                        # END OF PROCEDURE              #
        ; 
      DEF ID$DPCB         # "DPCB" #;  # DPCB IDENTIFIER               #
      DEF ID$LPCB         # "LPCB" #;  # LPCB IDENTIFIER               #
      DEF ID$SPCB         # "SPCB" #;  # SPCB IDENTIFIER               #
      DEF PICB$IDENT      # 8 #;       # PICB IDENTIFIER               #
      DEF PICB$HDRL       # 1 #;       # PICB HEADER LENGTH            #
      DEF XPCB$HDRL       # 1 #;       # XPCB HEADER LENGTH            #
      DEF PICB$PARWL      # 1 #;       # PICB PARAMETER WORD LENGTH    #
      COMMON PIC$COM; 
      BEGIN # PIC$COM # 
      BASED ARRAY PICB [0:0] S(1);
        BEGIN 
        ITEM PICB$TSBHD   U(00,00,60); # PICB TSB HEADER               #
        ITEM PICB$ID      U(00,00,06); # PICB IDENTIFIER               #
        ITEM PICB$BS      U(00,06,12); # BLOCK SIZE                    #
        ITEM PICB$VAR     C(00,24,06); # VARIANT                       #
        ITEM PICB$HDRW1   U(00,00,60); # PICB HEADER WORD 1            #
        ITEM PICB$RNAME   C(00,00,06); # RECORD NAME = NPU VARIANT     #
        ITEM PICB$HDRW2   U(00,00,60); # PICB HEADER WORD 2            #
        ITEM PICB$LSPCB   U(00,00,12); # LENGTH OF SPCB IN CM WORDS    #
        ITEM PICB$LLPCB   U(00,12,12); # LENGTH OF LPCB IN CM WORDS    #
        ITEM PICB$LDPCB   U(00,24,12); # LENGTH OF DPCB IN CM WORDS    #
        ITEM PICB$NDCBA   U(00,36,24); # NDCB ADDRESS                  #
        ITEM PICB$PCBID   U(00,00,24); # XPCB IDENTIFIER               #
        ITEM PICB$XPCBH   C(00,00,04); # XPCB IDENTIFIER               #
        ITEM PICB$ENTRY   U(00,00,60); # PICB ENTRY WORD               #
        ITEM PICB$CODE    U(00,00,04); # DIRECTIVE CODE                #
        ITEM PICB$DBT     U(00,08,03); # DUMP DIRECTIVE DUMP BLOCK TYPE#
        ITEM PICB$F$SUD   B(00,11,01); # SET IF A DIRECTIVE FOR SUD    #
        ITEM PICB$P1      U(00,12,24); # DIRECTIVE PARAMETER 1         #
        ITEM PICB$P2      U(00,36,24); # DIRECTIVE PARAMETER 2         #
        END 
      END   # PIC$COM # 
      END   # PIC$NS #
      TERM