From 6a832c3a496eb40220baeeb4801dc8c1fedbb72a Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Tue, 13 Feb 2024 18:26:17 -0800
Subject: [PATCH] Print test id

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

diff --git a/cli/opctest/opctest.tal b/cli/opctest/opctest.tal
index 1fd225b..cfe40aa 100644
--- a/cli/opctest/opctest.tal
+++ b/cli/opctest/opctest.tal
@@ -3,6 +3,7 @@
 |0013
 
 	@Zeropage &byte $1 &short $2
+	@id $1
 
 |0100
 
@@ -128,15 +129,20 @@ BRK
 
 	LDA2k JSR2 DUP ?&pass
 		;Dict/missed pstr
-		[ LIT2 &name $2 ] pstr/ #0a18 DEO
+		[ LIT2 &name $2 ] pstr/
+		[ LIT2 "# 18 ] DEO
+		[ LIT2 "a -id ] LDZ ADD #18 DEO
+		#0a18 DEO
 		#01 ;on-reset/fail STA JMP2r
 		&pass
+	.id LDZ INC .id STZ
 
 JMP2r
 
 @set ( name* -- f )
 
 	;run-test/name STA2 #01
+	[ LIT2 ff -id ] STZ
 
 JMP2r