MACRO                                                          00001000
&NAME STXIT &TY,&EN,&SV                                                 00002000
 LCLA &AL1                                                              00003000
* SUPERVISOR - STXIT - 5745-SC-SUP - REL. 28.0                          00004000
         AIF   ('&TY' EQ 'OC').OC                                       00005000
         AIF   ('&TY' EQ 'IT').IT                                       00006000
         AIF   ('&TY' EQ 'PC').PC                                       00007000
         AIF   ('&TY' EQ 'AB').AB                                       00008000
         MNOTE 5,'TYPE INVALID - MACRO IGNORED'                         00009000
         MEXIT                                                          00010000
.AB      ANOP                                                           00011000
&AL1     SETA  &AL1+17                                                  00012000
.OC      ANOP                                                           00013000
&AL1     SETA  &AL1+2                                                   00014000
.IT      ANOP                                                           00015000
&AL1     SETA  &AL1+2                                                   00016000
.PC      ANOP                                                           00017000
&AL1     SETA  &AL1+16                                                  00018000
         AIF   (T'&EN EQ 'O' AND T'&SV EQ 'O').ZER                      00019000
         AIF   (T'&EN EQ 'O' OR T'&SV EQ 'O').MIS                       00020000
&NAME    DC    0H'0'                                                    00021000
         AIF   ('&SV'(1,1) NE '(').TWO                                  00022000
         AIF   ('&SV(1)' EQ '1').FIVE                                   00023000
         LR    1,&SV(1)                                                 00024000
.FIVE    ANOP                                                           00025000
         AIF   ('&EN'(1,1) NE '(').THREE                                00026000
         AIF   ('&EN(1)' EQ '0').FOUR                                   00027000
         LR    0,&EN(1)                                                 00028000
         AGO   .FOUR                                                    00029000
.TWO     ANOP                                                           00030000
         L     1,=A(&SV)                                                00031000
         AGO   .FIVE                                                    00032000
.THREE   ANOP                                                           00033000
         L     0,=A(&EN)                                                00034000
.FOUR    ANOP                                                           00035000
         SVC   &AL1                                                     00036000
         MEXIT                                                          00037000
.ZER     ANOP                                                           00038000
&NAME SR 0,0                                                            00039000
   SR 1,1                                                               00040000
  SVC  &AL1                                                             00041000
         MEXIT                                                          00042000
.MIS     ANOP                                                           00043000
         MNOTE 5,'OPERAND OMITTED - MACRO IGNORED'                      00044000
         MEND                                                           00045000