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