At 15:46 +0000 on 02/15/2015, [email protected] wrote about An Interesting Technique:

I stumbled across a small routine whose function is to issue a STIMER and return to the caler, when the Time Limit Expires. What I found interesting was the way this routine saved the return code.
.
.
STIMER WAIT,DINTVL=WAITTIME    .Wait till the end   
L    R13,SAVE+4                .Return to caller    
ST   R15,16(,R13)      <===HERE
LM   R14,12,12(R13)                                 
BR   R14

L  R14,12(R13)
LM R0,R12,20(R13)

Works just as well. I also have the impression (possible wrong) that there is a parm on the RETURN macro that does the same thing (ie: Use the current contents of R15 as the return code).

              
.
.
Before restoring the callers registers, Register 15
is stored in the Register 15 Slot of the Callers Save Area.
OR that is how it appears to me.
.
Has Anyone seen this technique ?
Any comments on using this technique ?
.
.
Just curious

Paul
****

Reply via email to