[code].def fbin =r19 ;8-bit binary value
.def BCDh =r17 ;BCD result hundreds
.def BCDt =r18 ;BCD result tens
.def BCDu =r19 ;BCD result units
bin_bcd8:
clr BCDt
bBCD8_1:
subi fbin,10
brcs bBCD8_2
inc BCDt
rjmp bBCD8_1
bBCD8_2:
subi fbin,-10
clr BCDh
bBCD8_3:
subi BCDt,10
brcs bBCD8_4
inc BCDh
rjmp bBCD8_3
bBCD8_4:
subi BCDt,-10
ret
[/code]