asm: x mod 3 ?

[Reobne]

Умножить на 85 (%1010101) и сдвинуть на 8 бит.

Теория правильная, но на практике, если этой программой 3 разделить на 3 получится 0.
Если аргумент меньше 128 то можно так (умножая на 86):

 ; аргумент А, результат H
 rlca      ;4 (98 тактов)
 ld l,a    ;4
 ld h,0    ;7
 rlca      ;4
 rlca      ;4
 rlca      ;4
 ld e,a    ;4
 and 7    ;7
 ld d,a    ;4
 xor e     ;4
 ld e,a    ;4
 add hl,de ;11
 ex  de,hl ;4
 add hl,de ;11
 add hl,hl ;11
 add hl,de ;11

Если аргумент меньше 255 то можно так (предварительный инкремент):

; аргумент А, результат H
 inc a     ;4 (107 тактов)
 ld l,a    ;4 
 ld h,0    ;7
 rrca      ;4
 rrca      ;4
 rrca      ;4
 rrca      ;4
 ld e,a    ;4
 and 15    ;7
 ld d,a    ;4
 xor e     ;4
 ld e,a    ;4
 add hl,de ;11
 ld d,h    ;4
 ld e,l    ;4
 add hl,de ;11
 add hl,hl ;11
 add hl,de ;11

[denpopov]

http://z80-heaven.wikidot.com/math#toc35

[Barmaley_m]

Теория правильная, но на практике, если этой программой 3 разделить на 3 получится 0.

3*85/256 = 0.99609...
Если округлить до ближайшего целого - то получится правильный ответ, 1.

Например, если у нас в HL - результат от умножения на 85, то:

LD A,H
RL L
ADC A,0

Округлит результат.

---------- Post added at 16:07 ---------- Previous post was at 15:59 ----------

Только что проверил. Округление - это хорошо, но в деле нахождения остатка помогает плохо. Неверное частное без округления при умножении на 85 и делении на 256 получается только для тех чисел, которые делятся на 3 нацело. Но этот случай легко предусмотреть. Например, находим частное q = i*85/256 (округляем в меньшую сторону). Умножаем частное на 3, вычитаем из делимого. Получаем остаток, который будет равен 3 (а не 0) в случае, если исходное число делится на 3 нацело. Просто проверяем, что если вычисленный остаток равен 3 - то обнуляем его, и все.