ZXNet эхоконференция «code.zx»

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