![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tst_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 tst_l.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 root 1:
2:
3:
4: /* TESTL (test long) test */
5:
6: /*Test name = tstl */
7: /*Description = */
8: /* This test checks "tstl" 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_l
37: _tst_l:
38: callf $4,_setjmp /* save context for error return */
39: movab _tst_l,_stpc /* save subtest starting address */
40: movl $1,_subtst /* subtest number */
41: movl $1,_no_opr /* number of operands in use */
42: movl $SRCL1,_opr /* first operand in use */
43: 0: movl $SRCL1,r3 /*r3 = source */
44: bispsw $(Z|V|C) /*turn zero, overflow, & carry ON */
45: tstl r3 /*execute "tstl" */
46: beql error1 /*error if Z = 1 */
47: bgeq error1 /*error if N = 0 */
48: bvs error1 /*error if V = 1 */
49: bcc error1 /*error if C = 0 */
50: jmp t2 /* if no error continue */
51: error1: movpsl _actual /* actual = psl it is incorrect */
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 subtest starting address */
62: movl $2,_subtst /* subtest number */
63: movl $1,_no_opr /* number of operands in use */
64: movl $SRCL2,_opr /* first operand in use */
65: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
66: movl $SRCL2,r3 /*r3 = source */
67: bispsw $(N|V|C) /*turn neg, overflow, & carry ON */
68: tstl r3 /*execute "tstl" */
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 no error continue */
74: error2: movpsl _actual /* actual = psl it is incorrect */
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 subtest starting address */
86: movl $3,_subtst /* subtest number */
87: movl $1,_no_opr /* number of operands in use */
88: movl $SRCL3,_opr /* first operand in use */
89: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
90: movl $SRCL3,r3 /*r3 = source */
91: bispsw $(Z|N|V|C) /*turn zero, neg, overflow, & carry ON */
92: tstl r3 /*execute "tstl" */
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 tstlm /* if no error continue */
98: error3: movpsl _actual /* actual = psl it is incorrect */
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: tstlm:
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 subtest starting address */
110: movl $4,_subtst /* subtest number */
111: movl $1,_no_opr /* number of operands in use */
112: movl $SRCL1,_opr /* first operand in use */
113: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
114: bispsw $(Z|V|C) /*turn zero, overflow, & carry ON */
115: tstl $SRCL1 /*execute "tstl" immediate data */
116: beql error4 /*error if Z = 1 */
117: bgeq error4 /*error if N = 0 */
118: bvs error4 /*error if V = 1 */
119: bcc error4 /*error if C = 0 */
120: jmp t5 /* if no error continue */
121: error4: movpsl _actual /* actual = psl it is incorrect */
122: bbs $0,_scoplp,0b /* if set scope loop on error */
123: movl $2,_ercode /* error code flag failure */
124: jmp *badrtn
125: /* */
126: /* Now try src = 0 */
127: /* */
128: t5:
129: bbs $0,_force_lp,0b /* if set loop on last subtest */
130: at5: callf $4,_setjmp /* save context for error return */
131: movab at5,_stpc /* save subtest starting address */
132: movl $5,_subtst /* subtest number */
133: movl $1,_no_opr /* number of operands in use */
134: movl $SRCL2,_opr /* first operand in use */
135: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
136: movl $SRCL2,tmloc /*tmloc = source */
137: bispsw $(N|V|C) /*turn neg, overflow, & carry ON */
138: tstl tmloc /*execute "tstl" */
139: bneq error5 /*error if Z = 0 */
140: blss error5 /*error if N = 1 */
141: bvs error5 /*error if V = 1 */
142: bcc error5 /*error if C = 0 */
143: jmp t6 /* if no error continue */
144: error5: movpsl _actual /* actual = psl it 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: /* */
149: /* Now try src > 0 */
150: /* */
151:
152: t6:
153: bbs $0,_force_lp,0b /* if set loop on last subtest */
154: at6: callf $4,_setjmp /* save context for error return */
155: movab at6,_stpc /* save subtest starting address */
156: movl $6,_subtst /* subtest number */
157: movl $1,_no_opr /* number of operands in use */
158: movl $SRCL3,_opr /* first operand in use */
159: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */
160: movl $SRCL3,tmloc /*tmloc = source */
161: bispsw $(Z|N|V|C) /*turn zero, neg, overflow, & carry ON */
162: tstl tmloc /*execute "tstl" */
163: beql error6 /*error if Z = 1 */
164: blss error6 /*error if N = 1 */
165: bvs error6 /*error if V = 1 */
166: bcc error6 /*error if C = 0 */
167: jmp aldn /* if no error continue */
168: error6: movpsl _actual /* actual = psl it is incorrect */
169: bbs $0,_scoplp,0b /* if set scope loop on error */
170: movl $2,_ercode /* error code flag failure */
171: jmp *badrtn
172:
173: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */
174: jmp *return /* good, return to monitor */
175:
176: /* */
177: /* Variables */
178: /* */
179: .align 2
180: tmloc: .space 4
181:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.