ibm:vm370-lib:rscs:genroute.macro_src
Table of Contents
GENROUTE Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- GENROUTE.MACRO.txt
- MACRO 00001000
- &LABEL GENROUTE &PARM1,&PARM2 00002000
- LCLC &DEST,&NEXT 00003000
- &DEST SETC ' ' 00004000
- &NEXT SETC ' ' 00005000
- AIF (T'&PARM1 EQ 'O').NOID 00006000
- &DEST SETC '&PARM1' 00007000
- AIF (T'&PARM2 EQ 'O').NOID 00008000
- &NEXT SETC '&PARM2' 00009000
- .NOID ANOP 00010000
- &LABEL DC 0F'0',CL8'&DEST',CL8'&NEXT' DESTINATION, NEXT LINK 00011000
- SPACE 00012000
- MEND 00013000
ibm/vm370-lib/rscs/genroute.macro_src.txt · Last modified: 2023/08/06 13:39 by Site Administrator