[an error occurred while processing this directive]
[an error occurred while processing this directive]
|
.def bin =r16 ; двоичное значение
.def BCD0 =r17 ; BCD значение, цифры 1 и 0
.def BCD1 =r16 ; BCD значение, цифра 2
bin8BCD3:
inc BCD0
subi bin,low(100)
brsh bin8BCD3
subi bin,-100
dec BCD0
push BCD0
ldi BCD0,-0x10
bin8BCD3_Loop:
subi BCD0,-0x10
subi bin,10
brsh bin8BCD3_Loop
subi bin,-10
add BCD0,bin
pop BCD1
ret
E-mail: info@telesys.ru