![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tst_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 tst_w.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 root 1:
2:
3:
4:
5:
6: /* TESTW (test word) test */
7:
8: /*Test name = tstw */
9: /*Description = */
10: /* This test checks "tstw" instruction to see that */
11: /* (1)Z, V, & C flags are set to zero (src < 0) & N = 1 */
12: /* (2)N, V, & C flags are set to zero (src = 0) & Z = 1 */
13: /* (3)all the flags are zero (src > 0). */
14: /* Register 1 (r1) & memory location tmloc(lebel) are used as */
15: /* src(source). */
16: /* */
17: /* Constants definition */
18: /* */
19: .set IPL,8
20: .set HIGH,31
21: .set ZERO,0
22: .set ONES,0xffffffff
23: .set N,8
24: .set Z,4
25: .set V,2
26: .set C,1
27: .set PSWMASK,0x003f
28: .set SRCB1,0xff
29: .set SRCW1,0xffff
30: .set SRCL1,0xffffffff
31: .set SRCB2,0
32: .set SRCW2,0
33: .set SRCL2,0
34: .set SRCB3,1
35: .set SRCW3,1
36: .set SRCL3,1
37:
38: .globl _tst_w
39: _tst_w:
40: callf $4,_setjmp /* save context for error return */
41: movab _tst_w,_stpc /* starting address of subtest */
42: movl $1,_subtst /* subtest number */
43: movl $1,_no_opr /* number of operands in use */
44: movl $SRCW1,_opr /* first operand */
45: 0: movl $SRCW1,r3 /*r3 = source */
46: bispsw $(Z|V|C) /*turn zero, overflow, & carry ON */
47: tstw r3 /*execute "tstw" */
48: beql error1 /*error if Z = 1 */
49: blss error1 /*error if N = 1 */
50: bvs error1 /*error if V = 1 */
51: bcc error1 /*error if C = 0 */
52: jmp t2
53: error1: movpsl _actual /* actual = psl is incorrect */
54: bbs $0,_scoplp,0b /* if set scope loop on error */
55: movl $2,_ercode /* error code flag failure */
56: jmp *badrtn
57: /* */
58: /* Now try src = 0 */
59: /* */
60: t2:
61: bbs $0,_force_lp,0b /* if set loop on last subtest */
62: at2: callf $4,_setjmp /* save context for error return */
63: movab at2,_stpc /* starting address of subtest */
64: movl $2,_subtst /* subtest number */
65: movl $1,_no_opr /* number of operands in use */
66: movl $SRCW2,_opr /* first operand */
67: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
68: movl $SRCW2,r3 /*r3 = source */
69: bispsw $(N|V|C) /*turn neg, overflow, & carry ON */
70: tstw r3 /*execute "tstw" */
71: bneq error2 /*error if Z = 0 */
72: blss error2 /*error if N = 1 */
73: bvs error2 /*error if V = 1 */
74: bcc error2 /*error if C = 0 */
75: jmp t3
76: error2: movpsl _actual /* actual = psl is incorrect */
77: bbs $0,_scoplp,0b /* if set scope loop on error */
78: movl $2,_ercode /* error code flag failure */
79: jmp *badrtn
80: /* */
81: /* Now try src > 0 */
82: /* */
83:
84: t3:
85: bbs $0,_force_lp,0b /* if set loop on last subtest */
86: at3: callf $4,_setjmp /* save context for error return */
87: movab at3,_stpc /* starting address of subtest */
88: movl $3,_subtst /* subtest number */
89: movl $1,_no_opr /* number of operands in use */
90: movl $SRCW3,_opr /* first operand */
91: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
92: movl $SRCW3,r3 /*r3 = source */
93: bispsw $(Z|N|V|C) /*turn zero, neg, overflow, & carry ON */
94: tstw r3 /*execute "tstw" */
95: beql error3 /*error if Z = 1 */
96: blss error3 /*error if N = 1 */
97: bvs error3 /*error if V = 1 */
98: bcc error3 /*error if C = 0 */
99: jmp tstwm
100: error3: movpsl _actual /* actual = psl is incorrect */
101: bbs $0,_scoplp,0b /* if set scope loop on error */
102: movl $2,_ercode /* error code flag failure */
103: jmp *badrtn
104:
105: /* */
106: /* Now use memory location(tmloc) instead of r3 */
107: /* */
108: tstwm:
109: bbs $0,_force_lp,0b /* if set loop on last subtest */
110: at4: callf $4,_setjmp /* save context for error return */
111: movab at4,_stpc /* starting address of subtest */
112: movl $4,_subtst /* subtest number */
113: movl $1,_no_opr /* number of operands in use */
114: movl $SRCW1,_opr /* first operand */
115: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
116: movl $SRCW1,tmloc /*tmloc = source */
117: bispsw $(Z|V|C) /*turn zero, overflow, & carry ON */
118: tstw tmloc+2 /*execute "tstw" */
119: beql error4 /*error if Z = 1 */
120: bgeq error4 /*error if N = 0 */
121: bvs error4 /*error if V = 1 */
122: bcc error4 /*error if C = 0 */
123: jmp t5
124: error4: movpsl _actual /* actual = psl is incorrect */
125: bbs $0,_scoplp,0b /* if set scope loop on error */
126: movl $2,_ercode /* error code flag failure */
127: jmp *badrtn
128: /* */
129: /* Now try src = 0 */
130: /* */
131: t5:
132: bbs $0,_force_lp,0b /* if set loop on last subtest */
133: at5: callf $4,_setjmp /* save context for error return */
134: movab at5,_stpc /* starting address of subtest */
135: movl $5,_subtst /* subtest number */
136: movl $1,_no_opr /* number of operands in use */
137: movl $SRCW2,_opr /* first operand */
138: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
139: bispsw $(N|V|C) /*turn neg, overflow, & carry ON */
140: tstw $SRCW2 /*execute "tstw" immediate data */
141: bneq error5 /*error if Z = 0 */
142: blss error5 /*error if N = 1 */
143: bvs error5 /*error if V = 1 */
144: bcc error5 /*error if C = 0 */
145: jmp t6
146: error5: movpsl _actual /* actual = psl is incorrect */
147: bbs $0,_scoplp,0b /* if set scope loop on error */
148: movl $2,_ercode /* error code flag failure */
149: jmp *badrtn
150: /* */
151: /* Now try src > 0 */
152: /* */
153:
154: t6:
155: bbs $0,_force_lp,0b /* if set loop on last subtest */
156: at6: callf $4,_setjmp /* save context for error return */
157: movab at6,_stpc /* starting address of subtest */
158: movl $6,_subtst /* subtest number */
159: movl $1,_no_opr /* number of operands in use */
160: movl $SRCW3,_opr /* first operand */
161: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
162: movl $SRCW3,tmloc /*tmloc = source */
163: bispsw $(Z|N|V|C) /*turn zero, neg, overflow, & carry ON */
164: tstw tmloc+2 /*execute "tstw" */
165: beql error6 /*error if Z = 1 */
166: blss error6 /*error if N = 1 */
167: bvs error6 /*error if V = 1 */
168: bcc error6 /*error if C = 0 */
169: jmp aldn
170: error6: movpsl _actual /* actual = psl is incorrect */
171: bbs $0,_scoplp,0b /* if set scope loop on error */
172: movl $2,_ercode /* error code flag failure */
173: jmp *badrtn
174:
175:
176: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */
177: jmp *return /* good, return to monitor */
178:
179:
180: /* */
181: /* Variables */
182: /* */
183: .align 2
184: tmloc: .space 4
185:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.