mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-26 18:29:56 +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.
153 lines
6.6 KiB
Plaintext
153 lines
6.6 KiB
Plaintext
;
|
|
; File: LoadPatches.a
|
|
;
|
|
; Contains: data fork of the System file
|
|
;
|
|
; Under newer systems (7.0 and newer) this is not used to do system patching.
|
|
; Instead, it writes the proper boot blocks to the disk, so that booting will occur
|
|
; with the StartSystem code (in the 'boot' 2 resource) which takes care of patching.
|
|
;
|
|
; Under older systems this selects, loads and executes an appropriate ROM patch routine
|
|
; for the ROM version number. The ROM patch routines are stored as 'PTCH' resources in
|
|
; the System file with an ID = the ROM version number. It resides in the data fork of
|
|
; the system file. It is loaded and given control by StartBoot (or boot blocks) once
|
|
; the ROM system has been initialized.
|
|
;
|
|
; Copyright: © 1985-1991 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <15> 4/3/91 dba kill the fun
|
|
; <14> 3/26/91 dba gbm: correct size
|
|
; <13> 3/4/91 dba dty: get rid of SysVers conditionals
|
|
; <12> 1/16/91 dba (csd) no real change; we had to force the data fork to rebuild
|
|
; so it would use MakeSysDataFork
|
|
; <11> 8/6/90 stb move dsNeedToWriteBootBlocks to SysErr.a
|
|
; <10> 5/1/90 BBM enable linked patches on 6.0 class machines
|
|
; <9> 4/10/90 dba 7.0 version writes the correct boot blocks and restarts
|
|
; <8> 3/23/90 dba dispose of our selves (a waste of system heap space)
|
|
; <7> 3/23/90 dba fix so we donÕt call EraseMyIcon on the SE
|
|
; <6> 3/22/90 HJR Fix 6.0 build by adding MinSysExtra & SysPatch.
|
|
; <5> 3/22/90 dba change name of LoadPatch to LoadLinkedPatches
|
|
; <4> 3/21/90 dba take out the lingering Debugger statement
|
|
; <3> 3/21/90 dba change to work with new boot blocks for 7.0
|
|
; <2> 12/28/89 dba use MAIN instead of PROC to get dead code stripping; also get
|
|
; rid of wierd header that was required by a strange build rule in
|
|
; the old Make file; a corresponding change was made in
|
|
; SysObj.Make
|
|
; <1.5> 11/17/89 dba got rid of checks for 64K ROMs
|
|
; <1.4> 10/14/89 EMT Always load in RAM cache in system 7.
|
|
; <1.3> 6/5/89 EMT One more try.
|
|
; <1.2> 6/2/89 EMT Fixed coding errors in 1.1.
|
|
; <1.1> 6/1/89 EMT Removed ROM69 stuff. Bootstrap StripAddress if it doesn't exist.
|
|
; Use StripAddress before executing 'PTCH's.
|
|
; <1.0> 11/16/88 CCH Added to EASE.
|
|
; <S174> 4/10/87 bbm Save off the A5 world for the inits. (Some inits relied on
|
|
; CurrentA5 to be set up.)
|
|
; <S145> 3/27/87 bbm The algorithm that S115 used to grow the heap was to enlarge the
|
|
; heap by 16k or the size of the patch - whichever was bigger.
|
|
; What you really want is 16k free in addition to the size of the
|
|
; patch.
|
|
; <S128> 3/23/87 JTC On 64K ROMs be sure not to use nonexistent traps (such as
|
|
; SizeRsrc) or resize heap (since boot blocks are loaded at 64K).
|
|
; <S115> 3/19/87 JTC Ensure sufficient sys heap space before loading patches, using
|
|
; SizeResource to figure the local min. Then guarantee MinSysExtra
|
|
; space after loading last one. Code borrowed from INIT=31.
|
|
; <S109> 3/18/87 bbm Added the code for ÔPTCH $FFFFÕ. This enables general patches
|
|
; for all machines before the patches are read in by ÔPTCH 0Õ and
|
|
; general patches after the patches are read in by ÔPTCH $FFFFÕ.
|
|
; <S108> 3/17/87 bbm For system heaps larger than 58k, rom69patch needed to move the
|
|
; boot code (the boot code is loaded in at $10000). Since the boot
|
|
; code has moved, the return address on the stack should be
|
|
; modified. If you change the nature of the stack Ñ which rom69fix
|
|
; depends on - you must also modify rom69fix.a.
|
|
; <P029> 1/22/87 JTC JTC The above dates should surely be Ô86 and the res type is now
|
|
; 'PTCH', despite the above comments. This change is to
|
|
; accommodate the new PTCH=0 patch file for all systems.
|
|
; 11/20/86 BB Changed resource type for patch files from 'PTCH' to 'ptch'.
|
|
; 11/15/86 BB New today.
|
|
;
|
|
|
|
; ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
; equates
|
|
|
|
load 'StandardEqu.d'
|
|
|
|
bootBlocksSize equ 1024 ; two 512-byte disk blocks
|
|
|
|
; ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
|
|
SystemFileDataFork main
|
|
|
|
; ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
|
|
; The System file data fork will only be executed if we are executing an old version of boot blocks.
|
|
; Write the correct boot blocks to the disk, and restart.
|
|
|
|
subq #4,sp ; make room for a handle to the boot blocks
|
|
move.l #'boot',-(sp) ; get the boot blocks resource
|
|
move.w #1,-(sp)
|
|
_GetResource
|
|
move.l (sp)+,d1 ; got that resource
|
|
bz.s Failed
|
|
|
|
lea -ioHVQElSize(sp),sp ; make room for parameter block on the stack
|
|
move.l sp,a0 ; point to the parameter block
|
|
|
|
clr.l ioFileName(a0) ; we donÕt want the diskÕs name
|
|
clr.w ioVolIndex(a0) ; tell it to use a vRefNum
|
|
clr.w ioVRefNum(a0) ; boot volume is the default volume
|
|
_HGetVInfo ; get the driver refNum and the drive number
|
|
bnz.s FailedOSErr
|
|
|
|
move.w ioVDrvInfo(a0),ioVRefNum(a0) ; get the drive number
|
|
bz.s Failed ; in the wildly unlikely case the drive is off-line
|
|
move.w ioVDRefNum(a0),ioRefNum(a0) ; get the driver refNum
|
|
move.l d1,a1 ; get the resource in an address register
|
|
move.l (a1),a1 ; and dereferenced
|
|
move.l a1,ioBuffer(a0) ; and now itÕs the buffer we write from
|
|
move.l #bootBlocksSize,ioReqCount(a0) ; write the whole boot blocks
|
|
move.w #fsFromStart,ioPosMode(a0) ; right at the start of the disk
|
|
clr.l ioPosOffset(a0)
|
|
_Write ; write them boot blocks
|
|
bnz.s FailedOSErr
|
|
|
|
move.l ROMBase,a0 ; point to the ROM
|
|
jmp 10(a0) ; restart the Macintosh
|
|
|
|
FailedOSErr
|
|
cmp.w #wPrErr,d0 ; write protected error?
|
|
bne.s Failed
|
|
|
|
moveq #dsNeedToWriteBootBlocks,d0
|
|
_SysError
|
|
|
|
Failed
|
|
moveq #dsBadPatch,d0 ; get the proper error code
|
|
_SysError
|
|
|
|
; ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
|
|
Copyright
|
|
string asis
|
|
dc.b '© 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991 Apple Computer Inc.',13
|
|
dc.b 'All Rights Reserved.',13
|
|
dc.b 13
|
|
dc.b 'Help! Help! WeÕre being held prisoner in a system software factory!',13
|
|
dc.b 13
|
|
dc.b 'The Blue Meanies',13
|
|
dc.b 13
|
|
dc.b 'Darin Adler',13
|
|
dc.b 'Scott Boyd',13
|
|
dc.b 'Chris Derossi',13
|
|
dc.b 'Cynthia Jasper',13
|
|
dc.b 'Brian McGhie',13
|
|
dc.b 'Greg Marriott',13
|
|
dc.b 'Beatrice Sochor',13
|
|
dc.b 'Dean Yu',13
|
|
align
|
|
|
|
; ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
|
|
end
|