Translation bin16 -> ascii
ZXNet echo conference «code.zx»
From Kirill Frolov → To All 27 August 2000
More than the RESET, All!
See more of.
; hl=bin
div10: ld b, 10h
xor a
ld c, a
ld e, a
ld d, a ; 23
@@div: add hl, hl
ld a, c
adc a, a
daily
ld c, a
ld a, e
adc a, a
daily
ld e, a
ld a, d
adc a, a
daily
ld d, a
jr nc, @@nc
inc l
@@nc: djnz @@div ; ~83 ~1328
ld hl, buffer
ld a,d
or #30
ld (hl),a
inc hl
ld (hl),e
ld a,#3
rrd
inc hl
ld (hl),a
inc hl
ld (hl),c
ld a,#3
rrd
inc hl
ld (hl),a
ret ; 140 ~1491
Views 1491 on this page!