some new words

[rrq/rrqforth.git] / stdio.asm

diff --git a/stdio.asm b/stdio.asm
index 467952ba2f8a4b7f9716a3a2b3f22b69372ea7e4..e07e809d8bba5deda2d599f73c9660a1cfd04f2d 100644 (file)
--- a/stdio.asm
+++ b/stdio.asm
@@ -288,22 +288,22 @@ p_double_quote_endstream:
        WORD p_fdtell,'FDTELL',
        ;; ( chars* n fd -- )
        ;; Write n bytes from chars* to fd
-       dq p_rot, p_rot, sys_write, p_drop, p_exit
+       dq p_rot, p_rot, sys_write, p_drop, p_return
        
        WORD p_tell,'TELL'
        ;; ( chars* n -- )
        ;; Write n bytes from chars* to stdout
-       dq p_literal,1,p_fdtell, p_exit
+       dq p_literal,1,p_fdtell, p_return
 
        WORD p_fdemit,'FDEMIT'
        ;; ( c fd -- )
        ;; Write byte to fd
-       dq p_literal,1, p_dsp, p_literal,1, sys_write, p_2drop, p_exit
+       dq p_literal,1, p_dsp, p_literal,1, sys_write, p_2drop, p_return
        
        WORD p_emit,'EMIT'
        ;; ( c -- )
        ;; Write byte to stdout
-       dq p_literal,1, p_fdemit, p_exit
+       dq p_literal,1, p_fdemit, p_return
 
        WORD p_nl,'NL',dovalue
        ;; ( -- c )
@@ -360,4 +360,4 @@ p_dot_remainder:
        WORD p_dot,'.'
        ;; ( v -- )
        ;; Print value to stdout
-       dq p_dot_temp, p_literal,1, p_fdtell, p_exit
+       dq p_dot_temp, p_literal,1, p_fdtell, p_return