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

Hello, Felix!

On Sunday April 30 2000 Felix Knajzev wrote to All:

FK> Киньте, плиз, в меня программкой перевода 32-х разрядного HEX-числа в
FK> десятичное.
Вот такая штука использована в NeOS'е. Знаю, что не самая быстрая, зато
работает и ведущие нули убирает:

Hа входе: IX - старшие 16 бит, HL - младшие 16 бит.

=== Cut ===
PNUM32 ld a,xh
or xl
ld b,0
jr z,PNUM161-6
ld bc,#3b9a
ld de,#ca00
call PCIF32
ld bc,#5f5
ld de,#e100
call PCIF32
ld bc,#98
ld de,#9680
call PCIF32
ld bc,#f
ld de,#4240
call PCIF32
ld bc,#1
ld de,#86a0
call PCIF32
ld bc,0
ld de,#2710
call PCIF32
ld b,0
jr PNUM161
ld de,10000
call PCIFRA
PNUM161 ld de,1000
call PCIFRA
ld de,100
call PCIFRA
ld de,10
call PCIFRA
inc b
ld de,1
PCIFRA xor a
sbc hl,de
inc a
jr nc,$-3
add hl,de
dec a
jr nz,PCIFRA1
ld a,b
and a
ret z
xor a
PCIFRA1 inc b
add a,48
ld c,a
jp PUTCH
PCIF32 xor a
sbc hl,de
push hl
push ix
pop hl
sbc hl,bc
push hl
pop ix
pop hl
inc a
jr nc,PCIF32+1
add hl,de
push hl
push ix
pop hl
adc hl,bc
push hl
pop ix
pop hl
dec a
ret z
add a,48
ld c,a
jp PUTCH
=== Cut ===

Bye, Felix! Megus/Brainwave^X-Project. [I.ZX] [NeOS]

Приветствую тебя, Felix!

Sun 30 Apr 2000 в 22:15:57 Felix Knajzev и All разговаривали
на тему Перевод 32HEX -> DEC....


FK> Киньте, плиз, в меня программкой перевода 32-х разрядного HEX-числа в
FK> десятичное.
С удовольствием кинул бы, да лень писать. Лови лучше алгоритм:
1. x-число
2. n=1 000 000 000
3. a="0"
4. x=x-n
5. if x<0 then goto 8
6. a=a+1
7. goto 4
8. store a ;сохраняем следующий символ.
9. n=n/10; можно вместо деления брать следующее число из таблицы
10. if n>0 then goto 3.
11. exit
Идея таккая - считаем сколько в числе миллиардов, сотен миллионов, десятков
миллионов и т.д. до числа единиц.

Желаю вам здоровья, счастья и творческих узбеков.
Aleksey Malov aka VIVID/Brainwave.