![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cmp_l.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 cmp_l.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 root 1:
2:
3:
4:
5: /* CMPL (compare long) test */
6: /* */
7: /*Test name = cmpl */
8: /*Description = */
9: /* This test checks 'cmpl' instruction as follows: */
10: /* src1 src2 N Z V C (flags) */
11: /* ____ ____ _______________ */
12: /* + = + 0 1 0 1 */
13: /* - = - 0 1 0 1 */
14: /* + > + 1 0 0 0 */
15: /* - < - 1 0 0 0 */
16: /* - = + 1 0 0 1 */
17: /* - > + 1 0 0 1 */
18: /* - < + 1 0 0 1 */
19: /* + < - 0 0 0 0 */
20: /* + = - 0 0 0 0 */
21: /* + > - 0 0 0 0 */
22: /* - > - 0 0 0 1 */
23: /* + > + 0 0 0 1 */
24: /* M ---- M ------- */
25: /* R ---- M ------- */
26: /* */
27: /* */
28: /* */
29:
30: /* */
31: /* constants definition for 'cmpx' tests. */
32: /* */
33:
34: .set SRC1B1,0x7f /*+127, highest +ve number, byte */
35: .set SRC1W1,0x7fff
36: .set SRC1L1,0x7fffffff
37: .set SRC2B1,0x5555557f
38: .set SRC2W1,0x55557fff
39: .set SRC2L1,SRC1L1
40: .set SRC1B2,0xff /*-1, highest -ve number, byte */
41: .set SRC1W2,0xffff
42: .set SRC1L2,0xffffffff
43: .set SRC2B2,SRC1B2
44: .set SRC2W2,SRC1W2
45: .set SRC2L2,SRC1L2
46: .set SRC1B3,0x01
47: .set SRC1W3,0X0001
48: .set SRC1L3,0x00000001
49: .set SRC2B3,0x02
50: .set SRC2W3,0x0002
51: .set SRC2L3,0x00000002
52: .set SRC1B4,0xfe /*-2 */
53: .set SRC1W4,0xfffe
54: .set SRC1L4,0xfffffffe
55: .set SRC2B4,0xff /*-1 */
56: .set SRC2W4,0xffff
57: .set SRC2L4,0xffffffff
58: .set SRC1B5,0x81 /*-127 */
59: .set SRC1W5,0x8001
60: .set SRC1L5,0x80000001
61: .set SRC2B5,0x7f /*+127 */
62: .set SRC2W5,0x7fff
63: .set SRC2L5,0x7fffffff
64: .set SRC1B6,SRC1B4 /*-2 */
65: .set SRC1W6,SRC1W4
66: .set SRC1L6,SRC1L4
67: .set SRC2B6,SRC1B3 /*+1 */
68: .set SRC2W6,SRC1W3
69: .set SRC2L6,SRC1L3
70: .set SRC1B7,SRC2B4 /*-1 */
71: .set SRC1W7,SRC2W4
72: .set SRC1L7,SRC2L4
73: .set SRC2B7,SRC2B3
74: .set SRC2W7,SRC2W3
75: .set SRC2L7,SRC2L3
76: .set SRC1B8,SRC2B6 /*+1*/
77: .set SRC1W8,SRC2W6
78: .set SRC1L8,SRC2L6
79: .set SRC2B8,SRC1B4 /*-2*/
80: .set SRC2W8,SRC1W4
81: .set SRC2L8,SRC1L4
82: .set SRC1B9,SRC1B1 /*127*/
83: .set SRC1W9,SRC1W1
84: .set SRC1L9,SRC1L1
85: .set SRC2B9,SRC1B5 /*-127*/
86: .set SRC2W9,SRC1W5
87: .set SRC2L9,SRC1L5
88: .set SRC1B10,SRC2B3 /*2*/
89: .set SRC1W10,SRC2W3
90: .set SRC1L10,SRC2L3
91: .set SRC2B10,SRC1B2 /*-1*/
92: .set SRC2W10,SRC1W2
93: .set SRC2L10,SRC1L2
94: .set SRC1B11,SRC1B2 /*-1*/
95: .set SRC1W11,SRC1W2
96: .set SRC1L11,SRC1L2
97: .set SRC2B11,SRC1B4 /*-2*/
98: .set SRC2W11,SRC1W4
99: .set SRC2L11,SRC1L4
100: .set SRC1B12,SRC2B3 /*2*/
101: .set SRC1W12,SRC2W3
102: .set SRC1L12,SRC2L3
103: .set SRC2B12,SRC1B3 /*1*/
104: .set SRC2W12,SRC1W3
105: .set SRC2L12,SRC1L3
106:
107: /* */
108: /* Syst.s - Constants */
109: /* */
110: .set IPL,8
111: .set HIGH,31
112: .set ZERO,0
113: .set ONES,0xffffffff
114: .set N,8
115: .set Z,4
116: .set V,2
117: .set C,1
118: .set T,16
119: .set IV,32
120: .set FU,64
121: .set DV,128
122: .set PSWMASK,0x003f
123: /* */
124: /* t1loc = M, t2loc = M */
125: /* */
126: .globl _cmp_l
127: _cmp_l:
128: callf $4,_setjmp /* save context for error return */
129: movab _cmp_l,_stpc /* save address of subtest start */
130: movl $1,_subtst /* subtest number */
131: movl $2,_no_opr /* number of operands in use */
132: movl $SRC1L1,_opr /* first operand */
133: movl $SRC2L1,_opr + 4 /* second operand */
134: 0: movl $SRC1L1,tloc1 /*tloc1 = source1 */
135: movl $SRC2L1,tloc2 /*tloc2 = source2 */
136: bicpsw $PSWMASK /*disable overflow & other enable bits */
137: bispsw $(N|V|C) /*turn neg, overflow, & carry ON */
138: cmpl tloc1,tloc2 /*execute compare mem to mem */
139: bneq error1 /*error if Z = 0 */
140: blss error1 /*error if N = 1 */
141: bvs error1 /*error if V = 1 */
142: bcc error1 /*error if C = 0 */
143: jmp 1f
144: error1: movpsl _actual /* actual data = psl MAYBE is incorrect */
145: bbs $0,_scoplp,0b /* if set scope loop on error */
146: movl $2,_ercode /* error code flag failure */
147: jmp *badrtn
148: 1: bicpsw $Z /*clear Z flag */
149: cmpl $SRC1L1,tloc1 /*check tloc1 & tlco2 unchanged */
150: jeql 1f
151: bbs $0,_scoplp,0b /* if set scope loop on error */
152: movl $3,_ercode /* error code operand was changed */
153: movl tloc1,_actual /* actual data */
154: movl $SRC1L1,_expected /* expected data */
155: jmp *badrtn
156: 1: bicpsw $Z
157: cmpl $SRC2L1,tloc2
158: jeql c2
159: bbs $0,_scoplp,0b /* if set scope loop on error */
160: movl $3,_ercode /* error code operand was changed */
161: movl tloc2,_actual /* actual data */
162: movl $SRC2L1,_expected /* expected data */
163: jmp *badrtn
164: /* */
165: /* different patterns for source1 & source2 */
166: /* */
167: c2:
168: bbs $0,_force_lp,0b /* if set loop on last subtest */
169: ac2: callf $4,_setjmp /* save context for error return */
170: movab ac2,_stpc /* save address of subtest start */
171: movl $2,_subtst /* subtest number */
172: movl $2,_no_opr /* number of operands in use */
173: movl $SRC1L2,_opr /* first operand */
174: movl $SRC2L2,_opr + 4 /* second operand */
175: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
176: movl $SRC1L2,r3 /*tloc1 = source1 */
177: movl $SRC2L2,tloc2 /*tloc2 = source2 */
178: bispsw $(N|V|C) /*turn neg, overflow, & carry ON */
179: cmpl r3,tloc2 /*execute compare reg to mem */
180: bneq error2 /*error if Z = 0 */
181: blss error2 /*error if N = 1 */
182: bvs error2 /*error if V = 1 */
183: bcc error2 /*error if C = 0 */
184: jmp cmplnc
185: error2: movpsl _actual /* actual data = psl MAYBE is incorrect */
186: bbs $0,_scoplp,0b /* if set scope loop on error */
187: movl $2,_ercode /* error code flag failure */
188: jmp *badrtn
189:
190: cmplnc:
191:
192: bbs $0,_force_lp,0b /* if set loop on last subtest */
193: ac3: callf $4,_setjmp /* save context for error return */
194: movab ac3,_stpc /* save address of subtest start */
195: movl $3,_subtst /* subtest number */
196: movl $2,_no_opr /* number of operands in use */
197: movl $SRC1L3,_opr /* first operand */
198: movl $SRC2L3,_opr + 4 /* second operand */
199: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
200: movl $SRC1L3,tloc1 /*tloc1 = source1 */
201: movl $SRC2L3,r4 /*tloc2 = source2 */
202: bispsw $(Z|V) /*turn overflow, & zero ON */
203: cmpl tloc1,r4 /*execute compare memory to reg4 */
204: beql error3 /*error if Z = 1 */
205: bgeq error3 /*error if N = 0 */
206: bvs error3 /*error if V = 1 */
207: bcs error3 /*error if C = 1 */
208: jmp c4
209: error3: movpsl _actual /* actual data = psl MAYBE is incorrect */
210: bbs $0,_scoplp,0b /* if set scope loop on error */
211: movl $2,_ercode /* error code flag failure */
212: jmp *badrtn
213: /* */
214: /* different patterns for source1 & source2 */
215: /* */
216: c4:
217: bbs $0,_force_lp,0b /* if set loop on last subtest */
218: ac4: callf $4,_setjmp /* save context for error return */
219: movab ac4,_stpc /* save address of subtest start */
220: movl $4,_subtst /* subtest number */
221: movl $2,_no_opr /* number of operands in use */
222: movl $SRC1L4,_opr /* first operand */
223: movl $SRC2L4,_opr + 4 /* second operand */
224: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
225: movl $SRC1L4,r3 /*tloc1 = source1 */
226: movl $SRC2L4,r4 /*tloc2 = source2 */
227: bispsw $(Z|V) /*turn overflow, & zero ON */
228: cmpl r3,r4 /*execute compare reg to reg */
229: beql error4 /*error if Z = 1 */
230: bgeq error4 /*error if N = 0 */
231: bvs error4 /*error if V = 1 */
232: bcs error4 /*error if C = 1 */
233: jmp cmpln
234: error4: movpsl _actual /* actual data = psl MAYBE is incorrect */
235: bbs $0,_scoplp,0b /* if set scope loop on error */
236: movl $2,_ercode /* error code flag failure */
237: jmp *badrtn
238:
239:
240: cmpln:
241: bbs $0,_force_lp,0b /* if set loop on last subtest */
242: ac5: callf $4,_setjmp /* save context for error return */
243: movab ac5,_stpc /* save address of subtest start */
244: movl $5,_subtst /* subtest number */
245: movl $2,_no_opr /* number of operands in use */
246: movl $SRC1L5,_opr /* first operand */
247: movl $SRC2L5,_opr + 4 /* second operand */
248: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
249: movl $SRC1L5,tloc1 /*tloc1 = source1 */
250: movl $SRC2L5,tloc2 /*tloc2 = source2 */
251: bispsw $(Z|V|C) /*turn zero, overflow, & carry ON */
252: cmpl tloc1,tloc2 /*execute compare */
253: beql error5 /*error if Z = 1 */
254: bgeq error5 /*error if N = 0 */
255: bvs error5 /*error if V = 1 */
256: bcc error5 /*error if C = 0 */
257: jmp c6
258: error5: movpsl _actual /* actual data = psl MAYBE is incorrect */
259: bbs $0,_scoplp,0b /* if set scope loop on error */
260: movl $2,_ercode /* error code flag failure */
261: jmp *badrtn
262: /* */
263: /* different patterns for source1 & source2 */
264: /* */
265: c6:
266: bbs $0,_force_lp,0b /* if set loop on last subtest */
267: ac6: callf $4,_setjmp /* save context for error return */
268: movab ac6,_stpc /* save address of subtest start */
269: movl $6,_subtst /* subtest number */
270: movl $2,_no_opr /* number of operands in use */
271: movl $SRC1L6,_opr /* first operand */
272: movl $SRC2L6,_opr + 4 /* second operand */
273: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
274: movl $SRC1L6,tloc1 /*tloc1 = source1 */
275: movl $SRC2L6,tloc2 /*tloc2 = source2 */
276: bispsw $(Z|V|C) /*turn zero, overflow, & carry ON */
277: cmpl tloc1,tloc2 /*execute compare */
278: beql error6 /*error if Z = 1 */
279: bgeq error6 /*error if N = 0 */
280: bvs error6 /*error if V = 1 */
281: bcc error6 /*error if C = 0 */
282: jmp c7
283: error6: movpsl _actual /* actual data = psl MAYBE is incorrect */
284: bbs $0,_scoplp,0b /* if set scope loop on error */
285: movl $2,_ercode /* error code flag failure */
286: jmp *badrtn
287: /* */
288: /* different patterns for source1 & source2 */
289: /* */
290: c7:
291: bbs $0,_force_lp,0b /* if set loop on last subtest */
292: ac7: callf $4,_setjmp /* save context for error return */
293: movab ac7,_stpc /* save address of subtest start */
294: movl $7,_subtst /* subtest number */
295: movl $2,_no_opr /* number of operands in use */
296: movl $SRC1L7,_opr /* first operand */
297: movl $SRC2L7,_opr + 4 /* second operand */
298: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
299: movl $SRC1L7,tloc1 /*tloc1 = source1 */
300: movl $SRC2L7,tloc2 /*tloc2 = source2 */
301: bispsw $(Z|V|C) /*turn zero, overflow, & carry ON */
302: cmpl tloc1,tloc2 /*execute compare */
303: beql error7 /*error if Z = 1 */
304: bgeq error7 /*error if N = 0 */
305: bvs error7 /*error if V = 1 */
306: bcc error7 /*error if C = 0 */
307: jmp cmplc
308: error7: movpsl _actual /* actual data = psl MAYBE 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:
313: cmplc:
314: bbs $0,_force_lp,0b /* if set loop on last subtest */
315: ac8: callf $4,_setjmp /* save context for error return */
316: movab ac8,_stpc /* save address of subtest start */
317: movl $8,_subtst /* subtest number */
318: movl $2,_no_opr /* number of operands in use */
319: movl $SRC1L8,_opr /* first operand */
320: movl $SRC2L8,_opr + 4 /* second operand */
321: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
322: movl $SRC1L8,tloc1 /*tloc1 = source1 */
323: movl $SRC2L8,tloc2 /*tloc2 = source2 */
324: bispsw $(Z|V|N) /*turn zero, overflow, & neg ON */
325: cmpl tloc1,tloc2 /*execute compare */
326: beql error8 /*error if Z = 1 */
327: blss error8 /*error if N = 1 */
328: bvs error8 /*error if V = 1 */
329: bcs error8 /*error if C = 1 */
330: jmp c9
331: error8: movpsl _actual /* actual data = psl MAYBE is incorrect */
332: bbs $0,_scoplp,0b /* if set scope loop on error */
333: movl $2,_ercode /* error code flag failure */
334: jmp *badrtn
335: /* */
336: /* different patterns for source1 & source2 */
337: /* */
338: c9:
339: bbs $0,_force_lp,0b /* if set loop on last subtest */
340: ac9: callf $4,_setjmp /* save context for error return */
341: movab ac9,_stpc /* save address of subtest start */
342: movl $9,_subtst /* subtest number */
343: movl $2,_no_opr /* number of operands in use */
344: movl $SRC1L9,_opr /* first operand */
345: movl $SRC2L9,_opr + 4 /* second operand */
346: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
347: movl $SRC1L9,tloc1 /*tloc1 = source1 */
348: movl $SRC2L9,tloc2 /*tloc2 = source2 */
349: bispsw $(Z|V|N) /*turn zero, overflow, & neg ON */
350: cmpl tloc1,tloc2 /*execute compare */
351: beql error9 /*error if Z = 1 */
352: blss error9 /*error if N = 1 */
353: bvs error9 /*error if V = 1 */
354: bcs error9 /*error if C = 1 */
355: jmp c10
356: error9: movpsl _actual /* actual data = psl MAYBE is incorrect */
357: bbs $0,_scoplp,0b /* if set scope loop on error */
358: movl $2,_ercode /* error code flag failure */
359: jmp *badrtn
360: /* */
361: /* different patterns for source1 & source2 */
362: /* */
363: c10:
364: bbs $0,_force_lp,0b /* if set loop on last subtest */
365: ac10: callf $4,_setjmp /* save context for error return */
366: movab ac10,_stpc /* save address of subtest start */
367: movl $0xa,_subtst /* subtest number */
368: movl $2,_no_opr /* number of operands in use */
369: movl $SRC1L10,_opr /* first operand */
370: movl $SRC2L10,_opr + 4 /* second operand */
371: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
372: movl $SRC1L10,tloc1 /*tloc1 = source1 */
373: movl $SRC2L10,tloc2 /*tloc2 = source2 */
374: bispsw $(Z|V|N) /*turn zero, overflow, & neg ON */
375: cmpl tloc1,tloc2 /*execute compare */
376: jeql error10 /*error if Z = 1 */
377: jlss error10 /*error if N = 1 */
378: jvs error10 /*error if V = 1 */
379: jcs error10 /*error if C = 1 */
380: jmp cmploff
381: error10: movpsl _actual /* actual data = psl MAYBE is incorrect */
382: bbs $0,_scoplp,0b /* if set scope loop on error */
383: movl $2,_ercode /* error code flag failure */
384: jmp *badrtn
385:
386: cmploff:
387: bbs $0,_force_lp,0b /* if set loop on last subtest */
388: ac11: callf $4,_setjmp /* save context for error return */
389: movab ac11,_stpc /* save address of subtest start */
390: movl $0xb,_subtst /* subtest number */
391: movl $2,_no_opr /* number of operands in use */
392: movl $SRC1L11,_opr /* first operand */
393: movl $SRC2L11,_opr + 4 /* second operand */
394: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
395: movl $SRC1L11,tloc1 /*tloc1 = source1 */
396: movl $SRC2L11,tloc2 /*tloc2 = source2 */
397: bispsw $(Z|N|V|C) /*turn Z, neg, overflow, & carry ON */
398: cmpl tloc1,tloc2 /*execute compare */
399: beql error11 /*error if Z = 1 */
400: blss error11 /*error if N = 1 */
401: bvs error11 /*error if V = 1 */
402: bcc error11 /*error if C = 0 */
403: jmp cmploff1
404: jmp cmploff
405: error11: movpsl _actual /* actual data = psl MAYBE is incorrect */
406: bbs $0,_scoplp,0b /* if set scope loop on error */
407: movl $2,_ercode /* error code flag failure */
408: jmp *badrtn
409:
410: cmploff1:
411: bbs $0,_force_lp,0b /* if set loop on last subtest */
412: ac12: callf $4,_setjmp /* save context for error return */
413: movab ac12,_stpc /* save address of subtest start */
414: movl $0xc,_subtst /* subtest number */
415: movl $2,_no_opr /* number of operands in use */
416: movl $SRC1L12,_opr /* first operand */
417: movl $SRC2L12,_opr + 4 /* second operand */
418: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
419: movl $SRC1L12,tloc1 /*tloc1 = source1 */
420: movl $SRC2L12,tloc2 /*tloc2 = source2 */
421: bispsw $(Z|N|V|C) /*turn Z, neg, overflow, & carry ON */
422: cmpl tloc1,tloc2 /*execute compare */
423: beql error12 /*error if Z = 1 */
424: blss error12 /*error if N = 1 */
425: bvs error12 /*error if V = 1 */
426: bcc error12 /*error if C = 0 */
427: jmp aldn
428: error12: movpsl _actual /* actual data = psl MAYBE is incorrect */
429: bbs $0,_scoplp,0b /* if set scope loop on error */
430: movl $2,_ercode /* error code flag failure */
431: jmp *badrtn
432: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */
433: jmp *return /* good, return to monitor */
434:
435:
436: /* Variables */
437: .align 2
438: tloc1: .space 4
439: tloc2: .space 4
440:
441: /* end of file */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.