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.