*COMDECK COMPPIO                                                              SC44949 
PIO       SPACE  4,10                                                    SC44949
**        PIO                                                            SC44949
*                                                                        SC44949
*         SUBROUTINE TO SET THE NO-RERUN BIT (S.CPA) IN THE CONTROL      SC44949
*         POINT AREA AND TO CALL 1QF MODE 4 T SET THE NO-RERUN           SC44949
*         BIT IN THE FNT IN THE PFC ENTRY                                SC44949
*                                                                        SC44949
*         ENTRY  NONE                                                    SC44949
*                                                                        SC44949
*         EXIT   1QF HAS BEEN CALLED                                     SC44949
*                                                                        SC44949
*         CALLS R.RCH R.DCH R.MTR                                        SC44949
*                                                                        SC44949
*                                                                        SC44949
OV.1QF    EQU    OV.1QF                                                  SC44949
                                                                         SC44949
CALL1QF   VFD    18/OV.1QF,6/0,12/4,24/0                                 SC44949
PIO1      LDN    CH.CPA                                                  SC44949
          RJM  R.DCH         DROP CH.CPA                                 SC44949
                                                                         SC44949
PIO       ENM    X           ENTRY/EXIT                                  SC44949
                                                                         SC44949
          LDN    CH.CPA                                                  SC44949
          RJM  R.RCH                                                     SC44949
                                                                         SC44949
          LDD    D.CPAD                                                  SC44949
          SHN    -7                                                      SC44949
          RAM    CALL1QF+1         SET CP NUMBER IN 1QF CALL             SC44949
          LDD    D.CPAD                                                  SC44949
          ADK    W.CPFP                                                  SC44949
          CRD    D.T0                                                    SC44949
          LDD    D.T0+C.CPFP       SET NO RERUN BIT                      SC44949
                                                                         SC44949
RERUNOT   BIT    S.CPA                                                   SC44949
 SEQJOB   BIT    S.CPS
                                                                         SC44949
          LPN    RERUNOT
          NJN    PIO1              NO RERUN BIT ALREADY SET 
          LDN    RERUNOT
          RAD    D.T0+C.CPFP
          LDD    D.CPAD                                                  SC44949
          ADK    W.CPFP                                                  SC44949
          CWD    D.T0                                                    SC44949
          LDD    D.T0+C.CPFP
          LPK    SEQJOB 
          NJN    PIO1              EXIT IF SEQUENCER JOB
          LDD    D.CPAD                                                  SC44949
          ADK    W.CPIOQ           GET MST/PFC POINTER                   SC44949
          CRD    D.T0                                                    SC44949
          LDD    D.T0+C.CPIOQ                                            SC44949
          ZJN  PIO1                EXIT IF NO INPUT QUEUE ENTRY          SC44949
          LPN    77B                                                     SC44949
          SHN    12                                                      SC44949
          LMD    D.T0+C.CPIOQ+1                                          SC44949
          LMK    777777B                                                 SC44949
          NJN  PIO2                                                      SC44949
          LJM  PIO1                EXIT IF MST/PFC POINTER = 777777B     SC44949
                                                                         SC44949
PIO2      LDD    D.PPMES1                                                SC44949
          CWM    CALL1QF,D.PPONE   CALL 1QF                              SC44949
          LDK    P.ZERO                                                  SC44949
          CRD    D.T0                                                    SC44949
          LDK    M.RPJ                                                   SC44949
          RJM  R.MTR                                                     SC44949
                                                                         SC44949
          UJK  PIO1                EXIT                                  SC44949
                                                                         SC44949
