ASMB,R,L,T,C,B  ** LOCL: SWITCH BUS TO LOCAL ** 
      HED ** LOCL: SWITCH BUS TO LOCAL **                    REV A
      NAM LOCL
      ENT LOCL
      EXT .ENTR,.IOC. 
      SKP 
UREF# OCT 0 
* 
LOCL  NOP           ENTRY 
      JSB .ENTR     GET ADDR'S OF PARAMS
      DEF UREF#          FROM USER CALL 
* 
*     CONFIGURE IOC REQUEST 
* 
      LDA UREF#,I 
      AND =B000077
      IOR RCLOC 
      STA RCODE 
* 
*     EXECUTE CONTROL REQUEST TO IOC
* 
      JSB .IOC. 
RCODE OCT 030200
      JMP *-2 
* 
*     EXIT
* 
      JMP LOCL,I
* 
*     CONSTANTS 
* 
RCLOC OCT 030200
      END 
                                                                                                                                                  