Обьясните про деление. старый стал не понимаю вообще ничего.

[jerri]

вот универсальное деление

;НL/DЕ=ВC,НL-остаток                    
;16/16=16,16                            
                                        
DIVW    LD A,Е:ОR D                     
        RЕТ Z                           
        XОR A                           
        LD C,A,В,A                      
        ЕX DЕ,НL                        
DIVW1   INC В                           
        ВIТ 7,Н                         
        JR NZ,DIVW2                     
        ADD НL,НL                       
        JР DIVW1                        
DIVW2   ЕX DЕ,НL                        
DIVW3   ОR A                            
        SВC НL,DЕ                       
        JR NC,DIVW4                     
        ADD НL,DЕ                       
DIVW4   CCF                             
        RL C,A                          
        RR D,Е                          
        DJNZ DIVW3                      
        LD В,A                          
        RЕТ

вот деление HL/320

; HL - Вход
; A - выход ~(HL/320)
        LD A,H
        RLCA
        AND 1
        LD L,A
        LD A,H
        RLCA
        RLCA
        RLCA
        RLCA
        AND 15
        ADD A,L
        LD L,A
        LD A,H
        SUB L
        SUB L
        SUB L

мне нужно быстрое деление на 10

что отсюда надо убрать чтобы было проще и быстрее
желательно с комментариями

[Advertiser]

[Shiny]

Это поможет?
http://map.grauw.nl/sources/external/z80bits.html#2

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

Деление на 10:
http://z80-heaven.wikidot.com/math#toc21

[jerri]

Шынни, спасибо то что надо

[Reobne]

Грубо, тупо, в байт, но быстро.

        LD B,H
        LD C,L    ; BC=HL=x
        ADD HL,HL ; HL=x*2
        ADD HL,BC ; HL=x*2+x=x*3
        ADD HL,HL ; HL=x*3*2=x*6
        ADD HL,HL ; HL=x*12
        ADD HL,HL ; HL=x*24
        ADD HL,BC ; HL=x*25
        LD A,H    ; A=int((x*25)/256)=int(A/10.24)

[Shiny]

Грубо, тупо, в байт, но быстро.

если 8 бит, то быстрее будет LUT

[jerri]

Грубо, тупо, в байт, но быстро.

        LD B,H
        LD C,L    ; BC=HL=x
        ADD HL,HL ; HL=x*2
        ADD HL,BC ; HL=x*2+x=x*3
        ADD HL,HL ; HL=x*3*2=x*6
        ADD HL,HL ; HL=x*12
        ADD HL,HL ; HL=x*24
        ADD HL,BC ; HL=x*25
        LD A,H    ; A=int((x*25)/256)=int(A/10.24)

а результат будет 16 битный?

[Shiny]

а результат будет 16 битный?

не-а

[Reobne]

а результат будет 16 битный?

В байт, это в байт. Последнюю строчку я написал только ради комментариев.
HL, соответственно, должен быть не сильно больше 2560.

[jerri]

В байт, это в байт. Последнюю строчку я написал только ради комментариев.
HL, соответственно, должен быть не сильно больше 2560.

ага вижу

hl/c получается 66
умножение 64
хотя если умножать на 26
...
то будет 68

результат не очень
но меня деление 16/8 устроит.

div16_8
;hl/c
;hl quotiend
;a remainder
	add	hl,hl
	jp	nc,div16c	

	ld	a,h
	cpl
	ld	h,a
	ld	a,l
	cpl
	ld	l,a
	inc	hl
	call	div16c
	ld	a,h
	cpl
	ld	h,a
	ld	a,l
	cpl
	ld	l,a
	inc	hl
	ret
div16c
	xor	a
	dup	15
	add	hl,hl		; unroll 16 times
	rla			; ...
	cp	c		; ...
	jr	c,$+4		; ...
	sub	c		; ...
	inc	l		; ...
	edup
	add	hl,hl		; unroll 16 times
	ret