forth files
This commit is contained in:
parent
e809b35e95
commit
98ed235961
|
@ -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 = ;
|
: sup - dup abs = ;
|
||||||
: inf dup sup 1 + ;
|
: inf dup sup 1 + ;
|
||||||
: diff = if 0 else -1 then ;
|
: diff = if 0 else -1 then ;
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
msg
|
initmsg
|
||||||
fba beige-vram = if beige-message beige-magic-number beige-vram c! then
|
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 mac99-vram = if mac99-message mac99-magic-number mac99-vram c! then
|
||||||
fba beige-vram = if screen-width 4 beige-vram + l! then
|
fba beige-vram = if screen-width 4 beige-vram + l! then
|
||||||
|
@ -11,5 +11,5 @@ variable run
|
||||||
-1 run !
|
-1 run !
|
||||||
fba beige-vram diff fba mac99-vram diff and if hardware-error 0 run ! then
|
fba beige-vram diff fba mac99-vram diff and if hardware-error 0 run ! then
|
||||||
run @ 0 = if 1 0 do 0 +loop then
|
run @ 0 = if 1 0 do 0 +loop then
|
||||||
." Running Game of Life: " cr
|
startmsg
|
||||||
boot hd:,\boot\kernel.elf
|
boot hd:,\boot\kernel.elf
|
||||||
|
|
Loading…
Reference in New Issue