![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dmp0.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 dmp0.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: /* Demand paging with auto_decrement mode ! 5: Boundery of virtual Page _iob0 and _iob1 are used in this test. USP is set to ! 6: 1st byte of page _iob1, PTE of Page _iob0 is then set to invalid. Program do ! 7: a REI to user code which will execute the "clrl -(sp)" instruction . At ! 8: this point translation not valid fault should occur and the exception ! 9: handler will set page _iob0 to valid and do a REI to restart the instruction. ! 10: */ ! 11: ! 12: long exp_psl, exp_pc, act_pc, exp_result, act_result, exp_sp, act_sp; ! 13: long d1rei, *fault_vadr, saved_vec1, saved_vec2, saved_pte, temp_glb; ! 14: char *msg1, *msg2; ! 15: ! 16: extern long iob1, iob2, iob3, u0p2pt, pcb0, savvec4, savvec5, savvec6, savvec7; ! 17: extern long ret_adr, saved_sp, saved_fp, *p_ptr; ! 18: ! 19: dmp0() ! 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: dpt1(); ! 34: asm("mtpr $0,$MME"); ! 35: asm("mtpr $0,$P0LR"); ! 36: } ! 37: ! 38: ! 39: dpt1() ! 40: { ! 41: long ix; ! 42: ! 43: savvec4 = (long)&pcb0; ! 44: asm("mtpr _savvec4,$PCBB"); /* Set PCBB */ ! 45: asm("movab fault_pc1,_savvec4"); ! 46: savvec4 = (savvec4 >> PGSHIFT) & 0xfffff; ! 47: fixpv_pte(P0BR,savvec4,&saved_pte,(PTE_V|PTE_UW)); ! 48: fixpv_pte(P0BR,(savvec4+1),&saved_pte,(PTE_V|PTE_UW)); ! 49: ! 50: asm("movab fault_pc1,_exp_pc"); ! 51: exp_sp = TEST_PG << PGSHIFT; ! 52: fault_vadr = (long *) (exp_sp-4); ! 53: *fault_vadr = 0xfffffff; /* set some value in test location */ ! 54: exp_result = 0; ! 55: ! 56: /* Set page _iob1 to valid */ ! 57: fixpv_pte(P0BR,TEST_PG,&saved_pte,(PTE_V|PTE_UW)); ! 58: /* Set page _iob0 to invalid */ ! 59: fixpv_pte(P0BR,(TEST_PG-1),&saved_pte,PTE_UW); ! 60: ! 61: /* Set new exception handlers */ ! 62: asm("movab trans_f1,_savvec4"); ! 63: set_handler(TRANS_VEC,&saved_vec1,savvec4); ! 64: ! 65: asm("movab (sp),_savvec4"); ! 66: savvec4 -= 16; /* KSP is 4 words below ISP */ ! 67: asm("mtpr _savvec4,$KSP"); ! 68: ! 69: exp_psl = PSL_USR; /* User mode */ ! 70: asm("mtpr _exp_sp,$USP"); /* Set USP to valid page */ ! 71: asm("movl fp,_saved_fp"); /* save FP to return */ ! 72: asm("pushl _exp_psl"); ! 73: asm("pushl _exp_pc"); /* Push PSL,PC for REI */ ! 74: asm("mtpr $1,$PACC"); /* Purge all code cache */ ! 75: asm("movab d2pc,_d1rei"); ! 76: asm("d2pc:"); ! 77: asm("rei"); ! 78: asm("halt"); ! 79: ! 80: asm(".align 2"); ! 81: asm("rtn_t10:"); ! 82: asm("movl _saved_fp,fp"); /* restore FP */ ! 83: if (1) return; /* Avoid warning from compiler */ ! 84: asm(".align 2"); ! 85: asm("rtn_t11:"); ! 86: asm("movl _saved_fp,fp"); /* restore FP */ ! 87: act_result = *fault_vadr; ! 88: if (act_result != exp_result) ! 89: { ! 90: msg1 = "** incorrect result after instruction is restarted.\n"; ! 91: d3err(msg1,act_result,exp_result,exp_pc,d1rei); ! 92: } ! 93: set_handler(CHMK_VEC,&temp_glb,saved_vec2); /* Restore KCALL vector */ ! 94: } ! 95: ! 96: TEST_AREA() ! 97: { ! 98: asm("fault_pc1:"); ! 99: asm("clrl -(sp)"); /* should cause translation not valid fault */ ! 100: asm("kcall $0"); /* return */ ! 101: } ! 102: ! 103: new_hdr1() ! 104: { ! 105: asm(".align 2"); /* Longword align */ ! 106: asm("trans_f1:"); ! 107: ! 108: asm("mtpr $0x1f,$IPL"); ! 109: asm("movl (sp)+,r12"); /* Ignore 1st parameter */ ! 110: asm("movl (sp)+,r12"); /* Ignore 2nd parameter */ ! 111: asm("movl (sp),_act_pc"); /* PC that caused fault */ ! 112: asm("movab (sp),fp"); /* set new frame pointer */ ! 113: asm("mfpr $USP,_act_sp"); ! 114: if ( act_pc != exp_pc ) ! 115: { /* Error in PC */ ! 116: msg1="\nPC pushed on the stack is not correct."; ! 117: d3err(msg1,act_pc,exp_pc,exp_pc,d1rei); ! 118: asm("svpctx"); /* Back to ISP */ ! 119: asm("jmp rtn_t10"); /* return */ ! 120: } ! 121: else ! 122: { ! 123: if ( exp_sp != act_sp ) ! 124: { ! 125: msg1 = "\nSP is not backed up correctly."; ! 126: d3err(msg1,act_sp,exp_sp,exp_pc,d1rei); ! 127: asm("svpctx"); /* Back to ISP */ ! 128: asm("jmp rtn_t10"); /* return */ ! 129: } ! 130: else ! 131: { ! 132: /* Set V bit and restart instruction at PC */ ! 133: fixpv_pte(P0BR,(TEST_PG-1),&saved_pte,(PTE_V|PTE_UW)); ! 134: /* New handler for KCALL */ ! 135: asm("movab kcall1,_savvec4"); ! 136: set_handler(CHMK_VEC,&saved_vec2,savvec4); ! 137: /* restore original vector of TRANSLATION fault */ ! 138: set_handler(TRANS_VEC,&temp_glb,saved_vec1); ! 139: asm("movab d21pc,_d1rei"); ! 140: asm("d21pc:"); ! 141: asm("rei"); ! 142: asm("halt"); ! 143: } ! 144: } ! 145: ! 146: asm(".align 2"); ! 147: asm("kcall1:"); ! 148: asm("mtpr $0x1f,$IPL"); ! 149: asm("svpctx"); /* Back to ISP */ ! 150: asm("jmp rtn_t11"); ! 151: } ! 152: ! 153: d3err(msg1,act,exp,pc,reipc) ! 154: char *msg1; ! 155: long act, exp, pc, reipc; ! 156: { ! 157: writes(msg1); ! 158: writes("\n** Actual : "); writeh(act); ! 159: writes("\n** Expect : "); writeh(exp); ! 160: writes("\n** PC : "); writeh(pc); ! 161: writes("\n** PC (REI instruction) : "); writeh(reipc); ! 162: writec('\n'); ! 163: asm("halt"); ! 164: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.