&TAG     PROC  &LAB,2                                                   SAR00010
SARG$    NAME  STM                                                      SAR00020
RTRG$    NAME  LM                                                       SAR00030
                                                           DO 0         SAR00040
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  SAR00050
*                                                                    *  SAR00060
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *  SAR00070
*                                                                    *  SAR00080
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *  SAR00090
*                                                                    *  SAR00100
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  SAR00110
                                                           ENDO         SAR00120
.*                                                                      SAR00210
         LCL   &R1,&R2,&VARBL                                           SAR00220
         LCL   &INST                                                    SAR00230
         LCL   &PRLABEL                                                 SAR00240
&PRLABEL SET   '&TAG.        '(1,8)                                     SAR00250
.*                                                                      SAR00270
.********************************************************************** SAR00280
.*                                                                    * SAR00290
.*                                                                    * SAR00300
.*       PROC TO GENERATE CODE TO SAVE OR RESTORE REGISTERS           * SAR00310
.*       FOR THE PROCS SAVE AND RETURN.                               * SAR00320
.*                                                                    * SAR00330
.********************************************************************** SAR00340
.*                                                                      SAR00350
&INST    SET   '&LAB(0).   '(1,5)                                       SAR00360
         DO    ('&LAB(1)'='')++(('&LAB(1,1)'='13')**('&LAB(1,2)'='13')) SAR00370
         DO    '&LAB(2)'='T'                                            SAR00380
                   &INST 14,15,12(13)                                   SAR00390
         ENDO                                                           SAR00400
         GOTO  .ENDY                                                    SAR00410
         ENDO                                                           SAR00420
&R1      SET   &LAB(1,1)+('&LAB(1,1)'='13') {                   {       SAR00430
&R2      SET   &LAB(1,2)-('&LAB(1,2)'='13')                             SAR00440
         DO    ((&R1<13)**(&R2>13))++((&R1>&R2)**((&R2>13)++(&R1<13)))  SAR00450
&R2      SET   &R2+(15-&R2)*(('&LAB(2)'='T')**(&R1<13)**(&R2>13))       SAR00460
         DO    (('&R1'='0')**('&R2'='15'))++(&R1=(&R2+1))               SAR00470
                   &INST 14,12,12(13)                                   SAR00480
         GOTO  .ENDY                                                    SAR00490
         ENDO                                                           SAR00500
                   &INST 14,&R2,12(13)                                  SAR00510
&R2      SET   '12' {                                                   SAR00520
         GOTO  .EP1                                           {         SAR00530
         ENDO                                                           SAR00540
         DO    '&LAB(2)'='T'                                            SAR00550
&R1      SET   &R1+(14-&R1)*(('&R1'='15')++('&R1'='0'))                 SAR00560
&R2      SET   &R2+('&R2'='14')                                         SAR00570
         DO    '&R1'='14'=0                                             SAR00580
                   &INST 14,15,12(13)                                   SAR00590
         ENDO                                                           SAR00600
         ENDO                                                           SAR00610
.EP1     LABEL                                                          SAR00620
&VARBL   SET   &R1*4+20-64*(&R1>13)                                     SAR00630
.*                                                                      SAR00640
&PRLABEL           &INST &R1,&R2,&VARBL.(13)                            SAR00650
.*                                                                      SAR00660
.ENDY    LABEL                                                          SAR00670
.*                                                                      SAR00680
         END                                                            SAR00690
