diff options
| author | kitty <nepeta@canaglie.net> | 2026-02-08 15:53:35 +1100 |
|---|---|---|
| committer | kitty <nepeta@canaglie.net> | 2026-02-08 15:53:35 +1100 |
| commit | 14ef00273e2857a8d68b5bd4c542e3d9d82582d7 (patch) | |
| tree | afd61baa8ed44c9cfa9a3da98119aee99b3601ca /jefs.s | |
| parent | 2dec249cc7a07bb241bc0611f82e723030d3e30c (diff) | |
i believe it now passes PARSE
Diffstat (limited to 'jefs.s')
| -rw-r--r-- | jefs.s | 11 |
1 files changed, 9 insertions, 2 deletions
@@ -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: |