Hi I decided to use the CIRB macro so that way I could build my own IRB
The problem seems to be the AMODE of my RBOPSW is 24 so the high order
byte of my rbepa gets chopped off
So here is my IRB entry from SDUMP
IRB: 008AC7A8
KEYSTA... 0C WLIC..... 00040011 EPA...... 9FF01E80
OPSW..... 070C0000 00F01E80 LINK..... 008FFF98
As you can clearly the first byte of program EPA is getting chopped off in
the RBOPSW
Here is the code that produced this
1 *
2 L R4,PSAAOLD
3 USING ASCB,R4
4 L R4,ASCBASXB
5 DROP R4
6 USING ASXB,R4
7 L R4,ASXBFTCB
8 *
9 CIRB EP=IRBADD, X
0 SVAREA=YES, X
1 KEY=SUPR, X
2 MODE=SUPR, X
3 RETIQE=YES, X
4 STAB=DYN, X
5 WKAREA=255, X
RETRN=YES, X
AMODE=CALLER
*
USING RBBASIC,R1
LA R5,IRBPTR
O R5,=X'80000000'
ST R5,RBEPA
OI RBOPSWA,RBOPSW31 Set the amode
L R5,RBNEXAV
USING IQESECT,R5
ST R5,IQEADD
ST R1,IQEIRB
LA R15,PLIST
ST R15,IQEPARAM
ST R4,IQETCB
*
SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND,REGS=SAVE
*
*
*
SCHEDIRB IQEPTR=IQEADD, X
MF=(E,IRBLST)
SETLOCK RELEASE,TYPE=LOCAL,REGS=SAVE
*
*
L R13,4(,R13)
XR R15,R14
L R14,12(R13)
LM R0,R12,20(R13)
BR R14
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
