From cb16fdb58dbe98c49831a596d332defc2740c051 Mon Sep 17 00:00:00 2001 From: kitty Date: Tue, 24 Feb 2026 14:59:23 +1100 Subject: WORDS still not sure whats going on with s". i have discovered that using multiple s" seems to point the LFA of cell+ (the first forth-defined word) to directly after the text of the second string. now i just need to figure out Why or How that could possibly be happening. --- jefs.s | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'jefs.s') diff --git a/jefs.s b/jefs.s index 76d352a..3d9fa1c 100644 --- a/jefs.s +++ b/jefs.s @@ -91,6 +91,13 @@ defword "@", fetch, 0 pspush r12 ret +defword "w@", wfetch, 0 + pspop r11 + xor r12, r12 + mov r12w, [r11] + pspush r12 + ret + defword "c@", cfetch, 0 pspop r11 xor r12, r12 @@ -269,12 +276,6 @@ defword "find", find, 0 mov r12, r13 .check_smudge: - ; TODO fix whatever is going on with PNO and this - pspush r12 - pspush r13 - pspop r13 - pspop r12 - add r13, 8 mov r9b, byte [r13] test r9b, smudge_mask -- cgit v1.2.3