No Access Registers
And Register 14 was set by the LARL instruction

---------- Original Message ----------
From: Alan Atkinson <[email protected]>
To: [email protected]
Subject: Re: Can Someone Point Out My error Here
Date: Sun, 17 Aug 2014 20:44:07 +0000

any access registers?

________________________________________
From: IBM Mainframe Assembler List [[email protected]] on behalf 
of [email protected] [[email protected]]
Sent: Sunday, August 17, 2014 4:24 PM
To: [email protected]
Subject: Can Someone Point Out My error Here

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

Reply via email to