Why not just change the code to baseless? I have done that with various
things I touched over the last decade to good effect. Now that I am back
in a group that does assembler, I look forward to doing more.
Start with subroutines using LOCTR
* at top of code after CSECT
BASED LOCTR ,
.
.
.
JAS R14,SUB1
.
.
BASELESS LOCTR ,
* begin subroutine
SUB1 DS 0H
.
.
.
BR R14
* end of subroutine
BASED LOCTR ,
.
.
.
IBM Mainframe Assembler List <[email protected]> wrote on
06/01/2012 10:44:15 AM:
> From: Chuck Arney <[email protected]>
>
> Scott, your reply-to on your list posts is set to your email address
instead
> of the list.
>
> As I said privately (not on purpose), change the LR R12,R15 to LR
R11,R12 or
> change your other instructions to load R11 and use R12,R11.
>
> Chuck Arney
> Arney Computer Systems
>
> -----Original Message-----
> From: IBM Mainframe Assembler List [
mailto:[email protected]]
>
> Guys/Gals:
>
> I am the process of modifying our IRREVX01 and have a fundamental
> question...Currently when the exit is called the prolog looks like this:
>
> LOGEVX01 CSECT ,
> LOGEVX01 AMODE 31
> LOGEVX01 RMODE ANY
> YREGS
> SAVE (14,12)
> LR R12,R15 program addressability
> USING LOGEVX01,R12 set base register
> LR R10,R1 save parameter address
> USING EVXPL,R10 base parameter map
> L R3,EVXFLAGS exit flag address
> TM 0(R3),EVXPOST post-exit ?
> BNO GOBACK if not, get out
>
> Which works fine . I have added new code and exceeded the initial
register
> cover range of 4k ..I tried to add an addition base register like this:
>
> LOGEVX01 CSECT ,
> LOGEVX01 AMODE 31
> LOGEVX01 RMODE ANY
> YREGS
> SAVE (14,12)
> LR R12,R15 program addressability
> LA R12,2048(R11)
> LA R12,2048(R12)
> USING LOGEVX01,R11,R12 set base register
> LR R10,R1 save parameter address
> USING EVXPL,R10 base parameter map
> L R3,EVXFLAGS exit flag address
> TM 0(R3),EVXPOST post-exit ?
> BNO GOBACK if not, get out
>
> Assembled and liked the exit, T PROG=xx , where xx is the parmlib
member to
> delete the exit Reloaded the exit via T PROG=yy to activate the exit .
>
> Ran a test through the exit ( a RACF command ) and a S0C1-1 Without the
> addition of the new lines for the second base register. The exit works
> fine..
>
> Either I blew it on the second base or IRREVX01 has a size restriction
...
>
> Can someone point me the right way ?
>
> Thanks in advance..
>
> Regards
> Scott J Ford
-----------------------------------------
The information contained in this communication (including any
attachments hereto) is confidential and is intended solely for the
personal and confidential use of the individual or entity to whom
it is addressed. If the reader of this message is not the intended
recipient or an agent responsible for delivering it to the intended
recipient, you are hereby notified that you have received this
communication in error and that any review, dissemination, copying,
or unauthorized use of this information, or the taking of any
action in reliance on the contents of this information is strictly
prohibited. If you have received this communication in error,
please notify us immediately by e-mail, and delete the original
message. Thank you
