ASTEROIDS на УКНЦ

[S_V_B]

Буковки голубеньким подкрась - реально ускорится

подкрасил:

        MOV	R0, R1
	SXT     R1
	ADD	R1, R0
	XOR	R1, R0

[Advertiser]

[Hunta]

  TST R0
  BPL 10$
  NEG R0
10$:

[S_V_B]

TST R0
  BPL 10$
  NEG R0
10$:

Это очевидный вариант.

Нужно без ветвлений - "борьба за скорость"
Например при расчете AABB этих ABS будет много.

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

Скоро проверю в "реальной жизни" несколько вариантов.. там видно будет.

[S_V_B]

Заменил конструкцию:

        MOV	R3,R2
	ASR	R2
	ASR	R2
	ASR	R2
	MUL	#40.,R2    ;Y/8*40
	ADD	R3, R0     ; адрес под спрайтом в тайлбуфере

на эквивалентную

        BIC	#7, R3
	MOV	R3,R2
	ASL	R3
	ASL	R3
	ADD	R2,R3
	ADD	R3, R0     ; адрес под спрайтом в тайлбуфере

[gid]

на эквивалентную

Она не эквивалентная.
ADD R3, R0 после команды MUL, к R0 прибавляет не R2*5, а старшую часть умножения на 40., то, что за 16 бит из R2 вылезло.
У меня эквивалентный код получается такой:

mov R3, R2
bic #7, R2
clr R3
mov R2, -(SP)
asl R2
rol R3
asl R2
rol R3
add (SP)+, R2
adc R3
add R3, R0

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

Ну, либо в первом примере опечатка.

[Hunta]

что за 16 бит из R2 вылезло.

Там такая формула получается

R3 := (R3*8193*40) mod 65536

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

И до 1638 даёт в результате в R3 умножение на 40, дальше пошло усечение результата

[S_V_B]

ADD R3, R0 после команды MUL, к R0 прибавляет не R2*5, а старшую часть умножения на 40., то, что за 16 бит из R2 вылезло.

Код эквивалентный по результату.
в первом примере Y (в точках) делится на 8 (8х8) тайл и умножается на 40 (ширина буфера в байтах) = адрес в нужной строке буфера.
во втором примере сократили деление на 8 и сделали быстрое умножение.

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

работает заметно быстрее

[Hunta]

Вот только MUL #40.,R2 - это, внезапно, не умножение R2 на 40, а умножение 32-ух битного числа (R2 старшая часть и R3 младшая часть) на 40, так что по результату - тупо умножить R3 на 40 с усечением до 16 бит

[S_V_B]

не умножение R2 на 40, а умножение 32-ух битного числа

А MUL как будет работать с 16ю битами?

[gid]

Код эквивалентный по результату.

Он был бы эквивалентный, если бы в оригинале было бы

        MOV	R3,R2
	ASR	R2
	ASR	R2
	ASR	R2
	MUL	#40.,R2    ;Y/8*40
	ADD	R2, R0     ; адрес под спрайтом в тайлбуфере

к R0 прибавляли бы R2

Вот только MUL #40.,R2 - это, внезапно, не умножение R2 на 40, а умножение 32-ух битного числа

В 1801ВМ2 и ВМ3 - нет, MUL там умножение Rn:Rn+1 = Rn * (SS), т.е. умножение 16-битного числа на 16 битное число, с сохранением результата в 32-х битное число