          SPACE  4,10
*         CTEXT  CTP$SCI SET UP PROCESSOR REQ.
*
*         THIS DECK CONTAINS A ROUTINE WHICH CAN BE USED TO SET UP
*         A DFT PROCESSOR REQUEST.
 SPR      SPACE  4,10
**        SPR - SET UP PROCESSOR REQUEST.
*
*         ENTRY  (A) = ADDRESS OF CM PARAMETER TO DFT.
*
*         USES   CM - CM+3.


 SPR      SUBR               ENTRY/EXIT
          STDL   CM+1        STORE ADDRESS OF BLOCK
          SRD    CM+2
          LDN    10          SELECT FIRST AVAILABLE CPU
          STM    IDRA
          UJN    SPRX        RETURN

*         ENDX   CTP$SCI SET UP PROCESSOR REQ.

