          EJECT
*         CTEXT  CTP$DFT_REQUESTS_IOU1_DUAL_I4
*
*         THIS DECK DEFINES O.S. REQUESTS MADE SPECIFICALLY
*         FOR IOU1 IN A DUAL IOU SYSTEM.
          SPACE  4,10
 QUAL$    EQU    0           UNQUALIFY COMMON DECKS
 IAP      SPACE  4,10
**        IAP - IDLE ALL I/O DRIVERS IN IOU1.
*
*         EXIT   FOR IOU1, ALL PPS IN THE MAP IDLED AND CHANNELS
*                MASTER CLEARED AND DCN-D (EXCEPT FOR CIO CHANNELS,
*                WHICH ARE NOT DCN-D).
*
*         CALLS  IDI, IDP, LRP, SRS.
*
*         USES   W0 - W3.


          ROUTINE  IAP

          RJM    LRP         LOAD REQUEST POINTER
          CRDL   W0          FETCH REQUEST PARAMETERS
          LDDL   W1          GET SUBFUNCTION NUMBER
          LPC    0#FF
          SBN    1
          ZJN    IAP10       IF REQUEST TO IDLE DFT-S
          RJM    IDI         IDLE IOU1
          LJM    IAPX        RETURN

*         IDLE *DFT*.

 IAP10    LDC    0#100
          STM    JOBF        SET 180 STATUS OK
          RJM    SRS         RESPOND TO VE REQUEST
          LDM    //PPNO      DFT PP NUMBER
          RJM    IDP         IDLE PP
          LJM    ERR         ERROR IF *DFT* NOT IDLED
          SPACE  4,10
**        COMMON DECKS.


*copy     ctp$dft_idle_iou1
*copy     dsi$dump_load_idle_pp

*         END    CTP$DFT_REQUESTS_IOU1_DUAL_I4
