          EJECT
*         CTEXT  CTP$DFT MAIN NON RES NON I4.
*
*         THIS DECK PROVIDES STUB ROUTINES WHICH HANDLE
*         READING STATUS SUMMARY, AND PROCESSING IOU REGISTERS
*         ON SYSTEMS WHICH DO NOT SUPPORT DUAL IOUS.
 PSS      SPACE  4,10
**        PSS - PROCESS SUMMARY STATUS.
*
*         EXIT   (SS) = 4/ UNCHANGED,12/ NEW SUMMARY STATUS.


          ROUTINE  PSS

          LDN    SSMR        READ SUMMARY STATUS FOR IOU
          STD    RN
          LDM    I0CC        GET IOU CONNECT CODE
          RJM    RMR         READ THE SUMMARY STATUS (SS)
          STDL   T1
          LDDL   SS
          LPC    0#F000
          ADDL   T1
          STDL   SS
          LJM    PSSX        RETURN
 PIR      SPACE  4,10
**        PIR - PROCESS IOU REGISTERS NON I4.
*
*         EXIT   SCRATCH MRB CONTAINS REGISTERS FOR IOU ERROR.
*
*         NOTE   THIS IS A DUMMY ROUTINE ON S0/S0E.


          ROUTINE PIR

          LDM    S0FLG       CHECK MAINFRAME TYPE
          NJP    PIRX        IF S0/S0E
          LDM    SUMS        SUMMARY STATUS
          LPN    14
          ZJN    PIR10       IF NOT PP HALT OR UNCORRECTED ERROR
          LDM    IO0U        UNCORRECTED ERROR LIST
          UJN    PIR20       CONTINUE

 PIR10    LDM    IO0C        CORRECTED ERROR LIST
 PIR20    RJM    BRL         BUILD REGISTER LIST
          CALL   RMR         READ MAINTENANCE REGISTERS
          LJM    PIRX        RETURN
 PRO      SPACE  4,10
**        PRO - PASS REQUEST TO OTHER IOU.
*
*         NOTE   THIS IS A DUMMY ROUTINE ON NON-DUAL I4 SYSTEMS.


 PRO      SUBR               ENTRY/EXIT
          UJN    PROX        RETURN
 LDS      SPACE  4,10
**        LDS - LOAD DFT INTO SECONDARY IOU.
*
*         NOTE   THIS IS A DUMMY ROUTINE ON NON-DUAL I4 SYSTEMS.


          ROUTINE LDS

          LJM    LDSX        RETURN

*         END    CTP$DFT MAIN NON RES NON I4
