From 1e8811261e7b7a58ff4269c9b4ef16fbcc49e3d4 Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Sun, 15 Feb 2026 13:12:05 +1100
Subject: emit, cr, sp

---
 jefs.fs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'jefs.fs')

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
-- 
cgit v1.2.3