32bin -> 10ascii... — ZXNet «code.zx»

32bin -> 10ascii...

ZXNet echo conference «code.zx»



from: Kirill Frolov
to: All
date: 4 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