![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ca124.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 ca124.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 root 1:
2: /* andl3 mask,src,dest */
3: /* Combination = 1,2,4 */
4: /* mask src dest */
5: /* ---- --- ---- */
6: /* 1 2 4 */
7: /* 1 4 2 */
8: /* 2 1 4 */
9: /* 2 4 1 */
10: /* 4 1 2 */
11: /* 4 2 1 */
12: /* where 1 = register mode */
13: /* 2 = (register) mode */
14: /* 3 = immidiate mode */
15: /* 4 = longword displacement deferred mode */
16:
17: /* */
18: /* Syst.s - Constants */
19: /* */
20: .set IPL,8
21: .set HIGH,31
22: .set ZERO,0
23: .set ONES,0xffffffff
24: .set N,8
25: .set Z,4
26: .set V,2
27: .set C,1
28: .set T,16
29: .set IV,32
30: .set FU,64
31: .set DV,128
32: .set PSWMASK,0x003f
33:
34:
35: .globl _ca124
36: _ca124: callf $4,_setjmp /* save context */
37: movab _ca124,_stpc /* save subtest pc */
38: movl $1,_subtst /* subtest number */
39: movl $4,_no_opr /* number of operands used */
40: 0: bicpsw $PSWMASK
41: movl base_add,r5 /*address of add_table */
42: movl $0x55555555,r3 /*mask */
43: movl $0xaaaaaaaa,src
44: movl sa,r4 /*source */
45: movl $-1,dest
46: movl $3,r6 /*index for destination */
47: movl r3,_opr /* first operand */
48: movl r4,_opr + 4 /* second operand */
49: movl r5,_opr + 8 /* third operand */
50: movl r6,_opr + 12 /* fourth operand */
51: andl3 r3,(r4),*l^64020(r5)[r6]
52: cmpl $0,dest
53: beql 1f
54: er1: bbs $0,_scoplp,0b /* if set tight loop for scope */
55: movl $1,_ercode /* error code data miscompare */
56: movl dest,_actual /* actual data */
57: movl $0,_expected /* expected data */
58: jmp *badrtn /*error, mode = 124 */
59: 1: bbs $0,_force_lp,0b /* if set loop on last subtest */
60: 1: callf $4,_setjmp /* save context */
61: movab 1b,_stpc /* save subtest pc */
62: movl $2,_subtst /* subtest number */
63: movl $4,_no_opr /* number of operands used */
64: 0: movl $0x55555555,r3 /*mask */
65: movl $2,r6 /*index for source */
66: movl $0xaaaaaaaa,src /*source */
67: movl $-1,dest
68: movl da,r4 /*dest address */
69: movl r3,_opr /* first operand */
70: movl r5,_opr + 4 /* second operand */
71: movl r6,_opr + 8 /* third operand */
72: movl r4,_opr + 12 /* fourth operand */
73: andl3 r3,*l^64020(r5)[r6],(r4)
74: cmpl $0,dest
75: beql 2f
76: er2: bbs $0,_scoplp,0b /* if set tight loop for scope */
77: movl $1,_ercode /* error code data miscompare */
78: movl dest,_actual /* actual data */
79: movl $0,_expected /* expected data */
80: jmp *badrtn /*error - mode = 142 */
81: 2: bbs $0,_force_lp,0b /* if set loop on last subtest */
82: 2: callf $4,_setjmp /* save context */
83: movab 2b,_stpc /* save subtest pc */
84: movl $3,_subtst /* subtest number */
85: movl $4,_no_opr /* number of operands used */
86: 0: movl $0x55555555,mask
87: movl ma,r4 /*mask address */
88: movl $0xaaaaaaaa,r3 /*source */
89: movl $3,r6 /*index for destination */
90: movl $-1,dest
91: movl r4,_opr /* first operand */
92: movl r3,_opr + 4 /* second operand */
93: movl r5,_opr + 8 /* third operand */
94: movl r6,_opr + 12 /* fourth operand */
95: andl3 (r4),r3,*l^64020(r5)[r6]
96: cmpl $0,dest
97: beql 3f
98: er3: bbs $0,_scoplp,0b /* if set tight loop for scope */
99: movl $1,_ercode /* error code data miscompare */
100: movl dest,_actual /* actual data */
101: movl $0,_expected /* expected data */
102: jmp *badrtn /*error - mode = 214 */
103:
104: 3: bbs $0,_force_lp,0b /* if set loop on last subtest */
105: 3: callf $4,_setjmp /* save context */
106: movab 3b,_stpc /* save subtest pc */
107: movl $4,_subtst /* subtest number */
108: movl $4,_no_opr /* number of operands used */
109: 0: movl $0x55555555,mask
110: movl ma,r4 /*mask address */
111: movl $-1,r3 /*destination */
112: movl $2,r6 /*index for source */
113: movl $0xaaaaaaaa,src
114: movl r4,_opr /* first operand */
115: movl r5,_opr + 4 /* second operand */
116: movl r6,_opr + 8 /* third operand */
117: movl r3,_opr + 12 /* fourth operand */
118: andl3 (r4),*l^64020(r5)[r6],r3
119: cmpl $0,r3
120: beql 4f
121: er4: bbs $0,_scoplp,0b /* if set tight loop for scope */
122: movl $1,_ercode /* error code data miscompare */
123: movl r3,_actual /* actual data */
124: movl $0,_expected /* expected data */
125: jmp *badrtn /*error - mode = 241 */
126: 4: bbs $0,_force_lp,0b /* if set loop on last subtest */
127: 4: callf $4,_setjmp /* save context */
128: movab 4b,_stpc /* save subtest pc */
129: movl $5,_subtst /* subtest number */
130: movl $4,_no_opr /* number of operands used */
131: movl $1,r6 /*index for mask */
132: 0: movl $0x55555555,mask
133: movl $0xaaaaaaaa,r3 /*source */
134: movl $-1,dest
135: movl da,r4 /*destination address */
136: movl r5,_opr /* first operand */
137: movl r6,_opr + 4 /* second operand */
138: movl r3,_opr + 8 /* third operand */
139: movl r4,_opr + 12 /* fourth operand */
140: andl3 *l^64020(r5)[r6],r3,(r4)
141: cmpl $0,dest
142: beql 5f
143: er5: bbs $0,_scoplp,0b /* if set tight loop for scope */
144: movl $1,_ercode /* error code data miscompare */
145: movl dest,_actual /* actual data */
146: movl $0,_expected /* expected data */
147: jmp *badrtn /*error - mode = 412 */
148: 5: bbs $0,_force_lp,0b /* if set loop on last subtest */
149: 5: callf $4,_setjmp /* save context */
150: movab 5b,_stpc /* save subtest pc */
151: movl $6,_subtst /* subtest number */
152: movl $4,_no_opr /* number of operands used */
153: 0: movl $1,r6 /*index for mask
154: movl $0x55555555,mask
155: movl $0xaaaaaaaa,src
156: movl sa,r4 /*source */
157: movl $-1,r3 /*dest */
158: movl r5,_opr /* first operand */
159: movl r6,_opr + 4 /* second operand */
160: movl r4,_opr + 8 /* third operand */
161: movl r3,_opr + 12 /* fourth operand */
162: andl3 *l^64020(r5)[r6],(r4),r3
163: cmpl $0,r3
164: beql 6f
165: er6: bbs $0,_scoplp,0b /* if set tight loop for scope */
166: movl $1,_ercode /* error code data miscompare */
167: movl r3,_actual /* actual data */
168: movl $0,_expected /* expected data */
169: jmp *badrtn /*error - mode = 421 */
170: 6:
171: bbs $0,_force_lp,0b /* if set loop on last subtest */
172: movl $0,_ercode
173: jmp *return /*end of test - goto */
174: /*monitor */
175:
176:
177: /* end of file */
178:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.