summaryrefslogtreecommitdiff
path: root/jefs.s
diff options
context:
space:
mode:
Diffstat (limited to 'jefs.s')
-rw-r--r--jefs.s11
1 files changed, 9 insertions, 2 deletions
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: