diff --git a/loader/def.fth b/loader/def.fth index 97117f8..84f57f5 100644 --- a/loader/def.fth +++ b/loader/def.fth @@ -1,4 +1,5 @@ -: msg ." powerpc-ofw-boot : Booting through OpenFirmware..." cr ; +: initmsg ." powerpc-ofw-boot : Booting through OpenFirmware..." cr ; +: startmsg ." Running Game of Life..." cr ; : sup - dup abs = ; : inf dup sup 1 + ; : diff = if 0 else -1 then ; diff --git a/loader/load.fth b/loader/load.fth index f469ec2..ed1fcfe 100644 --- a/loader/load.fth +++ b/loader/load.fth @@ -1,4 +1,4 @@ -msg +initmsg fba beige-vram = if beige-message beige-magic-number beige-vram c! then fba mac99-vram = if mac99-message mac99-magic-number mac99-vram c! then fba beige-vram = if screen-width 4 beige-vram + l! then @@ -11,5 +11,5 @@ variable run -1 run ! fba beige-vram diff fba mac99-vram diff and if hardware-error 0 run ! then run @ 0 = if 1 0 do 0 +loop then -." Running Game of Life: " cr +startmsg boot hd:,\boot\kernel.elf