X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=stdio.asm;h=fed8eda38df2fffa598e11bb4f8d7c8d4a26b19e;hb=135bac77e9403714670d582b59255f2588ec83fb;hp=ae3e08eaa64a5c3b72e1152bce4161da7a8b8f17;hpb=f3bc3b97f37dd7bc012c152374d4185c734b3a7e;p=rrq%2Frrqforth.git

diff --git a/stdio.asm b/stdio.asm
index ae3e08e..fed8eda 100644
--- a/stdio.asm
+++ b/stdio.asm
@@ -108,6 +108,7 @@ p_read_stream_char.CHAR:
 	push qword p_line_buffer_DFA
 	push qword 0
 	push rax
+
 p_read_word_skipblanks:	
 	FORTH
 	dq p_dup
@@ -118,7 +119,13 @@ p_read_word_skipblanks:
 	jl p_read_word_nomore
 	cmp bl,' '
 	jle p_read_word_skipblanks
+
 p_read_word_readword:
+	;; ( buffer length stream )
+	mov rax,qword [rsp+16]
+	mov rcx,qword [rsp+8]
+	mov [rax+rcx],bl
+	inc qword [rsp+8]
 	FORTH
 	dq p_dup
 	dq p_read_stream_char
@@ -127,13 +134,8 @@ p_read_word_readword:
 	cmp bl,0
 	jl p_read_word_nomore
 	cmp bl,' '
-	jle p_read_word_nomore
-	;; ( buffer length stream )
-	mov rax,qword [rsp+16]
-	mov rcx,qword [rsp+8]
-	mov [rax+rcx],bl
-	inc qword [rsp+8]
-	jmp p_read_word_readword
+	jg p_read_word_readword
+
 p_read_word_nomore:
 	pop rax
 	popr rsi