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