recipes/rc2014: busting the 8K limit again!

2020-04-25 08:15:17 -04:00 · 2020-04-25 08:15:17 -04:00 · 4160c8ebbf
commit 4160c8ebbf
parent 5219887ad7
2 changed files with 3 additions and 8 deletions
--- a/forth/parse.fs
+++ b/forth/parse.fs
@ -54,7 +54,7 @@
    DUP @ 25136 = NOT IF 0 EXIT THEN    ( a 0 )
    ( We have "0b" prefix )
    2+
-    0 ( a r )
+    0  ( a r )
    BEGIN
    SWAP C@+                               ( r a+1 c )
    DUP NOT IF 2DROP 1 EXIT THEN           ( r 1 )
--- a/recipes/rc2014/run.fs
+++ b/recipes/rc2014/run.fs
@ -1,7 +1,2 @@
-: (c<) KEY DUP EMIT ;
-: _
-    ACIA$
-    ." Collapse OS" CRLF
-    ( 0c == CINPTR )
-    ['] (c<) 0x0c RAM+ !
-; _
+: x KEY DUP EMIT ;
+: _ ACIA$ (ok) ['] x 0x0c RAM+ ! ; _