From 9a86ab4600d98040a406d7c2b704ab2d3642eeb6 Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Thu, 19 Feb 2026 21:54:53 +1100
Subject: rm old unnecessary teststring words

i still haven't figured out the PNO issue yet.
working on it
---
 jefs.s | 32 +++++++-------------------------
 1 file changed, 7 insertions(+), 25 deletions(-)

(limited to 'jefs.s')

diff --git a/jefs.s b/jefs.s
index 0da6e44..ed8030d 100644
--- a/jefs.s
+++ b/jefs.s
@@ -244,11 +244,16 @@ defword "parse", parse, 0
 defword "find", find, 0
 	pspop r10 ; u
 	pspop r11 ; c-addr
-	mov r12, latest
-	mov r13, qword [r12]
+	mov r13, qword [latest]
 	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
@@ -311,26 +316,21 @@ defword "interpret", interpret, 0
 	ret
 
 .compile:
-	; call dots
 	pspop r11
 	cmp r11, false
 	je .comp_n
 
 	; handle immediates
-	; call dots
 	pspop r15
 	call twodrop
 	pspush r15
 	call dup
-	; call dots
 	call immediate_q
-	; call dots
 	pspop r13
 	cmp r13, true
 	je .immed_comp
 
 	call to_cfa
-	; call dots
 	call compile_comma
 	jmp .loop
 	ret ; unreachable safety RET
@@ -357,7 +357,6 @@ defword "immediate?", immediate_q, 0 ; ( lfa -- flag )
 	pspush r12
 	mov r13b, immediate_mask
 	pspush r13
-	; call dots
 	call twodrop
 	pspop r11
 	test r12b, immediate_mask
@@ -368,7 +367,6 @@ defword "immediate?", immediate_q, 0 ; ( lfa -- flag )
 	ret
 
 .imm:
-	; call dots
 	mov r11, true
 	pspush r11
 	ret
@@ -1029,22 +1027,6 @@ defword ".s", dots, 0
 .space: resq 1
 .dmsg: db "DONEDONEYIPPEEEE"
 
-defword "TESTSTR", teststr, 0
-	mov r11, .msg
-	pspush r11
-	mov r11, 11
-	pspush r11
-	ret
-.msg: db "test string"
-
-defword "TESTSTR2", teststr2, 0
-	mov r11, .msg
-	pspush r11
-	mov r11, 12
-	pspush r11
-	ret
-.msg: db "other string"
-
 defword "HEREDUMP", heredump, 0
 	mov rdx, [here]
 	mov r11, [h0]
-- 
cgit v1.2.3