Finish implementing embedded sys.f

[rrq/jonasforth.git] / bootstrap.asm

diff --git a/bootstrap.asm b/bootstrap.asm
index bd0cc1541bccbdc35ddc0eec5ca548f2a692ccaf..1b8b65862947102c2c9117ae73eaf2890219d322 100644 (file)
--- a/bootstrap.asm
+++ b/bootstrap.asm
@@ -111,11 +111,13 @@ forth INTERPRET_STRING, 'INTERPRET-STRING'
   ;; Check if the buffer is-non-empty
   ;; [TODO] This probably won't work for strings with whitespace at the end.
   dq INPUT_LENGTH, GET
-  dq ZBRANCH, 8 * 7 ; to EXIT
+  dq ZBRANCH, 8 * 5 ; to EXIT
 
   dq READ_WORD
 
   dq INTERPRET_WORD
   dq BRANCH, -8 * 7 ; to INPUT-LENGTH @
 
+  dq LIT, 0, INPUT_BUFFER, PUT
+
   dq EXIT