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

Вид для печати

19.10.2017, 10:35
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

что отсюда надо убрать чтобы было проще и быстрее
желательно с комментариями
19.10.2017, 11:00
Shiny

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

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

Деление на 10:
http://z80-heaven.wikidot.com/math#toc21
19.10.2017, 13:18
jerri

Шынни, спасибо то что надо
19.10.2017, 13:45
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)
19.10.2017, 14:31
Shiny

Цитата:

Сообщение от Reobne

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

если 8 бит, то быстрее будет LUT
19.10.2017, 14:46
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)

а результат будет 16 битный?
19.10.2017, 14:53
Shiny

Цитата:

Сообщение от jerri

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

не-а
19.10.2017, 14:53
Reobne

Цитата:

Сообщение от jerri

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

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

Цитата:

Сообщение от Reobne

В байт, это в байт. Последнюю строчку я написал только ради комментариев.
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