![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to align_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 align_evt.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / event |
1.1 ! root 1: ! 2: ! 3: # ! 4: # *alignment exception event test ! 5: # *word,longword, & quadword alignment are checked ! 6: # ! 7: # R5 = PC that failed ! 8: # R0 = error code ! 9: # 1 : Expected alignment fault didnot happen ! 10: # 2 : Error in PC pushed on the stack ! 11: # R1 = actual, R2 = expected ! 12: # 3 : Error in PSL pushed on the stack ! 13: # R1 = actual, R2 = expected ! 14: # 4 : Too many parameters pushed on the stack ! 15: # ! 16: ! 17: ! 18: .globl _align_evt ! 19: _align_evt: ! 20: .word 0x1ff ! 21: mtpr $31,$IPL /* Set IPL to HIGH */ ! 22: movab (sp),_savvec0 /* Save current SP */ ! 23: mtpr _savvec0,$ISP /* Set ISP */ ! 24: movl _scb+ALIGNVEC,_savvec2 /* Save alignment fault vector */ ! 25: movab vecvec,_scb+ALIGNVEC /* Set new vector */ ! 26: movl $-1,-(sp) /* Push marker on stack */ ! 27: movab _pcb0,r1 /* Partially set PCB0 */ ! 28: mtpr r1,$PCBB /* Set PCBB to PCB0 */ ! 29: movab (sp),_pcb0 /* PCB_KSP = current SP */ ! 30: movab (sp),_pcb0+4 /* PCB_USP = current SP */ ! 31: ! 32: movpsl r1 /* If not kernel mode, then force */ ! 33: bitl $0x01000000,r1 /* Kernel mode */ ! 34: beql 1f ! 35: movl _scb+PINSTVEC,_savvec3 ! 36: movab forckmd,_scb+PINSTVEC ! 37: halt /* Halt in user mode to force fault */ ! 38: .align 2 ! 39: forckmd: ! 40: movab (sp)+,tmp0 /*get rid of trash on the stack */ ! 41: movab (sp)+,tmp0 ! 42: movl _savvec3,_scb+PINSTVEC /*restore vector */ ! 43: # ! 44: # We now in KERNEL MODE; IPL = 0x1f ! 45: # Try to store a word in an ODD address ! 46: 1: ! 47: movab epc1,r5 /* R5 = expected PC on stack */ ! 48: movab spc2,r6 /* R6 = return from exception addr */ ! 49: movpsl r7 /* R7 = Expected PSL to to checked */ ! 50: epc1: movw $256,dtable+1 /* Should cause fault */ ! 51: movl $1,r0 /* Error : NO fault happen */ ! 52: jmp *badrtn ! 53: # ! 54: # We now in KERNEL MODE; IPL = 0x1f ! 55: # Try to store a word in an ODD address ! 56: spc2: ! 57: movab epc2,r5 /* R5 = expected PC on stack */ ! 58: movab spc3,r6 /* R6 = return from exception addr */ ! 59: movpsl r7 /* R7 = Expected PSL to to checked */ ! 60: epc2: movw $256,dtable+3 /* Should cause fault */ ! 61: movl $1,r0 /* Error : NO fault happen */ ! 62: jmp *badrtn ! 63: # ! 64: # We now in KERNEL MODE; IPL = 0x1f ! 65: # Try to store a longword in an ODD address ! 66: spc3: ! 67: movab epc3,r5 /* R5 = expected PC on stack */ ! 68: movab spc4,r6 /* R6 = return from exception addr */ ! 69: movpsl r7 /* R7 = Expected PSL to to checked */ ! 70: epc3: movl $666666,dtable+1 /* Should cause fault */ ! 71: movl $1,r0 ! 72: jmp *badrtn ! 73: # ! 74: # We now in KERNEL MODE; IPL = 0x1f ! 75: # Try to store a longword in an ODD address ! 76: spc4: ! 77: movab epc4,r5 /* R5 = expected PC on stack */ ! 78: movab spc5,r6 /* R6 = return from exception addr */ ! 79: movpsl r7 /* R7 = Expected PSL to to checked */ ! 80: epc4: movl $666666,dtable+2 /* Should cause fault */ ! 81: movl $1,r0 /* Error : NO fault happen */ ! 82: jmp *badrtn ! 83: # ! 84: # We now in KERNEL MODE; IPL = 0x1f ! 85: # Try to store a longword in an ODD address ! 86: spc5: ! 87: movab epc5,r5 /* R5 = expected PC on stack */ ! 88: movab spc6,r6 /* R6 = return from exception addr */ ! 89: movpsl r1 /* R7 = Expected PSL to to checked */ ! 90: epc5: movl $666666,dtable+3 /* Should cause fault */ ! 91: movl $1,r0 /* Error : NO fault happen */ ! 92: jmp *badrtn ! 93: # ! 94: # We now in KERNEL MODE; IPL = 0x1f ! 95: # Try to shift a quadword into an ODD address ! 96: spc6: ! 97: movab epc6,r5 /* R5 = expected PC on stack */ ! 98: movab spc7,r6 /* R6 = return from exception addr */ ! 99: movpsl r7 /* R7 = Expected PSL to to checked */ ! 100: epc6: shrq $6,dtable+1,r0 /* Should cause fault */ ! 101: movl $1,r0 /* Error : NO fault happen */ ! 102: jmp *badrtn ! 103: # ! 104: # We now in KERNEL MODE; IPL = 0x1f ! 105: # Try to shift a quadword into an ODD address ! 106: spc7: ! 107: movab epc7,r5 /* R5 = expected PC on stack */ ! 108: movab spc8,r6 /* R6 = return from exception addr */ ! 109: movpsl r7 /* R7 = Expected PSL to to checked */ ! 110: epc7: shrq $6,dtable+2,r0 /* Should cause fault */ ! 111: movl $1,r0 /* Error : NO fault happen */ ! 112: jmp *badrtn ! 113: # ! 114: # We now in KERNEL MODE; IPL = 0x1f ! 115: # Try to shift a quadword into an ODD address ! 116: spc8: ! 117: movab epc8,r5 /* R5 = expected PC on stack */ ! 118: movab eee,r6 /* R6 = return from exception addr */ ! 119: movpsl r7 /* R7 = Expected PSL to to checked */ ! 120: epc8: shrq $6,dtable+3,r0 /* Should cause fault */ ! 121: movl $1,r0 /* Error : NO fault happen */ ! 122: jmp *badrtn ! 123: # ! 124: # ! 125: # Event handler for Data alignment fault ! 126: # ! 127: .align 2 ! 128: vecvec: ! 129: movl (sp)+,r1 /* R1 = actual PC pop from stack */ ! 130: movl r5,r2 /* R5 = expected PC */ ! 131: cmpl r1,r2 ! 132: beql 1f ! 133: movl $2,r0 /* Error : Wrong PC on stack */ ! 134: jmp *badrtn /* R1 = actual; R2 = expected */ ! 135: ! 136: 1: movl (sp)+,r1 /* R1 = actual PSL pop from stack */ ! 137: movl r7,r2 /* R2 = expected PSL */ ! 138: cmpl r2,r1 ! 139: beql 1f ! 140: movl $3,r0 /* Error : wrong PSL on stack */ ! 141: jmp *badrtn /* R1 = actual; R2 = expected */ ! 142: ! 143: 1: cmpl $-1,(sp) /* Check if SP now point to marker */ ! 144: beql 1f ! 145: movl $4,r0 /* Error : too many things push on SP */ ! 146: jmp *badrtn ! 147: ! 148: 1: movl r1,-(sp) /* Set PSL & PC on the stack for return */ ! 149: movl r6,-(sp) /* r6 contain return address */ ! 150: rei ! 151: jmp *badrtn /* Should never come here */ ! 152: # ! 153: # All done; get ready to return to monitor ! 154: # ! 155: eee: ! 156: mtpr $31,$IPL ! 157: movl _savvec0,sp /* Restore original vector */ ! 158: movl _savvec2,_scb+ALIGNVEC ! 159: ret ! 160: # ! 161: # ! 162: .align 2 ! 163: tmp0: .long 0 ! 164: dtable: .byte 0x12 ! 165: .byte 0x34 ! 166: .byte 0x56 ! 167: .byte 0x78 ! 168: .byte 0x9a ! 169: .byte 0xbc ! 170: .byte 0xde ! 171: .byte 0xf0 ! 172: .byte 0x12 ! 173: .byte 0x34 ! 174: .byte 0x56 ! 175: .byte 0x78 ! 176: .byte 0x9a ! 177: .byte 0xbc ! 178: .byte 0xde ! 179: .byte 0xf0 ! 180:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.