ibm:vm370-lib:macro:strinit.macro_src
Table of Contents
STRINIT Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- STRINIT.MACRO.txt
- MACRO 00001000
- &NM STRINIT &XXX,&TYPCALL=SVC 00002000
- AIF ('&TYPCALL' EQ 'SVC').SVC 00003000
- AIF ('&TYPCALL' EQ 'BALR').BALR 00004000
- MNOTE 8,'''TYPCALL'' NOT ''SVC'' OR ''BALR''' 00005000
- MEXIT 00006000
- .SVC ANOP 00007000
- &NM SVC 203 00008000
- DC H'7' STORAGE INITIALIZATION 00009000
- MEXIT 00010000
- .BALR ANOP 00011000
- &NM L 15,=V(DMSSTGSB) STORAGE INIT. ROUTINE 00012100
- BALR 14,15 00013000
- MEND 00014000
ibm/vm370-lib/macro/strinit.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator