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