MACRO 00001000
&NAME SWITCH 00002000
GBLB &AP @V407511 00003000
GBLC &NL @V407511 00004000
&NL SETC '&SYSNDX'(2,3) @V407511 00005000
AIF (T'&NAME EQ 'O').SWITCH2 00006000
AIF ('&AP' EQ '0').SWITCH1 @V407511 00007000
&NAME TM APSTAT1,PROCIO RUNNING ON THE I/O PROCESSOR @V407511 00008000
BO SWI&NL YES, NO NEED TO SWITCH @V407511 00009000
SVC 24 SWITCH TO THE I/O PROCESSOR @V407511 00010000
SWI&NL DS 0H @V407511 00011000
AGO .SWITEXT 00012000
.SWITCH1 ANOP @V407511 00013000
&NAME DS 0H @V407511 00014000
AGO .SWITEXT @V407511 00015000
.SWITCH2 AIF ('&AP' EQ '0').SWITCH3 @V407511 00016000
TM APSTAT1,PROCIO RUNNING ON THE I/O PROCESSOR @V407511 00017000
BO SWI&NL YES, NO NEED TO SWITCH @V407511 00018000
SVC 24 SWITCH TO THE I/O PROCESSOR @V407511 00019000
.SWITCH3 ANOP @V407511 00020000
SWI&NL EQU * @V407511 00021000
.SWITEXT ANOP @V407511 00022000
MEND @V407511 00023000