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

(opctest) Success code when no errors

This commit is contained in:
neauoire 2023-10-31 11:57:14 -07:00
parent b695b55c49
commit 8ff798f4cd
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
cli/opctest/opctest.tal
View File

@ -5,7 +5,7 @@
@Zeropage &byte $1 &short $2
|0100
|0100 @on-reset ( -> )
( part 1
> LIT2: Puts a short on the stack
@ -55,9 +55,9 @@
POP2 POP2
STH2r ;Dict/done pstr
( halt )
( end )
#010f DEO
[ LIT &fail 80 ] #0f DEO
BRK
@ -65,7 +65,8 @@ BRK
LDA2k JSR2 DUP ?&pass
;Dict/failed pstr
[ LIT2 &name $2 ] pstr/ #0a18 DEO JMP2r
[ LIT2 &name $2 ] pstr/ #0a18 DEO
#01 ;on-reset/fail STA JMP2r
&pass
JMP2r
@ -167,7 +168,7 @@ JMP2r
&d #00 #ff EQU [ #00 ] EQU JMP2r
&e #f801 #f801 EQU2 [ #01 ] EQU JMP2r
&f #01f8 #01f8 EQU2 [ #01 ] EQU JMP2r
&g #f801 #01f8 EQU2 [ #00 ] EQU JMP2r ( HERE )
&g #f801 #01f8 EQU2 [ #00 ] EQU JMP2r
&h #01f8 #f801 EQU2 [ #00 ] EQU JMP2r
@op-neq ;Dict/neq !set
&a #f8 #f8 NEQ [ #00 ] EQU JMP2r