s17.s revision 1.1 1 1.1 christos // shifter test program.
2 1.1 christos // Test instructions ONES
3 1.1 christos # mach: bfin
4 1.1 christos
5 1.1 christos .include "testutils.inc"
6 1.1 christos start
7 1.1 christos
8 1.1 christos
9 1.1 christos R7 = 0;
10 1.1 christos ASTAT = R7;
11 1.1 christos R0.L = 0x1;
12 1.1 christos R0.H = 0x0;
13 1.1 christos R7.L = ONES R0;
14 1.1 christos DBGA ( R7.L , 0x0001 );
15 1.1 christos DBGA ( R7.H , 0x0000 );
16 1.1 christos CC = AZ; R7 = CC; DBGA ( R7.L , 0x0 );
17 1.1 christos CC = AN; R7 = CC; DBGA ( R7.L , 0x0 );
18 1.1 christos CC = AV0; R7 = CC; DBGA ( R7.L , 0x0 );
19 1.1 christos CC = AV1; R7 = CC; DBGA ( R7.L , 0x0 );
20 1.1 christos CC = AC0; R7 = CC; DBGA ( R7.L , 0x0 );
21 1.1 christos
22 1.1 christos R0.L = 0x0000;
23 1.1 christos R0.H = 0x8000;
24 1.1 christos R7.L = ONES R0;
25 1.1 christos DBGA ( R7.L , 0x0001 );
26 1.1 christos DBGA ( R7.H , 0x0000 );
27 1.1 christos
28 1.1 christos R0.L = 0x0001;
29 1.1 christos R0.H = 0x8000;
30 1.1 christos R7.L = ONES R0;
31 1.1 christos DBGA ( R7.L , 0x0002 );
32 1.1 christos DBGA ( R7.H , 0x0000 );
33 1.1 christos
34 1.1 christos R0.L = 0xffff;
35 1.1 christos R0.H = 0xffff;
36 1.1 christos R7.L = ONES R0;
37 1.1 christos DBGA ( R7.L , 0x0020 );
38 1.1 christos DBGA ( R7.H , 0x0000 );
39 1.1 christos
40 1.1 christos R0.L = 0x0000;
41 1.1 christos R0.H = 0x0000;
42 1.1 christos R7.L = ONES R0;
43 1.1 christos DBGA ( R7.L , 0x0000 );
44 1.1 christos DBGA ( R7.H , 0x0000 );
45 1.1 christos
46 1.1 christos pass
47