![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to movob.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 movob.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 root 1: /* MOVOB instruction test */
2: /* MOVL,MOVW 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,0xa0ffffff
16: .set NEGVAL,0xff0fffff
17: .set WORD,0xffff
18: .set BYTE,0xff
19: .set MASKHW,0x55550000
20: .set MASKLB,0x55
21: .set MASKB,0x55555500
22: .globl _movob
23: _movob: /* MOVE MEMORY TO REGISTER */
24: callf $4,_setjmp /* save context for error return */
25: movab _movob,_stpc /* save starting address of subtest */
26: movb $1,_subtst /* subtest no : Used MOVB to clear latch */
27: movl $1,_no_opr /* number of operands in use */
28: movl negno,_opr /* first operand */
29: 0: movl $MASKHW,r4 /* initialize r4 = 0x55550000 */
30: bispsw $(Z|V|C) /* set z,v,c flags */
31: bicpsw $N /* clear n flag */
32: movob negno,r4 /* move word 0xa0 to r4 */
33: jgeq error1 /* error if n flag not set */
34: jeql error1 /* error if z flag set */
35: jvs error1 /* error if v flag set */
36: jcc error1 /* error if c flag not set */
37: jmp 1f
38: error1: movpsl _actual /* actual = psl MAYBE it is incorrect */
39: bbs $0,_scoplp,0b /* if set scope loop on error */
40: movl $2,_ercode /* error code flag failure */
41: jmp *badrtn
42: 1: cmpl expr4,r4 /* compare r4 to 0xffffffa0 */
43: jeql 1f
44: bbs $0,_scoplp,0b /* if set scope loop on error */
45: movl $1,_ercode /* error code data miscompare */
46: movl r4,_actual /* actual data */
47: movl expr4,_expected /* expected data */
48: jmp *badrtn
49: 1: bicpsw $Z
50: cmpl $NEGNO,negno
51: jeql movwrr
52: bbs $0,_scoplp,0b /* if set scope loop on error */
53: movl $3,_ercode /* error code operand miscompare */
54: movl negno,_actual /* actual data */
55: movl $NEGNO,_expected /* expected data */
56: jmp *badrtn
57: movwrr: /* MOVE REGISTER TO REGISTER */
58: bbs $0,_force_lp,0b /* if set loop on last subtest */
59: am2: callf $4,_setjmp /* save context for error return */
60: movab am2,_stpc /* save starting address of subtest */
61: movl $2,_subtst /* subtest number */
62: movl $1,_no_opr /* number of operands in use */
63: movl $MASKLB,_opr /* first operand */
64: 0: movl $MASKLB,r3 /* initialize r3 = 0x55 */
65: movl r3,expval
66: movl $0xffffffff,r4 /* initialize r4 = 0xffffffff */
67: bispsw $(Z|N|V) /* set Z,V,N flags */
68: bicpsw $C /* clear C flag */
69: movob r3,r4 /* move r3 to r4 */
70: jlss error2 /* error if n flag set */
71: jeql error2 /* error if z flag set */
72: jvs error2 /* error if v flag set */
73: jcc error2 /* error if c flag not set */
74: jmp 1f
75: error2: movpsl _actual /* actual = psl MAYBE it is incorrect */
76: bbs $0,_scoplp,0b /* if set scope loop on error */
77: movl $2,_ercode /* error code flag failure */
78: jmp *badrtn
79: 1: cmpl r4,expval
80: jeql 1f
81: bbs $0,_scoplp,0b /* if set scope loop on error */
82: movl $1,_ercode /* error code data miscompare */
83: movl r4,_actual /* actual data */
84: movl expval,_expected /* expected data */
85: jmp *badrtn
86: 1: movob r4,r5 /* move r4 to r5 */
87: movob r5,r6 /* move r5 to r6 */
88: movob r6,r7 /* move r6 to r7 */
89: movob r7,r9 /* move r7 to r9 */
90: movl r9,oldval /* save value of source = 0x00000055 */
91: movob r9,r11 /* move r9 to r11 */
92: cmpl expval,r11 /* compare r11 to 0x00000055 */
93: jeql 1f
94: bbs $0,_scoplp,0b /* if set scope loop on error */
95: movl $1,_ercode /* error code data miscompare */
96: movl r11,_actual /* actual data */
97: movl expval,_expected /* expected data */
98: jmp *badrtn
99: 1: bicpsw $Z
100: cmpl oldval,r9 /* make sure source unchanged */
101: jeql m3
102: bbs $0,_scoplp,0b /* if set scope loop on error */
103: movl $1,_ercode /* error code data miscompare */
104: movl r9,_actual /* actual data */
105: movl oldval,_expected /* expected data */
106: jmp *badrtn
107:
108: m3: /* MOVE REGISTER TO REGISTER */
109: bbs $0,_force_lp,0b /* if set loop on last subtest */
110: am3: callf $4,_setjmp /* save context for error return */
111: movab am3,_stpc /* save starting address of subtest */
112: movl $3,_subtst /* subtest number */
113: movl $1,_no_opr /* number of operands in use */
114: movl $-16,_opr /* first operand */
115: 0: movl $0x0,r4
116: movob $-16,r3 /* move byte 0xf0 to r3 */
117: movl r3,expval /* save source */
118: bispsw $(Z|V)
119: bicpsw $(C|N)
120: movob r3,r4 /* move 0xfffffff0 to r4 */
121: jgeq error3 /* error if n flag not set */
122: jeql error3 /* error if z flag set */
123: jvs error3 /* error if v flag set */
124: jcc error3 /* error if c flag not set */
125: jmp 1f
126: error3: movpsl _actual /* actual = psl MAYBE it is incorrect */
127: bbs $0,_scoplp,0b /* if set scope loop on error */
128: movl $2,_ercode /* error code flag failure */
129: jmp *badrtn
130: 1: cmpl r4,expval
131: jeql 1f
132: bbs $0,_scoplp,0b /* if set scope loop on error */
133: movl $1,_ercode /* error code data miscompare */
134: movl r4,_actual /* actual data */
135: movl expval,_expected /* expected data */
136: jmp *badrtn
137: 1: bicpsw $Z
138: cmpl r3,expval
139: jeql movbmm
140: bbs $0,_scoplp,0b /* if set scope loop on error */
141: movl $3,_ercode /* error code operand miscompare */
142: movl r3,_actual /* actual data */
143: movl expval,_expected /* expected data */
144: jmp *badrtn
145: movbmm: /* MOVE MEMORY TO MEMORY */
146: bbs $0,_force_lp,0b /* if set loop on last subtest */
147: am4: callf $4,_setjmp /* save context for error return */
148: movab am4,_stpc /* save starting address of subtest */
149: movl $4,_subtst /* subtest number */
150: movl $1,_no_opr /* number of operands in use */
151: movl $0xff000000,_opr /* first operand */
152: 0: movl $0x0,tstloc
153: movl $0xff000000,oprd
154: movl oprd,oldval /* save source */
155: bispsw $(Z|V) /* set z,v flags */
156: bicpsw $(C|N) /* clear n,c flag */
157: movob oprd,tstloc+3
158: jgeq error4 /* error if n flag not set */
159: jeql error4 /* error if z flag set */
160: jvs error4 /* error if v flag set */
161: jcc error4 /* error if c flag not set */
162: jmp 1f
163: error4: movpsl _actual /* actual = psl MAYBE it is incorrect */
164: bbs $0,_scoplp,0b /* if set scope loop on error */
165: movl $2,_ercode /* error code flag failure */
166: jmp *badrtn
167: 1:
168: andl2 $0xff,tstloc
169: cmpl $0xff,tstloc /* compare tstloc to expected value */
170: jeql 1f
171: bbs $0,_scoplp,0b /* if set scope loop on error */
172: movl $1,_ercode /* error code data miscompare */
173: movl tstloc,_actual /* actual data */
174: movl $0x0ff,_expected /* expected data */
175: jmp *badrtn
176: 1: bicpsw $Z
177: cmpl oprd,oldval /* make sure source unchanged */
178: jeql m5
179: bbs $0,_scoplp,0b /* if set scope loop on error */
180: movl $3,_ercode /* error code data miscompare */
181: movl oprd,_actual /* actual data */
182: movl oldval,_expected /* expected data */
183: jmp *badrtn
184:
185: m5: /* MOVE MEMORY TO MEMORY */
186: bbs $0,_force_lp,0b /* if set loop on last subtest */
187: am5: callf $4,_setjmp /* save context for error return */
188: movab am5,_stpc /* save starting address of subtest */
189: movl $5,_subtst /* subtest number */
190: movl $1,_no_opr /* number of operands in use */
191: movl $0x55,_opr /* first operand */
192: 0: movl $0x55,tstloc
193: movl tstloc,oldval /* save source */
194: movl $0,oprd /* clear destination */
195: bispsw $(N|V|Z) /* set n,v,z flags */
196: bicpsw $C /* clear c flag */
197: movob tstloc+3,oprd+3
198: jlss error5 /* error if n flag set */
199: jeql error5 /* error if z flag set */
200: jvs error5 /* error if v flag set */
201: jcc error5 /* error if c flag not set */
202: jmp 1f
203: error5: movpsl _actual /* actual = psl MAYBE it is incorrect */
204: bbs $0,_scoplp,0b /* if set scope loop on error */
205: movl $2,_ercode /* error code flag failure */
206: jmp *badrtn
207: 1:
208: andl2 $0xff,oprd
209: cmpl $0x55,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 $0x55,_expected /* expected data */
215: jmp *badrtn
216: 1: bicpsw $Z
217: cmpl tstloc,oldval /* make sure source unchanged */
218: jeql movobdm
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: movobdm: /* 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 starting address of subtest */
228: movl $6,_subtst /* subtest number */
229: movl $1,_no_opr /* number of operands in use */
230: movl $-1,_opr /* first operand */
231: 0: movl $0x0,tstloc
232: bispsw $(Z|V) /* set z,v flags */
233: bicpsw $(C|N) /* clear n,c flag */
234: movob $-1,tstloc+3
235: jgeq error6 /* error if n flag not set */
236: jeql error6 /* error if z flag set */
237: jvs error6 /* error if v flag set */
238: jcc error6 /* error if c flag not set */
239: jmp 1f
240: error6: movpsl _actual /* actual = psl MAYBE it is incorrect */
241: bbs $0,_scoplp,0b /* if set scope loop on error */
242: movl $2,_ercode /* error code flag failure */
243: jmp *badrtn
244: 1:
245: andl2 $0xff,tstloc
246: cmpl $0xff,tstloc /* compare tstloc to expected value */
247: jeql movbrm
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 $0x000000ff,_expected /* expected data */
252: jmp *badrtn
253:
254: movbrm: /* MOVE DATA TO MEMORY */
255: bbs $0,_force_lp,0b /* if set loop on last subtest */
256: am7: callf $4,_setjmp /* save context for error return */
257: movab am7,_stpc /* save starting address of subtest */
258: movl $7,_subtst /* subtest number */
259: movl $1,_no_opr /* number of operands in use */
260: movl $0xaa,_opr /* first operand */
261: 0: movl $0x0,tstloc
262: movl $0xaa,tmp /* load tmp to sign extend r5 contents */
263: movb tmp+3,r3
264: bispsw $(Z|V) /* set z,v flags */
265: bicpsw $(C|N) /* clear n,c flag */
266: movob r3,tstloc+3
267: jgeq error7 /* error if n flag not set */
268: jeql error7 /* error if z flag set */
269: jvs error7 /* error if v flag set */
270: jcc error7 /* error if c flag not set */
271: jmp 1f
272: error7: movpsl _actual /* actual = psl MAYBE it is incorrect */
273: bbs $0,_scoplp,0b /* if set scope loop on error */
274: movl $2,_ercode /* error code flag failure */
275: jmp *badrtn
276: 1:
277: andl2 $0xff,tstloc
278: cmpl $0xaa,tstloc /* compare tstloc to expected value */
279: jeql movbdr
280: bbs $0,_scoplp,0b /* if set scope loop on error */
281: movl $1,_ercode /* error code data miscompare */
282: movl tstloc,_actual /* actual data */
283: movl $0x000000aa,_expected /* expected data */
284: jmp *badrtn
285:
286: movbdr: /* MOVE DATA TO REGISTER */
287: bbs $0,_force_lp,0b /* if set loop on last subtest */
288: am8: callf $4,_setjmp /* save context for error return */
289: movab am8,_stpc /* save starting address of subtest */
290: movl $8,_subtst /* subtest number */
291: movl $1,_no_opr /* number of operands in use */
292: movl $0xaa,_opr /* first operand */
293: 0: movl $MASKHW,r4 /* initialize r4 = 0x55550000 */
294: bispsw $(Z|V|C) /* set z,v,c flags */
295: bicpsw $N /* clear n flag */
296: movob $-0x60,r4 /* move word 0xa0 to r4 */
297: jgeq error8 /* error if n flag not set */
298: jeql error8 /* error if z flag set */
299: jvs error8 /* error if v flag set */
300: jcc error8 /* error if c flag not set */
301: jmp 1f
302: error8: movpsl _actual /* actual = psl MAYBE it is incorrect */
303: bbs $0,_scoplp,0b /* if set scope loop on error */
304: movl $2,_ercode /* error code flag failure */
305: jmp *badrtn
306: 1: cmpl expr4,r4 /* compare r4 to 0xffffffa0 */
307: jeql aldn
308: bbs $0,_scoplp,0b /* if set scope loop on error */
309: movl $1,_ercode /* error code data miscompare */
310: movl r4,_actual /* actual data */
311: movl expr4,_expected /* expected data */
312: jmp *badrtn
313:
314: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */
315: jmp *return
316:
317: /* test data */
318: .align 2
319: expval: .long 0x0
320: oldval: .long 0x0
321: negno: .long NEGNO
322: expr4: .long 0xffffffa0
323: tstloc: .long 0x0
324: tmp: .long 0x0
325: oprd: .long 0x0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.