mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-10-31 19:05:04 +00:00
192 lines
6.9 KiB
Plaintext
192 lines
6.9 KiB
Plaintext
;
|
||
; File: PatchProtector.a
|
||
;
|
||
; Contains: a patch to SetTrapAddress and GetTrapAddress that “protects” come-from patches
|
||
;
|
||
; Written by: Darin Adler
|
||
;
|
||
; Copyright: © 1990-1991 by Apple Computer, Inc., all rights reserved.
|
||
;
|
||
; Change History (most recent first):
|
||
;
|
||
; <11> 8/28/91 JSM Cleanup header.
|
||
; <10> 4/5/91 gbm dba: Exit via jCacheFlush when setting the trap address. This
|
||
; makes it possible to use copy-back mode on '040's
|
||
; <9> 4/3/91 dba kill the fun
|
||
; <8> 3/25/91 dba VL: get rid of that stupid StripAddress
|
||
; <7> 3/4/91 dba gbm: do a StripAddress for all the 24-bit slobs out there
|
||
; <6> 12/18/90 gbm (dba) Use the noPatchProtector conditional to prevent two patch
|
||
; protectors from getting upset at each other.
|
||
; <5> 12/5/90 dba <gbm> disallow come-from patch headers except from people who
|
||
; use the $CXXX form of SetTrapAddress; also check the address
|
||
; passed to SetTrapAddress for validity, by reading the first long
|
||
; word and looking for the come-from header
|
||
; <4> 8/2/90 dba get rid of the MemTop and odd checks
|
||
; <3> 5/30/90 dba add validation for the old address in GetTrapAddress
|
||
; <2> 5/1/90 dba do nothing to this file, just touch it so that people will get
|
||
; the LinkedPatchLib rebuilt
|
||
; <1> 3/21/90 dba fixed some more bugs and checked in for general use
|
||
; 2/1/90 dba fixed the bug that Ed found
|
||
; 1/30/90 dba revamped, added [GS]etTrapWordAddress
|
||
; 1/25/90 dba added a header
|
||
;
|
||
; To Do:
|
||
; take into account the number of toolbox traps on each machine in [GS]etTrapWordAddress
|
||
;
|
||
; This is a patch to Get/SetTrapAddress that respects come-from patches with a special format.
|
||
;
|
||
; bra.s *+6
|
||
; jmp OldTrapAddress
|
||
;
|
||
; Get and SetTrapAddress will notice patches that begin with this sequence and treat them as
|
||
; “come-from” patches. Instead of changing the address of the trap in the trap table, instead
|
||
; they will change the “old” address in the last come-from patch in the chain.
|
||
;
|
||
; This patch needs to be installed before any come-from patches are installed. This can be done
|
||
; by linking it first in the first 'lpch' to be loaded.
|
||
;
|
||
; This patch also implements a new variant of [GS]etTrapAddress called [GS]etTrapWordAddress.
|
||
; It takes a whole trap word, and does the right thing, removing the need for N[GS]etTrapAddress.
|
||
;
|
||
|
||
print push,off
|
||
load 'StandardEqu.d'
|
||
include 'LinkedPatchMacros.a'
|
||
print pop
|
||
|
||
; opcodes
|
||
|
||
kBranchOverJMPLOpcode equ $6006
|
||
kJMPLOpcode equ $4EF9
|
||
|
||
kComeFromHeader equ (kBranchOverJMPLOpcode << 16) + kJMPLOpcode
|
||
|
||
; bits in trap numbers and Set/GetTrapAddress opcodes
|
||
|
||
TrapNumber record 0
|
||
toolboxBit equ 11
|
||
endr
|
||
|
||
TrapAddressOpcode record 0
|
||
newBit equ 9
|
||
toolboxBit equ 10
|
||
endr
|
||
|
||
; The following patch has to use $A046 as the trap number instead of _GetTrapAddress.
|
||
; This is because it is installed before these patches modify the behavior of [GS]etTrapAddress
|
||
; to work properly for full trap words. The trap number is thus used as an “old-style” trap number.
|
||
; $A046 is GetTrapAddress, but $A146 (the value of _GetTrapAddress) is interpreted as $A946.
|
||
|
||
ProtectGetTrap patchproc $A046,(Plus,SE,II,Portable,IIci,noPatchProtector)
|
||
import TrapAddressBits
|
||
export OldGetTrapAddress
|
||
|
||
jsr TrapAddressBits ; set bits in the trap word
|
||
move sr,-(sp) ; would do a MOVE CCR, but it is not available on 68000
|
||
bsr.s OldGetTrapAddress ; call the old GetTrapAddress
|
||
move (sp)+,ccr ; get condition codes back
|
||
bcs.s @done ; come-from patches bypass our trickery
|
||
@next
|
||
cmp.l #kComeFromHeader,(a0) ; does this have the come-from header?
|
||
bne.s @done ; no we are done
|
||
move.l 4(a0),a0 ; go on to the next
|
||
bra.s @next
|
||
@done
|
||
moveq #0,d0 ; must zero the result code again
|
||
rts
|
||
|
||
OldGetTrapAddress
|
||
jmpOld
|
||
|
||
endproc
|
||
|
||
; Since SetTrapAddress looks at the first long word of the previous value of the trap’s address,
|
||
; it can be dangerous to call SetTrapAddress on some random value. Later, a correct SetTrapAddress
|
||
; might encounter a bus error or address error or some other problem. To avoid this, SetTrapAddress
|
||
; looks at the first long word of the new trap address *before* setting the address in the trap table
|
||
; or come-from chain. This ensures that the bus error will happen right away.
|
||
|
||
ProtectSetTrap patchproc _SetTrapAddress,(Plus,SE,II,Portable,IIci,noPatchProtector)
|
||
import TrapAddressBits
|
||
import OldGetTrapAddress
|
||
|
||
move.l (a0),d2 ; get header of trap, and check for bus errors <5>
|
||
|
||
jsr TrapAddressBits ; set bits in the trap word
|
||
bcs.s OldSetTrapAddress ; come-from patches bypass our trickery
|
||
|
||
cmp.l #kComeFromHeader,d2 ; headers can only be used on come-from patches <5>
|
||
beq.s @illegalHeader ; saw a header, so I must system error <5>
|
||
|
||
movem.l d0-d1/a0,-(sp) ; save trap address, number, and bits
|
||
jsr OldGetTrapAddress ; call the old GetTrapAddress
|
||
move.l #0,a1 ; no come-froms found yet
|
||
@next
|
||
cmp.l #kComeFromHeader,(a0)+ ; does this have the come-from header?
|
||
bne.s @done ; no we are done
|
||
move.l a0,a1 ; remember this address
|
||
move.l (a0),a0 ; go on to the next
|
||
bra.s @next
|
||
@done
|
||
movem.l (sp)+,d0-d1/a0 ; restore trap address, number, and bits
|
||
|
||
cmp.l #0,a1 ; any come-froms found?
|
||
beq.s OldSetTrapAddress ; no, go do the real SetTrapAddress
|
||
move.l a0,(a1) ; set the trap address
|
||
move.l jCacheFlush,-(sp) ; get the cache flush vector <9>
|
||
rts ; call it, and then return to the trap dispatcher <9>
|
||
|
||
@illegalHeader
|
||
move.w #dsBadPatchHeader,d0 ; get error code <5>
|
||
_SysError ; report it to the unsuspecting user <5>
|
||
|
||
OldSetTrapAddress
|
||
jsrOld ; call so we can flush the cache when we return <9>
|
||
move.l jCacheFlush,-(sp) ; get the cache flush vector <9>
|
||
rts ; call it, and then return to the trap dispatcher <9>
|
||
|
||
endproc
|
||
|
||
TrapAddressBits proc
|
||
|
||
; TrapAddressBits
|
||
;
|
||
; In:
|
||
; d0.w trap number
|
||
; d1.w [GS]etTrapAddress trap word
|
||
;
|
||
; Out:
|
||
; d1.w (modified) [GS]etTrapAddress trap word
|
||
; ccr CC if it is not a come-from, CS if it is a come-from
|
||
|
||
btst #TrapAddressOpcode.newBit,d1 ; is this N[GS]etTrapAddress?
|
||
bnz.s @notFullWord ; yes, don’t handle it
|
||
btst #TrapAddressOpcode.toolboxBit,d1 ; is this normal [GS]etTrapAddress?
|
||
bz.s @notFullWord ; yes, don’t handle it
|
||
|
||
@fullWord
|
||
; adjust the trap bits
|
||
|
||
bset #TrapAddressOpcode.newBit,d1 ; is this NGetTrapAddress?
|
||
btst #TrapNumber.toolboxBit,d0 ; is the trap a Toolbox trap?
|
||
bnz.s @toolbox ; yes, leave the bit set
|
||
bclr #TrapAddressOpcode.toolboxBit,d1 ; clear bit for OS
|
||
@toolbox
|
||
|
||
cmp.w #$C000,d0 ; is this a come-from trap word?
|
||
blo.s @notComeFrom ; no, it is not
|
||
cmp.w #$D000,d0 ; is it a come-from trap word?
|
||
bhs.s @notComeFrom ; no, it is not
|
||
@comeFrom
|
||
; oooh... carry is set for us, we can return
|
||
rts
|
||
|
||
@notFullWord
|
||
@notComeFrom
|
||
and #$FE,ccr ; clear the carry bit
|
||
rts
|
||
|
||
endproc
|
||
|
||
end
|