![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to vprobe_evt.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 / event|
Return to vprobe_evt.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / event |
1.1 root 1:
2: #
3: # *probe read & write events test (virtual)
4: #
5: # R12 = Which space is probing
6: # 0 - Probe in P0 space
7: # 1 - Probe in P2 space
8: # R0 = PC of Probe instruction that failed
9: # R5 = PSL after Probe
10: #
11:
12: .set LAST_VPGNO,0xfffff
13: .set TEST_P2PTE,LAST_VPGNO
14: .set P2ADDR,0x80000000
15: .set P0ADDR,0
16: .set KERNEL,0
17: .set USER,1
18: .set READ,1
19: .set WRITE,2
20:
21: .globl _probe_evt
22: _probe_evt:
23: .word 0x1fff
24:
25: # Set up P0PT, P2PT
26: #
27: # u0p0pt :
28: # virtual page 0 = Valid, UW, physical page of _iob0
29: # virtual page 1 = NO_ACCESS, physical page of _iob1
30: #
31: # u0p2pt :
32: # virtual page 0xffffe = Valid, UW, physical pages _iob4
33: # virtual page 0xfffff = NO_ACCESS, physical pages _iob5
34: #
35: #
36: movab _u0p2pt,r10 /* Virtual address of P2PT */
37: andl3 $0x3fffffff,$_iob4,r9 /* Physical address of _iob4 */
38: shrl $PGSHIFT,r9,r9 /* Physical page no of _iob4 */
39: orl3 $PG_V|PG_UW,r9,(r10) /* Valid, UW */
40: andl3 $0x3fffffff,$_iob5,r9 /* Physical page no. of _iob5 */
41: shrl $PGSHIFT,r9,r9 /* Physical page no of _iob5 */
42: orl3 $PG_NOACC,r9,4(r10) /* No access */
43: subl3 $((LAST_VPGNO-1) << 2),r10,r11
44: /* Address to initialize P2BR */
45:
46: clrl r2 /* Set up P0PT */
47: andl3 $0x3fffffff,$_iob0,r3 /* Physical address of _iob0 */
48: shrl $PGSHIFT,r3,r3 /* Physical page no of _iob0 */
49: orl3 $PG_V|PG_UW,r3,_u0p0pt[r2]
50: incl r2
51: andl3 $0x3fffffff,$_iob1,r3 /* Physical address of _iob1 */
52: shrl $PGSHIFT,r3,r3 /* Physical page no of _iob1 */
53: orl3 $PG_NOACC,r3,_u0p0pt[r2]
54:
55: andl3 $_pcb0,$0x3fffffff,r1
56: mtpr r1,$PCBB
57: mtpr $((LAST_VPGNO<<PGSHIFT)|0x400|P2ADDR),$KSP
58: mtpr $0,$TBIA
59:
60: mtpr $_u0p0pt,$P0BR
61: mtpr $4,$P0LR /* Four PTEs in P0BR */
62: mtpr r11,$P2BR
63: mtpr $0xffffd,$P2LR /* Two PTEs in P2BR */
64: calls $4,probe_tst /* Do test ... */
65: ret /* Done ... */
66:
67:
68: #
69: # Routine to do PROBE test
70: #
71: probe_tst:
72: .word 0x1ff
73:
74: movl $1,r12 /* r12 = 1 ; PROBE in P2 space */
75: /* r12 = 0 ; PROBE in P0 space */
76: movl $(LAST_VPGNO << PGSHIFT)|P2ADDR,r2
77: /* R2 : base address of NO_ACCESS page */
78: movl $((LAST_VPGNO-1) << PGSHIFT)|P2ADDR,r4
79: /* R4 : base address of accessible page */
80: tstart:
81: # PROBE read in User mode
82: #
83: movl $USER,r1 /* R1 : Mode used in PROBE */
84: movl $NBPG-4,r3 /* R3 : PROBE less than 1 page */
85: movl $NBPG+0xf0,r6 /* R6 : PROBE more than 1 page */
86: movl $READ,r7 /* R7 : type of access */
87:
88: movab _prb1,r0 /* R0 : PC of probe instruction */
89: movl r2,Cache
90: bicpsw $Z
91: _prb1:
92: prober r1,*Cache,r3 /* Z flag should be 1 : not accessible */
93: beql 1f
94: error0: movpsl r5 /* R5 : PSL after PROBE */
95: jmp *badrtn /* Error in Z flag */
96:
97: 1: mtpr $0,$TBIA
98: movab _prb2,r0
99: movl r4,Cache
100: bispsw $Z
101: _prb2:
102: prober $1,*Cache,r3 /* Z flag should be 0 : accessible */
103: bneq 1f
104: brw error0
105:
106: 1: mtpr $0,$TBIA
107: movab _prb3,r0
108: movl r6,Cache
109: bicpsw $Z
110: _prb3:
111: prober r1,(r4),Cache /* Z flag should be 1 : not accessible */
112: beql 1f
113: brw error0
114:
115: /* PROBE read in Kernel mode */
116:
117: 1: mtpr $0,$TBIA
118: movb $KERNEL,Cache
119: movab _prb4,r0
120: bispsw $Z
121: _prb4:
122: prober Cache,(r4),r3 /* Z flag should be 0 : accessible */
123: bneq 1f
124: brw error0
125:
126: 1: mtpr $0,$TBIA
127: movab _prb5,r0
128: bicpsw $Z
129: _prb5:
130: prober r1,(r2),r3 /* Z flag should be 1 : not accessible */
131: beql 1f
132: brw error0
133:
134: 1: mtpr $0,$TBIA
135: movab _prb6,r0
136: bicpsw $Z
137: _prb6:
138: prober $0,(r4),r6 /* Z flag should be 1 : not accessible */
139: beql 1f
140: brw error0
141:
142:
143: /* PROBE write in User mode */
144:
145: 1: mtpr $0,$TBIA
146: movl $USER,r1 /* R1 : Mode used in PROBE */
147: movl $WRITE,r7 /* R7 : type of access */
148:
149: movab _prb7,r0
150: movl r2,Cache
151: bicpsw $Z
152: _prb7:
153: probew r1,*Cache,r3 /* Z flag should be 1 : not accessible */
154: beql 1f
155: error1:
156: movpsl r5 /* R5 : PSL after PROBE */
157: jmp *badrtn /* Error in Z flag */
158: 1:
159: mtpr $0,$TBIA
160: movab _prb8,r0
161: movl r4,Cache
162: bispsw $Z
163: _prb8:
164: probew $1,*Cache,r3 /* Z flag should be 0 : accessible */
165: mtpr $0,$TBIA
166: bneq 1f
167: brw error1
168:
169: 1: mtpr $0,$TBIA
170: movab _prb9,r0
171: movl r6,Cache
172: bicpsw $Z
173: _prb9:
174: probew r1,(r4),Cache /* Z flag should be 1 : not accessible */
175: beql 1f
176: brw error1
177:
178: /* PROBE write in Kernel mode */
179:
180: 1: mtpr $0,$TBIA
181: movb $KERNEL,Cache
182: movab _prb10,r0
183: bispsw $Z
184: _prb10:
185: probew Cache,(r4),r3 /* Z flag should be 0 : accessible */
186: bneq 1f
187: brw error0
188:
189: 1: mtpr $0,$TBIA
190: movab _prb11,r0
191: bicpsw $Z
192: _prb11:
193: probew $0,(r2),r3 /* Z flag should be 1 : not accessible */
194: beql 1f
195: brw error0
196:
197: 1: mtpr $0,$TBIA
198: movab _prb12,r0
199: bicpsw $Z
200: _prb12:
201: probew r1,(r4),r6 /* Z flag should be 1 : not accessible */
202: beql 1f
203: brw error0
204:
205: 1: mtpr $0,$TBIA
206: decl r12 /* Decrement loop count */
207: blss endt
208:
209: movl $(1 << PGSHIFT)|P0ADDR,r2
210: /* R2 : base address of NO_ACCESS page */
211: movl $(0 << PGSHIFT)|P0ADDR,r4
212: /* R4 : base address of accessible page */
213: jmp tstart /* Test again but in P0 space */
214: endt:
215: clrl r0
216: ret
217:
218: .align 2
219: Cache:
220: .long 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.