&TAG     PROC  &LAB,2,&SA=                                              RET00010
RETURN   NAME                                                           RET00020
.*                                                                      RET00030
                                                           DO 0         RET00040
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  RET00050
*                                                                    *  RET00060
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *  RET00070
*                                                                    *  RET00080
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *  RET00090
*                                                                    *  RET00100
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  RET00110
                                                           ENDO         RET00120
.*                                                                      RET00130
         LCL   &SALABEL                                                 RET00140
         LCL   &PRLABEL                                                 RET00150
&PRLABEL SET   '&TAG.        '(1,8)                                     RET00160
&PRLABEL           DS    0H                                             RET00170
.*                                                                      RET00180
.********************************************************************** RET00190
.*                                                                    * RET00200
.*                                                                    * RET00210
.*       PROC TO GENERATE CODE TO:                                    * RET00220
.*                                                                    * RET00230
.*             RESTORE CALLING PROGRAM'S REGISTERS FROM HIS S. A.,    * RET00240
.*             RESTORE POINTER TO CALLER'S SAVE AREA,                 * RET00250
.*             RESTORE ENTRY AND EXIT REGISTERS,                      * RET00260
.*             GENERATION OF RETURNING BRANCH.                        * RET00270
.*                                                                    * RET00280
.********************************************************************** RET00290
.*                                                                      RET00300
.*       RELOAD POINTER TO HIGHER LEVEL SAVE AREA                       RET00310
.*                                                                      RET00320
         DO    '&SA'=''=0                                               RET00330
                   L     13,4(,13)                                      RET00340
         ENDO                                                           RET00350
.*                                                                      RET00360
.*       GENERATE REGISTER RESTORING INSTRUCTIONS                       RET00370
.*                                                                      RET00380
         DO    N'&LAB>0                                                 RET00390
                   RTRG$ &LAB(1),&LAB(2)                                RET00400
         ENDO                                                           RET00410
.*                                                                      RET00420
.*       GENERATE RETURN FLAG SETTING INSTRUCTION & RETURN              RET00430
.*                                                                      RET00440
         DO    N'&LAB=0=0                                               RET00450
                   MVI   12(13),X'FF'                                   RET00460
         ENDO                                                           RET00470
.*                                                                      RET00480
                   BR    14                                             RET00490
.*                                                                      RET00500
.*       GENERATE 18 WORD SAVE AREA                                     RET00510
.*                                                                      RET00520
         DO    ('&SA'=''=0)**('&SA'='*'=0)                              RET00530
&SALABEL SET   '&SA.        '(1,8)                                      RET00540
&SALABEL           DC    18F'0'                                         RET00550
         ENDO                                                           RET00560
.*                                                                      RET00570
         END                                                            RET00580
