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

Added modes to LIT opcode

This commit is contained in:
Devine Lu Linvega 2024-06-10 08:58:05 -08:00
parent 23d293fb48
commit 809302fe92
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cli/uxndis/src/uxndis.tal
View File

@ -104,11 +104,13 @@
LDAk DUP #80 NEQ SWP #c0 NEQ AND ?{ LDAk DUP #80 NEQ SWP #c0 NEQ AND ?{
<print-2-byte> <print-2-byte>
;opcodes <pstr> ;opcodes <pstr>
<print-mode>/no-keep
#2018 DEO #2018 DEO
INC2 LDAk !<phex>/b } INC2 LDAk !<phex>/b }
LDAk DUP #a0 NEQ SWP #e0 NEQ AND ?{ LDAk DUP #a0 NEQ SWP #e0 NEQ AND ?{
<print-3-byte> <print-3-byte>
;opcodes <pstr> ;opcodes <pstr>
<print-mode>/no-keep
#2018 DEO #2018 DEO
INC2 LDA2k <phex> INC2 LDA2k <phex>
INC2 JMP2r } INC2 JMP2r }
@ -117,10 +119,11 @@
( >> ) ( >> )
@<print-mode> ( addr* -- ) @<print-mode> ( addr* -- )
LDAk #20 AND #00 EQU ?{
[ LIT2 "2 18 ] DEO }
LDAk #80 AND #00 EQU ?{ LDAk #80 AND #00 EQU ?{
[ LIT2 "k 18 ] DEO } [ LIT2 "k 18 ] DEO }
&no-keep ( addr* -- )
LDAk #20 AND #00 EQU ?{
[ LIT2 "2 18 ] DEO }
LDAk #40 AND #00 EQU ?{ LDAk #40 AND #00 EQU ?{
[ LIT2 "r 18 ] DEO } [ LIT2 "r 18 ] DEO }
JMP2r JMP2r