![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dmp3.c 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 / demand|
Return to dmp3.c CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / demand |
1.1 root 1: #include "data.h"
2: #include "definitions"
3:
4: extern long savvec4, iob1, iob2, pcb0;
5:
6: /* Demand paging with longword displacement deferred indexed
7: Boundery of virtual Page 97 and 98 are used in this test. Opcodes of
8: the "clrl *12(r5)[r6]" instruction is moved to last byte in page 22
9: and operand specifiers are moved to 1st byte in page 23. PTE of Page
10: 23 is then set to invalid.
11: */
12:
13: long d5pc, exp_pc, act_pc, exp_psl, exp_fvadr, act_fvadr, exp_val, act_val;
14: long dummy, saved_vec1, saved_vec2, saved_pte1, saved_pte2;
15: char *msg1, *msg2;
16:
17:
18: dmp3()
19: {
20:
21: asm("mfpr $SBR,_savvec4");
22: savvec4 |= (savvec4 | SADDR); /* Make it system address */
23: asm("mtpr _savvec4,$P0BR"); /* Double map P0PT to SPT */
24: asm("mfpr $SLR,_savvec4");
25: asm("mtpr _savvec4,$P0LR");
26:
27: asm("mtpr $6,$DCK");
28: asm("mtpr $0,$TBIA");
29: asm("mtpr $0,$PADC");
30: asm("mtpr $1,$MME"); /* Enable MME */
31: asm("jmp *$0f"); /* Go virtual */
32: asm("0:");
33: tst_dmp3();
34: asm("mtpr $0,$MME"); /* Disable MME */
35: asm("mtpr $0,$P0LR");
36: }
37:
38:
39: tst_dmp3()
40: { char *byte_ptr, *msg1, *msg2;
41: long dummy, ix, hdr_adr, pc_err, byte_no;
42:
43: savvec4 = (long)&pcb0;
44: asm("mtpr _savvec4,$PCBB"); /* Initialize PCBB */
45:
46: asm("movab r5_here,_savvec4"); /* Make test area user read/write */
47: savvec4 = (savvec4 >> PGSHIFT) & 0xfffff;
48: fixpv_pte(P0BR,savvec4,&dummy,(PTE_V|PTE_UW));
49:
50: fixpv_pte(P0BR,(TEST_PG-1),&saved_pte1,(PTE_V|PTE_UW));
51:
52: for(byte_no=1;byte_no<I3;byte_no++)
53: {
54: /* Move code to boundery of test page */
55: exp_pc = ((TEST_PG-1)<<PGSHIFT)|(NBPG-byte_no);
56: byte_ptr = (char *)exp_pc;
57: for(ix=0;ix<I3;ix++) *byte_ptr++ = CLRL3[ix];
58: *byte_ptr++ = KCALL[0]; /* move KCALL instruction */
59: *byte_ptr = KCALL[1];
60:
61: exp_fvadr = (TEST_PG<<PGSHIFT) & 0xfffffc00;
62: /* Invalidate PTE of test page */
63: fixpv_pte(P0BR,TEST_PG,&saved_pte2,PTE_UW);
64:
65: /* Set new exception handlers */
66: asm("movab prot_f3,_savvec4");
67: set_handler(TRANS_VEC,&saved_vec1,savvec4);
68:
69: /* Set up to execute REI */
70: asm("movab (sp),_savvec4");
71: savvec4 -= 16; /* KSP is 4 words below ISP */
72: asm("mtpr _savvec4,$KSP");
73: asm("movl fp,_saved_fp"); /* save FP to return */
74: exp_psl = PSL_USR; /* PSL : user mode */
75: asm("again:");
76: asm("pushl _exp_psl"); /* Push PSL on stack */
77: asm("pushl _exp_pc"); /* Push PC on stack */
78:
79: /* Set up for CLRL *12(r5)[r6] */
80: asm("movab r5_here,r5");
81: asm("movl $1,r6"); /* Set index value in r6 */
82: asm("movl $0xfffffff,operd");
83: exp_val = 0;
84:
85: /* Use REI to switch to user mode */
86: asm("mtpr $1,$PACC"); /* Purge all code cache */
87: asm("movab d5rei,_d5pc");
88: asm("d5rei:");
89: asm("rei");
90: asm("halt");
91: asm(".align 2");
92: asm("rtn_t30:"); /* Return here if error */
93: asm("movl _saved_fp,fp"); /* restore FP */
94: break; /* Stop test */
95: asm("rtn_t31:");
96: asm("movl _saved_fp,fp"); /* restore FP */
97: asm("movl operd,_act_val");
98: set_handler(CHMK_VEC,&dummy,saved_vec2); /* restore handler */
99: if (exp_val != act_val) /* Demand paging fail !! */
100: {
101: msg1="** Incorrect result after instruction is restarted.\n";
102: d2err(msg1,act_val,exp_val,exp_pc,d5pc,exp_fvadr);
103: break;
104: }
105: }
106: }
107:
108:
109: t_space()
110: {
111: /* Operand of CLRL *12(r5)[r6] */
112: asm(".align 2");
113: asm("r5_here:");
114: asm(".long 0");
115: asm(".space 8"); /* (8 + 4 of r5_here)12 bytes for displacement */
116: asm(".long base_op");
117:
118: asm(".align 2");
119: asm("base_op:");
120: asm(".long 0xffff"); /* four bytes for index by r6 */
121: asm("operd:");
122: asm(".long 0xffffffff");
123: /* this loc will be clear if demand paging works */
124:
125: }
126:
127: prot_hdlr()
128: {
129: asm(".align 2");
130: asm("prot_f3:");
131: asm("mtpr $0x1f,$IPL");
132: asm("movl (sp)+,r12"); /* Ignore 1st parameter */
133: asm("movl (sp)+,_act_fvadr"); /* Actual VA at fault */
134:
135: asm("movl (sp),_act_pc"); /* Actual PC that caused fault */
136: asm("movab (sp),fp"); /* Set FP */
137: if (act_pc != exp_pc)
138: {
139: msg1="** PC pushed on the stack is not correct.\n";
140: d2err(msg1,act_pc,exp_pc,exp_pc,d5pc,exp_fvadr);
141: asm("svpctx"); /* Switch to ISP */
142: asm("jmp rtn_t30"); /* Error return */
143: }
144: if ((act_fvadr & 0xfffffc00) != (exp_fvadr & 0xfffffc00))
145: {
146: msg1="** Fault virtual address pushed on the stack is not correct\n";
147: d2err(msg1,(act_fvadr&0xfffffc00),(exp_fvadr&0xfffffc00),exp_pc,d5pc,exp_fvadr);
148: asm("svpctx"); /* Switch to ISP */
149: asm("jmp rtn_t30"); /* Error return */
150: }
151: else
152: {
153: asm("movab kcall3,_savvec4"); /* New handler for KCALL */
154: set_handler(CHMK_VEC,&saved_vec2,savvec4);
155: /* Restore original TRANS. fault vector */
156: set_handler(TRANS_VEC,&dummy,saved_vec1);
157: /* Validate test page and restart instruction */
158: fixpv_pte(P0BR,TEST_PG,&saved_pte2,(PTE_V|PTE_UW));
159: asm("movab d51rei,_d5pc");
160: asm("d51rei:");
161: asm("rei");
162: }
163:
164:
165: asm(".align 2");
166: asm("kcall3:");
167: asm("mtpr $0x1f,$IPL");
168: asm("svpctx"); /* Switch to ISP */
169: asm("jmp rtn_t31"); /* Return */
170: }
171:
172:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.