From 14ee797a7100d37d691ff70aea6603f82a1cb35b Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Sun, 18 Feb 2024 12:09:09 -0800
Subject: [PATCH] (opctest) Restore stack state

---
 cli/opctest/opctest.tal | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/cli/opctest/opctest.tal b/cli/opctest/opctest.tal
index c8dc87b..691879a 100644
--- a/cli/opctest/opctest.tal
+++ b/cli/opctest/opctest.tal
@@ -76,6 +76,8 @@
 	STHr AND STHr AND
 	;Dict/stack-wrap test-part
 
+	( restore stack ) #0000 #0000
+
 	( Part 8
 		> Testing RAM wrapping
 		> Storing 12 in 0xffff, and 34 in 0x0000 )
@@ -148,7 +150,7 @@ JMP2r
 
 @pstr ( str* -- )
 	DUP2 LDA
-		DUP ?{ POP2 JMP2r } 
+		DUP ?{ POP POP2 JMP2r }
 		#18 DEO
 	INC2 !pstr