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

holder for bufptr while i implement flex

Browse Source
This commit is contained in:
Elliot Nunn 2018-01-05 12:50:05 +08:00
parent 2bb8bda9b6
commit 27a860eef3
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
OS/StartMgr/Boot3.a
View File

@ -531,7 +531,7 @@ 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
LogProgress SET 1 ; SET to 1 (at any point) to spam NanoKernel log
MACRO
@ -545,6 +545,15 @@ LogProgress SET 0 ; SET to 1 (at any point) to spam NanoKernel log
movem.l @progRegs, -(sp)
IF LogProgress THEN
; MOVE.L a5,-(SP) ; C arg 3: (long)value = globals
BSR DirtyWork
MOVE.L $10C,-(SP) ; C arg 3: (long)value = BufPtr
BSR DirtyWork
MOVE.L $108,-(SP) ; C arg 3: (long)value = MemTop
BSR DirtyWork
pea @str + 1 ; c string
move #-3, -(sp)
dc.w $AA7F
@ -691,6 +700,18 @@ PositionStack
lea BootGlobals.initialSP(a5), sp
bra.s SkipDirtyWork
DirtyWork
MOVE.L (sp), a0
MOVE.L 4(sp), a1
MOVE.L a1, (sp)
MOVE.L a2, 4(sp)
MOVE.L #3,-(SP) ; C arg 2: (short)howWide /* want 8 hex digits */
MOVE #-2,-(SP) ; C arg 1: (short)selector /* to print hex */
DC.W $AA7F
RTS
SkipDirtyWork
; ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
EnsureFigment