From 5229f9d99f9e7f3bf94b954f6e7429329e06777c Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Sun, 8 Feb 2026 21:17:20 +1100
Subject: COMPILE,

maybe will not work because of endianness but it will be a simple fix
---
 jefs.s | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

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