From 0a11fb3047331aedbc8f09ee8a79c3c887e833b5 Mon Sep 17 00:00:00 2001 From: kitty Date: Sun, 8 Feb 2026 16:24:04 +1100 Subject: separate >cfa into a word --- jefs.s | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/jefs.s b/jefs.s index 484c7b9..1c43d0a 100644 --- a/jefs.s +++ b/jefs.s @@ -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 -- cgit v1.2.3