From edb27714880586d9817db783c2dec677f5dd89f8 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Sat, 4 Apr 2020 17:43:00 -0400 Subject: [PATCH] rc2014: bingo! Interpreter is functional in the emulator! --- forth/readln.fs | 2 +- recipes/rc2014/pre.fs | 2 -- 2 files changed, 1 insertion(+), 3 deletions(-) diff --git a/forth/readln.fs b/forth/readln.fs index 9955185..d97b1fa 100644 --- a/forth/readln.fs +++ b/forth/readln.fs @@ -76,5 +76,5 @@ ( not EOL? good, inc and return ) DUP IF 1 IN> +! EXIT THEN ( c ) ( EOL ? readline. we still return typed char though ) - (rdln) (c<) ( c ) + (rdln) ( c ) ; diff --git a/recipes/rc2014/pre.fs b/recipes/rc2014/pre.fs index 9391927..ce990dd 100644 --- a/recipes/rc2014/pre.fs +++ b/recipes/rc2014/pre.fs @@ -1,3 +1 @@ 96 RAM+ HERE ! -HERE @ 256 /MOD 8 PC! 8 PC! -CURRENT @ 256 /MOD 8 PC! 8 PC!