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

(opctest) Formatting

This commit is contained in:
Devine Lu Linvega 2023-04-10 20:06:45 -07:00
parent 5afcd1e89b
commit 9c056418ca
1 changed files with 21 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
cli/opctest/opctest.tal
View File

@ -1,6 +1,6 @@
( Opcode Tester ) ( Opcode Tester )
|0000 |0013
@Zeropage &byte $1 &short $2 @Zeropage &byte $1 &short $2
@ -53,7 +53,10 @@
INC2 INC2 GTH2k ?&l INC2 INC2 GTH2k ?&l
POP2 POP2 POP2 POP2
STH2r ;Dict/done pstr STH2r ;Dict/done pstr
( halt ) #010f DEO
( halt )
#010f DEO
BRK BRK
@ -156,23 +159,23 @@ JMP2r
&end &end
@op-equ ;Dict/equ !set @op-equ ;Dict/equ !set
&a #f8 #f8 EQU #01 EQU JMP2r &a #f8 #f8 EQU [ #01 ] EQU JMP2r
&b #01 #01 EQU #01 EQU JMP2r &b #01 #01 EQU [ #01 ] EQU JMP2r
&c #f8 #01 EQU #00 EQU JMP2r &c #f8 #01 EQU [ #00 ] EQU JMP2r
&d #00 #ff EQU #00 EQU JMP2r &d #00 #ff EQU [ #00 ] EQU JMP2r
&e #f801 #f801 EQU2 #01 EQU JMP2r &e #f801 #f801 EQU2 [ #01 ] EQU JMP2r
&f #01f8 #01f8 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 ( HERE )
&h #01f8 #f801 EQU2 #00 EQU JMP2r &h #01f8 #f801 EQU2 [ #00 ] EQU JMP2r
@op-neq ;Dict/neq !set @op-neq ;Dict/neq !set
&a #f8 #f8 NEQ #00 EQU JMP2r &a #f8 #f8 NEQ [ #00 ] EQU JMP2r
&b #01 #01 NEQ #00 EQU JMP2r &b #01 #01 NEQ [ #00 ] EQU JMP2r
&c #f8 #01 NEQ #01 EQU JMP2r &c #f8 #01 NEQ [ #01 ] EQU JMP2r
&d #01 #f8 NEQ #01 EQU JMP2r &d #01 #f8 NEQ [ #01 ] EQU JMP2r
&e #f801 #f801 NEQ2 #00 EQU JMP2r &e #f801 #f801 NEQ2 [ #00 ] EQU JMP2r
&f #01f8 #01f8 NEQ2 #00 EQU JMP2r &f #01f8 #01f8 NEQ2 [ #00 ] EQU JMP2r
&g #f801 #01f8 NEQ2 #01 EQU JMP2r &g #f801 #01f8 NEQ2 [ #01 ] EQU JMP2r
&h #01f8 #f801 NEQ2 #01 EQU JMP2r &h #01f8 #f801 NEQ2 [ #01 ] EQU JMP2r
@op-gth ;Dict/gth !set @op-gth ;Dict/gth !set
&a #f8 #f8 GTH [ #00 ] EQU JMP2r &a #f8 #f8 GTH [ #00 ] EQU JMP2r
&b #01 #01 GTH [ #00 ] EQU JMP2r &b #01 #01 GTH [ #00 ] EQU JMP2r