Macintosh-SW
/
powerpc-ofw-boot
mirror of https://github.com/thamugadi/powerpc-ofw-boot.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

forth files

This commit is contained in:
thamugadi 2022-01-19 16:34:22 +01:00
parent e809b35e95
commit 98ed235961
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
loader/def.fth
View File

@ -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 ;

4
loader/load.fth
View File

@ -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