* @IDCONS  MAKPO - ðOìõþéTø HOMEP KOHCOìé [B R0]                        CONS0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 13.07.89   BPEMñ 14.46   *  æOKõC  CONS0002
*   @IDCONS [R=<PEçéCTP>][WR=<PEçéCTP>]                                 CONS0003
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    CONS0004
         MACRO                                                          CONS0005
&NAME    @IDCONS &R=0,&WR=15                                            CONS0006
&NAME    L     &WR,16                                                   CONS0007
         L     &WR,0(&WR)                                               CONS0008
         L     &WR,4(&WR)                                               CONS0009
         L     &WR,180(&WR)                                             CONS0010
         L     &WR,256(&WR)                                             CONS0011
         ZIC   &R,29(&WR)                                               CONS0012
         MEND                                                           CONS0013