*COMDECK RELFILE
 DEF PARSIZE        # 7#;              # PARAMETER BLOCK SIZE          #
 DEF CIORETURN      #O"070"#;          # CIO RETURN REQUEST CODE       #
 DEF DSPNODAYFI     #O"0010000"#;      # NO DAYFILE MESSAGE FLAG       #
 DEF PP$CIO         #"CIO"#;           # CIO PP NAME                   #
 DEF PP$DSP         #"DSP"#;           # DSP PP NAME                   #
  
 COMMON RELFILE;
   BEGIN
# 
      PARAMETER BLOCK FOR DSP OR CIO REQUEST
# 
 BASED ARRAY PARAMB P(PARSIZE);        # PARAMETER BLOCK               #
   BEGIN
   ITEM FET$LFN     C(0,0,NC);         # LOCAL FILE NAME               #
   ITEM FET$CIOERR  U(0,46,5);         # ABNORMAL TERM CODE FROM CIO   #
   ITEM FET$DSPERR  U(0,42,6);         # DSP ABNORMAL TERMINATION CODE #
   ITEM FET$STAT    U(0,42,18);        # CIO REQUEST/RETURN CODE       #
   ITEM FET$OT      U(0,48,11) ;       # DSP - FORCED ORIGIN TYPE      #
   ITEM FET$CB      B(0,59,1);         # COMPLETION BIT                #
   ITEM FET$WD0     U(0,0,WL);
   ITEM FET$TF      U(1,0,12) ;        # DSP - TERMINATION FLAG        #
   ITEM FET$F1      U(1,12,12);        # DSP - FORMS CODE/INPUT FLAGS  #
   ITEM FET$DT      C(1,0,2);          # CIO - DEVICE TYPE NUMERIC     #
   ITEM FET$UP      B(1,14,1);         # CIO - USER PROCESSING FLAG    #
   ITEM FET$EP      B(1,15,1);         # CIO - ERROR PROCESSING FLAG   #
   ITEM FET$DIS     C(1,24,2);         # DSP - DISPOSITION CODE NUMERIC#
   ITEM FET$EC      U(1,36,3);         # DSP - EXTERNAL CHARACTERISTICS#
   ITEM FET$IC      U(1,40,2);         # DSP - INTERNAL CHARACTERISTICS#
   ITEM FET$FLAGS   U(1,42,18);        # DSP - FLAGS                   #
   ITEM FET$FIRST   I(1,42,AL);        # CIO - FIRST PTR               #
   ITEM FET$WD1     U(1,0,WL);
   ITEM FET$TID     U(2,36,24);        # DSP - TERMINAL ID             #
   ITEM FET$IN      I(2,42,AL);        # CIO - IN PTR                  #
   ITEM FET$WD2     U(2,0,WL);
   ITEM FET$UJN     U(3,0,42) ;        # DSP - NEW USER JOB NAME       #
   ITEM FET$B       B(3,47,1);         # DSP - TRUE = PRIORITY ON      #
   ITEM FET$PRI     U(3,48,12);        # DSP - PRIORITY                #
   ITEM FET$OUT     I(3,42,AL);        # CIO - OUT PTR                 #
   ITEM FET$WD3     U(3,0,WL);
   ITEM FET$CIOFNT  U(4,0,12);         # FNT POINTER FOR CIO CALL      #
   ITEM FET$SC      U(4,0,12);         # DSP - SPACING CODE FOR PRINT  #
   ITEM FET$FA      U(4,24,12) ;       # DSP - FORCED ABT CDE (INPUT)  #
   ITEM FET$RC      U(4,43,5);         # DSP - REPEAT COUNT            #
   ITEM FET$PRU     U(4,24,18);        # CIO - PRU SIZE                #
   ITEM FET$DSPFNT  U(4,48,12);        # FNT POINTER FOR DSP CALL      #
   ITEM FET$LIMIT   I(4,42,AL);        # CIO - LIMIT PTR               #
   ITEM FET$WD4     U(4,0,WL);
   ITEM FET$BC      U(5,0,24) ;        # DSP - BINARY CARD SEQ ERR     #
   ITEM FET$COUNT   U(5,24,36) ;       # DSP - NUMBER OF CARDS READ    #
   ITEM FET$WD5     U(5,0,WL);
   ITEM FET$EQID    U(6,0,42) ;        # DSP - TERMINAL ID OF INPUT JOB#
   ITEM FET$WD6     U(6,0,WL);
   END
# 
      PP CALL WORD
# 
 ARRAY PPREQ S(1);
   BEGIN
   ITEM PPNAME      C(0,0,3);          # PP TO BE BROUGHT IN           #
   ITEM RECALL      B(0,19,1);         # AUTO RECALL BIT               #
   ITEM PADDR       I(0,42,AL);        # PARAMETER BLOCK ADDRESS       #
   ITEM REQWORD     U(0,0,WL) = [0];   # PP CALL WORD                  #
   END
# 
      DSP OR CIO PP CALL RING - WAITING FOR COMPLETION OF THE PP
      FUNCTION (COMPLETION BIT OF THE PARAMETER BLOCK SET). 
# 
 ARRAY PPCALLR      P(1); 
   BEGIN
   ITEM PCRTAIL     I(0,24,AL);        # PP-CALL-RING TAIL POINTER     #
   ITEM PCRHEAD     I(0,42,AL);        # PP-CALL-RING HEAD POINTER     #
   ITEM PCRWORD     U(0,0,WL) = [0];   # PP-CALL-RING WORD             #
   END
   END
