X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=stdio.asm;h=eeac43874b332fb92e81784c941da12be5169f4e;hb=1fb804b8f6a4bd907491e5d64d4a16e190e64c17;hp=9cf7611606e2411832f2572d55b183deae0b1f90;hpb=f2b2acd5d5c79e2d65854eef7e23f7323bc6c4f2;p=rrq%2Frrqforth.git

diff --git a/stdio.asm b/stdio.asm
index 9cf7611..eeac438 100644
--- a/stdio.asm
+++ b/stdio.asm
@@ -219,7 +219,7 @@ p_read_word_nomore:
 	push p_pad_DFA
 	push 0
 p_double_quote_loop:	
-	DOFORTH p_stdin, p_read_stream_char
+	DOFORTH p_input, p_get, p_read_stream_char
 	pop rax
 	cmp rax,0
 	jl p_double_quote_endstream
@@ -271,7 +271,7 @@ p_double_quote_endstream:
 	WORD p_sp,'SP',dovalue
 	;; ( -- c )
 	;; Pushes a space character on the stack
-	dq 10
+	dq 32
 
 	WORD p_digits,'DIGITS',dovariable
 	db '0123456789abcdef'