MACRO                                                          08000000
&NAME    JRETURN                                                        16000000
.*       RESTORES THE REGISTERS OF THE CALLING PROGRAM FROM A PUSH      16050000
.*       DOWN SAVE AREA (R2 THRU R9) AND THEN RETUTNS TO THE CALLER     16100000
.*       VIA R9. REQUIRES A NAME FIELD.                                 16150000
         AIF   (K'&NAME EQ 0).ERR1                                      24000000
&NAME    LM    R8,R9,JCLVLPTR           GET CURRENT LVL & DECR          32000000
         BXLE  R8,R9,0                  DECREMENT LEVEL POINTER         40000000
         ST    R8,JCLVLPTR              SAVE NEW LEVEL POINTER          48000000
         LM    R2,R9,JSAVESZ(R8)        RESTORE REGISTERS R2 THRU R9    56000000
         BR    R9                       RETURN TO CALLING PROGRAM       64000000
         MEXIT                                                          72000000
.ERR1    MNOTE 8,'OMITTED NAME.'                                        80000000
         MEND                                                           88000000