backslash comments

2 files changed, 19 insertions, 5 deletions

diff --git a/jefs.fs b/jefs.fs
index 3432b7e..a968821 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -1,6 +1,2 @@
-: here@ here @ ;
-here @
-here@ ,
-latest @ , 2 , 1 w, 58 ,
-HEREDUMP
+: syswrite 1 syscall3 ; \ aeu oeu eo ue
 bye
diff --git a/jefs.s b/jefs.s
index 69d41a7..6d48bd4 100644
--- a/jefs.s
+++ b/jefs.s
@@ -541,6 +541,24 @@ defword "]", rbrac, immediate_mask
 	mov qword [state], compiling
 	ret
 
+defword "\", backslash, immediate_mask
+	mov r13, qword [to_in]
+	add r13, initfile
+	mov r12b, byte [r13]
+.loop:
+	cmp r12b, 0x0a
+	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