* @CNVATTR MAKPO - ðPEOâPAúOBAHéE MBBCCHHR B TTR0  (IECPRLTV)           ATTR0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 21.09.90   BPEMñ 19.28   *  æOKõC  ATTR0002
* @CNVATTR <AäPEC ðOìñ C MBBCCHHR>,DEB=<AäPEC DEB>/DCB=<AäPEC DCB>      ATTR0003
*  HA BùXOäE: R0 - TTR0                                                 ATTR0004
*  ìEHéHçPAä éBã çõT  OTä. 23 ìATùûKO                   T: 219-07-07    ATTR0005
         MACRO                                                          ATTR0006
&NAME    @CNVATTR &CCHHR,&DCB=,&DEB=                                    ATTR0007
&NAME    STM   2,14,28(13)       SAVE REGISTERS                         ATTR0008
         AIF   ('&DCB' EQ '').DEB                                       ATTR0009
         IHBLADR 1,&DCB                                                 ATTR0010
         L     1,44(0,1)         LOAD DEB ADRESS FROM DCB               ATTR0011
         AGO   .CCHHR                                                   ATTR0012
.DEB     IHBLADR 1,&DEB,'DEB - DEB ADRESS'                              ATTR0013
.CCHHR   IHBLADR 2,&CCHHR,'#1 - ADRESS OF 8-BYTE FIELD WHITH MBBCCHHR'  ATTR0014
         L     15,16             LOAD CVT ADRESS                        ATTR0015
         L     15,32(0,15)       LOAD IECPRLTV ADRESS                   ATTR0016
         LR    8,13              SAVE REGISTER 13 IN REGISTER 8         ATTR0017
         BALR  14,15             CALL IECPRLTV                          ATTR0018
         LM    2,14,28(8)        RESTORE REGISTERS                      ATTR0019
         MEND                                                           ATTR0020