![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to bit_w.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 bit_w.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 root 1:
2: /* BITW (bit word) test */
3: /* */
4: /*Test name = bitw */
5: /*Description = */
6: /* This test checks 'bitw' instruction as follows: */
7: /* source mask N Z V C (flags) */
8: /* ______ ____ ______________ */
9: /* 0xaa 0x55 0 1 0 1 */
10: /* 0x55 0xaa 0 1 0 1 */
11: /* 0x80 0x80 0 0 0 1 */
12: /* R M --- */
13: /* M R --- */
14: /* */
15:
16: /* */
17: /* Constants definition for 'bit_x' tests */
18: /* */
19: .set SRCB1,0xaa
20: .set SRCW1,0xaaaa
21: .set SRCL1,0xaaaaaaaa
22: .set MASKB1,0x55
23: .set MASKW1,0x5555
24: .set MASKL1,0x55555555
25: .set SRCB2,MASKB1
26: .set SRCW2,MASKW1
27: .set SRCL2,MASKL1
28: .set MASKB2,SRCB1
29: .set MASKW2,SRCW1
30: .set MASKL2,SRCL1
31: .set SRCB3,0x80
32: .set SRCW3,0x8000
33: .set SRCL3,0x80000000
34: .set MASKB3,SRCB3
35: .set MASKW3,SRCW3
36: .set MASKL3,SRCL3
37: /* */
38: /* Syst.s - Constants */
39: /* */
40: .set IPL,8
41: .set HIGH,31
42: .set ZERO,0
43: .set ONES,0xffffffff
44: .set N,8
45: .set Z,4
46: .set V,2
47: .set C,1
48: .set T,16
49: .set IV,32
50: .set FU,64
51: .set DV,128
52: .set PSWMASK,0x003f
53:
54: .globl _bit_w
55: _bit_w:
56: callf $4,_setjmp /* save context for return from error */
57: movab _bit_w,_stpc /* save address of subtest */
58: movl $1,_subtst /* subtest number */
59: movl $2,_no_opr /* number of operands in use */
60: movl $MASKW1,_opr /* first operand */
61: movl $SRCW1,_opr + 4 /* second operand */
62: 0: bicpsw $PSWMASK /*clear overflow enable */
63: movl $SRCW1,r4 /*r4 = source */
64: movl $MASKW1,tloc /*tloc = mask */
65: bispsw $(N|V|C) /*neg,overflow, & carry ON */
66: bitw tloc+2,r4 /*tloc AND r4 mem to reg */
67: bneq error1 /*error if Z = 0 */
68: blss error1 /*error if N =1 */
69: bvs error1 /*error if V = 1 */
70: bcc error1 /*error if C = 0 */
71: jmp 1f
72: error1: movpsl _actual /* actual psl MAYBE it is incorrect */
73: bbs $0,_scoplp,0b /* if set loop on error */
74: movl $2,_ercode /* error code flag failure */
75: jmp *badrtn
76: 1: cmpl $SRCW1,r4 /*check source & mask are unchanged */
77: beql 1f /*error - source changed */
78: bbs $0,_scoplp,0b /* if set loop on error */
79: movl $3,_ercode /* error code operand was modified */
80: movl r4,_actual /* actual data */
81: movl $SRCW1,_expected /* expected data */
82: jmp *badrtn
83: 1: bicpsw $Z /*clear Z flag */
84: cmpl $MASKW1,tloc /* */
85: beql t2 /* if correct then continue */
86: bbs $0,_scoplp,0b /* if set loop on error */
87: movl $3,_ercode /* error code operand was modified */
88: movl tloc,_actual /* actual data */
89: movl $MASKW1,_expected /* expected data */
90: jmp *badrtn
91:
92: /* Now use different patterns for source & mask */
93:
94: t2: bbs $0,_force_lp,0b /* if set loop on last subtest */
95: st2: callf $4,_setjmp /* save context for return from error */
96: movab st2,_stpc /* save address of subtest */
97: movl $2,_subtst /* subtest number */
98: movl $2,_no_opr /* number of operands in use */
99: movl $MASKW2,_opr /* first operand */
100: movl $SRCW2,_opr + 4 /* second operand */
101: 0: bicpsw $PSWMASK /*clear overflow enable */
102: movl $SRCW2,tloc /*r1 = source */
103: movl $MASKW2,r3 /*tloc = mask data to memory */
104: bispsw $(N|V|C) /*neg,overflow, & carry ON */
105: bitw r3,tloc+2 /*r3 AND tloc reg to memory */
106: bneq error2 /*error if Z = 0 */
107: blss error2 /*error if N =1 */
108: bvs error2 /*error if V = 1 */
109: bcc error2 /*error if C = 0 */
110: jmp t3
111: error2: movpsl _actual /* actual psl MAYBE it is incorrect */
112: bbs $0,_scoplp,0b /* if set loop on error */
113: movl $2,_ercode /* error code flag failure */
114: jmp *badrtn
115:
116: /* Yet another patterns for source & mask */
117:
118: t3: bbs $0,_force_lp,0b /* if set loop on last subtest */
119: st3: callf $4,_setjmp /* save context for return from error */
120: movab st3,_stpc /* save address of subtest */
121: movl $3,_subtst /* subtest number */
122: movl $2,_no_opr /* number of operands in use */
123: movl $MASKW3,_opr /* first operand */
124: movl $SRCW3,_opr + 4 /* second operand */
125: 0: bicpsw $PSWMASK /*clear overflow enable */
126: movl $SRCW3,r4 /*r4 = source */
127: movl $MASKW3,r3 /*r3 = mask */
128: bispsw $(Z|V) /*zero, & overflow ON */
129: bitw r3,r4 /* r3 AND r4 register to register */
130: beql error3 /*error if Z = 1 */
131: blss error3 /*error if N =1 */
132: bvs error3 /*error if V = 1 */
133: bcc error3 /*error if C = 0 */
134: jmp bitwm
135: jmp t3
136: error3: movpsl _actual /* actual psl MAYBE it is incorrect */
137: bbs $0,_scoplp,0b /* if set loop on error */
138: movl $2,_ercode /* error code flag failure */
139: jmp *badrtn
140:
141:
142: /* */
143: /* Repeat the above with source = M, & mask = R */
144: /* */
145:
146: bitwm:
147: bbs $0,_force_lp,0b /* if set loop on last subtest */
148: st4: callf $4,_setjmp /* save context for return from error */
149: movab st4,_stpc /* save address of subtest */
150: movl $4,_subtst /* subtest number */
151: movl $2,_no_opr /* number of operands in use */
152: movl $MASKW1,_opr /* first operand */
153: movl $SRCW1,_opr + 4 /* second operand */
154: 0: bicpsw $PSWMASK /*clear overflow enable */
155: movl $MASKW1,r3 /*r3 = mask */
156: bispsw $(N|V|C) /*neg,overflow, & carry ON */
157: bitw r3,$SRCW1 /*r3 AND $SRCW1 reg to data */
158: bneq error4 /*error if Z = 0 */
159: blss error4 /*error if N =1 */
160: bvs error4 /*error if V = 1 */
161: bcc error4 /*error if C = 0 */
162: jmp 1f
163: error4: movpsl _actual /* actual psl MAYBE it is incorrect */
164: bbs $0,_scoplp,0b /* if set loop on error */
165: movl $2,_ercode /* error code flag failure */
166: jmp *badrtn
167: 1: bicpsw $Z /*clear Z flag */
168: cmpl $MASKW1,r3
169: beql t5 /*error - mask changed */
170: bbs $0,_scoplp,0b /* if set loop on error */
171: movl $3,_ercode /* error code operand was modified */
172: movl r3,_actual /* actual data */
173: movl $MASKW1,_expected /* expected data */
174: jmp *badrtn
175:
176: /* Now use different patterns for source & mask */
177:
178: t5: bbs $0,_force_lp,0b /* if set loop on last subtest */
179: st5: callf $4,_setjmp /* save context for return from error */
180: movab st5,_stpc /* save address of subtest */
181: movl $5,_subtst /* subtest number */
182: movl $2,_no_opr /* number of operands in use */
183: movl $MASKW2,_opr /* first operand */
184: movl $SRCW2,_opr + 4 /* second operand */
185: 0: bicpsw $PSWMASK /*clear overflow enable */
186: movl $SRCW2,tloc /*tloc = source */
187: movl $MASKW2,r4 /*r4 = mask */
188: bispsw $(N|V|C) /*neg,overflow, & carry ON */
189: bitw $SRCW2,r4 /* data AND tloc data to register */
190: jneq error5 /*error if Z = 0 */
191: jlss error5 /*error if N =1 */
192: jvs error5 /*error if V = 1 */
193: jcc error5 /*error if C = 0 */
194: jmp t6
195: error5: movpsl _actual /* actual psl MAYBE it is incorrect */
196: bbs $0,_scoplp,0b /* if set loop on error */
197: movl $2,_ercode /* error code flag failure */
198: jmp *badrtn
199:
200: /* Yet another patterns for source & mask */
201:
202: t6: bbs $0,_force_lp,0b /* if set loop on last subtest */
203: st6: callf $4,_setjmp /* save context for return from error */
204: movab st6,_stpc /* save address of subtest */
205: movl $6,_subtst /* subtest number */
206: movl $2,_no_opr /* number of operands in use */
207: movl $MASKW3,_opr /* first operand */
208: movl $SRCW3,_opr + 4 /* second operand */
209: 0: bicpsw $PSWMASK /*clear overflow enable */
210: movl $SRCW3,tloc /*tloc = source */
211: movl $MASKW3,tloc2 /*r1 = mask */
212: bispsw $(Z|V) /*zero, & overflow ON */
213: bitw tloc2+2,tloc+2 /*tloc2 AND tloc memory to memory */
214: jeql error6 /*error if Z = 1 */
215: jgeq error6 /*error if N =1 */
216: jvs error6 /*error if V = 1 */
217: jcc error6 /*error if C = 0 */
218: jmp t7
219: error6: movpsl _actual /* actual psl MAYBE it is incorrect */
220: bbs $0,_scoplp,0b /* if set loop on error */
221: movl $2,_ercode /* error code flag failure */
222: jmp *badrtn
223:
224: /* Yet another patterns for source & mask */
225:
226: t7: bbs $0,_force_lp,0b /* if set loop on last subtest */
227: st7: callf $4,_setjmp /* save context for return from error */
228: movab st7,_stpc /* save address of subtest */
229: movl $7,_subtst /* subtest number */
230: movl $2,_no_opr /* number of operands in use */
231: movl $MASKW3,_opr /* first operand */
232: movl $SRCW3,_opr + 4 /* second operand */
233: 0: bicpsw $PSWMASK /*clear overflow enable */
234: movl $SRCW3,tloc /*tloc = source */
235: bispsw $(Z|V) /*zero, & overflow ON */
236: bitw tloc+2,$MASKW3 /*tloc2 AND tloc memory to data */
237: jeql error7 /*error if Z = 1 */
238: jlss error7 /*error if N =1 */
239: jvs error7 /*error if V = 1 */
240: jcc error7 /*error if C = 0 */
241: jmp aldn
242: error7: movpsl _actual /* actual psl MAYBE it is incorrect */
243: bbs $0,_scoplp,0b /* if set loop on error */
244: movl $2,_ercode /* error code flag failure */
245: jmp *badrtn
246: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */
247: jmp *return /* good, return to monitor */
248:
249:
250: /* */
251: /* Variables */
252: /* */
253: .align 2
254: tloc: .space 4 /*test location */
255:
256: .align 2
257: tloc2:
258: .space 4
259:
260:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.