* @MOVE    MAKPO - ðEPEHOC äìéHHùX ðOìEê                                MOVE0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 28.04.89   BPEMñ 01.21   *  æOKõC  MOVE0002
*   @MOVE <KõäA>,<OTKõäA>[,<äìéHA>][,WR=(<GR1>,<GR2>,<GR3>)]            MOVE0003
*  ìEHéHçPAä éBã çõT  OTä. 23 ìATùûKO                   T: 219-07-07    MOVE0004
         MACRO                                                          MOVE0005
&NAME    @MOVE &TO,&FROM,&LEN,&WR=(1,14,15)                             MOVE0006
&NAME    IHBLADR &WR(1),&TO,'TO'                                        MOVE0007
         IHBLADR &WR(2),&FROM,'FROM'                                    MOVE0008
         AIF   ('&LEN' NE '').LEN                                       MOVE0009
         LA    &WR(3),L'&TO                                             MOVE0010
         AGO   .C                                                       MOVE0011
.LEN     IHBLADR &WR(3),&LEN                                            MOVE0012
.C       SH    &WR(3),=H'256'                                           MOVE0013
         BNP   *+22                                                     MOVE0014
         MVC   0(256,&WR(1)),0(&WR(2))                                  MOVE0015
         LA    &WR(1),256(&WR(1))                                       MOVE0016
         LA    &WR(2),256(&WR(2))                                       MOVE0017
         B     *-22                                                     MOVE0018
         LA    &WR(3),255(&WR(3))                                       MOVE0019
         EX    &WR(3),*+4                                               MOVE0020
         MVC   0(0,&WR(1)),0(&WR(2))                                    MOVE0021
         MEND                                                           MOVE0022