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