; this test try to test for 1's mode
incdir  "tests"
include "dsp_base.inc"

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


