I'm using long displacement instructions, the assembler should accept the USING and only issue an error if I attempt to use a 12-bit displacement instruction against a field beyond 4K.
Robert Ngan CSC financial Service Group IBM Mainframe Assembler List <ASSEMBLER-LIST@LISTSERV.UGA.EDU> wrote on 2014/02/20 13:08:45: > From: "Farley, Peter x23353" <peter.far...@broadridge.com> > To: ASSEMBLER-LIST@LISTSERV.UGA.EDU > Date: 2014/02/20 13:26 > Subject: Re: Error with dependant USING beyond 4096 bytes > Sent by: IBM Mainframe Assembler List <ASSEMBLER-LIST@LISTSERV.UGA.EDU> > > As you have coded it, FLD4 is outside of the USING for Area1 (Fld4 > starts at the 6K boundary). The USING for Area1 only covers the > first 4K, so you would need a second base register in the USING for > Area1 if you want to use Fld4 as the base for Area2. > > USING Area2,Fld2 should work just fine, bit not Fld3 or Fld4 without > a second Area1 base reg. > > HTH > > Peter > > -----Original Message----- > From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU > ] On Behalf Of Robert Ngan > Sent: Thursday, February 20, 2014 1:54 PM > To: ASSEMBLER-LIST@LISTSERV.UGA.EDU > Subject: Error with dependant USING beyond 4096 bytes > > I'm trying to use a dependant USING for an area beyond 4096 bytes from the > base register, but the USING is generating a "ASMA307E No active USING for > operand" error. > > The Language Reference manual states for "Dependant USING" on page 227: > > address > is a simply relocatable expression that represents an implicit address > within the > | range of an active USING instruction. The range of an active USING is > | considered to be that which is valid for generating 12-bit or 20-bit > | displacements. > > so it should work. However there are revision bars so maybe our system is > missing maintenance. > Does the following assemble cleanly for anyone on the list? > > TEST TITLE 'Dependant USING beyond 4K' > TEST RSECT > USING TEST,12 > USING (Area1,Area1+Area1Len),11 > EJECT , Display USING map > USING Area2,Fld4 > LLH 0,Yonder1 > LAY 1,Yonder2 > LTORG , > Area1 DSECT > Fld1 DS XL2048 > Fld2 DS XL2048 > Fld3 DS XL2048 > Fld4 DS XL2048 > Area1Len EQU *-Area1 > Area2 DSECT > Yonder1 DS H > Yonder2 DS 0X > END > > Robert Ngan > CSC Financial Services Group > > This message and any attachments are intended only for the use of > the addressee and may contain information that is privileged and > confidential. If the reader of the message is not the intended > recipient or an authorized representative of the intended recipient, > you are hereby notified that any dissemination of this communication > is strictly prohibited. If you have received this communication in > error, please notify us immediately by e-mail and delete the message > and any attachments from your system.