ibm:vm370-lib:macro:stxit.macro_src
Table of Contents
STXIT Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 15, 1978
- Last Fix ID : [Unmodified]
Source Listing
- STXIT.MACRO.txt
- 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
ibm/vm370-lib/macro/stxit.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator