ZXNet эхоконференция «code.zx»
тема: 32bin -> 10ascii...
от: Kirill Frolov
кому: All
дата: 04 May 2000
Hемедленно нажми на RESET, All!
02 May 00 21:58, Felix Knajzev wrote to Kirill Frolov:
Окончательный ваpиант:
ld ix, buf_ascii
ld de, 0; 31-16
ld hl, 0; 15-0
; сохp. в (ix++) десятичное ascii long int из DEHL
ltoa ld c, 0ah
xor a
contdiv ex af, af'
ld a, h
or l
or d
or e
jr z, popit
; dehl=dehl/10 a=dehl%10 19 байта ~2392 такта
ldiv10 ld b, 20h
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 af
ex af, af'
inc a
jr contdiv
popit ex af, af'
jr z, storedig
ld b, a
notnull pop af
storedig or #30
ld (ix), a
inc ix
djnz notnull
ret
buf_ascii ds 10
|