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