mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-05-31 13:41:30 +00:00
100 lines
2.6 KiB
Plaintext
100 lines
2.6 KiB
Plaintext
;
|
|
; File: JPPatch.a
|
|
;
|
|
; Contains: xxx put contents here xxx
|
|
;
|
|
; Written by: xxx put writers here xxx
|
|
;
|
|
; Copyright: © 1990 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <2> 1/29/90 BAL Remove debugging code.
|
|
;
|
|
; To Do:
|
|
;
|
|
|
|
|
|
INCLUDE 'Traps.a'
|
|
|
|
|
|
|
|
INSTALL PROC EXPORT
|
|
|
|
; tst.b $172 ;Button?
|
|
; bne.s @0
|
|
; _debugger
|
|
; rts ;yes, return
|
|
@0
|
|
movem.l d0-d7/a0-a6,-(sp) ; save all
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;
|
|
; Install 32 bit color QuickDraw:
|
|
;
|
|
CQD subq #4,SP ; room for result
|
|
Move.L #'ptch',-(SP) ; signature of loadable patch resource
|
|
Move.W #31,-(SP) ; pass along CQD ID
|
|
_Get1Resource ; just in case we want to ROM it later on
|
|
move.l (SP)+,d0 ; handle returned?
|
|
beq.s @skip ; no, skip install
|
|
|
|
Move.l d0,A0 ; fetch handle
|
|
Move.L (A0),A0 ; point at head of resource
|
|
Jsr (A0) ; go execute init code
|
|
@skip
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;
|
|
; Install 32 bit color compatible slotMgr:
|
|
;
|
|
slots subq #4,SP ; room for result
|
|
Move.L #'ptch',-(SP) ; signature of loadable patch resource
|
|
Move.W #35,-(SP) ; pass along slotMgr ID
|
|
_Get1Resource ; just in case we want to ROM it later on
|
|
move.l (SP)+,d0 ; handle returned?
|
|
beq.s @skip ; no, skip install
|
|
|
|
Move.l d0,A0 ; fetch handle
|
|
Move.L (A0),A0 ; point at head of resource
|
|
Jsr (A0) ; go execute init code
|
|
@skip
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;
|
|
; Patch out driver open to suppress appleShare arrows:
|
|
;
|
|
arrows subq #4,SP ; room for result
|
|
Move.L #'ptch',-(SP) ; signature of loadable patch resource
|
|
Move.W #34,-(SP) ; pass along aplleShare fix ID
|
|
_Get1Resource ; just in case we want to ROM it later on
|
|
move.l (SP)+,d0 ; handle returned?
|
|
beq.s @skip ; no, skip install
|
|
|
|
Move.l d0,A0 ; fetch handle
|
|
Move.L (A0),A0 ; point at head of resource
|
|
Jsr (A0) ; go execute init code
|
|
@skip
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;
|
|
; Lock down the cursor code:
|
|
;
|
|
hold subq #4,SP ; room for result
|
|
Move.L #'ptch',-(SP) ; signature of loadable patch resource
|
|
Move.W #40,-(SP) ; pass along VMPatch ID
|
|
_Get1Resource ; just in case we want to ROM it later on
|
|
move.l (SP)+,d0 ; handle returned?
|
|
beq.s @skip ; no, skip install
|
|
|
|
Move.l d0,A0 ; fetch handle
|
|
Move.L (A0),A0 ; point at head of resource
|
|
Jsr (A0) ; go execute init code
|
|
@skip
|
|
|
|
movem.l (sp)+,d0-d7/a0-a6 ; restore all
|
|
rts ; return to rom78fix.a
|
|
|
|
END |