mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-01 07:41:58 +00:00
Spam log and see far we can get
(Not far!)
This commit is contained in:
parent
bbb73bc9b7
commit
4868d3b176
|
@ -256,6 +256,35 @@ DIP EQU -3 ; DiskInPlace offset in DQE
|
||||||
VMGlobals EQU $0B78 ; VMGlobals [V0 constant] <SM49>
|
VMGlobals EQU $0B78 ; VMGlobals [V0 constant] <SM49>
|
||||||
|
|
||||||
|
|
||||||
|
MACRO
|
||||||
|
&label Progress
|
||||||
|
|
||||||
|
@progRegs reg a0/a1/d0/d1/d2
|
||||||
|
|
||||||
|
movem.l @progRegs, -(sp)
|
||||||
|
|
||||||
|
pea @str ; c string
|
||||||
|
move #-3, -(sp)
|
||||||
|
dc.w $AA7F
|
||||||
|
|
||||||
|
movem.l (sp)+, @progRegs
|
||||||
|
|
||||||
|
bra.s @poststr
|
||||||
|
|
||||||
|
LCLC &oldstr ; save string setting
|
||||||
|
&oldstr SETC &SETTING('STRING')
|
||||||
|
STRING AsIs ; change it
|
||||||
|
@str
|
||||||
|
dc.b '&label' ; insert string
|
||||||
|
dc.b '^n'
|
||||||
|
dc.b 0
|
||||||
|
align 2
|
||||||
|
@poststr
|
||||||
|
STRING &oldstr ; change it back
|
||||||
|
|
||||||
|
ENDM
|
||||||
|
|
||||||
|
|
||||||
;---------------------------------------------------
|
;---------------------------------------------------
|
||||||
; IMPORTs
|
; IMPORTs
|
||||||
;---------------------------------------------------
|
;---------------------------------------------------
|
||||||
|
@ -294,8 +323,10 @@ BootMe PROC EXPORT
|
||||||
EXPORT InitSys7Toolbox
|
EXPORT InitSys7Toolbox
|
||||||
EXPORT OpenSlots
|
EXPORT OpenSlots
|
||||||
|
|
||||||
|
PreFind Progress
|
||||||
BSR FindStartupDevice ; Find the startup device & load boot blocks.
|
BSR FindStartupDevice ; Find the startup device & load boot blocks.
|
||||||
; (see StartSearch.a)
|
; (see StartSearch.a)
|
||||||
|
PostFind Progress
|
||||||
|
|
||||||
; SCSI people mess with the zones. Reunify the sys and app zones for
|
; SCSI people mess with the zones. Reunify the sys and app zones for
|
||||||
; possible expansion. Code borrowed from StartInit.
|
; possible expansion. Code borrowed from StartInit.
|
||||||
|
|
|
@ -1021,6 +1021,36 @@ ioNuBusTTxlat EQU $500FC040 ; I/O space and nuBus $6-$7 with serialized wri
|
||||||
SETMACHINE
|
SETMACHINE
|
||||||
|
|
||||||
|
|
||||||
|
MACRO
|
||||||
|
&label Progress
|
||||||
|
|
||||||
|
@progRegs reg a0/a1/d0/d1/d2
|
||||||
|
|
||||||
|
movem.l @progRegs, -(sp)
|
||||||
|
|
||||||
|
pea @str ; c string
|
||||||
|
move #-3, -(sp)
|
||||||
|
dc.w $AA7F
|
||||||
|
|
||||||
|
movem.l (sp)+, @progRegs
|
||||||
|
|
||||||
|
bra.s @poststr
|
||||||
|
|
||||||
|
LCLC &oldstr ; save string setting
|
||||||
|
&oldstr SETC &SETTING('STRING')
|
||||||
|
STRING AsIs ; change it
|
||||||
|
@str
|
||||||
|
dc.b '&label' ; insert string
|
||||||
|
dc.b '^n'
|
||||||
|
dc.b 0
|
||||||
|
align 2
|
||||||
|
@poststr
|
||||||
|
STRING &oldstr ; change it back
|
||||||
|
|
||||||
|
ENDM
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;---------------------------------------------------
|
;---------------------------------------------------
|
||||||
; EXPORTs and IMPORTs
|
; EXPORTs and IMPORTs
|
||||||
|
@ -1516,6 +1546,9 @@ BootRetry MOVE #$2700,SR ; disable interrupts
|
||||||
|
|
||||||
BSR.L InitRSRCMgr ; initialize the Resource Manager
|
BSR.L InitRSRCMgr ; initialize the Resource Manager
|
||||||
BSR.L NMInit ; Initialize the Notification Manager
|
BSR.L NMInit ; Initialize the Notification Manager
|
||||||
|
|
||||||
|
|
||||||
|
I_Know_I_Saved_The_Company Progress
|
||||||
|
|
||||||
CLR.W -(SP) ; pass the INIT message to ShutDown
|
CLR.W -(SP) ; pass the INIT message to ShutDown
|
||||||
_ShutDown ; to initialize the queue
|
_ShutDown ; to initialize the queue
|
||||||
|
@ -1555,21 +1588,25 @@ BootRetry MOVE #$2700,SR ; disable interrupts
|
||||||
|
|
||||||
IMPORT InterC_2560
|
IMPORT InterC_2560
|
||||||
BSR InterC_2560
|
BSR InterC_2560
|
||||||
|
x1 Progress
|
||||||
|
AboutToSwapToolScratch Progress
|
||||||
CLR.L -(SP) ; who wrote this?
|
CLR.L -(SP) ; who wrote this?
|
||||||
MOVE.L (SP)+, ($D18)
|
MOVE.L (SP)+, ($D18)
|
||||||
MOVE.L ToolScratch, -(SP)
|
MOVE.L ToolScratch, -(SP)
|
||||||
LEA.L SetUpTimeK, A0
|
LEA.L SetUpTimeK, A0
|
||||||
MOVE.L A0, ToolScratch
|
MOVE.L A0, ToolScratch
|
||||||
|
|
||||||
IMPORT InterC_2090_PowerMgr
|
Doing_InterC_2090_PowerMgr Progress ; crashes after this one.
|
||||||
BSR InterC_2090_PowerMgr
|
|
||||||
|
; IMPORT InterC_2090_PowerMgr
|
||||||
|
; BSR InterC_2090_PowerMgr
|
||||||
|
|
||||||
|
Doing_InterC_2a80_EtherPrintfLib Progress
|
||||||
|
|
||||||
IMPORT InterC_2a80_EtherPrintfLib
|
IMPORT InterC_2a80_EtherPrintfLib
|
||||||
BSR.L InterC_2a80_EtherPrintfLib
|
BSR.L InterC_2a80_EtherPrintfLib
|
||||||
MOVE.L (SP)+, ToolScratch
|
MOVE.L (SP)+, ToolScratch
|
||||||
|
x2 Progress
|
||||||
|
|
||||||
BSR GetPRAM ; get 20 bytes PRAM, and TIME
|
BSR GetPRAM ; get 20 bytes PRAM, and TIME
|
||||||
|
|
||||||
|
@ -1588,7 +1625,7 @@ BootRetry MOVE #$2700,SR ; disable interrupts
|
||||||
|
|
||||||
IMPORT RSETKMAP
|
IMPORT RSETKMAP
|
||||||
BSR.L RSETKMAP
|
BSR.L RSETKMAP
|
||||||
|
x3 Progress
|
||||||
IMPORT InterC_2bc0_DebugPrint
|
IMPORT InterC_2bc0_DebugPrint
|
||||||
BSR.L InterC_2bc0_DebugPrint
|
BSR.L InterC_2bc0_DebugPrint
|
||||||
|
|
||||||
|
@ -1605,52 +1642,64 @@ BootRetry MOVE #$2700,SR ; disable interrupts
|
||||||
BSR InitCrsrMgrMiddle
|
BSR InitCrsrMgrMiddle
|
||||||
BSR.L InitCrsrDev ; initialize Cursor globals <H9>
|
BSR.L InitCrsrDev ; initialize Cursor globals <H9>
|
||||||
; (InitCrsrDev must preceed InitADB)
|
; (InitCrsrDev must preceed InitADB)
|
||||||
|
x4 Progress
|
||||||
SUBQ #2, SP
|
; SUBQ #2, SP
|
||||||
MOVEQ.L #-1, D0
|
; MOVEQ.L #-1, D0
|
||||||
_DisplayDispatch
|
; _DisplayDispatch ; selectInstallDisplayManager
|
||||||
ADDQ #2, SP
|
; ADDQ #2, SP
|
||||||
|
|
||||||
;----------------------------------------------------------------
|
;----------------------------------------------------------------
|
||||||
; Install Drivers (Disk, Sound, Video).
|
; Install Drivers (Disk, Sound, Video).
|
||||||
;----------------------------------------------------------------
|
;----------------------------------------------------------------
|
||||||
; 300
|
; 300
|
||||||
|
x4_half Progress
|
||||||
|
|
||||||
LEA DrvQHdr, A1 ; Initialize the drive queue.
|
LEA DrvQHdr, A1 ; Initialize the drive queue.
|
||||||
BSR.L InitQueue
|
BSR.L InitQueue
|
||||||
|
x5 Progress
|
||||||
BSR InitDeviceMgr ; Init unit I/O table and install the drivers.
|
BSR InitDeviceMgr ; Init unit I/O table and install the drivers.
|
||||||
|
|
||||||
IMPORT InitDeviceDispatch
|
IMPORT InitDeviceDispatch
|
||||||
BSR.L InitDeviceDispatch
|
BSR.L InitDeviceDispatch
|
||||||
|
x6 Progress
|
||||||
BTST.B #$6, ($2400)
|
BTST.B #$6, ($2400)
|
||||||
BNE.B @definitely
|
BNE.B @definitely
|
||||||
BTst.B #$0, ($DD0)
|
BTst.B #$0, ($DD0)
|
||||||
BEQ.B @dont
|
BEQ.B bigdont
|
||||||
@definitely
|
@definitely
|
||||||
|
x6_1 Progress
|
||||||
|
|
||||||
BSR NewStartInitFunc
|
BSR NewStartInitFunc
|
||||||
|
x6_2 Progress
|
||||||
BSR.L InitSCSIMgr ; Init old and new SCSI Mgrs
|
BSR.L InitSCSIMgr ; Init old and new SCSI Mgrs
|
||||||
@dont
|
bigdont
|
||||||
|
x6_3 Progress
|
||||||
|
|
||||||
IMPORT InitExpansionMgr
|
IMPORT InitExpansionMgr
|
||||||
BSR.L InitExpansionMgr
|
BSR.L InitExpansionMgr
|
||||||
|
x6_4 Progress
|
||||||
|
|
||||||
IMPORT InterC_1980_Drivers
|
IMPORT InterC_1980_Drivers
|
||||||
BSR.L InterC_1980_Drivers
|
BSR.L InterC_1980_Drivers
|
||||||
|
x6_5 Progress
|
||||||
|
|
||||||
BSR LoadDrivers ; load the standard drivers
|
BSR LoadDrivers ; load the standard drivers
|
||||||
|
HackyWayToReturnFromLoadDrivers
|
||||||
|
x6_6 Progress
|
||||||
|
|
||||||
BSR.L InitADB ; initialize ADB interface
|
BSR.L InitADB ; initialize ADB interface
|
||||||
|
x6_7 Progress
|
||||||
|
|
||||||
import InterC_1910_USBFamilyExpertLib
|
; import InterC_1910_USBFamilyExpertLib
|
||||||
bsr.l InterC_1910_USBFamilyExpertLib
|
; bsr.l InterC_1910_USBFamilyExpertLib
|
||||||
|
|
||||||
|
x6_8 Progress
|
||||||
|
|
||||||
BSR InitCrsrMgr ; Initialize cursor variables
|
BSR InitCrsrMgr ; Initialize cursor variables
|
||||||
|
x7 Progress
|
||||||
IMPORT InitBCScreen
|
IMPORT InitBCScreen
|
||||||
BSR.L InitBCScreen
|
BSR.L InitBCScreen
|
||||||
|
x7_1 Progress
|
||||||
|
|
||||||
BSR.L TEGlobalInit ; initialize TextEdit vectors
|
BSR.L TEGlobalInit ; initialize TextEdit vectors
|
||||||
|
|
||||||
|
@ -1677,16 +1726,21 @@ BootRetry MOVE #$2700,SR ; disable interrupts
|
||||||
MOVE.L bkLim(A0),HeapEnd ; end of dynamic sys/appl zone
|
MOVE.L bkLim(A0),HeapEnd ; end of dynamic sys/appl zone
|
||||||
LEA BootGlobalsSize(SP), A6 ; boot blocks load pt
|
LEA BootGlobalsSize(SP), A6 ; boot blocks load pt
|
||||||
LEA QDBootGlobalsSize(SP),A5 ; leaving room for globals
|
LEA QDBootGlobalsSize(SP),A5 ; leaving room for globals
|
||||||
|
x7_2 Progress
|
||||||
|
|
||||||
BSR.L EnableSlotInts ; enable NuBus slot interrupts
|
BSR.L EnableSlotInts ; enable NuBus slot interrupts
|
||||||
|
x7_3 Progress
|
||||||
|
|
||||||
BSR.L InitFasterInvals ; init the expandmem variable for WindowMgr
|
BSR.L InitFasterInvals ; init the expandmem variable for WindowMgr
|
||||||
|
|
||||||
IF hasPwrControls THEN
|
IF hasPwrControls THEN
|
||||||
|
x7_4 Progress
|
||||||
BSR.L PowerDownAll ; power down all peripheral subsystems
|
BSR.L PowerDownAll ; power down all peripheral subsystems
|
||||||
ENDIF
|
ENDIF
|
||||||
|
|
||||||
BSR DrawBeepScreen ; Horst BeepmanhÕs patented gray screen
|
x7_5 Progress
|
||||||
|
; BSR DrawBeepScreen ; Horst BeepmanhÕs patented gray screen
|
||||||
|
x7_6 Progress
|
||||||
|
|
||||||
MOVE.L #WmStConst,WarmStart ; write warm start constant to indicate warm start
|
MOVE.L #WmStConst,WarmStart ; write warm start constant to indicate warm start
|
||||||
|
|
||||||
|
@ -1694,7 +1748,7 @@ BootRetry MOVE #$2700,SR ; disable interrupts
|
||||||
move.l #WmStConst,StartGlobals.sgWarmStart(A0) ; flag warm start in a
|
move.l #WmStConst,StartGlobals.sgWarmStart(A0) ; flag warm start in a
|
||||||
; place where StarTest can see it w/o an MMU
|
; place where StarTest can see it w/o an MMU
|
||||||
|
|
||||||
|
x8 Progress
|
||||||
|
|
||||||
|
|
||||||
import InterC_2780_FireWire
|
import InterC_2780_FireWire
|
||||||
|
@ -1713,7 +1767,7 @@ BootRetry MOVE #$2700,SR ; disable interrupts
|
||||||
; <65>, Other Terror changes...
|
; <65>, Other Terror changes...
|
||||||
;----------------------------------------------------------------
|
;----------------------------------------------------------------
|
||||||
; 3b6
|
; 3b6
|
||||||
|
x9 Progress
|
||||||
BTST #$1, $2409
|
BTST #$1, $2409
|
||||||
BEQ.B @dont_do_mysterious_thing
|
BEQ.B @dont_do_mysterious_thing
|
||||||
IMPORT LoadPCCardLib
|
IMPORT LoadPCCardLib
|
||||||
|
@ -1731,21 +1785,24 @@ BootRetry MOVE #$2700,SR ; disable interrupts
|
||||||
BSR.L INITSCSIBOOT ; allocate some memory for SCSI booting
|
BSR.L INITSCSIBOOT ; allocate some memory for SCSI booting
|
||||||
; and load third party SIMs (SCSI Interface
|
; and load third party SIMs (SCSI Interface
|
||||||
; modules
|
; modules
|
||||||
|
x10 Progress
|
||||||
IMPORT ATAMgr_5dae0
|
IMPORT ATAMgr_5dae0
|
||||||
BSR.L ATAMgr_5dae0
|
BSR.L ATAMgr_5dae0
|
||||||
|
x10_1 Progress
|
||||||
IMPORT ATAMgr_5dde0
|
IMPORT ATAMgr_5dde0
|
||||||
BSR.L ATAMgr_5dde0
|
BSR.L ATAMgr_5dde0
|
||||||
|
|
||||||
IMPORT InterC_2130_CardBus
|
x10_2 Progress
|
||||||
BSR InterC_2130_CardBus
|
; IMPORT InterC_2130_CardBus
|
||||||
|
; BSR InterC_2130_CardBus
|
||||||
|
MoneyShot Progress
|
||||||
|
|
||||||
*************************************************************************************************
|
*************************************************************************************************
|
||||||
* *
|
* *
|
||||||
* Everything's ready to go, so go look for a disk to boot from *
|
* Everything's ready to go, so go look for a disk to boot from *
|
||||||
* *
|
* *
|
||||||
*************************************************************************************************
|
*************************************************************************************************
|
||||||
|
GoLookForADiskToBootFrom Progress
|
||||||
|
|
||||||
BRA BootMe ; Exit Stage Right
|
BRA BootMe ; Exit Stage Right
|
||||||
|
|
||||||
|
@ -2794,6 +2851,7 @@ LoadDrivers
|
||||||
;
|
;
|
||||||
;ÑÑÑÑÑÑÑÑÑ Floppy Driver ÑÑÑÑÑÑÑÑÑ
|
;ÑÑÑÑÑÑÑÑÑ Floppy Driver ÑÑÑÑÑÑÑÑÑ
|
||||||
;
|
;
|
||||||
|
FloppyDriver Progress
|
||||||
LEA -IOQElSize(SP),SP ; allocate parameter block for device manager calls
|
LEA -IOQElSize(SP),SP ; allocate parameter block for device manager calls
|
||||||
MOVE.L SP,A0
|
MOVE.L SP,A0
|
||||||
CLR.B IOPermssn(A0) ; r/w permissions
|
CLR.B IOPermssn(A0) ; r/w permissions
|
||||||
|
@ -2804,6 +2862,7 @@ LoadDrivers
|
||||||
; if we don't have an EDisk driver, this will not affect anything
|
; if we don't have an EDisk driver, this will not affect anything
|
||||||
; to enable the EDisk, make sure that it is included in the rom resources
|
; to enable the EDisk, make sure that it is included in the rom resources
|
||||||
|
|
||||||
|
EDiskDriver Progress
|
||||||
IF hasEDisk THEN
|
IF hasEDisk THEN
|
||||||
LEA.L EDiskName,A1
|
LEA.L EDiskName,A1
|
||||||
MOVEQ.L #$30,D2 ; and resource ID <SM84>
|
MOVEQ.L #$30,D2 ; and resource ID <SM84>
|
||||||
|
@ -2815,6 +2874,7 @@ LoadDrivers
|
||||||
;ÑÑÑÑÑÑÑÑÑ LAN Disk Driver ÑÑÑÑÑÑÑÑÑ
|
;ÑÑÑÑÑÑÑÑÑ LAN Disk Driver ÑÑÑÑÑÑÑÑÑ
|
||||||
;
|
;
|
||||||
|
|
||||||
|
LanDiskDriver Progress
|
||||||
IMPORT InterC_1890_InitLANDisk
|
IMPORT InterC_1890_InitLANDisk
|
||||||
BSR InterC_1890_InitLANDisk
|
BSR InterC_1890_InitLANDisk
|
||||||
|
|
||||||
|
@ -2826,6 +2886,7 @@ LoadDrivers
|
||||||
|
|
||||||
IF hasBCScreen THEN
|
IF hasBCScreen THEN
|
||||||
|
|
||||||
|
BCScreenDriver Progress
|
||||||
SubQ.L #$2, sp
|
SubQ.L #$2, sp
|
||||||
Move.L sp, -(sp)
|
Move.L sp, -(sp)
|
||||||
Move.L #$3FF, -(sp)
|
Move.L #$3FF, -(sp)
|
||||||
|
@ -2847,7 +2908,9 @@ LoadDrivers
|
||||||
;ÑÑÑÑÑÑÑÑÑ Backlight Driver ÑÑÑÑÑÑÑÑÑ
|
;ÑÑÑÑÑÑÑÑÑ Backlight Driver ÑÑÑÑÑÑÑÑÑ
|
||||||
;
|
;
|
||||||
|
|
||||||
IF hasPwrControls THEN
|
; IF hasPwrControls THEN
|
||||||
|
IF 0 THEN
|
||||||
|
BacklightDriver Progress
|
||||||
BTst.B #$0, (HWCfgFlags)
|
BTst.B #$0, (HWCfgFlags)
|
||||||
BEQ.B @noBacklight
|
BEQ.B @noBacklight
|
||||||
BTst.B #$6, ($2409)
|
BTst.B #$6, ($2409)
|
||||||
|
@ -2870,7 +2933,7 @@ LoadDrivers
|
||||||
@skipALine
|
@skipALine
|
||||||
|
|
||||||
BTst.B #$3, ($DD3)
|
BTst.B #$3, ($DD3)
|
||||||
BEQ @exitDrivers
|
BEQ at_exitDrivers
|
||||||
ENDIF
|
ENDIF
|
||||||
|
|
||||||
|
|
||||||
|
@ -2887,13 +2950,14 @@ LoadDrivers
|
||||||
; whose entry point is an installation procedure. A 'SERD' installs itself into the unit
|
; whose entry point is an installation procedure. A 'SERD' installs itself into the unit
|
||||||
; table, remaining closed and inactive until opened by a client.
|
; table, remaining closed and inactive until opened by a client.
|
||||||
|
|
||||||
|
SerialDriver Progress
|
||||||
subq #4,sp ; allocate space for return value
|
subq #4,sp ; allocate space for return value
|
||||||
move.l #'nsrd',-(sp) ; push serial driver resource type
|
move.l #'nsrd',-(sp) ; push serial driver resource type
|
||||||
move.w #1,-(sp) ; SerialDMA driver is 'SERD' (1)
|
move.w #1,-(sp) ; SerialDMA driver is 'SERD' (1)
|
||||||
move.w #mapTrue,ROMMapInsert ; get resource from ROM
|
move.w #mapTrue,ROMMapInsert ; get resource from ROM
|
||||||
_GetResource
|
_GetResource
|
||||||
move.l (sp)+,d0 ; did it get the handle?
|
move.l (sp)+,d0 ; did it get the handle?
|
||||||
beq.b @exitDrivers
|
beq.b at_exitDrivers
|
||||||
movea.l d0,a2
|
movea.l d0,a2
|
||||||
movea.l (a2),a1
|
movea.l (a2),a1
|
||||||
SubQ #$4, A7
|
SubQ #$4, A7
|
||||||
|
@ -2913,7 +2977,9 @@ LoadDrivers
|
||||||
_BlockMove
|
_BlockMove
|
||||||
jsr (a1) ; call the install code
|
jsr (a1) ; call the install code
|
||||||
|
|
||||||
@exitDrivers
|
at_exitDrivers
|
||||||
|
ExitingDrivers Progress
|
||||||
|
bra HackyWayToReturnFromLoadDrivers
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -248,6 +248,71 @@ A5_bootGlobs EQU A5
|
||||||
A6_bootBlocks EQU A6
|
A6_bootBlocks EQU A6
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
MACRO
|
||||||
|
&label Progress
|
||||||
|
|
||||||
|
@progRegs reg a0/a1/d0/d1/d2
|
||||||
|
|
||||||
|
movem.l @progRegs, -(sp)
|
||||||
|
|
||||||
|
pea @str ; c string
|
||||||
|
move #-3, -(sp)
|
||||||
|
dc.w $AA7F
|
||||||
|
|
||||||
|
movem.l (sp)+, @progRegs
|
||||||
|
|
||||||
|
bra.s @poststr
|
||||||
|
|
||||||
|
LCLC &oldstr ; save string setting
|
||||||
|
&oldstr SETC &SETTING('STRING')
|
||||||
|
STRING AsIs ; change it
|
||||||
|
@str
|
||||||
|
dc.b '&label' ; insert string
|
||||||
|
dc.b '^n'
|
||||||
|
dc.b 0
|
||||||
|
align 2
|
||||||
|
@poststr
|
||||||
|
STRING &oldstr ; change it back
|
||||||
|
|
||||||
|
ENDM
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
MACRO
|
||||||
|
RProgress &label
|
||||||
|
|
||||||
|
@progRegs reg a0/a1/d0/d1/d2
|
||||||
|
|
||||||
|
movem.l @progRegs, -(sp)
|
||||||
|
|
||||||
|
pea @str ; c string
|
||||||
|
move #-3, -(sp)
|
||||||
|
dc.w $AA7F
|
||||||
|
|
||||||
|
movem.l (sp)+, @progRegs
|
||||||
|
|
||||||
|
bra.s @poststr
|
||||||
|
|
||||||
|
LCLC &oldstr ; save string setting
|
||||||
|
&oldstr SETC &SETTING('STRING')
|
||||||
|
STRING AsIs ; change it
|
||||||
|
@str
|
||||||
|
dc.b '&label' ; insert string
|
||||||
|
dc.b '^n'
|
||||||
|
dc.b 0
|
||||||
|
align 2
|
||||||
|
@poststr
|
||||||
|
STRING &oldstr ; change it back
|
||||||
|
|
||||||
|
ENDM
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;________________________________________________________________________________________
|
;________________________________________________________________________________________
|
||||||
;
|
;
|
||||||
; Routine: FindStartupDevice 3600
|
; Routine: FindStartupDevice 3600
|
||||||
|
@ -274,26 +339,46 @@ FindStartupDevice PROC EXPORT
|
||||||
IMPORT GetDefaultStartup ; StartSearch.a
|
IMPORT GetDefaultStartup ; StartSearch.a
|
||||||
|
|
||||||
link A4, #frameSize
|
link A4, #frameSize
|
||||||
|
|
||||||
|
YoWassup Progress
|
||||||
|
|
||||||
BSR EmbarkOnSearch ; Initialize our state.
|
BSR EmbarkOnSearch ; Initialize our state.
|
||||||
|
|
||||||
|
LoadingSlotDrivers Progress
|
||||||
|
|
||||||
BSR LoadSlotDrivers ; Default is a slot device, execute boot code
|
BSR LoadSlotDrivers ; Default is a slot device, execute boot code
|
||||||
; When booting a Mac OS, execution will continue here
|
; When booting a Mac OS, execution will continue here
|
||||||
|
|
||||||
|
DoneThat Progress
|
||||||
|
|
||||||
MOVEQ.L #0, D7
|
MOVEQ.L #0, D7
|
||||||
MOVE.L Ticks, startTicks(A4) ; Init the time we got here in case we have PowerMgr
|
MOVE.L Ticks, startTicks(A4) ; Init the time we got here in case we have PowerMgr
|
||||||
|
|
||||||
|
RProgress srch_1
|
||||||
|
|
||||||
BSR LoadSCSIDrivers ; Load all the drivers we can
|
BSR LoadSCSIDrivers ; Load all the drivers we can
|
||||||
BSR WaitForPollDrive ; Wait until the boot drive has warmed up
|
BSR WaitForPollDrive ; Wait until the boot drive has warmed up
|
||||||
|
|
||||||
|
RProgress srch_2
|
||||||
|
|
||||||
CLR.B -6(A4)
|
CLR.B -6(A4)
|
||||||
|
|
||||||
|
RProgress srch_3
|
||||||
|
|
||||||
BSR LoadATADrivers
|
; BSR LoadATADrivers
|
||||||
|
|
||||||
|
RProgress srch_4
|
||||||
|
|
||||||
BSR OpenLANDiskDriver
|
BSR OpenLANDiskDriver
|
||||||
|
|
||||||
|
RProgress srch_5
|
||||||
|
|
||||||
BRA @FirstEntry ; First time through: keep original goal
|
BRA @FirstEntry ; First time through: keep original goal
|
||||||
|
|
||||||
@NextPass
|
@NextPass
|
||||||
|
|
||||||
|
RProgress NextPass
|
||||||
|
|
||||||
IF hasPwrControls THEN ; <SM7>
|
IF hasPwrControls THEN ; <SM7>
|
||||||
WITH PmgrRec,pmCommandRec
|
WITH PmgrRec,pmCommandRec
|
||||||
TestFor hwCbPwrMgr ; do we have Power Manager?
|
TestFor hwCbPwrMgr ; do we have Power Manager?
|
||||||
|
|
Loading…
Reference in New Issue
Block a user