32bin -> 10ascii...
ZXNet echo conference «code.zx»
More than the RESET, All!
02 May 00 21:58, Felix Knajzev wrote to Kirill Frolov:
Description of the app:
ld ix , buf_ascii
ld day, 0; 31-1
ld hl , 0 ; 15-0
; сохp. в (ix++) infinitive ascii long int и DEHL
ltoa ld c, 0ah
xor a
contdiv ex of, of'
ld a, h
or l
or d
or e
jr z, popit
; dehl=dehl/10 a=dehl%10 19 Mar ~2392 min
ldiv10 ld b, 8pm
xor a
div1 add hl, hl
rl e
rl d
rla
sbc a, c
jp nc, div2
add a, c
dec l
div2 inc l
djnz div1
push off
ex af, af'
inc a
jr contdiv
popit ex af, af'
jr z, great
ld b, a
notnull pop off
large or #3
ld (ix), a
inc ix
djnz notnull
ret
buf_ascii ds 10