dont move input buffer unless needed

jkotlinski · May 20, 2019 · b651447 · b651447
1 parent b7a75d3
commit b651447
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/CHANGELOG b/CHANGELOG
@@ -351,4 +351,4 @@ Thanks to polluks for suggestions!
 2019-05-20: v1.6.7
 
 [Fixed]
- * include/included would clobber the text input buffer.
+ * include, included would clobber the text input buffer.
diff --git a/durexforth.asm b/durexforth.asm
@@ -567,11 +567,15 @@ SAVE_INPUT
     lda TIB_PTR+1
     jsr push_input_stack
 
+    lda TO_IN
+    cmp TIB_SIZE
+    beq +
     ; Temporarily moves the input buffer to avoid clobbering.
     lda TIB_SIZE
     clc
     adc TIB_PTR
     sta TIB_PTR
++
 
     lda TIB_SIZE
     jsr push_input_stack