Move some Forth words to separate 'bootstrap.asm' file

[rrq/jonasforth.git] / sys.f

diff --git a/sys.f b/sys.f
index 92efcb4667734414aecfc2bfb2a43a83627301cb..6b13ff9775b5b0ad93c26ada9e83e00c504b8feb 100644 (file)
--- a/sys.f
+++ b/sys.f
@@ -76,3 +76,12 @@ EXIT [
     SWAP 1 + SWAP
   1 - DUP 0 = UNTIL
   DROP DROP ;
+
+: NEWLINE 10 EMIT ;
+: SPACE 32 EMIT ;
+
+( Read a number from standard input. )
+: READ-NUMBER READ-WORD PARSE-NUMBER ;
+
+( vim: syntax=forth
+)