32 бит деление

[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

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