* @RESTREG MAKPO - BOCCTAHOBéTø PEçéCTP[ù] éú CTAPOê OâìACTé COXPAHEHéñ TREG0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 31.07.89   BPEMñ 13.43   *  æOKõC  TREG0002
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    TREG0003
         MACRO                                                          TREG0004
&NAME    @RESTREG &R                                                    TREG0005
         LCLC  &W                                                       TREG0006
         AIF   (N'&R NE 1).M                                            TREG0007
         AIF   ('&R' EQ '0' OR '&R' EQ 'R0').ERRZ1                      TREG0008
&NAME    L     &R,4(13)          LOAD OLD SAVE AREA ADDRESS             TREG0009
         AIF   ('&R' EQ '14' OR '&R' EQ '15' OR '&R' EQ 'R14' OR '&R' E+TREG0010
               Q 'R15').O2                                              TREG0011
         L     &R,20+4*&R.(&R)   RESTORE REGISTER FROM OLD SAVE AREA    TREG0012
         MEXIT                                                          TREG0013
.O2      L     &R,12+(&R-14)*4(&R)                                      TREG0014
         MEXIT                                                          TREG0015
.*                                                                      TREG0016
.M       ANOP                                                           TREG0017
&W       SETC  '&R(1)'                                                  TREG0018
         AIF   (T'&R(1) EQ 'N' OR T'&R(1) EQ '#').TEST                  TREG0019
         MNOTE 4,'CANNOT USE SIMBOLIC NAMES'                            TREG0020
         AGO   .M1                                                      TREG0021
.TEST    AIF   ('&R(1)' NE '0' AND '&R(1)' NE 'R0').M1                  TREG0022
&W       SETC  '1'                                                      TREG0023
.M1      ANOP                                                           TREG0024
&NAME    L     &W,4(13)          LOAD OLD SAVE AREA ADDRESS             TREG0025
         AIF   ('&R(1)' EQ '14' OR '&R(1)' EQ '15' OR '&R(1)' EQ 'R14' +TREG0026
               OR '&R(1)' EQ 'R15').M22                                 TREG0027
         LM    &R(1),&R(2),20+4*&R(1)(&W)                               TREG0028
         MEXIT                                                          TREG0029
.M22     LM    &R(1),&R(2),12+(&R(1)-14)*4(&W)                          TREG0030
         MEXIT                                                          TREG0031
.ERRZ1   MNOTE 8,'REGISTER 0 CANNOT BE RESTORED'                        TREG0032
.END     MEND                                                           TREG0033