d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Print test id

This commit is contained in:
Devine Lu Linvega 2024-02-13 18:26:17 -08:00
parent c9d19d498c
commit 6a832c3a49
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cli/opctest/opctest.tal
View File

@ -3,6 +3,7 @@
|0013 |0013
@Zeropage &byte $1 &short $2 @Zeropage &byte $1 &short $2
@id $1
|0100 |0100
@ -128,15 +129,20 @@ BRK
LDA2k JSR2 DUP ?&pass LDA2k JSR2 DUP ?&pass
;Dict/missed pstr ;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 #01 ;on-reset/fail STA JMP2r
&pass &pass
.id LDZ INC .id STZ
JMP2r JMP2r
@set ( name* -- f ) @set ( name* -- f )
;run-test/name STA2 #01 ;run-test/name STA2 #01
[ LIT2 ff -id ] STZ
JMP2r JMP2r