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