ibm:vm370-lib:macro:getadt.macro_src
Table of Contents
GETADT Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- GETADT.MACRO.txt
- MACRO 00001000
- &NM GETADT &PLIST,&ERR=,&MODE= 00002000
- &NM LA 1,&PLIST 00003000
- AIF ('&MODE' EQ 'W').W 00004000
- SYSLOAD 15,ADTLKP 00005000
- AGO .B 00006000
- .W SYSLOAD 15,ADTLKW 00007000
- .B BALR 14,15 00008000
- AIF ('&ERR' EQ '').MEND 00009000
- LTR 15,15 00010000
- BNZ &ERR 00011000
- .MEND MEND 00012000
ibm/vm370-lib/macro/getadt.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator