emit, cr, sp

1 files changed, 5 insertions, 2 deletions

diff --git a/jefs.fs b/jefs.fs
index e1831a8..aa5d44c 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -6,10 +6,13 @@
 : if 0branch here @ 0 d, ; immediate ( I: -- a )
 : then dup here @ swap - 4 - swap d! ; immediate
 
+: cells 8 * ;
+: cell+ 8 + ;
 : / /mod swap drop ;
 : mod /mod drop ;
 
 : syswrite ( u c-addr fd -- n ) 1 syscall3 ;
 : say ( c-addr u -- ) swap 1 syswrite drop ;
-: saying 0 if bye then ;
-saying TESTSTR say bye
+: emit ( chr -- ) sp cell+ 1 swap 1 syswrite 2drop ;
+: cr 10 emit ;
+TESTSTR say cr bye