(MCS-51) Внести в регистр А двоично-десятичное число XX, в регистр R5 — XX

ORG 0 
mov DPTR,#0A004h        ;гасіння розрядів
mov A,#0Fh          ;статичного індикатора.         
movx @DPTR,A 
Con:
mov R2,#02h
mov R5,#50h
mov A,R2 
add A,R5
MOV R1,A
 
mov A,#0000b            ;запис в А адреси 00 розряду №0 динамічного індикатора HL2.
mov DPTR,#8002h         ;запис у вказівник даних DPTR адреси 8002 (порту С).
movx @DPTR, A           ;вміст А (адреса розряду №0) записати за адресою 
                ;що знаходиться в DPTR, тобто в порт С.
                ;завантаження даних в розряд.
 
mov A,#00001110b
mov DPTR,#8001h             ;запис у вказівник даних DPTR адреси 8001 порту В (дані виводяться на HL2).
movx @DPTR,A            ;записати вміст А за адресою, що міститься в DPTR, тобто
                ;світимо сегменти В,С
call ZATR
 
 mov DPTR,#8002h            ;запис у вказівник даних DPTR адреси 8002 (порту С).
mov A,#0001b            ;запис в А адреси 01 розряду №1 динамічного індикатора HL2.
movx @DPTR, A           ;вміст А (адреса розряду №1) записати за адресою 
                                ;що знаходиться в DPTR, тобто в порт С.
                ;завантаження даних в розряд.
 
mov A, #00001101b
mov DPTR, #8002h
movx @DPTR,A
call ZATR
jmp Con
 
ZATR:
   mov R1,#0FFh
C2:mov R2,#0FFh
C4:djnz R2,C4
   djnz R1,C2
ret
 
END

ORG 0 
movx @DPTR,A 
Con:
mov R2,#02h
mov R5,#50h
mov A,R2 
add A,R5
MOV R1,A
MOV DPTR,#0A000h
MOVX @DPTR,A
mov A,#00001110b
mov DPTR, #8001h
movx @DPTR,A
call ZATR
mov A, #00001101b
mov DPTR, #8002h
movx @DPTR,A
call ZATR
jmp Con
 
ZATR:
   mov R1,#0FFh
C2:mov R2,#0FFh
C4:djnz R2,C4
   djnz R1,C2
ret
 
END