mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-11 23:29:30 +00:00
54 lines
1.3 KiB
Plaintext
54 lines
1.3 KiB
Plaintext
;
|
|
; File: JPInit.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/30/90 BAL Added an allocCursor in order to update the crsr lomem. Under
|
|
; the normal install process this is taken care of by the
|
|
; slotManager patch.
|
|
;
|
|
; To Do:
|
|
;
|
|
|
|
|
|
INCLUDE 'Traps.a'
|
|
|
|
|
|
INIT PROC EXPORT
|
|
move.l $2ae,a0
|
|
cmp.w #$67c,8(a0) ; IIci or F19?
|
|
bne.s @1 ; no, skip it
|
|
|
|
tst.b $172 ;Button?
|
|
bne.s @0
|
|
_debugger
|
|
@1 rts ;yes, return
|
|
@0
|
|
movem.l d0-d7/a0-a6,-(sp) ; save all
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;
|
|
; Install RAM based 32-Bit QuickDraw:
|
|
;
|
|
transl subq #4,SP ; room for result
|
|
Move.L #'ptch',-(SP) ; signature of loadable patch resource
|
|
Move.W #31,-(SP) ; pass along JP 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
|
|
_AllocCursor
|
|
@skip
|
|
movem.l (sp)+,d0-d7/a0-a6 ; restore all
|
|
rts ; return to rom78fix.a
|
|
|
|
END |