projects
/
rrq
/
rrqforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
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
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
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
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 )
WORD p_nl,'NL',dovalue
;; ( -- c )
@@
-360,4
+360,4
@@
p_dot_remainder:
WORD p_dot,'.'
;; ( v -- )
;; Print value to stdout
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