Source/DSPSpy/tests/arith_test.ds

; various arithmetic tests
incdir  "tests"
include "dsp_base.inc"

clr $acc0
tst $acc0

call send_back 	; 1


lri $ac0.h, #0x0011
lri $ac0.m, #0x0100
lri $ac0.l, #0x0101
lsl $acc0, #1

call send_back 	; 2

lri $ac0.h, #0x0011
lri $ac0.m, #0x0100
lri $ac0.l, #0x0001
asl $acc0, #1

call send_back 	; 3

clr $acc0
lri $ac0.h, #0x0011
tst $acc0

call send_back 	; 4

lri $ac0.m, #0x0100
tst $acc0

call send_back 	; 5

lri $ac0.l, #0x0001
tst $acc0

call send_back 	; 6
clr $acc0

lri $ac0.l, #-1
tst $acc0

call send_back 	; 7

clr $acc0

set40
lri $ac0.l, #-1
tst $acc0
set16

call send_back 	; 8

clr $acc0
lri $ac0.h, #0x1000
tst $acc0

call send_back 	; 9

clr $acc0
lri $ac0.h, #0x0100
tst $acc0

call send_back 	; 10


clr $acc0
lri $ac0.h, #0x0010
tst $acc0

call send_back 	; 11

clr $acc0
lri $ac0.h, #0x0001
tst $acc0

call send_back 	; 12

clr $acc0
lri $ac0.l, #0x1000
tst $acc0

call send_back 	; 13

clr $acc0
lri $ac0.l, #0x0100
tst $acc0

call send_back 	; 14


clr $acc0
lri $ac0.l, #0x0010
tst $acc0

call send_back 	; 15

clr $acc0
lri $ac0.l, #0x0001
tst $acc0

call send_back 	; 16

clr $acc0
clr $acc1
lri $ac0.l, #0x0001
sub $acc1, $acc0

call send_back 	; 17

clr $acc0
clr $acc1
set40
lri $ac0.l, #0x0001
sub $acc1, $acc0
set16

call send_back 	; 18

clr $acc0
clr $acc1
lri $ac0.l, #0x0001
lri $ac1.h, #0x8000
sub $acc1, $acc0

call send_back 	; 19

clr $acc0
clr $acc1
set40
lri $ac0.l, #0x0001
lri $ac1.h, #0x8000
sub $acc1, $acc0
set16

call send_back 	; 20
fixed neg and added arith test 2009-05-02 22:47:13 +00:00			`; various arithmetic tests`
			`incdir "tests"`
			`include "dsp_base.inc"`

			`clr $acc0`
			`tst $acc0`

			`call send_back ; 1`

few fixes for arith test 2009-06-29 17:13:21 +00:00
			`lri $ac0.h, #0x0011`
			`lri $ac0.m, #0x0100`
			`lri $ac0.l, #0x0101`
			`lsl $acc0, #1`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00
			`call send_back ; 2`

few fixes for arith test 2009-06-29 17:13:21 +00:00			`lri $ac0.h, #0x0011`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00			`lri $ac0.m, #0x0100`
			`lri $ac0.l, #0x0001`
			`asl $acc0, #1`

few fixes for arith test 2009-06-29 17:13:21 +00:00			`call send_back ; 3`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00
			`clr $acc0`
few fixes for arith test 2009-06-29 17:13:21 +00:00			`lri $ac0.h, #0x0011`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00			`tst $acc0`

few fixes for arith test 2009-06-29 17:13:21 +00:00			`call send_back ; 4`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00
			`lri $ac0.m, #0x0100`
			`tst $acc0`

few fixes for arith test 2009-06-29 17:13:21 +00:00			`call send_back ; 5`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00
			`lri $ac0.l, #0x0001`
			`tst $acc0`

few fixes for arith test 2009-06-29 17:13:21 +00:00			`call send_back ; 6`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00			`clr $acc0`

			`lri $ac0.l, #-1`
			`tst $acc0`

few fixes for arith test 2009-06-29 17:13:21 +00:00			`call send_back ; 7`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00
			`clr $acc0`

Waiting for someone to run it:) 2009-06-29 20:31:41 +00:00			`set40`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00			`lri $ac0.l, #-1`
			`tst $acc0`
Waiting for someone to run it:) 2009-06-29 20:31:41 +00:00			`set16`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00
few fixes for arith test 2009-06-29 17:13:21 +00:00			`call send_back ; 8`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00
			`clr $acc0`
			`lri $ac0.h, #0x1000`
			`tst $acc0`

few fixes for arith test 2009-06-29 17:13:21 +00:00			`call send_back ; 9`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00
			`clr $acc0`
			`lri $ac0.h, #0x0100`
			`tst $acc0`

few fixes for arith test 2009-06-29 17:13:21 +00:00			`call send_back ; 10`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00

			`clr $acc0`
			`lri $ac0.h, #0x0010`
			`tst $acc0`

few fixes for arith test 2009-06-29 17:13:21 +00:00			`call send_back ; 11`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00
			`clr $acc0`
			`lri $ac0.h, #0x0001`
			`tst $acc0`

few fixes for arith test 2009-06-29 17:13:21 +00:00			`call send_back ; 12`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00
			`clr $acc0`
			`lri $ac0.l, #0x1000`
			`tst $acc0`

few fixes for arith test 2009-06-29 17:13:21 +00:00			`call send_back ; 13`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00
			`clr $acc0`
			`lri $ac0.l, #0x0100`
			`tst $acc0`

few fixes for arith test 2009-06-29 17:13:21 +00:00			`call send_back ; 14`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00

			`clr $acc0`
			`lri $ac0.l, #0x0010`
			`tst $acc0`

few fixes for arith test 2009-06-29 17:13:21 +00:00			`call send_back ; 15`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00
			`clr $acc0`
			`lri $ac0.l, #0x0001`
			`tst $acc0`

few fixes for arith test 2009-06-29 17:13:21 +00:00			`call send_back ; 16`

			`clr $acc0`
			`clr $acc1`
			`lri $ac0.l, #0x0001`
			`sub $acc1, $acc0`

			`call send_back ; 17`

			`clr $acc0`
			`clr $acc1`
Waiting for someone to run it:) 2009-06-29 20:31:41 +00:00			`set40`
few fixes for arith test 2009-06-29 17:13:21 +00:00			`lri $ac0.l, #0x0001`
			`sub $acc1, $acc0`
Waiting for someone to run it:) 2009-06-29 20:31:41 +00:00			`set16`
few fixes for arith test 2009-06-29 17:13:21 +00:00
fixed neg and added arith test 2009-05-02 22:47:13 +00:00			`call send_back ; 18`

			`clr $acc0`
			`clr $acc1`
			`lri $ac0.l, #0x0001`
few fixes for arith test 2009-06-29 17:13:21 +00:00			`lri $ac1.h, #0x8000`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00			`sub $acc1, $acc0`

			`call send_back ; 19`

			`clr $acc0`
			`clr $acc1`
Waiting for someone to run it:) 2009-06-29 20:31:41 +00:00			`set40`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00			`lri $ac0.l, #0x0001`
few fixes for arith test 2009-06-29 17:13:21 +00:00			`lri $ac1.h, #0x8000`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00			`sub $acc1, $acc0`
Waiting for someone to run it:) 2009-06-29 20:31:41 +00:00			`set16`
fixed neg and added arith test 2009-05-02 22:47:13 +00:00
			`call send_back ; 20`