From 14ef00273e2857a8d68b5bd4c542e3d9d82582d7 Mon Sep 17 00:00:00 2001 From: kitty Date: Sun, 8 Feb 2026 15:53:35 +1100 Subject: i believe it now passes PARSE --- jefs.s | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'jefs.s') diff --git a/jefs.s b/jefs.s index 806e3b2..19e93d7 100644 --- a/jefs.s +++ b/jefs.s @@ -21,8 +21,8 @@ %define mac_latest lfa_%2 ffa_%2: db %3 ; FFA nfa_%2: dw slen ; NFA - db 0 db %1 + db 0 %endmacro %macro defword 3 @@ -68,6 +68,7 @@ _start: ; init mov r14, wstack ; point SP to top + call interpret mov rdi, 0 mov rax, __NR_exit syscall @@ -186,9 +187,15 @@ defword "find", find, 0 ; stage 1 interpreter, just reads from initfile defword "interpret", interpret, 0 +.loop: + call parse + call find + pspop r11 ; for testing + pspop r11 + call r11 ret -defvar ">in", to_in, 0, initfile +defvar ">in", to_in, 0, 0 defvar "latest", latest, 0, lfa_latest initfile: -- cgit v1.2.3