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