ibm:vm370-lib:macro:punchc.macro_src
Table of Contents
PUNCHC Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- PUNCHC.MACRO.txt
- MACRO 00001000
- &LABEL PUNCHC &BUFFER,&ERROR=*+4 00002000
- AIF (T'&BUFFER EQ 'O').ERR1 00003000
- CNOP 0,4 00004000
- AIF ('&BUFFER'(1,1) EQ '(').REG 00005000
- AIF ('&BUFFER'(1,1) EQ '''').QUO 00006000
- &LABEL BAL 1,DMS&SYSNDX.A 00007000
- DC CL8'CARDPH' 00008000
- DC AL4(&BUFFER) 00009000
- DMS&SYSNDX.A SVC 202 00010000
- DC AL4(&ERROR) 00011000
- MEXIT 00012000
- .REG ANOP 00013000
- &LABEL ST &BUFFER(1),DMS&SYSNDX.B 00014000
- BAL 1,DMS&SYSNDX.A 00015000
- DC CL8'CARDPH' 00016000
- DMS&SYSNDX.B DC AL4(0) 00017000
- DMS&SYSNDX.A SVC 202 00018000
- DC AL4(&ERROR) 00019000
- MEXIT 00020000
- .QUO ANOP 00021000
- &LABEL BAL 1,DMS&SYSNDX.A 00022000
- DC CL8'CARDPH' 00023000
- DC AL4(DMS&SYSNDX.B) 00024000
- DMS&SYSNDX.B DC CL80&BUFFER 00025000
- DMS&SYSNDX.A SVC 202 00026000
- DC AL4(&ERROR) 00027000
- MEXIT 00028000
- .ERR1 MNOTE 8,'BUFFER ADDRESS NOT SPECIFIED' 00029000
- MEND 00030000
ibm/vm370-lib/macro/punchc.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator