No, you'd need a loop. This is a case where I would probably plant a stand-alone label "TABLE DS 0CL512' in order to give the label the correct length attribute.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Assembler List [[email protected]] on behalf of Paul Gilmartin [[email protected]] Sent: Monday, June 8, 2020 3:49 PM To: [email protected] Subject: Re: TROT (was: ... SIMD ... ) On 2020-06-08, at 13:06:24, Seymour J Metz wrote: > > HLASM hass a C2X, but also an A2X. > > If the mnemonic were TR12 then it wouldn't be hot to TROT. > So I'd want something like: TABLE DC 256 C'C2X(BYTE((*-TABLE)/2)' ... of course that doesn't work, does it? Can I get (*-TABLE) in conditional assembler? > ________________________________________ > From: Paul Gilmartin > Sent: Monday, June 8, 2020 1:20 PM >> > TROT is way easy in Rexx: > > signal on novalue > do Line = 0 to 15 > Chars = " DC C'" > do Col = Line * 16 to Line * 16 + 15 > Chars = Chars || c2x( right( d2c( Col ), 1 ) ) > end Col > say Chars"'" > end Line > > ... it'e the C2X() that makes it work > > I can generate a table in HLASM: > > TABLE DC 256AL2((*-TABLE)/2) > > ... but it's the wrong table > > I'm HLASM-naive. Has HLASM anything like C2X, perhaps in a > macro from cbttape.org, conditional or mainstream assembly? > Or must it be done painstakingly, character by character? > > (TR12 would be a better mnemonic. Do any opcodes contain digits?) -- gil
