diff options
| author | kitty <nepeta@canaglie.net> | 2026-02-08 16:24:04 +1100 |
|---|---|---|
| committer | kitty <nepeta@canaglie.net> | 2026-02-08 16:24:04 +1100 |
| commit | 0a11fb3047331aedbc8f09ee8a79c3c887e833b5 (patch) | |
| tree | 2748b327e0665ac4593621cbeee7d832f19463ee | |
| parent | 3db62aa566a0d67282562a9bac72d0f6bf5c00cb (diff) | |
separate >cfa into a word
| -rw-r--r-- | jefs.s | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -192,7 +192,13 @@ defword "interpret", interpret, 0 .loop: call parse call find - pspop r11 ; for testing + pspop r11 ; assume it exists for testing + call to_cfa + pspop r11 + call r11 + ret + +defword ">cfa", to_cfa, 0 pspop r11 add r11, 9 xor r12, r12 @@ -200,7 +206,7 @@ defword "interpret", interpret, 0 add r11, 2 add r11, r12 inc r11 - call r11 + pspush r11 ret defvar ">in", to_in, 0, 0 |