![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pushal.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 pushal.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 root 1: /* PUSHAL instruction test */
2: # R2 : error code
3: # 1 : error in flags
4: # 2 : result is not as expected
5: # 3 : Stack did not decrement as expected
6:
7: .set IPL,8
8: .set MAPEN,9
9: .set KSP,19
10:
11: /* PSL fields */
12: .set IV,32
13: .set T,16
14: .set N,8
15: .set Z,4
16: .set V,2
17: .set C,1
18:
19: /* constants */
20: .set DISABLE,0
21: .set ENABLE,1
22: .set MAXPOSL,0x7fffffff
23: .set MAXNEGL,0x80000000
24: .set HIGH,31 /* highest interrupt priority */
25: .set DISP,2
26: .set LONG,4
27: .set WORD,2
28: .set BYTE,1
29:
30: .globl _pushal
31: _pushal:
32: callf $4,_setjmp /* save context for error return */
33: movab _pushal,_stpc /* save starting address of subtest */
34: movl $1,_subtst /* subtest number */
35: movl $1,_no_opr /* number of operands in use */
36: movab tstloc,_opr /* first operand */
37: 0: bicpsw $(IV|T) /* disable exceptions */
38: /* MOVE ADDRESS FROM MEMORY TO STACK(R14) */
39: movab stk,r14 /* initialize stack */
40: movab stk,r10
41: bispsw $(N|Z|V) /* set n,z,v flags */
42: bicpsw $Z
43: pushal tstloc /* push address tstloc on stack */
44: jlss error1 /* error if any of the n,z,v */
45: jeql error1 /* flags still set */
46: jvs error1
47: jcc error1 /* error if c flag clear */
48: jmp 1f
49: error1: movpsl _actual /* actual = psl maybe incorrect */
50: bbs $0,_scoplp,0b /* if set scope loop on error */
51: movl $2,_ercode /* error code flag miscompare */
52: jmp *badrtn
53: 1: cmpl (r14),result /* check if stack has valid adr */
54: jeql 1f
55: bbs $0,_scoplp,0b /* if set scope loop on error */
56: movl $1,_ercode /* error code data miscompare */
57: movl (r14),_actual /* actual data */
58: movl result,_expected /* expected data */
59: jmp *badrtn
60: 1: movab (r14),r13
61: decl r10
62: decl r10
63: decl r10
64: decl r10
65: cmpl r10,r13 /* check if stack get decrement */
66: jeql p2
67: bbs $0,_scoplp,0b /* if set scope loop on error */
68: movl $1,_ercode /* error code data miscompare */
69: movl r10,_actual /* actual data */
70: movl r13,_expected /* expected data */
71: jmp *badrtn
72: /* MOVE ADDRESS FROM REGISTER TO STACK */
73: p2:
74: bbs $0,_force_lp,0b /* if set loop on last subtest */
75: ap2: callf $4,_setjmp /* save context for error return */
76: movab ap2,_stpc /* save starting address of subtest */
77: movl $2,_subtst /* subtest number */
78: movl $1,_no_opr /* number of operands in use */
79: movl result,_opr /* first operand */
80: 0: movl result,r12 /* set r12 = address of tstloc */
81: pushal (r12) /* push address in r12 on stack */
82: movab (r14),r13
83: decl r10
84: decl r10
85: decl r10
86: decl r10
87: cmpl r10,r13
88: jeql 1f
89: bbs $0,_scoplp,0b /* if set scope loop on error */
90: movl $1,_ercode /* error code data miscompare */
91: movl r10,_actual /* actual data */
92: movl r13,_expected /* expected data */
93: jmp *badrtn
94: 1: bicpsw $Z
95: cmpl (r14),result /* compare result */
96: jeql chkflag
97: bbs $0,_scoplp,0b /* if set scope loop on error */
98: movl $1,_ercode /* error code data miscompare */
99: movl (r14),_actual /* actual data */
100: movl result,_expected /* expected data */
101: jmp *badrtn
102: /* TESTING CONDITION FLAGS */
103: chkflag:
104: bbs $0,_force_lp,0b /* if set loop on last subtest */
105: ap3: callf $4,_setjmp /* save context for error return */
106: movab ap3,_stpc /* save starting address of subtest */
107: movl $3,_subtst /* subtest number */
108: movl $1,_no_opr /* number of operands in use */
109: movl $MAXNEGL,_opr /* first operand */
110: 0: movl $MAXNEGL,r13 /* set r13 = $MAXNEGL */
111: bispsw $(Z|V|C) /* set z,v,c flags */
112: bicpsw $N /* clear n flag */
113: pushal (r13) /* push adr. in r13 on stack */
114: jgeq error2 /* error if n flag clear */
115: jcc error2 /* error if c flag clear */
116: jeql error2 /* error if z flag still set */
117: jvs error2 /* error if v flag still set */
118: jmp 1f
119: error2: movpsl _actual /* actual = psl maybe incorrect */
120: bbs $0,_scoplp,0b /* if set scope loop on error */
121: movl $2,_ercode /* error code flag miscompare */
122: jmp *badrtn
123: 1: cmpl (r14),$MAXNEGL /* check address in temp */
124: jeql p4
125: bbs $0,_scoplp,0b /* if set scope loop on error */
126: movl $1,_ercode /* error code data miscompare */
127: movl (r14),_actual /* actual data */
128: movl $MAXNEGL,_expected /* expected data */
129: jmp *badrtn
130:
131: p4:
132: bbs $0,_force_lp,0b /* if set loop on last subtest */
133: ap4: callf $4,_setjmp /* save context for error return */
134: movab ap4,_stpc /* save starting address of subtest */
135: movl $4,_subtst /* subtest number */
136: movl $1,_no_opr /* number of operands in use */
137: movl $0,_opr /* first operand */
138: 0: movl $0,r11 /* set r11 = $0 */
139: bispsw $(N|V) /* set n,v flags */
140: bicpsw $(Z|C) /* clear z,c flag */
141: pushal (r11) /* push adr. in r11 on stack */
142: jneq error3 /* error if z flag clear */
143: jcc error3 /* error if c flag clear */
144: jlss error3 /* error if n flag still set */
145: jvs error3 /* error if v flag still set */
146: jmp 1f
147: error3: movpsl _actual /* actual = psl maybe incorrect */
148: bbs $0,_scoplp,0b /* if set scope loop on error */
149: movl $2,_ercode /* error code flag miscompare */
150: jmp *badrtn
151: 1: bicpsw $Z
152: cmpl (r14),$0 /* check address in temp */
153: jeql p5
154: bbs $0,_scoplp,0b /* if set scope loop on error */
155: movl $1,_ercode /* error code data miscompare */
156: movl (r14),_actual /* actual data */
157: movl $0,_expected /* expected data */
158: jmp *badrtn
159: /* CHECKING INDEXING MODE */
160: p5:
161: bbs $0,_force_lp,0b /* if set loop on last subtest */
162: ap5: callf $4,_setjmp /* save context for error return */
163: movab ap5,_stpc /* save starting address of subtest */
164: movl $5,_subtst /* subtest number */
165: movl $1,_no_opr /* number of operands in use */
166: movl tstloc,_opr /* first operand */
167: 0: movl $DISP,r0 /* set r0 = DISP = 2 */
168: bispsw $(N|Z|V) /* set n,z,v flags */
169: bicpsw $Z
170: pushal tstloc[r0] /* move address tstloc on stack */
171: jlss error4 /* error if any of the n,z,v */
172: jeql error4 /* flags still set */
173: jvs error4
174: jcc error4 /* error if c flag clear */
175: jmp 1f
176: error4: movpsl _actual /* actual = psl maybe incorrect */
177: bbs $0,_scoplp,0b /* if set scope loop on error */
178: movl $2,_ercode /* error code flag miscompare */
179: jmp *badrtn
180: 1: cmpl (r14),resul1 /* check if stack has valid adr */
181: jeql aldn
182: bbs $0,_scoplp,0b /* if set scope loop on error */
183: movl $1,_ercode /* error code data miscompare */
184: movl (r14),_actual /* actual data */
185: movl resul1,_expected /* expected data */
186: jmp *badrtn
187:
188: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */
189: jmp *return
190:
191: /* test data */
192: .align 2 /* align on longword boundery */
193: /* STACK SPACE */
194: .space 40 /* 10 long words for stack */
195: stk: .long 0
196: tstloc: .long 0
197: result: .long tstloc
198: resul1: .long tstloc+(DISP*LONG)
199: temp: .long 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.