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
>
