mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-01 07:41:58 +00:00
4325cdcc78
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
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 |