ibm:vm370-lib:macro:rdcard.macro_src
Table of Contents
RDCARD Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- RDCARD.MACRO.txt
- MACRO 00001000
- &LABEL RDCARD &BUFFER,&LENGTH,&ERROR=*+4 00002000
- LCLC &BUF,&LEN 00003000
- CNOP 0,4 00004000
- &LABEL DS 0H 00005000
- AIF (T'&BUFFER EQ 'O').ERR1 00006000
- &BUF SETC '&BUFFER' 00007000
- AIF ('&BUFFER'(1,1) NE '(').SKIP1 00008000
- &BUF SETC '0' 00009000
- ST &BUFFER(1),DMS&SYSNDX.A 00010000
- MVI DMS&SYSNDX.A,X'80' 00011000
- .SKIP1 ANOP 00012000
- &LEN SETC '80' 00013000
- AIF (T'&LENGTH EQ 'O').SKIP2 00014000
- &LEN SETC '&LENGTH' 00015000
- AIF ('&LENGTH'(1,1) NE '(').SKIP2 00016000
- &LEN SETC '0' 00017000
- STH &LENGTH(1),DMS&SYSNDX.B 00018000
- STH &LENGTH(1),DMS&SYSNDX.B+2 00019000
- .SKIP2 ANOP 00020000
- BAL 1,DMS&SYSNDX.C 00021000
- DC CL8'CARDRD' 00022000
- DMS&SYSNDX.A DC X'80',AL3(&BUF) 00023000
- DMS&SYSNDX.B DC H'&LEN',H'&LEN' 00024000
- DMS&SYSNDX.C SVC 202 00025000
- DC AL4(*+4) 00026000
- LH 0,DMS&SYSNDX.B+2 00027000
- AIF ('&ERROR' EQ '*+4').EXIT 00028000
- LTR 15,15 00029000
- BNZ &ERROR 00030000
- .EXIT MEXIT 00031000
- .ERR1 MNOTE 8,'BUFFER ADDRESS NOT SPECIFIED' 00032000
- MEND 00033000
ibm/vm370-lib/macro/rdcard.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator