From df535b2700c2a0e908f3260703f74e38c23aa234 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Fri, 9 Feb 2024 20:15:28 -0800
Subject: [PATCH] (opctest) Moved result

---
 cli/opctest/opctest.tal | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/cli/opctest/opctest.tal b/cli/opctest/opctest.tal
index 5778947..1fd225b 100644
--- a/cli/opctest/opctest.tal
+++ b/cli/opctest/opctest.tal
@@ -40,6 +40,7 @@
 		> JMP2r: Jumps to absolute address on return stack )
 
 	subroutine
+	[ LIT2 "4 18 ] DEO #0a18 DEO
 
 	( part 5
 		> POP2: Removes a short from the stack
@@ -47,7 +48,8 @@
 		> LDAk: Non-destructive load byte from absolute address
 		> JCI: Conditional subroutine to relative absolute address )
 
-	;Dict/ok5 pstr #0a18 DEO
+	;Dict/ok pstr
+	[ LIT2 "5 18 ] DEO #0a18 DEO
 
 	( part 6
 		> GTH2k: Non-destructive greater-than short
@@ -421,11 +423,11 @@ JMP2r
 JMP2r
 
 @routine ( a b -- c ) ADD JMP2r
-@subroutine ( -- ) [ LIT2 "kO ] #18 DEO #18 DEO [ LIT2 "4 18 ] DEO #0a18 DEO JMP2r
+@subroutine ( -- ) [ LIT2 "kO ] #18 DEO #18 DEO JMP2r
 @Absolute &byte $1 &short $2
 
 @Dict [
-	&ok5 "Ok5 $1
+	&ok "Ok $1
 	&done "Tests 20 "Complete. 0a $1
 	&opctests "Opcodes $1
 	&stack-wrap "Stack-wrap $1