Macintosh-SW/mac-rom
1
0
Fork 0
mirror of https://github.com/elliotnunn/mac-rom.git synced 2025-01-14 06:29:46 +00:00
Code Issues Projects Releases Wiki Activity

Add option to print progress to NanoKernel log

Browse Source
This commit is contained in:
Elliot Nunn 2018-01-03 06:55:49 +08:00
parent 98dd2474ed
commit 2bb8bda9b6
1 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
OS/StartMgr/Boot3.a
View File

@ -531,15 +531,29 @@ pramFigmentOffset EQU $8A ; sayeth SheepShaver
pramFigmentFlag EQU 5 ; (SheepShaver also sets bits 0 and 2)
LogProgress SET 0 ; SET to 1 (at any point) to spam NanoKernel log
MACRO
&label Progress
movem.l a0/a1, -(sp)
IF LogProgress THEN
@progRegs reg a0/a1/d0/d1/d2
ELSE
@progRegs reg a0/a1
ENDIF
movem.l @progRegs, -(sp)
IF LogProgress THEN
pea @str + 1 ; c string
move #-3, -(sp)
dc.w $AA7F
ENDIF
move.l $2b6, a0 ; expandmem
lea @str, a1
move.l a1, $324(a0)
bsr NudgeProgressBar
movem.l (sp)+, a0/a1
movem.l (sp)+, @progRegs
bra.s @poststr
LCLC &oldstr ; save string setting
@ -547,6 +561,10 @@ pramFigmentFlag EQU 5 ; (SheepShaver also sets bits 0 and 2)
STRING Pascal ; change it
@str
dc.b '&label' ; insert string
IF LogProgress THEN
STRING C
dc.b '^n'
ENDIF
align 2
@poststr
STRING &oldstr ; change it back