119 lines
1.4 KiB
Plaintext
119 lines
1.4 KiB
Plaintext
; this test try to test for 1's mode
|
|
incdir "tests"
|
|
include "dsp_base.inc"
|
|
|
|
test_main:
|
|
clr $ACC0
|
|
neg $ACC0
|
|
|
|
call send_back ; 1
|
|
|
|
clr $ACC0
|
|
lri $ac0.l, #0x0001
|
|
lri $SR, #0x0001
|
|
|
|
neg $ACC0
|
|
call send_back ; 2
|
|
|
|
|
|
lri $ac0.l, #0x0001
|
|
lri $SR, #0x0002
|
|
|
|
neg $ACC0
|
|
call send_back ; 3
|
|
|
|
lri $ac0.l, #0x0001
|
|
lri $SR, #0x0004
|
|
|
|
neg $ACC0
|
|
call send_back ; 4
|
|
|
|
lri $ac0.l, #0x0001
|
|
lri $SR, #0x0008
|
|
|
|
neg $ACC0
|
|
call send_back ; 5
|
|
|
|
lri $ac0.l, #0x0001
|
|
lri $SR, #0x0010
|
|
|
|
neg $ACC0
|
|
call send_back ; 6
|
|
|
|
lri $ac0.l, #0x0001
|
|
lri $SR, #0x0020
|
|
|
|
neg $ACC0
|
|
call send_back ; 7
|
|
|
|
lri $ac0.l, #0x0001
|
|
lri $SR, #0x0040
|
|
|
|
neg $ACC0
|
|
call send_back ; 8
|
|
|
|
lri $ac0.l, #0x0001
|
|
lri $SR, #0x0080
|
|
|
|
neg $ACC0
|
|
call send_back ; 9
|
|
|
|
lri $ac0.l, #0x0001
|
|
lri $SR, #0x0100
|
|
|
|
neg $ACC0
|
|
call send_back ; 10
|
|
|
|
lri $ac0.l, #0x0001
|
|
lri $SR, #0x0200
|
|
|
|
neg $ACC0
|
|
call send_back ; 11
|
|
|
|
lri $ac0.l, #0x0001
|
|
lri $SR, #0x0400
|
|
|
|
neg $ACC0
|
|
call send_back ; 12
|
|
|
|
lri $ac0.l, #0x0001
|
|
lri $SR, #0x0800
|
|
|
|
neg $ACC0
|
|
call send_back ; 13
|
|
|
|
lri $ac0.l, #0x0001
|
|
lri $SR, #0x1000
|
|
|
|
neg $ACC0
|
|
call send_back ; 14
|
|
|
|
lri $ac0.l, #0x0001
|
|
lri $SR, #0x2000
|
|
|
|
neg $ACC0
|
|
call send_back ; 15
|
|
|
|
lri $ac0.l, #0x0001
|
|
lri $SR, #0x4000
|
|
|
|
neg $ACC0
|
|
call send_back ; 16
|
|
|
|
lri $ac0.l, #0x0001
|
|
lri $SR, #0x8000
|
|
|
|
neg $ACC0
|
|
call send_back ; 17
|
|
|
|
set16
|
|
lri $ac0.l, #0x0001
|
|
lri $SR, #0x2230
|
|
|
|
neg $ACC0
|
|
set40
|
|
call send_back ; 18
|
|
|
|
; We're done, DO NOT DELETE THIS LINE
|
|
jmp end_of_test
|