diff options
Diffstat (limited to 'jefs.s')
| -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 |