[an error occurred while processing this directive]
|
;---------------------------------------------------------------------;
; Подпрограмма преобразования
; двоичного числа в двоично-дсятичное
;
; Вход: A - преобразуемое число
;
; Выход: TEMP2, TEMP1, TEMP0
;
; Используемые регистры: R1, R4
;
BinToBCD:
mov R4, #3 ;
mov R1, #TEMP0 ; Указатель на TEMP0
10$:
mov B, #10 ;
div AB ;
mov @R1, B ;
inc R1 ;
;
djnz R4, 10$ ;
ret ;
;
;---------------------------------------------------------------------
E-mail: info@telesys.ru