upgraded binary

[rrq/rrqforth.git] / stdio.asm

diff --git a/stdio.asm b/stdio.asm
index 9cf7611606e2411832f2572d55b183deae0b1f90..eeac43874b332fb92e81784c941da12be5169f4e 100644 (file)
--- 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'