Yes the book says 31.
I finally fixed the code with
LARL R3,LABEL get address for second BSM
BSM R3,0 save the mode bit
SAM31 , go to 31 bit mode
LA R1,1608(,R4) begin SWAREQ MF=(E,...),UNAUTH=YES
LA R13,0(,R13)
L R15,16
L R15,296(,R15)
L R15,100(,R15)
L R15,88(,R15)
BALR R14,R15 end SWAREQ generated code
ORG *-2 prevent silly S0C1?
BASR R14,R15 prevent silly S0C1?
BSM 0,R3 put back original mode
LABEL DS 0H
Now I have to fix the fix - the returned pointer (SIOT) is now above the
line. Sigh!
All systems zOS 1.10 (except the sandbox(s?) on 1.11 which doesn't run
this code).
Thanks for helping me think the unthinkable.
IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu> wrote on 09/03/2009
04:24:36 PM:
> Chris Craddock wrote:
> > It wouldn't matter anyway. Neither of those changes the amode. That
would
> > require BASSM, or BSM or in z architecture, SAM. Is SWAREQ documented
to
> > allow 24-bit mode callers? (I really don't know without looking it up)
>
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/iea2a490/15.1.1
> AMODE=31 is required.
> Edward E Jaffe
-----------------------------------------
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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
