On 4/1/2016 12:48 PM, Bob Rutledge wrote:
Ol' friend, your test is incomplete. That LMG doesn't go far enough.
Sorry. Pasted from the wrong test... :-[
TCB#6 RB#1 ------------------------------------------------- z/XDC TPUT
INTERFACE ------------
XDC ===>
_ 00000000_0E957100 0s (A.S.EDJX2) --- EJESSUBS.EJESSUBS+2100,
EJESSUBS+2100, XPRIVATE+1A57100
_ +2100 ***************************************************************
_ +2100 * Empirical Test for My ASSEMBLER-LIST
Friends *
_ +2100 ***************************************************************
_ +2100 EBE1 C060 0004 LMG R14,R1,=4FD'-1' Put garbage in
R14-R1
_ +2106 LOAD EPLOC==CL8'IEFBR14' Load a module
_ +2106 4100 C0C0 + LA 0,=CL8'IEFBR14' LOAD
PARAMETER INTO REG 0
_ +210A 1B11 + SR 1,1 SHOW NO DCB PRESENT
_ +210C 0A08 + SVC 8
_ +210E 0000 > DC H'0' Force an abend
_ +210E 0000 > +0 *..*
XDC ===> L RWREGS
_ RW0 00000000_00EC5000 00000000_00000001 00000000_7F363434
00000000_00000000
_ RW4 00000000_7F33A71E 00000000_0E9747CE 00000000_00000041
FFFFFFFF_FFFFF000
_ RW8 00000000_7F466D00 00000000_7F33C1A4 00000000_7F33A000
00000000_0E955000
_ RW12 00000000_0E98E7B0 00000000_7F466E00 FFFFFFFF_FFFFFFFF
00000001_00000000
--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/
