summaryrefslogtreecommitdiff
path: root/sim/testsuite/sim/bfin/m4.s
blob: 897706399159b2ec13eb12b7ee950f7a48000fc6 (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
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
//  MAC test program.
//  Test basic edge values
//  SIGNED INTEGER mode
//  test ops: "+=" "-=" "=" "NOP"
# mach: bfin

.include "testutils.inc"
	start


// load r0=0x80007fff
// load r1=0x80007fff
// load r2=0xf0000000
// load r3=0x0000007f
// load r4=0x00000080
	loadsym P0, data0;
	R0 = [ P0 ++ ];
	R1 = [ P0 ++ ];
	R2 = [ P0 ++ ];
	R3 = [ P0 ++ ];
	R4 = [ P0 ++ ];

// 0x7fff * 0x7fff = 0x003fff0001
	A1 = A0 = 0;
	A1 += R0.L * R1.L, A0 += R0.L * R1.L (IS);
	R6 = A1.w;
	R7.L = A1.x;
	DBGA ( R6.L , 0x0001 );
	DBGA ( R6.H , 0x3fff );
	DBGA ( R7.L , 0x0000 );

// 0x8000 * 0x7fff = 0xffc0008000
	A1 = A0 = 0;
	A1 += R0.H * R1.L, A0 += R0.H * R1.L (IS);
	R6 = A1.w;
	R7.L = A1.x;
	DBGA ( R6.L , 0x8000 );
	DBGA ( R6.H , 0xc000 );
	DBGA ( R7.L , 0xffff );

// 0x8000 * 0x8000 = 0x0040000000
	A1 = A0 = 0;
	A1 += R0.H * R1.H, A0 += R0.H * R1.H (IS);
	R6 = A1.w;
	R7.L = A1.x;
	DBGA ( R6.L , 0x0000 );
	DBGA ( R6.H , 0x4000 );
	DBGA ( R7.L , 0x0000 );

// saturate positive by first loading large value into accums
// expected value is 0x7fffffffff
	A1 = A0 = 0;
	A1.w = R2;
	A1.x = R3.L;
	A0.w = R2;
	A0.x = R3.L;
	A1 += R0.L * R1.L, A0 += R0.L * R1.L (IS);
	R6 = A1.w;
	R7.L = A1.x;
	DBGA ( R6.L , 0xffff );
	DBGA ( R6.H , 0xffff );
	DBGA ( R7.L , 0x007f );

// saturate negative
// expected value is 0x8000000000
	A1 = A0 = 0;
	A1.x = R4.L;
	A0.x = R4.L;
	A1 += R0.L * R1.H, A0 += R0.L * R1.H (IS);
	R6 = A1.w;
	R7.L = A1.x;
	DBGA ( R6.L , 0x0000 );
	DBGA ( R6.H , 0x0000 );
	DBGA ( R7.L , 0xff80 );

// saturate positive with "-="
// expected value is 0x7fffffffff
	A1 = A0 = 0;
	A1.w = R2;
	A1.x = R3.L;
	A0.w = R2;
	A0.x = R3.L;
	A1 -= R0.H * R1.L, A0 -= R0.H * R1.L (IS);
	R6 = A1.w;
	R7.L = A1.x;
	DBGA ( R6.L , 0xffff );
	DBGA ( R6.H , 0xffff );
	DBGA ( R7.L , 0x007f );

// saturate negative with "-="
// expected value is 0x8000000000
	A1 = A0 = 0;
	A1.x = R4.L;
	A0.x = R4.L;
	A1 -= R0.L * R1.L, A0 -= R0.L * R1.L (IS);
	R6 = A1.w;
	R7.L = A1.x;
	DBGA ( R6.L , 0x0000 );
	DBGA ( R6.H , 0x0000 );
	DBGA ( R7.L , 0xff80 );

// 0x8000 * 0x8000 = 0xffc0000000 with "-="
	A1 = A0 = 0;
	A1 -= R0.H * R1.H, A0 -= R0.H * R1.H (IS);
	R6 = A1.w;
	R7.L = A1.x;
	DBGA ( R6.L , 0x0000 );
	DBGA ( R6.H , 0xc000 );
	DBGA ( R7.L , 0xffff );

	pass

	.data 0x1000;
data0:
	.dw 0x7fff
	.dw 0x8000
	.dw 0x7fff
	.dw 0x8000
	.dw 0x0000
	.dw 0xf000
	.dw 0x007f
	.dw 0x0000
	.dw 0x0080
	.dw 0x0000