On 4/5/2013 12:39 PM, Bernd Oppolzer wrote:
But there are some annoying exceptions:
- normal IBM CALL generates inline definitions and LA instructions
- IBM GETMAIN RC,LV=(R1) generates inline definitions and LA etc.
I had no problem with either of these macros in a jump-only program.
CALL (15),(CIASD,CIASD)
+ DS 0H
01-CALL
+ CNOP 0,4
02-IHBOPLTX
+ BRAS 1,IHB0791A LIST ADDRESS
02-IHBOPLTX
+IHB0791 DS 0F
02-IHBOPLTX
+ DC A(CIASD) PROB.PROG.PARAMETER @L2C 02-IHBOPLTX
+ DC A(CIASD) @L2C 02-IHBOPLTX
+IHB0791A EQU *
02-IHBOPLTX
+ BALR 14,15 BRANCH TO ENTRY POINT
01-CALL
GETMAIN RC,LV=(R1)
+ DS 0H @P5C 01-GETMAIN
+IHB0789C DS 0H
01-GETMAIN
+ LR 0,R1 LOAD LENGTH @ZA07133 01-GETMAIN
+ L 15,=AL1(B'00000000',(0),(0),B'00000000')
X01-GETMAIN
+ LOAD GETMAIN PARMS
+ SR 1,1 ZERO RESERVED REG 1
01-GETMAIN
+ SVC 120 ISSUE GETMAIN SVC
01-GETMAIN
--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/
