6502

[jdigreze]

хм, нихера.получается вродебы: ((x+y)/2)^2-(|x-y|/2)^2походу тоже умножение

надпоминаю: a^2-b^2=(a+b)(a-b), но смущает модуль...
((x+y)/2+(x-y)/2)((x+y)/2-(x-y)/2)
((x+y+x-y)/2)((x+y-x+y)/2)
((2x)/2)((2y)/2)=xy

если х=5 у=4, то резалт = 16

Хм.
((5+4)/2)^2-(|5-4|/2)^2
(9/2)^2-(1/2)^2
4,5^2-0,5^2=20,25-0,25=20
А резалт у тебя видимо из-за неучёта дробной части.
4^2-0^2.

[DimkaM]

но смущает модуль

модуль, походу, чтоб из таблички квадрат забирать. -2=0хFE
А после квадрата один хер знак пропадёт.

видимо в функцию можно только чётные числа пихать(или наоборот только нечётные)

[jdigreze]

модуль, походу, чтоб из таблички квадрат забирать. -2=0хFE

Точно. А я чо-то проебоглазил сей факт. Пичалька.
Там надо еще смотреть что выгоднее, коррекцию модуля делать, или предперестановку.

видимо в функцию можно только чётные числа пихать(или наоборот только нечётные)

А вообще, деление на два делать не обязательно, но конечный результат надо будет разделить на 4, тогда можно и с нечётными работать.
9^2-1^2=81-1=80, тогда 80/4=20
еще пример:
((16+5)/2)^2-((16-5)/2)^2
(21/2)^2-(11/2)^2 = 10,5^2-5,5^2 = 110,25-30,25 = 80
441-121 = 320, тогда 320/4 = 80
А формула превратится: ((x+y)/2)^2-(|x-y|/2)^2 -> ((x+y)^2)/2^2-(|x-y|^2)/2^2 -> ((x+y)^2-|x-y|^2)/2^2
Но уменьшится максимально допустимая величина множителей, или надо увеличивать разрядность всей операции. В общем для каждого конкретного случая - свой алгоритм и свои ограничения.

[нолька]

;A/L
DIV_AL
LD H,TAB1_K/256 ;7
LD E,(HL) ;7
INC H ;4
LD D,(HL) ;7
LD L,A ;25
MUL_LDE
LD H,TABMOD/256 ;7
LD B,(HL) ;7
LD A,L
OR A
JP P,MUL16POS ;10 22
;DE AB
;D,E<128

ADD A,E ;4
LD L,A ;4
LD L,(HL) ;7
DEC H ;4
LD C,(HL) ;7

LD A,B ;4
ADD A,E ;4
LD L,A ;4
LD A,(HL) ;7

SUB C ;4
LD C,A ;4

LD A,B ;4
SUB D ;4
LD L,A ;4
INC H ;4
LD L,(HL) ;7 =95

LD A,D ;4
DEC H ;4
LD D,(HL) ;7
DEC H ;4
LD E,(HL) ;7

ADD A,B ;FLAG C=0 ;4
LD L,A ;4
LD A,(HL) ;7
INC H ;4
LD H,(HL) ;7
LD L,A ;4

SBC HL,DE ;15

SRL H ;8
RR L ;8

LD B,0 ;7
ADD HL,BC ;11 =105
;SUM 200

LD A,L ;4
CPL ;4
LD L,A ;4
LD A,H ;4
CPL ;4
LD H,A ;4
INC HL ;6 =30
RET


MUL16POS
SUB E ;4
LD L,A ;4
LD L,(HL) ;7
DEC H ;4
LD C,(HL) ;7

LD A,B ;4
ADD A,E ;4
LD L,A ;4
LD A,(HL) ;7

SUB C ;4
LD C,A ;4

LD A,B ;4
SUB D ;4
LD L,A ;4
INC H ;4
LD L,(HL) ;7 =83

LD A,D ;4
DEC H ;4
LD D,(HL) ;7
DEC H ;4
LD E,(HL) ;7

ADD A,B ;FLAG C=0 ;4
LD L,A ;4
LD A,(HL) ;7
INC H ;4
LD H,(HL) ;7
LD L,A ;4

SBC HL,DE ;15

SRL H ;8
RR L ;8

LD B,0 ;7
ADD HL,BC ;11 =105
RET ;SUM 188

[TS-Labs]

Кодебастерсы в инсульте и на одну-две страницы запихивали *вычислением* никто не ныл же.

Дык то кодеебастеры. А тут умножение в стольбиг не умеют.

[g0blinish]

Дык то кодеебастеры. А тут умножение в стольбиг не умеют.

ггг, вот тебе быдлодекранч:
демонстрация умножения столбиком

[lvd]

;A/L
DIV_AL
LD H,TAB1_K/256 ;7

Это щто за говнокод без документации и каментоф?

[нолька]

кому надо разберутся, а кому нет - тому нет

[g0blinish]

кому надо разберутся, а кому нет - тому нет

Верно, будет повод назвать говнодемой. не то, что на Атари - осмысленные каменты, пусть и на польском.

[нолька]

кого назвать? оно 8 лет назад зарелижено