projects
/
rrq
/
jonasforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
;; 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 READ_WORD
dq INTERPRET_WORD
dq BRANCH, -8 * 7 ; to INPUT-LENGTH @
+ dq LIT, 0, INPUT_BUFFER, PUT
+
dq EXIT
dq EXIT