![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to movew.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry|
Return to movew.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 root 1: /* MOVW instruction test */
2: /* MOVL have been tested prior to this test. */
3: /* constant definitions */
4:
5: .set HIGH,31
6: .set IPL,8
7: .set ZERO,0
8: .set ONES,0xffffffff
9: .set IV,32
10: .set T,16
11: .set N,8
12: .set Z,4
13: .set V,2
14: .set C,1
15: .set NEGNO,0xa000ffff
16: .set NEGVAL,0xff0fffff
17: .set WORD,0xffff
18: .set BYTE,0xff
19: .set MASKHW,0x55550000
20: .set MASKLW,0x5555
21: .set MASKB,0x55555500
22:
23: .globl _movew
24: _movew:
25:
26: callf $4,_setjmp /* save context for error return */
27: movab _movew,_stpc /* save subtst starting address */
28: movl $1,_subtst /* subtest number */
29: movl $1,_no_opr /* number of operands in use */
30: movl negno,_opr /* first operand */
31: 0:
32: bicpsw $(IV|T) /* disable overflow,trace exceptions */
33: movwmr: /* MOVE MEMORY TO REGISTER */
34: movl $MASKHW,r4 /* initialize r4 = 0x55550000 */
35: bispsw $(Z|V|C) /* set z,v,c flags */
36: bicpsw $N /* clear n flag */
37: movw negno,r4 /* move word 0xa000 to r4 */
38: jgeq error1 /* error if n flag not set */
39: jeql error1 /* error if z flag set */
40: jvs error1 /* error if v flag set */
41: jcc error1 /* error if c flag not set */
42: jmp 1f
43: error1: movpsl _actual /* actual = psl MAYBE it is incorrect */
44: bbs $0,_scoplp,0b /* if set scope loop on error */
45: movl $2,_ercode /* error code flag failure */
46: jmp *badrtn
47: 1: cmpl expr5,r4 /* compare r4 to 0xffffa000 */
48: jeql 1f
49: bbs $0,_scoplp,0b /* if set scope loop on error */
50: movl $1,_ercode /* error code data miscompare */
51: movl r4,_actual /* actual data */
52: movl expr5,_expected /* expected data */
53: jmp *badrtn
54: 1: bicpsw $Z
55: cmpl $NEGNO,negno /* make sure source unchanged */
56: jeql movwrr
57: bbs $0,_scoplp,0b /* if set scope loop on error */
58: movl $3,_ercode /* error code operand miscompare */
59: movl negno,_actual /* actual data */
60: movl $NEGNO,_expected /* expected data */
61: jmp *badrtn
62: movwrr: /* MOVE REGISTER TO REGISTER */
63: bbs $0,_force_lp,0b /* if set loop on last subtest */
64: am2: callf $4,_setjmp /* save context for error return */
65: movab am2,_stpc /* save subtst starting address */
66: movl $2,_subtst /* subtest number */
67: movl $1,_no_opr /* number of operands in use */
68: movl $MASKLW,_opr /* first operand */
69: 0: movl $MASKLW,r3 /* initialize r3 = 0x5555 */
70: movl r3,expval
71: movl $0xffffffff,r4 /* initialize r4 = 0xffffffff */
72: bispsw $(Z|N|V) /* set Z,V,N flags */
73: bicpsw $C /* clear C flag */
74: movw r3,r4 /* move r3 to r4 */
75: jlss error2 /* error if n flag set */
76: jeql error2 /* error if z flag set */
77: jvs error2 /* error if v flag set */
78: jcc error2 /* error if c flag not set */
79: jmp 1f
80: error2: movpsl _actual /* actual = psl MAYBE it is incorrect */
81: bbs $0,_scoplp,0b /* if set scope loop on error */
82: movl $2,_ercode /* error code flag failure */
83: jmp *badrtn
84: 1: cmpl r4,expval
85: jeql 1f
86: bbs $0,_scoplp,0b /* if set scope loop on error */
87: movl $1,_ercode /* error code data miscompare */
88: movl r4,_actual /* actual data */
89: movl expval,_expected /* expected data */
90: jmp *badrtn
91: 1: movw r4,r5 /* move r4 to r5 */
92: movw r5,r6 /* move r5 to r6 */
93: movw r6,r7 /* move r6 to r7 */
94: movw r7,r9 /* move r7 to r9 */
95: movl r9,oldval /* save value of source = 0x00005555 */
96: movw r9,r11 /* move r9 to r11 */
97: cmpl expval,r11 /* compare r11 to 0x00005555 */
98: jeql 1f
99: bbs $0,_scoplp,0b /* if set scope loop on error */
100: movl $1,_ercode /* error code data miscompare */
101: movl r11,_actual /* actual data */
102: movl expval,_expected /* expected data */
103: jmp *badrtn
104: 1: bicpsw $Z
105: cmpl oldval,r9 /* make sure source unchanged */
106: jeql m3
107: bbs $0,_scoplp,0b /* if set scope loop on error */
108: movl $1,_ercode /* error code data miscompare */
109: movl r9,_actual /* actual data */
110: movl oldval,_expected /* expected data */
111: jmp *badrtn
112:
113: m3:
114: bbs $0,_force_lp,0b /* if set loop on last subtest */
115: am3: callf $4,_setjmp /* save context for error return */
116: movab am3,_stpc /* save subtst starting address */
117: movl $3,_subtst /* subtest number */
118: movl $1,_no_opr /* number of operands in use */
119: movl negval,_opr /* first operand */
120: 0: movl $0x0,r4
121: movw negval,r3 /* move word 0xff0f to r3 */
122: movl r3,expval /* save source */
123: bispsw $(Z|V)
124: bicpsw $(C|N)
125: movw r3,r4 /* move 0xffffff0f to r4 */
126: jgeq error3 /* error if n flag not set */
127: jeql error3 /* error if z flag set */
128: jvs error3 /* error if v flag set */
129: jcc error3 /* error if c flag not set */
130: jmp 1f
131: error3: movpsl _actual /* actual = psl MAYBE it is incorrect */
132: bbs $0,_scoplp,0b /* if set scope loop on error */
133: movl $2,_ercode /* error code flag failure */
134: jmp *badrtn
135: 1: cmpl r4,expval
136: jeql 1f
137: bbs $0,_scoplp,0b /* if set scope loop on error */
138: movl $1,_ercode /* error code data miscompare */
139: movl r4,_actual /* actual data */
140: movl expval,_expected /* expected data */
141: jmp *badrtn
142: 1: bicpsw $Z
143: cmpl r3,expval
144: jeql movwmm
145: bbs $0,_scoplp,0b /* if set scope loop on error */
146: movl $3,_ercode /* error code operand miscompare */
147: movl r3,_actual /* actual data */
148: movl expval,_expected /* expected data */
149: jmp *badrtn
150: movwmm: /* MOVE MEMORY TO MEMORY */
151: bbs $0,_force_lp,0b /* if set loop on last subtest */
152: am4: callf $4,_setjmp /* save context for error return */
153: movab am4,_stpc /* save subtst starting address */
154: movl $4,_subtst /* subtest number */
155: movl $1,_no_opr /* number of operands in use */
156: movl $0xffff0000,_opr /* first operand */
157: 0: movl $0x0,tstloc
158: movl $0xffff0000,oprd
159: movl oprd,oldval /* save source */
160: bispsw $(Z|V) /* set z,v flags */
161: bicpsw $(C|N) /* clear n,c flag */
162: movw oprd,tstloc+2
163: jgeq error4 /* error if n flag not set */
164: jeql error4 /* error if z flag set */
165: jvs error4 /* error if v flag set */
166: jcc error4 /* error if c flag not set */
167: jmp 1f
168: error4: movpsl _actual /* actual = psl MAYBE it is incorrect */
169: bbs $0,_scoplp,0b /* if set scope loop on error */
170: movl $2,_ercode /* error code flag failure */
171: jmp *badrtn
172: 1: cmpl $0x0000ffff,tstloc /* compare tstloc to expected value */
173: jeql 1f
174: bbs $0,_scoplp,0b /* if set scope loop on error */
175: movl $1,_ercode /* error code data miscompare */
176: movl tstloc,_actual /* actual data */
177: movl $0x0000ffff,_expected /* expected data */
178: jmp *badrtn
179: 1: bicpsw $Z
180: cmpl oprd,oldval /* make sure source unchanged */
181: jeql m5
182: bbs $0,_scoplp,0b /* if set scope loop on error */
183: movl $3,_ercode /* error code operand miscompare */
184: movl oprd,_actual /* actual data */
185: movl oldval,_expected /* expected data */
186: jmp *badrtn
187:
188: m5: /* MOVE MEMORY TO MEMORY */
189: bbs $0,_force_lp,0b /* if set loop on last subtest */
190: am5: callf $4,_setjmp /* save context for error return */
191: movab am5,_stpc /* save subtst starting address */
192: movl $5,_subtst /* subtest number */
193: movl $1,_no_opr /* number of operands in use */
194: movl $0x5555,_opr /* first operand */
195: 0: movl $0x5555,tstloc
196: movl tstloc,oldval /* save source */
197: bispsw $(N|V|Z) /* set n,v,z flags */
198: bicpsw $C /* clear c flag */
199: movw tstloc+2,oprd+2
200: jlss error5 /* error if n flag set */
201: jeql error5 /* error if z flag set */
202: jvs error5 /* error if v flag set */
203: jcc error5 /* error if c flag not set */
204: jmp 1f
205: error5: movpsl _actual /* actual = psl MAYBE it is incorrect */
206: bbs $0,_scoplp,0b /* if set scope loop on error */
207: movl $2,_ercode /* error code flag failure */
208: jmp *badrtn
209: 1: cmpl $0xffff5555,oprd /* compare oprd to expected value */
210: jeql 1f
211: bbs $0,_scoplp,0b /* if set scope loop on error */
212: movl $1,_ercode /* error code data miscompare */
213: movl oprd,_actual /* actual data */
214: movl $0xffff5555,_expected /* expected data */
215: jmp *badrtn
216: 1: bicpsw $Z
217: cmpl tstloc,oldval /* make sure source unchanged */
218: jeql movwdm
219: bbs $0,_scoplp,0b /* if set scope loop on error */
220: movl $3,_ercode /* error code operand miscompare */
221: movl tstloc,_actual /* actual data */
222: movl oldval,_expected /* expected data */
223: jmp *badrtn
224: movwdm: /* MOVE DATA TO MEMORY */
225: bbs $0,_force_lp,0b /* if set loop on last subtest */
226: am6: callf $4,_setjmp /* save context for error return */
227: movab am6,_stpc /* save subtst starting address */
228: movl $6,_subtst /* subtest number */
229: movl $1,_no_opr /* number of operands in use */
230: movl $0xffff0000,_opr /* first operand */
231: 0: movl $0x0,tstloc
232: movl $0xffff0000,oprd
233: movl oprd,oldval /* save source */
234: bispsw $(Z|V) /* set z,v flags */
235: bicpsw $(C|N) /* clear n,c flag */
236: movw $-0x0001,tstloc+2
237: jgeq error6 /* error if n flag not set */
238: jeql error6 /* error if z flag set */
239: jvs error6 /* error if v flag set */
240: jcc error6 /* error if c flag not set */
241: jmp 1f
242: error6: movpsl _actual /* actual = psl MAYBE it is incorrect */
243: bbs $0,_scoplp,0b /* if set scope loop on error */
244: movl $2,_ercode /* error code flag failure */
245: jmp *badrtn
246: 1: cmpl $0x0000ffff,tstloc /* compare tstloc to expected value */
247: jeql 1f
248: bbs $0,_scoplp,0b /* if set scope loop on error */
249: movl $1,_ercode /* error code data miscompare */
250: movl tstloc,_actual /* actual data */
251: movl $0x0000ffff,_expected /* expected data */
252: jmp *badrtn
253: 1: bicpsw $Z
254: cmpl oprd,oldval /* make sure source unchanged */
255: jeql movwrm
256: bbs $0,_scoplp,0b /* if set scope loop on error */
257: movl $3,_ercode /* error code operand miscompare */
258: movl oprd,_actual /* actual data */
259: movl oldval,_expected /* expected data */
260: jmp *badrtn
261: movwrm:
262: bbs $0,_force_lp,0b /* if set loop on last subtest */
263: am7: callf $4,_setjmp /* save context for error return */
264: movab am7,_stpc /* save subtst starting address */
265: movl $7,_subtst /* subtest number */
266: movl $1,_no_opr /* number of operands in use */
267: movl $0xff0f,_opr /* first operand */
268: 0: movl $0xff0f,expval /* move word 0xff0f to expval*/
269: movl $0xff0f,tmp /* move word 0xff0f to tmp */
270: movw tmp+2,r3 /* move word 0xff0f to r7 */
271: bispsw $(Z|V)
272: bicpsw $(C|N)
273: movw r3,tstloc+2 /* move 0xffffff0f to tstloc+2*/
274: jgeq error7 /* error if n flag not set */
275: jeql error7 /* error if z flag set */
276: jvs error7 /* error if v flag set */
277: jcc error7 /* error if c flag not set */
278: jmp 1f
279: error7: movpsl _actual /* actual = psl MAYBE it is incorrect */
280: bbs $0,_scoplp,0b /* if set scope loop on error */
281: movl $2,_ercode /* error code flag failure */
282: jmp *badrtn
283: 1: cmpl tstloc,expval
284: jeql movwdr
285: bbs $0,_scoplp,0b /* if set scope loop on error */
286: movl $1,_ercode /* error code data miscompare */
287: movl tstloc,_actual /* actual data */
288: movl expval,_expected /* expected data */
289: jmp *badrtn
290: movwdr: /* MOVE DATA TO REGISTER */
291: bbs $0,_force_lp,0b /* if set loop on last subtest */
292: am8: callf $4,_setjmp /* save context for error return */
293: movab am8,_stpc /* save subtst starting address */
294: movl $8,_subtst /* subtest number */
295: movl $1,_no_opr /* number of operands in use */
296: movl negval,_opr /* first operand */
297: 0: movl $0x0,r8
298: movw negval,r3 /* move word 0xff0f to r7 */
299: movl r3,expval /* save source */
300: bispsw $(Z|V)
301: bicpsw $(C|N)
302: movw $-0x00f1,r4 /* move 0xffffff0f to r4 */
303: jgeq error8 /* error if n flag not set */
304: jeql error8 /* error if z flag set */
305: jvs error8 /* error if v flag set */
306: jcc error8 /* error if c flag not set */
307: jmp 1f
308: error8: movpsl _actual /* actual = psl MAYBE it is incorrect */
309: bbs $0,_scoplp,0b /* if set scope loop on error */
310: movl $2,_ercode /* error code flag failure */
311: jmp *badrtn
312: 1: cmpl r4,expval
313: jeql 1f
314: bbs $0,_scoplp,0b /* if set scope loop on error */
315: movl $1,_ercode /* error code data miscompare */
316: movl r4,_actual /* actual data */
317: movl expval,_expected /* expected data */
318: jmp *badrtn
319: 1: bicpsw $Z
320: cmpl r3,expval
321: jeql aldn
322: bbs $0,_scoplp,0b /* if set scope loop on error */
323: movl $3,_ercode /* error code operand miscompare */
324: movl r3,_actual /* actual data */
325: movl expval,_expected /* expected data */
326: jmp *badrtn
327:
328:
329:
330: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */
331: jmp *return /* good, return to monitor */
332:
333: /* test data */
334: .align 2
335: negval: .long NEGVAL /* 0xf0ffffff */
336: zero: .long 0x0
337: expval: .long 0x0
338: oldval: .long 0x0
339: negno: .long NEGNO
340: expr5: .long 0xffffa000
341: tstloc: .long 0x0
342: tmp: .long 0x0
343: oprd: .long 0x0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.