* @RETURN  MAKPO - KOHEã ðPOçPAMMù                                      TURN0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 13.02.89   BPEMñ 14.47   *  æOKõC  TURN0002
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    TURN0003
         MACRO                                                          TURN0004
&NAME    @RETURN &RR,&RC=                                               TURN0005
         GBLB  &DSADSEC                                                 TURN0006
         LCLC  &RRLIST                                                          
&RRLIST  SETC  '&RR'                                                            
.*                                                                      TURN0007
&NAME    IHBLOAD 15,&RC,EMPTY=SKIP    R15 - KOä BOúBPATA                TURN0008
         AIF    (NOT &DSADSEC).RESTSA                                   TURN0009
         LR    1,13              R1 - A. TEKõýEê Oâì. COXPAHEHéñ        TURN0010
.RESTSA  L     13,4(0,13)        BOCCT. AäPEC ðPEäùäõýEê Oâì. COXP.     TURN0011
         AIF   ('&RC' EQ '').FREESA                                     TURN0012
         ST    15,16(13)         úAHECEHéE KOäA BOúBPATA                TURN0013
.FREESA  AIF   (NOT &DSADSEC).RETURN                                    TURN0014
*                                                                       TURN0015
.*                                                                      TURN0016
         L     0,=A(@DSASIZE)    R0 - PAúMEP DSA                        TURN0020
         SVC   10                OCBOâOöäEHéE DSA                       TURN0021
.RETURN  AIF   ('&RRLIST' NE '').RETURN1                                        
&RRLIST  SETC  '(14,12)'                                                        
.RETURN1 RETURN (14,12)  .????                                                  
.*                                                                      TURN0024
.END     MEND                                                           TURN0025