![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to int_shft.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [HATARI the Atari ST Emulator] / hatari / tests / cpu|
Return to int_shft.s CVS log | Up to [HATARI the Atari ST Emulator] / hatari / tests / cpu |
1.1 root 1:
2: /* ASL: test that both C & X flags are set to the last bit shifted out */
3: .global tst_shift_1
4: tst_shift_1:
5: movem.l d3-d4,-(sp)
6: move.l #0,d1
7: move.l #1,d2
8: move.l #1,d3
9: move.l #0,d4
10: lsr.l d2,d3 /* should set X & C */
11: scc d0
12: asl #1,d1 /* should clear C and X */
13: scs d1
14: addx.l d4,d4
15: tst.l d4
16: sne d4
17: or.b d1,d0
18: or.b d4,d0
19: movem.l (sp)+,d3-d4
20: rts
21:
22: /* test that lsl is modulo 64 */
23: .global tst_shift_2
24: tst_shift_2:
25: move.l #33,d1
26: move.l #1,d2
27: lsl.l d1,d2
28: sne d0
29: rts
30:
31: .global tst_shift_3
32: tst_shift_3:
33: move.l #65,d1
34: move.l #1,d2
35: lsl.l d1,d2
36: cmp.l #2,d2
37: sne d0
38: rts
39:
40: /* test that zero shift does not affect X flag */
41: .global tst_shift_4
42: tst_shift_4:
43: movem.l d3-d4,-(sp)
44: move.l #0,d1
45: move.l #1,d2
46: move.l #1,d3
47: move.l #0,d4
48: lsr.l d2,d3 /* should set X & C */
49: scc d0
50: lsr.l d1,d4 /* should not affect X & clear C */
51: scs d1
52: addx.l d4,d4
53: cmp.l #1,d4
54: sne d4
55: or.b d1,d0
56: or.b d4,d0
57: movem.l (sp)+,d3-d4
58: rts
59:
60: /* LSL: test that both C & X flags are set to the last bit shifted out */
61: .global tst_shift_5
62: tst_shift_5:
63: movem.l d3-d4,-(sp)
64: move.l #0x55555555,d1
65: move.l #0,d2
66: lsl.l #8,d1
67: scc d0
68: addx.l d2,d2
69: tst.l d2
70: seq d2
71: move.l #0,d3
72: lsl.l #1,d1
73: scs d4
74: addx.l d3,d3
75: tst.l d3
76: sne d3
77: cmp.l #0xaaaaaa00,d1
78: sne d1
79: or.b d1,d0
80: or.b d2,d0
81: or.b d3,d0
82: or.b d4,d0
83: movem.l (sp)+,d3-d4
84: rts
85:
86: /* same as above, for word shifts */
87: .global tst_shift_6
88: tst_shift_6:
89: movem.l d3-d4,-(sp)
90: move.l #0x55555555,d1
91: move.l #0,d2
92: lsl.w #8,d1
93: scc d0
94: addx.l d2,d2
95: cmp.l #1,d2
96: sne d2
97: move.l #0,d3
98: lsl.w #1,d1
99: scs d4
100: addx.l d3,d3
101: tst.l d3
102: sne d3
103: cmp.l #0x5555aa00,d1
104: sne d1
105: or.b d1,d0
106: or.b d2,d0
107: or.b d3,d0
108: or.b d4,d0
109: movem.l (sp)+,d3-d4
110: rts
111:
112: /* same as above, for byte shifts */
113: .global tst_shift_7
114: tst_shift_7:
115: movem.l d3-d4,-(sp)
116: move.l #0x55555555,d1
117: move.l #0,d2
118: lsl.b #8,d1
119: scc d0
120: addx.l d2,d2
121: cmp.l #1,d2
122: sne d2
123: moveq.l #0,d3
124: lsl.b #1,d1
125: scs d4
126: addx.l d3,d3
127: tst.l d3
128: sne d3
129: cmp.l #0x55555500,d1
130: sne d1
131: or.b d1,d0
132: or.b d2,d0
133: or.b d3,d0
134: or.b d4,d0
135: movem.l (sp)+,d3-d4
136: rts
137:
138: /* ROL: test that C is set to the last bit shifted out & that X is unaffected */
139: .global tst_shift_8
140: tst_shift_8:
141: movem.l d3-d5,-(sp)
142: moveq.l #0,d5
143: move.l #0x80000000,d0
144: add.l d0,d0 /* should set X, C and V, and clear d0 */
145: scc d1
146: svc d2
147: rol #1,d0 /* should clear C and V, and leave X unaffected */
148: scs d3
149: svs d4
150: addx.l d5,d5
151: cmp.l #1,d5
152: sne d0
153: or.b d1,d0
154: or.b d2,d0
155: or.b d3,d0
156: or.b d4,d0
157: movem.l (sp)+,d3-d5
158: rts
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.