ibm:vm370-lib:macro:dmsfrx.macro_src
Table of Contents
DMSFRX Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- DMSFRX.MACRO.txt
- MACRO 00001000
- DMSFRX &TYPCALL,&CL,&CR,&MSG,&ERR 00002000
- LCLA &C 00003000
- LCLB &MB,&BB 00004000
- LCLC &CM 00005000
- AIF ('&MSG' EQ 'YES' OR '&MSG' EQ 'NO').MOK 00006000
- MNOTE 12,'DMSFRX003S ''MSG'' NOT ''YES'' OR ''NO''' 00007000
- MEXIT 00008000
- .MOK ANOP 00009000
- &MB SETB ('&MSG' EQ 'YES') 00010000
- &BB SETB ('&TYPCALL' EQ 'BALR') 00011000
- &C SETA 256*(&CL+X'02'*&MB+X'01'*&BB)+&CR 00012000
- AIF ('&ERR' EQ '').NOM 00013000
- &CM SETC '-' 00014000
- .NOM ANOP 00015000
- AIF ('&TYPCALL' EQ 'SVC').SVC 00016000
- AIF ('&TYPCALL' EQ 'BALR').BALR 00017000
- MNOTE 8,'DMSFRX004S ''TYPCALL'' NOT ''SVC'' OR ''BALR''' 00018000
- MEXIT 00019000
- .SVC ANOP 00020000
- SVC 203 00021000
- DC H'&CM&C' 00022000
- AGO .CERR 00023000
- .BALR ANOP 00024000
- USING NUCON,0 00025000
- MVC CODE203(2),=H'&CM&C' 00026000
- L 15,ADMSFREB 00027000
- BALR 14,15 00028000
- .CERR ANOP 00029000
- AIF ('&ERR' EQ '' OR '&ERR' EQ '*').NOER 00030000
- LTR 15,15 00031000
- BNZ &ERR BRANCH TO ERROR ROUTINE 00032000
- .NOER ANOP 00033000
- MEND 00034000
ibm/vm370-lib/macro/dmsfrx.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator