And I'd bet you do a SYSSTATE ARCHLVL to set up for relative/immediate use. That's something that I'm just getting into coding.
On Fri, Apr 5, 2013 at 3:03 PM, Ed Jaffe <[email protected]>wrote: > 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/ <http://www.phoenixsoftware.com/> > -- This is a test of the Emergency Broadcast System. If this had been an actual emergency, do you really think we'd stick around to tell you? Maranatha! <>< John McKown
