add end of input handling to cparse

1 files changed, 12 insertions, 0 deletions

diff --git a/jefs.s b/jefs.s
index 03436f6..2a566fd 100644
--- a/jefs.s
+++ b/jefs.s
@@ -275,9 +275,13 @@ defword "cparse", cparse, 0
 	pspop r15 ; c
 	mov r13, qword [to_in]
 	add r13, qword [tib]
+	mov r10, qword [tib]
+	add r10, qword [num_tib]
 	mov r12b, byte [r13]
 
 .wordloop_start:
+	cmp r13, r10
+	jge .empty
 	push r13 ; keep start address of this word for later
 	mov r11, 1 ; W: word length count
 .wordloop:
@@ -286,6 +290,8 @@ defword "cparse", cparse, 0
 
 	inc r11
 	inc r13
+	cmp r13, r10
+	jge .empty
 	mov r12b, byte [r13]
 	jmp .wordloop
 
@@ -298,6 +304,12 @@ defword "cparse", cparse, 0
 	pspush r11 ; u
 	ret
 
+.empty:
+	xor r13, r13
+	pspush r13
+	pspush r13
+	ret
+
 defword "find", find, 0
 	pspop r10 ; u
 	pspop r11 ; c-addr