dolphin/Source/DSPSpy/tests/mul_test.ds
2009-05-02 13:19:20 +00:00

59 lines
895 B
Plaintext

; This test checks the effect of SET15 on multiplications.
incdir "tests"
include "dsp_base.inc"
SET40
LRI $AC0.M, #0x1234
LRI $AC0.L, #0x5678
SET16
m2
CLR $ACC0
LRI $AX0.L, #0xFFFF
LRI $AX1.L, #0x100
MULX $AX0.L, $AX1.L
MULXAC $AX0.L, $AX1.L, $ACC0
call send_back
CLR $ACC0
SET15
LRI $AX0.L, #0xFFFF
LRI $AX1.L, #0x100
MULX $AX0.L, $AX1.L
MULXAC $AX0.L, $AX1.L, $ACC0
CLR15
call send_back
m0
lri $AX0.L, #1
lri $AX1.L, #2
mulx $AX0.L, $AX1.L
movp $ACC0
call send_back ; 1
set15
lri $AX0.L, #2
lri $AX1.L, #4
mulx $AX0.L, $AX1.L
movp $ACC0
clr15
call send_back ; 1
m2
lri $AX0.L, #1
lri $AX1.L, #2
mulx $AX0.L, $AX1.L
movp $ACC0
call send_back ; 1
set15
lri $AX0.L, #2
lri $AX1.L, #4
mulx $AX0.L, $AX1.L
movp $ACC0
clr15
call send_back ; 1
m0
; We're done, DO NOT DELETE THIS LINE
jmp end_of_test