Using the following code, the expected results are returned. I cannot
reproduce the problem.
*
L R3,ANCHOR@ STORAGE ANCHOR ADDRESS
CLC STATIC_EYE,00(R3) VALID EYE CATCHER
JNE NO_STATIC_EYE NO EYE-CATCHER
*
LARL R14,LOCLCOMM DEBUG
MVC 0(16,R14),0(R3) DEBUG
ABEND 444,DUMP,STEP DEBUG
*
*
SA DC 18F'0'
DS 0D
ANCHOR@ DC A(STATIC_DATA)
STATIC_DATA DS 0D .
STATIC_EYE DC CL12'NINEXXXXV002' .EYE CATCHER
STATIC_NAME DC CL4'XXXX' .SUBSYSTEM IDENTIFIER
STATIC_STAMP DC 4XL4'00000000' .SUBSYSTEM TIME STAMP
STATIC_STATE DC XL4'00000000' .SUBSYSTEM STATE
*
DS 0D ALIGNMENT
DC CL8'LOCLCOMM' EYE CATCHER
LOCLCOMM DS CL256
DC CL12'LOCLCOMMEND ' EYE CATCHER
ORG ,
Registers at time of error
R0 C0000000
R1 C00001BC
R2 00000040
R3 00007EC0
R4 00AD0D48
R5 00AE5E88
R6 00AB8FC8
R7 FD000000
R8 00AA6F88
R9 00AE5B18
R10 00000000
R11 00AE5E88
R12 00007E20
R13 00007E6C
R14 00007EF0
R15 80007E20
Address Offset -------------- Data ---------------
00007E20 +00000 90ECD00C 4110F04C 501D0008 50D10004 ......0<&...&J..
00007E30 +00010 18D141CF 00005830 C098D50B C0A03000 .J.......qN.....
00007E40 +00020 A7740010 C0E00000 0056D20F E0003000 x....\....K.\...
00007E50 +00030 411001BC 410000C0 89000018 16100A0D ........i.......
00007E60 +00040 58DD0004 98ECD00C 17FF07FE 00000000 ....q...........
00007E70 +00050 00006F60 00000000 00000000 00000000 ..?-............
00007E80 +00060 00000000 00000000 00000000 00000000 ................
LINES 00007E90-00007EA0 SAME AS ABOVE
00007EB0 +00090 00000000 00000000 00007EC0 00000000 ..........=.....
00007EC0 +000A0 D5C9D5C5 E7E7E7E7 E5F0F0F2 E7E7E7E7 NINEXXXXV002XXXX
00007ED0 +000B0 00000000 00000000 00000000 00000000 ................
00007EE0 +000C0 00000000 00000000 D3D6C3D3 C3D6D4D4 ........LOCLCOMM
00007EF0 +000D0 D5C9D5C5 E7E7E7E7 E5F0F0F2 E7E7E7E7 NINEXXXXV002XXXX
00007F00 +000E0 00000000 00000000 00000000 00000000 ................
LINES 00007F10-00007FE0 SAME AS ABOVE
00007FF0 +001D0 D3D6C3D3 C3D6D4D4 C5D5C440 00000000 LOCLCOMMEND ....
On Sun, Aug 17, 2014 at 2:40 PM, Bob Rutledge <[email protected]>
wrote:
> [email protected] wrote:
>
>> Im executing 5 Instructions and then I force an Abend.
>> I load the address of a storage area into Register 1 nd verify it by the
>> presence of an eye-catcher.
>> After executing the 5 instructions below; I expect the area Labeled
>> "LOCLCOMM" to contain a copy of the eye-catcher that Register 1 is pointing
>> to. However after execiting the 5 instructions the area LOCLCOMM contains
>> 256 Binary zeroes ???
>> .
>> .
>> There is No Multi Tasking as this is a single TCB program.
>> .
>> .
>> L R1,ANCHOR1@ Storage Anchor Address CLC
>> STATIC_EYE,00(R1) Valid Eye Catcher JNE
>> NO_STATIC_EYE NO Eye-Catcher *
>> LARL R14,LOCLCOMM DEBUG
>> MVC 00(16,R14),00(R1) DEBUG
>> ABEND 444,DUMP,STEP DEBUG *
>> *
>> *
>> DS 0D Alignment DC
>> CL8'LOCLCOMM' Eye Catcher LOCLCOMM DS CL256
>> DC CL12'LOCLCOMMEND ' Eye Catcher ORG ,
>> .
>> .
>> So what Am I missing here ? Can someone point out my mistake ?
>> .
>> .
>> Paul
>>
> What exactly is in R1?
>
> Bob
>
