COMPSWT Source

         MACRO                                                          00001000
&LBL     COMPSWT              &SWITCH                                   00002000
         LCLB  &ON,&OFF                                                 00003000
&ON      SETB  ('&SWITCH' EQ 'ON')                                      00004000
&OFF     SETB  ('&SWITCH' EQ 'OFF')                                     00005000
         AIF   (&ON).SWTON                                              00006000
         AIF   (&OFF).SWTOFF                                            00007000
         MNOTE 8,'COMPSWT ARG NOT ''ON'' OR ''OFF'''                    00008000
         MEXIT                                                          00009000
.SWTOFF  ANOP                                                           00010000
&LBL     SVC   203                                                      00011000
         DC    X'04',X'0F'                                              00012000
         MEXIT                                                          00013000
.SWTON   ANOP                                                           00014000
&LBL     SVC   203                                                      00015000
         DC    X'03',X'0F'                                              00016000
         MEND                                                           00017000