| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119 |
- ; 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
|
