![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to movow.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 movow.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 root 1: /* MOVOW 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 _movow
24: _movow:
25:
26: callf $4,_setjmp /* save context for return from error */
27: movab _movow,_stpc /* save subtest starting address */
28: movw $1,_subtst /* subtest no : Used MOVOW to clear latch */
29: movl $1,_no_opr /* number of operands */
30: movl negno,_opr /* first operand in use */
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: movow 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 was modiefied */
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: m2: callf $4,_setjmp /* save context for return from error */
65: movab m2,_stpc /* save subtest starting address */
66: movl $2,_subtst /* subtest number */
67: movl $1,_no_opr /* number of operands */
68: movl $MASKLW,_opr /* first operand in use */
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: movow 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: 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: movow r4,r5 /* move r4 to r5 */
92: movow r5,r6 /* move r5 to r6 */
93: movow r6,r7 /* move r6 to r7 */
94: movow r7,r9 /* move r7 to r9 */
95: movl r9,oldval /* save value of source = 0x00005555 */
96: movow r9,r11 /* move r9 to r11 */
97: cmpl expval,r11 /* compare r11 to 0x00005555 */
98: jneq error2 /* error if not equal; z flag not set */
99: jeql 1f
100: bbs $0,_scoplp,0b /* if set scope loop on error */
101: movl $1,_ercode /* error code data miscompare */
102: movl r4,_actual /* actual data */
103: movl expval,_expected /* expected data */
104: jmp *badrtn
105: 1: bicpsw $Z
106: cmpl oldval,r9 /* make sure source unchanged */
107: jeql m3
108: bbs $0,_scoplp,0b /* if set scope loop on error */
109: movl $3,_ercode /* error code operand was modiefied */
110: movl r9,_actual /* actual data */
111: movl oldval,_expected /* expected data */
112: jmp *badrtn
113:
114: m3: bbs $0,_force_lp,0b /* if set loop on last subtest */
115: am3: callf $4,_setjmp /* save context for return from error */
116: movab am3,_stpc /* save subtest starting address */
117: movl $3,_subtst /* subtest number */
118: movl $1,_no_opr /* number of operands */
119: movl negval,_opr /* first operand in use */
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: movow 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 was modiefied */
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: m4: callf $4,_setjmp /* save context for return from error */
153: movab m4,_stpc /* save subtest starting address */
154: movl $4,_subtst /* subtest number */
155: movl $1,_no_opr /* number of operands */
156: movl $0xffff0000,_opr /* first operand in use */
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: movow 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:
173: andl2 $0xffff,tstloc
174: cmpl $0xffff,tstloc /* compare tstloc to expected value */
175: jeql 1f
176: bbs $0,_scoplp,0b /* if set scope loop on error */
177: movl $1,_ercode /* error code data miscompare */
178: movl tstloc,_actual /* actual data */
179: movl $0xffff,_expected /* expected data */
180: jmp *badrtn
181: 1: bicpsw $Z
182: cmpl oprd,oldval /* make sure source unchanged */
183: jeql m5
184: bbs $0,_scoplp,0b /* if set scope loop on error */
185: movl $3,_ercode /* error code operand was modiefied */
186: movl oprd,_actual /* actual data */
187: movl oldval,_expected /* expected data */
188: jmp *badrtn
189:
190: m5: /* MOVE MEMORY TO MEMORY */
191: bbs $0,_force_lp,0b /* if set loop on last subtest */
192: am5: callf $4,_setjmp /* save context for return from error */
193: movab am5,_stpc /* save subtest starting address */
194: movl $5,_subtst /* subtest number */
195: movl $1,_no_opr /* number of operands */
196: movl $0x5555,_opr /* first operand in use */
197: 0: movl $0x5555,tstloc
198: movl tstloc,oldval /* save source */
199: bispsw $(N|V|Z) /* set n,v,z flags */
200: bicpsw $C /* clear c flag */
201: movow tstloc+2,oprd+2
202: jlss error5 /* error if n flag set */
203: jeql error5 /* error if z flag set */
204: jvs error5 /* error if v flag set */
205: jcc error5 /* error if c flag not set */
206: jmp 1f
207: error5: movpsl _actual /* actual = psl MAYBE it is incorrect */
208: bbs $0,_scoplp,0b /* if set scope loop on error */
209: movl $2,_ercode /* error code flag failure */
210: jmp *badrtn
211: 1:
212: andl2 $0xffff,oprd
213: cmpl $0x5555,oprd /* compare oprd to expected value */
214: jeql 1f
215: bbs $0,_scoplp,0b /* if set scope loop on error */
216: movl $1,_ercode /* error code data miscompare */
217: movl oprd,_actual /* actual data */
218: movl $0x5555,_expected /* expected data */
219: jmp *badrtn
220: 1: bicpsw $Z
221: cmpl tstloc,oldval /* make sure source unchanged */
222: jeql movwdm
223: bbs $0,_scoplp,0b /* if set scope loop on error */
224: movl $3,_ercode /* error code operand was modiefied */
225: movl tstloc,_actual /* actual data */
226: movl oldval,_expected /* expected data */
227: jmp *badrtn
228: movwdm: /* MOVE DATA TO MEMORY */
229: bbs $0,_force_lp,0b /* if set loop on last subtest */
230: m6: callf $4,_setjmp /* save context for return from error */
231: movab m6,_stpc /* save subtest starting address */
232: movl $6,_subtst /* subtest number */
233: movl $1,_no_opr /* number of operands */
234: movl $0x5555,_opr /* first operand in use */
235: 0: movl $0x0,tstloc
236: movl $0xffff0000,oprd
237: movl oprd,oldval /* save source */
238: bispsw $(Z|V) /* set z,v flags */
239: bicpsw $(C|N) /* clear n,c flag */
240: movow $-0x0001,tstloc+2
241: jgeq error6 /* error if n flag not set */
242: jeql error6 /* error if z flag set */
243: jvs error6 /* error if v flag set */
244: jcc error6 /* error if c flag not set */
245: jmp 1f
246: error6: movpsl _actual /* actual = psl MAYBE it is incorrect */
247: bbs $0,_scoplp,0b /* if set scope loop on error */
248: movl $2,_ercode /* error code flag failure */
249: jmp *badrtn
250: 1:
251: andl2 $0xffff,tstloc
252: cmpl $0xffff,tstloc /* compare tstloc to expected value */
253: jeql 1f
254: bbs $0,_scoplp,0b /* if set scope loop on error */
255: movl $1,_ercode /* error code data miscompare */
256: movl tstloc,_actual /* actual data */
257: movl $0x0000ffff,_expected /* expected data */
258: jmp *badrtn
259: 1: bicpsw $Z
260: cmpl oprd,oldval /* make sure source unchanged */
261: jeql movwrm
262: bbs $0,_scoplp,0b /* if set scope loop on error */
263: movl $3,_ercode /* error code operand was modiefied */
264: movl oprd,_actual /* actual data */
265: movl oldval,_expected /* expected data */
266: jmp *badrtn
267: movwrm:
268: bbs $0,_force_lp,0b /* if set loop on last subtest */
269: m7: callf $4,_setjmp /* save context for return from error */
270: movab m7,_stpc /* save subtest starting address */
271: movl $7,_subtst /* subtest number */
272: movl $1,_no_opr /* number of operands */
273: movl $0xff0f,_opr /* first operand in use */
274: 0: movl $0xff0f,expval /* move word 0xff0f to expval */
275: movl $0xff0f,tmp /* save source */
276: movw tmp+2,r3
277: bispsw $(Z|V)
278: bicpsw $(C|N)
279: movow r3,tstloc+2 /* move 0xffffff0f to tstloc+2 */
280: jgeq error7 /* error if n flag not set */
281: jeql error7 /* error if z flag set */
282: jvs error7 /* error if v flag set */
283: jcc error7 /* error if c flag not set */
284: jmp 1f
285: error7: movpsl _actual /* actual = psl MAYBE it is incorrect */
286: bbs $0,_scoplp,0b /* if set scope loop on error */
287: movl $2,_ercode /* error code flag failure */
288: jmp *badrtn
289: 1:
290: andl2 $0xffff,tstloc
291: cmpl tstloc,expval
292: jeql movwdr
293: bbs $0,_scoplp,0b /* if set scope loop on error */
294: movl $1,_ercode /* error code data miscompare */
295: movl tstloc,_actual /* actual data */
296: movl expval,_expected /* expected data */
297: jmp *badrtn
298:
299: movwdr: /* MOVE DATA TO REGISTER */
300: bbs $0,_force_lp,0b /* if set loop on last subtest */
301: m8: callf $4,_setjmp /* save context for return from error */
302: movab m8,_stpc /* save subtest starting address */
303: movl $8,_subtst /* subtest number */
304: movl $1,_no_opr /* number of operands */
305: movl negval,_opr /* first operand in use */
306: 0: movl $0x0,r4
307: movow negval,r3 /* move word 0xff0f to r3 */
308: movl r3,expval /* save source */
309: bispsw $(Z|V)
310: bicpsw $(C|N)
311: movow $-0x00f1,r4 /* move 0xffffff0f to r4 */
312: jgeq error8 /* error if n flag not set */
313: jeql error8 /* error if z flag set */
314: jvs error8 /* error if v flag set */
315: jcc error8 /* error if c flag not set */
316: jmp 1f
317: error8: movpsl _actual /* actual = psl MAYBE it is incorrect */
318: bbs $0,_scoplp,0b /* if set scope loop on error */
319: movl $2,_ercode /* error code flag failure */
320: jmp *badrtn
321: 1: cmpl r4,expval
322: jeql 1f
323: bbs $0,_scoplp,0b /* if set scope loop on error */
324: movl $1,_ercode /* error code data miscompare */
325: movl r4,_actual /* actual data */
326: movl expval,_expected /* expected data */
327: jmp *badrtn
328: 1: bicpsw $Z
329: cmpl r3,expval
330: jeql aldn
331: bbs $0,_scoplp,0b /* if set scope loop on error */
332: movl $3,_ercode /* error code operand was modiefied */
333: movl r3,_actual /* actual data */
334: movl oldval,_expected /* expected data */
335: jmp *badrtn
336:
337:
338: aldn: bbs $0,_force_lp,0b /* if set loop on last error */
339: jmp *return /* good, return to monitor */
340:
341: /* test data */
342: .align 2
343: negval: .long NEGVAL /* 0xf0ffffff */
344: zero: .long 0x0
345: expval: .long 0x0
346: oldval: .long 0x0
347: negno: .long NEGNO
348: expr5: .long 0xffffa000
349: tstloc: .long 0x0
350: tmp: .long 0x0
351: oprd: .long 0x0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.