32 бит деление

[Sayman]

Приветствую. Может кто-нибудь поделиться процедурой 32х битного деления? 32 бита делить на 16 бит, результат 16 бит и плюс остаток. чем быстрее процедура, тем лучше. пока нашёл 3 процедуры где то в старых загашниках, ни одна не работает. Точнее работают, но на каких то либо ровных значениях либо на малых. Когда на вход подаю делимое больше 16 бит, начинаются проблемы.
Спасибо!

[Advertiser]

[b2m]

Этот вариант подойдёт? (прошу прощения за мой i8080)

[Sayman]

b2m, было бы хорошо под z80.

[LW]

тут выкладывали, может подойдёт

[b2m]

Ну блин.

DIV32:	ld a,b ; DE = HLDE/BC, HL = HLDE%BC
	cpl
	ld b,a
	ld a,c
	cpl
	ld c,a
	inc bc
	xor a
DIV321:	add hl,hl
	rra
	ex de,hl
	add hl,hl
	ex de,hl
	jr nc, DIV320
	inc hl
DIV320:	push hl
	add hl,bc
	jr nc, DIV322
	rla
DIV323:	inc de
	inc sp
	inc sp
	add a, 10h
	jr nc, DIV321
	ret
DIV322:	rla
	jr c, DIV323
	pop hl
	add a, 10h
	jr nc, DIV321
	ret

[Sayman]

Ну блин.

DIV32:	ld a,b ; DE = HLDE/BC, HL = HLDE%BC
	cpl
	ld b,a
	ld a,c
	cpl
	ld c,a
	inc bc
	xor a
DIV321:	add hl,hl
	rra
	ex de,hl
	add hl,hl
	ex de,hl
	jr nc, DIV320
	inc hl
DIV320:	push hl
	add hl,bc
	jr nc, DIV322
	rla
DIV323:	inc de
	inc sp
	inc sp
	add a, 10h
	jr nc, DIV321
	ret
DIV322:	rla
	jr c, DIV323
	pop hl
	add a, 10h
	jr nc, DIV321
	ret

О! Крутяк! Спасибо! Чьё авторство?

[b2m]

Вообще-то можно с использованием Z80 инструкций подсократить, например при 32-битном сдвиге использовать adc hl,hl, а вместо инверсии делителя использовать sbc hl,bc

- - - Добавлено - - -

Чьё авторство?

Из книги Гуртовцева,Гудыменко

[AlexG]

Зачётная книжка. "Как выполнить умножение 2*2 разными 33-я способами"

[Destr]

Зачётная книжка. "Как выполнить умножение 2*2 разными 33-я способами"

Чёта не гуглится...

[b2m]

Чёта не гуглится...

Гуртовцев А. Л., Гудыменко С. В.. Программы для микропроцессоров: Справ, пособие. стр.90-91 (лучше скачать djvu, на сайте картинки со смещением в тексте)

- - - Добавлено - - -

О! Крутяк! Спасибо! Чьё авторство?

Я доработал процедуру, теперь точно "крутяк". И авторство моё

DIV32:   ld a,10h ; DE = HLDE/BC, HL = HLDE%BC
DIV321:   ex de,hl
   add hl,hl
   ex de,hl
   adс hl,hl
   jr c DIV322
   push hl
   sbс hl,bc
   jr nc, DIV323
   pop hl
   jr DIV325
DIV322:   ccf
   sbс hl,bc
   jr DIV324
DIV323:   inc sp
   inc sp
DIV324:   inc de
DIV325:   dec a
   jr nz, DIV321
   ret