From cd619a7548d967225eeb23233cfc30749aa3ebef Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Sun, 18 Feb 2024 11:52:01 -0800
Subject: [PATCH] Removed LDAk from early requirements

---
 cli/opctest/opctest.tal | 23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/cli/opctest/opctest.tal b/cli/opctest/opctest.tal
index cfdfccc..5dbdad5 100644
--- a/cli/opctest/opctest.tal
+++ b/cli/opctest/opctest.tal
@@ -12,13 +12,12 @@
 	( part 1
 		> LIT2: Puts a short on the stack
 		> LIT: Puts a byte on the stack
-		> #18 DEO: Write a letter in terminal
-		> ;meta: Push short
-		> #06 DEO: Write to metadata ports )
+		> #06 DEO: Write to metadata ports
+		> #18 DEO: Write a letter in terminal )
 
+	;meta #06 DEO2
 	[ LIT2 "kO ] #18 DEO #18 DEO
 	[ LIT2 "1 18 ] DEO #0a18 DEO
-	;meta #06 DEO2
 
 	( part 2
 		> LITr: Put a byte on return stack
@@ -46,7 +45,8 @@
 	( part 5
 		> POP2: Removes a short from the stack
 		> INC2: Increments short on stack
-		> LDAk: Non-destructive load byte from absolute address
+		> DUP2: Duplicate short
+		> LDA: load byte from absolute address
 		> JCI: Conditional subroutine to relative absolute address )
 
 	;Dict/ok pstr
@@ -117,7 +117,7 @@ BRK
 	( name ) "Opctest 0a
 	( details ) "A 20 "Testing 20 "Program 0a
 	( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
-	( date ) "1 20 "Nov 20 "2023 $2
+	( date ) "18 20 "Feb 20 "2024 $2
 
 @test-part ( f name* -- )
 	pstr ?{
@@ -147,13 +147,10 @@ JMP2r
 JMP2r
 
 @pstr ( str* -- )
-
-	&w ( -- )
-		LDAk #18 DEO
-		INC2 & LDAk ?&w
-	POP2
-
-JMP2r
+	DUP2 LDA
+		DUP ?{ POP2 JMP2r } 
+		#18 DEO
+	INC2 !&pstr
 
 @tests
 =op-equ [