Print test id
This commit is contained in:
parent
c9d19d498c
commit
6a832c3a49
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue