it works???????????????

2 files changed, 21 insertions, 2 deletions

diff --git a/jefs.fs b/jefs.fs
index a968821..3e206fa 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -1,2 +1,3 @@
-: syswrite 1 syscall3 ; \ aeu oeu eo ue
-bye
+: syswrite ( u c-addr fd -- n ) 1 syscall3 ;
+: say ( c-addr u -- ) swap 1 syswrite drop ;
+TESTSTR say bye
diff --git a/jefs.s b/jefs.s
index 6d48bd4..86893bd 100644
--- a/jefs.s
+++ b/jefs.s
@@ -559,6 +559,24 @@ defword "\", backslash, immediate_mask
 	mov qword [to_in], r13
 	ret
 
+defword "(", bracket, immediate_mask
+	mov r13, qword [to_in]
+	add r13, initfile
+	mov r12b, byte [r13]
+.loop:
+	cmp r12b, 0x29
+	je .done
+
+	inc r13
+	mov r12b, byte [r13]
+	jmp .loop
+
+.done:
+	inc r13
+	sub r13, initfile
+	mov qword [to_in], r13
+	ret
+
 ; TEMPORARY HORRIBLE DEBUGGING BULLSHIT {{{
 ; debugging word; outputs raw bytes so needs to be piped through `x(x)d`
 ; terrible and awful