mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-12 14:29:29 +00:00
81 lines
3.6 KiB
Plaintext
81 lines
3.6 KiB
Plaintext
;
|
||
; File: SegmentLoaderPatches.a
|
||
;
|
||
; Contains: Fixes to the Segment Loader
|
||
;
|
||
; Written by: Scott T Boyd
|
||
;
|
||
; Copyright: © 1990-1992 by Apple Computer, Inc., all rights reserved.
|
||
;
|
||
; Change History (most recent first):
|
||
;
|
||
; <SM2> 5/5/92 stb incorporate the ‘scod’-loading patch for the segment loader into
|
||
; SegmentLoader.a.
|
||
; <6> 2/10/92 JSM Moved this file to SegmentLoader folder, keeping all the old
|
||
; revisions.
|
||
; <5> 1/14/91 stb & VL; change Get1Resource to also use the limited range.
|
||
; <4> 11/15/90 csd & fjs; Reduced the range where 'CODE' gets changed to 'scod'
|
||
; from $BFFF-$8000 to $BFFF-$BF00.
|
||
; <3> 6/12/90 JSM Add Get1Resource patch, we may take this out again if we decide
|
||
; to change the ProcessMgr.
|
||
; <2> 6/8/90 stb Forgot to add 4 for the return address.
|
||
; <1> 6/7/90 stb first checked in
|
||
;
|
||
;
|
||
|
||
load 'StandardEqu.d'
|
||
include 'LinkedPatchMacros.a'
|
||
|
||
;————————————————————————————————————————————————————————————————————————————————————————————————————
|
||
; Force system code to load as 'scod' resources. The Process Mgr. is our distinguished first guest
|
||
; of this mechanism. The segment loader thinks it’s loading a ‘CODE’ resource. This patch checks
|
||
; whether the id is in the reserved range [$BFFF,$BF00]. If so, it replaces ‘CODE’ with ‘scod’ on
|
||
; the stack and calls on through to _GetResource.
|
||
; Rolled into SegmentLoader.a 3/30/92 by stb for SuperMario ROM.
|
||
|
||
LoadSystemCODE PatchProc _GetResource,(Plus,SE,II,Portable,IIci)
|
||
|
||
returnAddress EQU 0
|
||
theResID EQU returnAddress+4
|
||
theResType EQU theResID+2
|
||
|
||
cmp.l #'CODE',theResType(SP) ; Is LoadCode looking for a CODE resource?
|
||
bne.s @GetOnWithIt
|
||
cmp.w #$BFFF,theResID(SP) ; Is it in the BFFF - BF00 range reserved for sys code?
|
||
bgt.s @GetOnWithIt
|
||
cmp.w #$BF00,theResID(SP) ; is it really in the BFFF - BF00 range? <4>
|
||
blt.s @GetOnWithIt ; <4>
|
||
|
||
move.l #'scod',theResType(SP) ; Change CODE to scod
|
||
|
||
@GetOnWithIt
|
||
jmpOld ; Get on with loading the resource
|
||
|
||
EndProc
|
||
|
||
;————————————————————————————————————————————————————————————————————————————————————————————————————
|
||
; Same as above patch to GetResource, needed because the ProcessMgr calls Get1Resource to unload segments.
|
||
|
||
Load1SystemCODE PatchProc _Get1Resource,(Plus,SE,II,Portable,IIci)
|
||
|
||
returnAddress EQU 0
|
||
theResID EQU returnAddress+4
|
||
theResType EQU theResID+2
|
||
|
||
cmp.l #'CODE',theResType(SP) ; Is ProcessMgr looking for a CODE resource?
|
||
bne.s @GetOnWithIt
|
||
cmp.w #$BFFF,theResID(SP) ; Is it in the BFFF - 8000 range reserved for sys code?
|
||
bgt.s @GetOnWithIt
|
||
cmp.w #$BF00,theResID(SP) ; is it really in the BFFF - BF00 range? <5>
|
||
blt.s @GetOnWithIt ; <5>
|
||
|
||
move.l #'scod',theResType(SP) ; Change CODE to scod
|
||
|
||
@GetOnWithIt
|
||
jmpOld ; Get on with loading the resource
|
||
|
||
EndProc
|
||
|
||
;————————————————————————————————————————————————————————————————————————————————————————————————————
|
||
|
||
END |