Hi Robert, Here’s the output from the Dignus assembler for your example:
Dignus Assembler Option Summary Page 1 DASM V1.90.04 2014/02/20 14:20 Dignus Assembler Option Summary Page 2 DASM V1.90.04 2014/02/20 14:20 Overriding Parameters- using.asm No Process Statements Options for this Assembly Source ------------------------- ------------------------- NOADATA {Default} ALIGN {Default} BATCH {Default} NOCOMPATCASE {Default} NOCOMPATMACROCASE {Default} NOCOMPATSYSLIST {Default} NOCOMPATLITTYPE {Default} NOCOMPATSYSPATH {Default} DXREF {Default} NOMAPAT {Default} NODUPALIAS {Default} NOVSELIBR {Default} ESD {Default} ERRFMT(dasm) {Default} FLAG(0,ALIGN,CONT,NOEXLITW,NOPAGE0,PUSH,RECORD,NOSUBSTR,NOIMPLEN,USING0) {Default} NOFOLD {Default} NOGOFF {Default} LANGUAGE(EN) {Default} LINECOUNT(55) {Default} LIST(&d&p&f.lst) {Default} MACCPYEXT(mac) {Default} MXREF {Default} NOOBJECT {Default} OPTABLE(UNI,NOLIST) {Default} OPTIONSUMMARY {Default} NOPCONTROL {Default} NOPESTOP {Default} NOPROFILE {Default} NORA2 {Default} RLD {Default} RENT {Default} NORXREF {Default} SECTALGN(8) {Default} SIZE(MAX) {Default} NOSUPRWARN {Default} SYSPARM() {Default} TERM(WIDE) {Default} THREAD {Default} NOTRANSLATE {Default} TYPECHECK(MAGNITUDE,REGISTER) {Default} USING(NOLIMIT,MAP,WARN(15)) {Default} NONXREF {Default} NOXREF {Default} XSD {Default} TEST External Symbol Dictionary Page 3 Symbol Type Id Address Length Owner Id Flags Alias-of DASM V1.90.04 2014/02/20 14:20 TEST SD 00000001 00000000 00000010 00 TEST Dependant USING beyond 4K Page 4 Active Usings: None R-Loc Object Code Addr1 Addr2 Stmt Source Statement DASM V1.90.04 2014/02/20 14:20 00000000 00000000 00000010 2 TEST RSECT 00000000 3 USING TEST,12 00000000 4 USING (Area1,Area1+Area1Len),11 TEST Dependant USING beyond 4K Page 5 Active Usings: Area1(X'2000'),R11 Area2(X'800'),R11+X'1800' TEST,R12 R-Loc Object Code Addr1 Addr2 Stmt Source Statement DASM V1.90.04 2014/02/20 14:20 00000000 6 USING Area2,Fld4 00000000 E300 B800 0195 00000000 7 LLH 0,Yonder1 00000006 E310 B802 0171 00000002 8 LAY 1,Yonder2 00000010 9 LTORG , 00000000 00000000 00002000 10 Area1 DSECT 00000000 11 Fld1 DS XL2048 00000800 12 Fld2 DS XL2048 00001000 13 Fld3 DS XL2048 00001800 14 Fld4 DS XL2048 00002000 00000001 15 Area1Len EQU *-Area1 00000000 00000000 00000002 16 Area2 DSECT 00000000 17 Yonder1 DS H 00000002 18 Yonder2 DS 0X 19 END TEST DSECT Cross Reference Page 6 DSECT LENGTH ID DEFN DASM V1.90.04 2014/02/20 14:20 Area1 00002000 FFFFFFFF 00010 Area2 00000002 FFFFFFFE 00016 TEST Using Map Page 7 DASM V1.90.04 2014/02/20 14:20 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 3 00000000 00000001 USING ORDINARY 00000000 00001000 00000001 12 000 0 TEST,12 4 00000000 00000001 USING ORDINARY 00000000 00002000 FFFFFFFF 11 002 8 (Area1,Area1+Area1Len),11 6 00000000 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 0 000 0 Area2,Fld4 TEST Diagnostic Cross Reference and Assembler Summary Page 8 DASM V1.90.04 2014/02/20 14:20 No Statements Flagged in this Assembly DASM Dignus Systems/ASM, VERSION 1.90.04 SYSTEM: FreeBSD 6.2-RELEASE i386 JOBNAME: (NOJOB) STEPNAME: (NOSTEP) PROCSTEP: (NOPROC) Datasets Used for this Assembly Con DDname Dataset Name P1 USING using.asm Assembly Start Time: 14.20.25 Stop Time: 14.20.25 Processor Time: 00.00.00.0000 Return Code 000 - Dave Rivers - -- riv...@dignus.com Work: (919) 676-0847 Get your mainframe programming tools at http://www.dignus.com On Feb 20, 2014, at 1:54 PM, Robert Ngan <rn...@csc.com> wrote: > 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 >