rc2014: aaaalmost there....

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

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

recipes/rc2014/run.fs

@@ -1 +1,9 @@
-ACIA$ LIT< hello (print) BYE
+: INIT
+    ACIA$
+    (c<$)
+    ." Collapse OS" LF
+    ( 0c == CINPTR )
+    ' (c<) 0x0c RAM+ !
+;
+INIT
+