ibm:vm370-lib:rscs:rscsmsg.macro_src
Table of Contents
RSCSMSG Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- RSCSMSG.MACRO.txt
- MACRO 00001000
- &LABEL MSG &NUM,&VAR 00002000
- LCLA &TOFF,&TVARS 00003000
- LCLC &NDX,&COFF 00004000
- &NDX SETC '&SYSNDX'(3,2) 00005000
- &LABEL BAL 1,MEND&NDX 00006000
- M&NDX DC AL2(&NUM),AL2(0) 00007000
- AIF (N'&SYSLIST(2) EQ 0).NOVAR 00008000
- &TOFF SETA N'&SYSLIST(2) 00009000
- &COFF SETC '&TOFF' 00010000
- P&NDX DC &COFF.CL8' ' 00011000
- .NOVAR ANOP 00012000
- MEND&NDX EQU * 00013000
- AIF (N'&SYSLIST(2) EQ 0).NOVAR1 00014000
- &TOFF SETA 0 00015000
- &TVARS SETA 1 00016000
- .MLOP ANOP 00017000
- &COFF SETC '&TOFF' 00018000
- MVC P&NDX+&COFF.(8),&SYSLIST(2,&TVARS) 00019000
- &TOFF SETA &TOFF+8 00020000
- &TVARS SETA &TVARS+1 00021000
- AIF (&TVARS LE N'&SYSLIST(2)).MLOP 00022000
- .NOVAR1 ANOP 00023000
- LA 0,MEND&NDX-M&NDX 00024000
- BAL 14,MSG 00025000
- SPACE 1 00026000
- MEND 00027000
ibm/vm370-lib/rscs/rscsmsg.macro_src.txt · Last modified: 2023/08/06 13:39 by Site Administrator