From 98ed2359616cefe8f811f9836967fe77104625e1 Mon Sep 17 00:00:00 2001
From: thamugadi <qirimhangli@gmail.com>
Date: Wed, 19 Jan 2022 16:34:22 +0100
Subject: [PATCH] forth files

---
 loader/def.fth  | 3 ++-
 loader/load.fth | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

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