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