From d1f4dc0ca3313f58b86d1983f5eda870c2effdcd Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sat, 4 Apr 2020 14:27:23 -0400
Subject: [PATCH] rc2014: aaaalmost there....

---
 drv/acia.fs             |  2 +-
 recipes/rc2014/Makefile |  2 ++
 recipes/rc2014/run.fs   | 10 +++++++++-
 3 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/drv/acia.fs b/drv/acia.fs
index 0200731..b1d0320 100644
--- a/drv/acia.fs
+++ b/drv/acia.fs
@@ -56,6 +56,6 @@ ACIA_IO: IO port for the ACIA's data registers
     ( As long at CTL bit 1 is low, we are transmitting. wait )
     BEGIN ACIA_CTL PC@ 0x02 AND UNTIL
     ( The way is clear, go! )
-    ACIA_IO SWAP PC!
+    ACIA_IO PC!
 ;
 
diff --git a/recipes/rc2014/Makefile b/recipes/rc2014/Makefile
index 9d37fd9..bfd3d0a 100644
--- a/recipes/rc2014/Makefile
+++ b/recipes/rc2014/Makefile
@@ -10,6 +10,8 @@ PATHS = pre.fs \
 	$(FDIR)/parse.fs \
 	$(BASEDIR)/drv/acia.fs \
 	$(FDIR)/print.fs \
+	$(FDIR)/readln.fs \
+	$(FDIR)/fmt.fs \
 	run.fs
 SLATEST = $(BASEDIR)/tools/slatest
 STRIPFC = $(BASEDIR)/tools/stripfc
diff --git a/recipes/rc2014/run.fs b/recipes/rc2014/run.fs
index fe2dcfd..f53ea6c 100644
--- a/recipes/rc2014/run.fs
+++ b/recipes/rc2014/run.fs
@@ -1 +1,9 @@
-ACIA$ LIT< hello (print) BYE
+: INIT
+    ACIA$
+    (c<$)
+    ." Collapse OS" LF
+    ( 0c == CINPTR )
+    ' (c<) 0x0c RAM+ !
+;
+INIT
+