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.

1 files changed, 7 insertions, 6 deletions

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