![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to or_w2.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 or_w2.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 root 1:
2: /* ORW2 (or word 2 operand) test */
3:
4: /*Test name = orw2 */
5: /*Description = */
6: /* This test checks 'orw2' instruction as follows: */
7: /* destination = r1, memory location (dest) */
8: /* destination mask result Z N C V(flags) */
9: /* ___________ ____ _____ _____________ */
10: /* 0xaaaa 0xaaaa 0xaaaa 0 0 1 0 */
11: /* 0xaaaa 0x5555 0xffff 0 0 1 0 */
12: /* 0x0000 0x0000 0x0000 1 0 x 0 */
13: /* */
14: /* */
15: /* */
16: /* */
17: /* Constants */
18: /* */
19: .set VALUEB,0x555555aa
20: .set VALUEW,0X5555aaaa
21: .set VALUEL,0xaaaaaaaa
22: .set VALUE3B,0X00000000
23: .set VALUE3W,VALUE3B
24: .set VALUE3L,VALUE3B
25: .set MASK1B,0xaa
26: .set MASK1W,0xaaaa
27: .set MASK1L,0xaaaaaaaa
28: .set MASK2B,0x55
29: .set MASK2W,0x5555
30: .set MASK2L,0x55555555
31: .set MASK3B,0x00
32: .set MASK3W,0x0000
33: .set MASK3L,0x00000000
34: .set EXP1B,0x555555aa
35: .set EXP1W,0x5555aaaa
36: .set EXP1L,0xaaaaaaaa
37: .set EXP2B,0x555555ff
38: .set EXP2W,0x5555ffff
39: .set EXP2L,0xffffffff
40: .set EXP3B,0x00000000
41: .set EXP3W,EXP3B
42: .set EXP3L,EXP3B
43:
44: /* */
45: /* */
46: /* */
47: /* Syst.s - constants */
48: /* */
49: .set IPL,8
50: .set HIGH,31
51: .set ZERO,0
52: .set ONES,0xffffffff
53: .set N,8
54: .set Z,4
55: .set V,2
56: .set C,1
57: .set T,16
58: .set IV,32
59: .set FU,64
60: .set DV,128
61: .set PSWMASK,0x003f
62:
63: .globl _or_w2
64: _or_w2:
65: callf $4,_setjmp /* save context for error return */
66: movab _or_w2,_stpc /* save starting address of subtest */
67: movl $1,_subtst /* subtest number */
68: movl $2,_no_opr /* number of operands in use */
69: movl $MASK1W,_actual /* actual data */
70: movl $VALUEW,_expected /* expected data */
71: 0:
72: bicpsw $PSWMASK /*turn overflow enable bit off */
73: movl $VALUEW,r4 /*set r4 = 0xaaaa */
74: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */
75: orw2 $MASK1W,r4 /*mask r4 with 0xaaaa data to reg */
76: beql error1 /*error if Z = 1 */
77: blss error1 /*error if N = 1 */
78: bcc error1 /*error if C = 0 */
79: bvs error1 /*error if V = 1 */
80: jmp 1f
81: error1: movpsl _actual /* actual = psl may be incorrect */
82: bbs $0,_scoplp,0b /* if set scope loop on error */
83: movl $2,_ercode /* error code flag failure */
84: jmp *badrtn
85: 1: cmpl r4,$EXP1W /*if r4 <> expected, */
86: jeql o2 /* no error then continue */
87: bbs $0,_scoplp,0b /* if set scope loop on error */
88: movl $1,_ercode /* error code data miscompare */
89: movl r4,_actual /* actual data */
90: movl $EXP1W,_expected /* expected data */
91: jmp *badrtn
92:
93: /* Now try another mask(0x5555) reg to reg */
94: /* */
95: o2:
96: bbs $0,_force_lp,0b /* if set loop on last subtest */
97: ao2: callf $4,_setjmp /* save context for error return */
98: movab ao2,_stpc /* save starting address of subtest */
99: movl $2,_subtst /* subtest number */
100: movl $2,_no_opr /* number of operands in use */
101: movl $MASK2W,_actual /* actual data */
102: movl $VALUEW,_expected /* expected data */
103: 0: bicpsw $PSWMASK /*turn overflow enable bit off */
104: movl $VALUEW,r4 /*set r4 = 0xaaaa */
105: movl $MASK2W,r3 /* mask value in reg r3 */
106: bispsw $(Z|V) /*overflow & zero bits ON */
107: orw2 r3,r4 /*mask r4 with 0x5555 reg to reg */
108: beql error2 /*error if Z = 1 */
109: blss error2 /*error if N = 1 */
110: bcc error2 /*error if C = 0 */
111: bvs error2 /*error if V = 1 */
112: jmp 1f
113: error2: movpsl _actual /* actual = psl may be incorrect */
114: bbs $0,_scoplp,0b /* if set scope loop on error */
115: movl $2,_ercode /* error code flag failure */
116: jmp *badrtn
117: 1: cmpl r4,$EXP2W /*if r4 <> expected, */
118: jeql o3 /* no error then continue */
119: bbs $0,_scoplp,0b /* if set scope loop on error */
120: movl $1,_ercode /* error code data miscompare */
121: movl r4,_actual /* actual data */
122: movl $EXP2W,_expected /* expected data */
123: jmp *badrtn
124: /* */
125: /* Now try another mask(0x0000) & dest(0x0000) mem to reg */
126: /* */
127:
128: o3:
129: bbs $0,_force_lp,0b /* if set loop on last subtest */
130: ao3: callf $4,_setjmp /* save context for error return */
131: movab ao3,_stpc /* save starting address of subtest */
132: movl $3,_subtst /* subtest number */
133: movl $2,_no_opr /* number of operands in use */
134: movl $MASK3W,_actual /* actual data */
135: movl $VALUE3W,_expected /* expected data */
136: 0: bicpsw $PSWMASK /*turn overflow enable bit off */
137: movl $VALUE3W,r4 /*set r4 = 0x0000 */
138: movl $MASK3W,dest /* load mem loc with mask */
139: bispsw $(N|V) /*overflow & negetive bits ON */
140: orw2 dest,r4 /*mask r4 with 0x0000 mem to reg */
141: bneq error3 /*error if Z = 0 */
142: blss error3 /*error if N = 1 */
143: bcc error3 /*error if C = 0 */
144: bvs error3 /*error if V = 1 */
145: jmp 1f
146: error3: movpsl _actual /* actual = psl may be incorrect */
147: bbs $0,_scoplp,0b /* if set scope loop on error */
148: movl $2,_ercode /* error code flag failure */
149: jmp *badrtn
150: 1: cmpl r4,$EXP3W /*if r4 <> expected, */
151: jeql orw2m /* no error then continue */
152: bbs $0,_scoplp,0b /* if set scope loop on error */
153: movl $1,_ercode /* error code data miscompare */
154: movl r4,_actual /* actual data */
155: movl $EXP3W,_expected /* expected data */
156: jmp *badrtn
157:
158: /* */
159: /* Now use memory location instead of register as destination */
160: /* */
161: orw2m:
162: bbs $0,_force_lp,0b /* if set loop on last subtest */
163: ao4: callf $4,_setjmp /* save context for error return */
164: movab ao4,_stpc /* save starting address of subtest */
165: movl $4,_subtst /* subtest number */
166: movl $2,_no_opr /* number of operands in use */
167: movl $MASK1W,_actual /* actual data */
168: movl $VALUEW,_expected /* expected data */
169: 0: bicpsw $PSWMASK /*turn overflow enable bit off */
170: movl $VALUEW,dest /*set dest = 0xaaaa */
171: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */
172: orw2 $MASK1W,dest+2 /*mask dest with 0xaaaa data to mem */
173: beql error4 /*error if Z = 1 */
174: bgeq error4 /*error if N = 1 */
175: bcc error4 /*error if C = 0 */
176: bvs error4 /*error if V = 1 */
177: jmp 1f
178: error4: movpsl _actual /* actual = psl may be incorrect */
179: bbs $0,_scoplp,0b /* if set scope loop on error */
180: movl $2,_ercode /* error code flag failure */
181: jmp *badrtn
182: 1: cmpl dest,$EXP1W /*if dest <> expected, */
183: jeql o5 /* no error then continue */
184: bbs $0,_scoplp,0b /* if set scope loop on error */
185: movl $1,_ercode /* error code data miscompare */
186: movl dest,_actual /* actual data */
187: movl $EXP1W,_expected /* expected data */
188: jmp *badrtn
189:
190: /* Now try another mask(0x5555) reg to memory */
191: /* */
192:
193: o5:
194: bbs $0,_force_lp,0b /* if set loop on last subtest */
195: ao5: callf $4,_setjmp /* save context for error return */
196: movab ao5,_stpc /* save starting address of subtest */
197: movl $5,_subtst /* subtest number */
198: movl $2,_no_opr /* number of operands in use */
199: movl $MASK2W,_actual /* actual data */
200: movl $VALUEW,_expected /* expected data */
201: 0: bicpsw $PSWMASK /*turn overflow enable bit off */
202: movl $VALUEW,dest /*set dest = 0xaaaa */
203: movl $MASK2W,r3 /* reg 3 is mask reg */
204: bispsw $(Z|V) /*overflow & zero bits ON */
205: orw2 r3,dest+2 /*mask dest with 0x5555 reg to mem */
206: beql error5 /*error if Z = 1 */
207: bgeq error5 /*error if N = 1 */
208: bcc error5 /*error if C = 0 */
209: bvs error5 /*error if V = 1 */
210: jmp 1f
211: error5: movpsl _actual /* actual = psl may be incorrect */
212: bbs $0,_scoplp,0b /* if set scope loop on error */
213: movl $2,_ercode /* error code flag failure */
214: jmp *badrtn
215: 1: cmpl dest,$EXP2W /*if dest <> expected, */
216: jeql o6 /* no error then continue */
217: bbs $0,_scoplp,0b /* if set scope loop on error */
218: movl $1,_ercode /* error code data miscompare */
219: movl dest,_actual /* actual data */
220: movl $EXP2W,_expected /* expected data */
221: jmp *badrtn
222:
223:
224: /* */
225: /* Now try another mask(0x0000) & dest(0x0000) mem to mem */
226: /* */
227:
228: o6:
229: bbs $0,_force_lp,0b /* if set loop on last subtest */
230: ao6: callf $4,_setjmp /* save context for error return */
231: movab ao6,_stpc /* save starting address of subtest */
232: movl $6,_subtst /* subtest number */
233: movl $2,_no_opr /* number of operands in use */
234: movl $MASK3W,_actual /* actual data */
235: movl $VALUE3W,_expected /* expected data */
236: 0: bicpsw $PSWMASK /*turn overflow enable bit off */
237: movl $VALUE3W,dest /*set dest = 0x0000 */
238: movl $MASK3W,srce /* load location called source */
239: bispsw $(N|V) /*overflow & negetive bits ON */
240: orw2 srce,dest+2 /*mask dest with 0x0000 mem to mem */
241: jneq error6 /*error if Z = 0 */
242: jlss error6 /*error if N = 1 */
243: jcc error6 /*error if C = 0 */
244: jvs error6 /*error if V = 1 */
245: jmp 1f
246: error6: movpsl _actual /* actual = psl may be 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: cmpl dest,$EXP3W /*if dest <> expected, */
251: jeql aldn /* no error then continue */
252: bbs $0,_scoplp,0b /* if set scope loop on error */
253: movl $1,_ercode /* error code data miscompare */
254: movl dest,_actual /* actual data */
255: movl $EXP2W,_expected /* expected data */
256: jmp *badrtn
257:
258: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */
259: jmp *return /* good, return to monitor */
260:
261: /* */
262: /* variables */
263: /* */
264: .align 2
265: dest: .space 4
266: .align 2
267: srce: .space 4
268:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.