X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=temp.asm;h=f85cb3375faff34eaea45ea027fde734c36fa31e;hb=6169c77e9a3a2948493d7fb8ea7df119712761ba;hp=3425c1c53d34951f135750d5681c6ffb84ecbec0;hpb=af617c57b198d0b1e55e77ed2e67c57365007f29;p=rrq%2Frrqforth.git

diff --git a/temp.asm b/temp.asm
index 3425c1c..f85cb33 100644
--- a/temp.asm
+++ b/temp.asm
@@ -43,9 +43,9 @@ p_objecthole_from_tail:
 	dq p_dup, p_gtR 		; ( -- char* n ) [ n ]
 	dq p_dup, p_literal, 8, p_plus	; ( -- char* n n+8 )
 	dq p_temp			; ( -- char* n  addr )
-	dq p_dup, p_gtR			; ( -- char* n  addr ) [ n addr ]
 	dq p_2dup, p_put
-	dq p_literal, 8, p_plus
-	dq p_swap, p_strncpy
-	dq p_Rgt, p_Rgt
+	dq p_literal, 8, p_plus		; ( -- char* n  addr+8 ) [ n ]
+	dq p_dup, p_gtR			; ( -- char* n  addr+8 ) [ n addr+8 ]
+	dq p_swap, p_strncpy		; ( -- ) [ n addr+8 ]
+	dq p_Rgt, p_Rgt			; ( -- addr+8 n ) [ ]
 	dq p_exit