COMPILE,

maybe will not work because of endianness but it will be a simple fix

1 files changed, 16 insertions, 0 deletions

diff --git a/jefs.s b/jefs.s
index 75ed89e..ac649c1 100644
--- a/jefs.s
+++ b/jefs.s
@@ -226,6 +226,22 @@ defword ">cfa", to_cfa, 0
 	ret
 
 defword "compile,", compile_comma, 0
+	pspop r11
+	mov r12, [here]
+
+	; compile mov r11, [cfa]
+	mov word [r12], 0x94bb
+	add r12, 2
+	mov qword [r12], r11
+	add r12, 8
+
+	; compile call r11
+	mov word [r12], 0x41ff
+	add r12, 2
+	mov byte [r12], 0xd3
+	inc r12
+
+	mov qword [here], r12
 	ret
 
 defword ":", colon, 0