![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to rsvins_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 rsvins_evt.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / event |
1.1 ! root 1: # ! 2: # reserved instructions event test ! 3: # includes unimplemented instructions ! 4: # ! 5: # R7 = PC that failed ! 6: # R0 = error code ! 7: # 1 - expected reserved inst. fault didnot happen ! 8: # R1 = opcode that should cause fault ! 9: # 2 - Error in PC pushed on the stack ! 10: # R1 = actual, R2 = expected ! 11: # 3 - PSL is not pushed on the stack ! 12: # 4 - Too many parameters pushed on the stack ! 13: ! 14: .globl _rsv_evt ! 15: _rsv_evt: ! 16: .word 0x1fff ! 17: mtpr $31,$IPL /* Set IPL to HIGH */ ! 18: movab (sp),_savvec0 /* Save current SP */ ! 19: mtpr _savvec0,$ISP /* Set ISP to current SP */ ! 20: movl _scb+PINSTVEC,_savvec2 /* Save priv. inst fault vector */ ! 21: movab vecvec5,_scb+PINSTVEC /* Set new vector */ ! 22: movl $-1,-(sp) /* Push marker on stack */ ! 23: movab _pcb0,r1 ! 24: mtpr r1,$PCBB /* Set PCBB to PCB_U0 */ ! 25: subl3 $24,_savvec0,_pcb0 /* Set PCB_KSP a few lwords below ISP */ ! 26: movab rtable,r5 /* R5 = addr reserved operand table */ ! 27: movb (r5),resinstr /* Store reserved opcode */ ! 28: mtpr $0xff,$PACC /* Purge all code cache */ ! 29: movab resinstr,r7 /* R7 = PC that failed */ ! 30: ! 31: resinstr: ! 32: .byte 0xff /* This where reserved opcode is stored & executed */ ! 33: movl $1,r0 ! 34: movb resinstr,r1 /*r1 = reserved opcode */ ! 35: andl2 $0xff,r1 ! 36: jmp *badrtn /* Error - no reserved opcode fault */ ! 37: # ! 38: # *************************************** ! 39: # Event handler for privilege inst. fault ! 40: # *************************************** ! 41: # ! 42: .align 2 ! 43: vecvec5: ! 44: movl (sp)+,r1 /* R1 = actual PC pop from stack */ ! 45: movab resinstr,r2 /* R2 = expected PC */ ! 46: cmpl r1,r2 ! 47: beql 1f ! 48: movl $2,r0 /* Error : wrong PC on stack */ ! 49: jmp *badrtn /* R1 = actual & R2 = expected */ ! 50: # ! 51: 1: ! 52: movl (sp)+,r1 /* R1 = actual PSL pop from stack */ ! 53: cmpl $-1,r1 /* If -1, then it is not psl */ ! 54: bneq 1f ! 55: movl $3,r0 /* Error : PSL is not pushed on stack */ ! 56: jmp *badrtn ! 57: # ! 58: 1: ! 59: cmpl $-1,(sp) /* SP should point at the marker */ ! 60: beql 1f ! 61: movl $4,r0 /* Too many parameters pushed on SP */ ! 62: jmp *badrtn ! 63: # ! 64: 1: ! 65: incb r5 /* Get next reserved opcode */ ! 66: movb (r5),resinstr /* Store it there to be executed */ ! 67: cmpb $0,resinstr /* Is this the last opcode ? */ ! 68: beql 1f ! 69: mtpr $0xff,$23 /* Purge all code cache */ ! 70: brw resinstr /* Branch back and do again */ ! 71: 1: ! 72: ret ! 73: # ! 74: # ! 75: # WARNING : If reserved opcodes change, so do the following table ! 76: .align 2 ! 77: rtable: ! 78: # .byte 0x01 /* Now is EHALT : 5/13/83 */ ! 79: .byte 0x02 ! 80: .byte 0x03 ! 81: .byte 0x04 ! 82: # .byte 0x05 /* Now is SINF : 20/Feb/85 */ ! 83: # .byte 0x06 /* Now is LDF : 20/Feb/85 */ ! 84: # .byte 0x07 /* Now is LDD : 20/Feb/85 */ ! 85: .byte 0x12 ! 86: .byte 0x14 ! 87: # .byte 0x15 /* Now is COSF : 20/Feb/85 */ ! 88: # .byte 0x16 /* Now is LNF : 20/Feb/85 */ ! 89: # .byte 0x17 /* Now is LND : 20/Feb/85 */ ! 90: .byte 0x22 ! 91: .byte 0x24 ! 92: # .byte 0x25 /* Now is ATANF : 20/Feb/85 */ ! 93: # .byte 0x26 /* Now is STF : 20/Feb/85 */ ! 94: # .byte 0x27 /* Now is STD : 20/Feb/85 */ ! 95: .byte 0x32 ! 96: .byte 0x34 ! 97: # .byte 0x35 /* Now is LOGF : 20/Feb/85 */ ! 98: # .byte 0x36 /* Now is CMPF : 20/Feb/85 */ ! 99: # .byte 0x37 /* Now is CMPD : 20/Feb/85 */ ! 100: .byte 0x42 ! 101: .byte 0x43 ! 102: .byte 0x44 ! 103: # .byte 0x45 /* Now is SQRTF : 20/Feb/85 */ ! 104: # .byte 0x46 /* Now is CMPF2 : 20/Feb/85 */ ! 105: # .byte 0x47 /* Now is CMPD2 : 20/Feb/85 */ ! 106: .byte 0x4f ! 107: .byte 0x52 ! 108: .byte 0x53 ! 109: .byte 0x54 ! 110: # .byte 0x55 /* Now is EXPF : 20/Feb/85 */ ! 111: # .byte 0x56 /* Now is TSTF : 20/Feb/85 */ ! 112: # .byte 0x57 /* Now is TSTD : 20/Feb/85 */ ! 113: .byte 0x62 ! 114: .byte 0x63 ! 115: .byte 0x64 ! 116: .byte 0x65 ! 117: .byte 0x66 ! 118: # .byte 0x67 /* Now is PUSHD : 20/Feb/85 */ ! 119: .byte 0x72 ! 120: .byte 0x73 ! 121: .byte 0x74 ! 122: .byte 0x75 ! 123: # .byte 0x76 /* Now is CVLF : 20/Feb/85 */ ! 124: # .byte 0x77 /* Now is CVLD : 20/Feb/85 */ ! 125: .byte 0x83 ! 126: .byte 0x84 ! 127: .byte 0x85 ! 128: # .byte 0x86 /* Now is CVFL : 20/Feb/85 */ ! 129: # .byte 0x87 /* Now is CVDL : 20/Feb/85 */ ! 130: .byte 0x8f ! 131: .byte 0x93 ! 132: .byte 0x94 ! 133: .byte 0x95 ! 134: .byte 0x96 ! 135: # .byte 0x97 /* Now is LDFD : 20/Feb/85 */ ! 136: .byte 0x9f ! 137: .byte 0xa2 ! 138: .byte 0xa3 ! 139: .byte 0xa4 ! 140: .byte 0xa5 ! 141: # .byte 0xa6 /* Now is CVDF : 20/Feb/85 */ ! 142: .byte 0xa7 ! 143: .byte 0xaf ! 144: .byte 0xb2 ! 145: .byte 0xb3 ! 146: .byte 0xb4 ! 147: .byte 0xb5 ! 148: # .byte 0xb6 /* Now is NEGF : 20/Feb/85 */ ! 149: # .byte 0xb7 /* Now is NEGD : 20/Feb/85 */ ! 150: .byte 0xc4 ! 151: .byte 0xc5 ! 152: # .byte 0xc6 /* Now is ADDF : 20/Feb/85 */ ! 153: # .byte 0xc7 /* Now is ADDD : 20/Feb/85 */ ! 154: # .byte 0xcb /* Now is MOVOW : 6/14/83 */ ! 155: .byte 0xd3 ! 156: .byte 0xd4 ! 157: .byte 0xd5 ! 158: # .byte 0xd6 /* Now is SUBF : 20/Feb/85 */ ! 159: # .byte 0xd7 /* Now is SUBD : 20/Feb/85 */ ! 160: .byte 0xde ! 161: .byte 0xdf ! 162: .byte 0xe2 ! 163: .byte 0xe3 ! 164: .byte 0xe4 ! 165: .byte 0xe5 ! 166: # .byte 0xe6 /* Now is MULF : 20/Feb/85 */ ! 167: # .byte 0xe7 /* Now is MULD : 20/Feb/85 */ ! 168: .byte 0xef ! 169: .byte 0xf2 ! 170: .byte 0xf3 ! 171: .byte 0xf4 ! 172: .byte 0xf5 ! 173: # .byte 0xf6 /* Now is DIVF : 20/Feb/85 */ ! 174: # .byte 0xf7 /* Now is DIVD : 20/Feb/85 */ ! 175: .byte 0xfa ! 176: .byte 0xff ! 177: .byte 0x61 /* 8/23 */ ! 178: .byte 0x0f /* 8/23 */ ! 179: # .byte 0x6e /* 12/7 divl2u */ ! 180: # .byte 0x7e /* 12/7 divl3u */ ! 181: # .byte 0x68 /* 12/7 Modl2 */ ! 182: # .byte 0x6a /* 12/7 Modl2u */ ! 183: # .byte 0x78 /* 12/7 Modl3 */ ! 184: # .byte 0x7a /* 12/7 Modl3u */ ! 185: .byte 0x00
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.