aboutsummaryrefslogtreecommitdiff
path: root/sim/testsuite/bfin/dsp_a7.s
blob: 075fbc7f89733c35433cf78f4b47bf38471536ac (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
/*  ALU test program.
 *  Test instructions
 *  r7 = +/- (r0,r1);
 *  r7 = -/+ (r0,r1);
 *  r7 = -/- (r0,r1);
 */

# mach: bfin

.include "testutils.inc"
	start

// test subtraction
	R0.L = 0x000f;
	R0.H = 0x0010;
	R1.L = 0x000f;
	R1.H = 0x0010;
	R7 = 0;
	ASTAT = R7;
	R7 = R0 +|- R1;
	DBGA ( R7.L , 0x0000 );
	DBGA ( R7.H , 0x0020 );
	CC = AZ;	R7 = CC; DBGA ( R7.L , 0x1 );
	CC = AN;	R7 = CC; DBGA ( R7.L , 0x0 );
	CC =  V;	R7 = CC; DBGA ( R7.L , 0x0 );
	CC = AC0;	R7 = CC; DBGA ( R7.L , 0x1 );

// test overflow negative on subtraction
	R0.L = 0x8000;
	R0.H = 0x0010;
	R1.L = 0x0001;
	R1.H = 0x0010;
	R7 = 0;
	ASTAT = R7;
	R7 = R0 +|- R1;
	DBGA ( R7.L , 0x7fff );
	DBGA ( R7.H , 0x0020 );
	CC = AZ;	R7 = CC; DBGA ( R7.L , 0x0 );
	CC = AN;	R7 = CC; DBGA ( R7.L , 0x0 );
	CC =  V;	R7 = CC; DBGA ( R7.L , 0x1 );
	CC = AC0;	R7 = CC; DBGA ( R7.L , 0x1 );

// test saturate negative on subtraction +/-
	R0.L = 0x8000;
	R0.H = 0x0010;
	R1.L = 0x0001;
	R1.H = 0x0010;
	R7 = 0;
	ASTAT = R7;
	R7 = R0 +|- R1 (S);
	DBGA ( R7.L , 0x8000 );
	DBGA ( R7.H , 0x0020 );
	CC = AZ;	R7 = CC; DBGA ( R7.L , 0x0 );
	CC = AN;	R7 = CC; DBGA ( R7.L , 0x1 );
	CC =  V;	R7 = CC; DBGA ( R7.L , 0x1 );
	CC = AC0;	R7 = CC; DBGA ( R7.L , 0x1 );

// test saturate negative on subtraction -/+
	R0.L = 0x8000;
	R0.H = 0x8000;
	R1.L = 0x0001;
	R1.H = 0x0001;
	R7 = 0;
	ASTAT = R7;
	R7 = R0 -|+ R1 (S);
	DBGA ( R7.L , 0x8001 );
	DBGA ( R7.H , 0x8000 );
	CC = AZ;	R5 = CC; DBGA ( R5.L , 0x0 );
	CC = AN;	R5 = CC; DBGA ( R5.L , 0x1 );
	CC =  V;	R5 = CC; DBGA ( R5.L , 0x1 );
	CC = AC0;	R5 = CC; DBGA ( R5.L , 0x0 );

// test saturate negative on subtraction -/-
	R0.L = 0x8000;
	R0.H = 0x8000;
	R1.L = 0x0001;
	R1.H = 0x0001;
	R7 = 0;
	ASTAT = R7;
	R7 = R0 -|- R1 (S);
	DBGA ( R7.L , 0x8000 );
	DBGA ( R7.H , 0x8000 );
	CC = AZ;	R7 = CC; DBGA ( R7.L , 0x0 );
	CC = AN;	R7 = CC; DBGA ( R7.L , 0x1 );
	CC =  V;	R7 = CC; DBGA ( R7.L , 0x1 );
	CC = AC0;	R7 = CC; DBGA ( R7.L , 0x1 );

// test saturate positive on subtraction -/+
	R0.L = 0x7fff;
	R0.H = 0x7fff;
	R1.L = 0xffff;
	R1.H = 0xffff;
	R7 = 0;
	ASTAT = R7;
	R7 = R0 -|+ R1 (S);
	DBGA ( R7.L , 0x7ffe );
	DBGA ( R7.H , 0x7fff );
	CC = AZ;	R7 = CC; DBGA ( R7.L , 0x0 );
	CC = AN;	R7 = CC; DBGA ( R7.L , 0x0 );
	CC =  V;	R7 = CC; DBGA ( R7.L , 0x1 );
	CC = AC0;	R7 = CC; DBGA ( R7.L , 0x1 );

	pass