* @CNVTTRA MAKPO - ðPEOâPAúOBAHéE TTRN B MBBCCHHR  (IECPCNVT)           TTRA0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 05.02.90   BPEMñ 13.59   *  æOKõC  TTRA0002
* @CNVTTRA <AäPEC CìOBA C TTRN>/(<PEçéCTP C TTRN>),<AäPEC ðOìñ 8 âAêT>, TTRA0003
*       DEB=<AäPEC DEB>/DCB=<AäPEC DCB>                                 TTRA0004
*  HA BùXOäE: R15 - KOä BOúBPATA : 0 / 4                                TTRA0005
*  ìEHéHçPAä éBã çõT  OTä. 23 ìATùûKO                   T: 219-07-07    TTRA0006
         MACRO                                                          TTRA0007
&NAME    @CNVTTRA &TTRN,&CCHHR,&DCB=,&DEB=                              TTRA0008
&NAME    STM   2,14,28(13)       SAVE REGISTERS                         TTRA0009
         IHBLOAD 0,&TTRN,F,'#1 - TTRN ADDRESS OR REGISTER'              TTRA0010
         AIF   ('&DCB' EQ '').DEB                                       TTRA0012
         IHBLADR 1,&DCB,'DCB - DCB ADDRESS'                             TTRA0013
         L     1,44(0,1)         LOAD DEB ADDRESS FROM DCB              TTRA0014
         AGO   .CCHHR                                                   TTRA0015
.DEB     IHBLADR 1,&DEB,'DEB - DEB ADDRESS'                             TTRA0016
.CCHHR   IHBLADR 2,&CCHHR,,'#2 - ADDRESS OF 8-BYTE FIELD FOR MBBCCHHR'  TTRA0011
         L     15,16             LOAD CVT ADDRESS                       TTRA0017
         L     15,28(0,15)       LOAD IECPCNVT ADDRESS                  TTRA0018
         LR    8,13              SAVE REGISTER 13 IN REGISTER 8         TTRA0019
         BALR  14,15             CALL IECPCNVT                          TTRA0020
         LM    2,14,28(8)        RESTORE REGISTERS                      TTRA0021
         MEND                                                           TTRA0022