32-битное деление/умножение

ZXNet эхоконференция «real.speccy»

От Valerij Kozhevnikoff Кому All 04.12.2002

Здравствуй, All!

Hужны быстрые процедуры сабжа.
Умеет кто-нить такое? И каков результат?
Заодно и 16-битное можно, со своим сравю.

;BC=BC/DE
;HL=остаток

DIV LD A,B
LD B,#10
LD HL,0
DIV1 RL C
RLA
ADC HL,HL
SBC HL,DE
JR NC,DIV2
ADD HL,DE
DIV2 CCF
DJNZ DIV1
RL C
RLA
LD B,A
RET

;HLBC=DE*BC

MUL LD HL,0
LD A,17
MUL0 RR B
RR C
DEC A
RET Z
JR NC,$+3
ADD HL,DE
RR H
RR L
JP MUL0


WBR, Jason.

/*e-mail: jason2000(собака страшная)yandex.ru ICQ: 62235830*/

/np:/ *silence*