Did you issue a SYSSTATE to inform the assembler which AMODE you are in before the STORAGE macro?
Sent from my iPhone > On 19 May 2016, at 17:55, Phil Smith III <li...@akphs.com> wrote: > > Doing a STORAGE OBTAIN in 64-bit mode: > > > > STORAGE OBTAIN,LENGTH=WORKLEN > > + CNOP 0,4 > > + B IHB0012B .BRANCH AROUND DATA > > +IHB0012L DC A(WORKLEN) .STORAGE LENGTH > > +IHB0012F DC BL1'00000000' > > + DC AL1(9*16) .KEY > > +.BYTE2A DC AL1(230) .SUBPOOL > > + DC BL1'00000010' .FLAGS > > +IHB0012B DS 0F > > + L 0,IHB0012L .STORAGE LENGTH @P9C > > + L 15,IHB0012F .CONTROL INFORMATION @P9C > > + L 14,16(0,0) .CVT ADDRESS > > + L 14,772(14,0) .ADDR SYST LINKAGE TABLE > > + L 14,160(14,0) .OBTAIN LX/EX FOR OBTAIN > > + PC 0(14) .PC TO STORAGE RTN > > > > The surprise here was that since R14 had something in the top half of the > grande register, Bad Things resulted (S0C4) on the line with comment "ADDR > SYST LINKAGE TABLE". This seemed.unintuitive. Are we the only ones who were > (or have been) surprised by this? Should we have known better somehow? > Should that macro be doing an XGR, maybe? > > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ================================ Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ +1 877.328.2932 ■ +1 781.577.4321 Unsubscribe From Commercial Email – unsubscr...@rocketsoftware.com Manage Your Subscription Preferences - http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter_SubscriptionCenter.html Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy ================================ This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
