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

Combined immediate printing routines

This commit is contained in:
Devine Lu Linvega 2024-06-10 07:12:20 -08:00
parent 70b36057a6
commit bdeff219e2
1 changed files with 13 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -13,12 +13,6 @@
#000f DEO } #000f DEO }
BRK BRK
@meta $1
( name ) "Uxndis 0a
( desc ) "Uxntal 20 "Disassembler 0a
( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
( date ) "9 20 "Jun 20 "2024 $2
@await-src ( -> ) @await-src ( -> )
[ LIT2 04 -Console/type ] DEI NEQ ?{ <dis> [ LIT2 04 -Console/type ] DEI NEQ ?{ <dis>
#800f DEO #800f DEO
@ -79,21 +73,9 @@
( | print hex ) ( | print hex )
LDAk ?{ <print-1-byte> LDAk ?{ <print-1-byte>
;opcodes/brk !<pstr> } ;opcodes/brk !<pstr> }
LDAk #20 NEQ ?{ LDAk #9f AND ?{
<print-3-byte> <print-3-byte>
;opcodes/jci <pstr> LDAk #03 SFT #00 SWP ;opcodes/brk ADD2 <pstr>
#2018 DEO
INC2 LDA2k <print-rel>
INC2 JMP2r }
LDAk #40 NEQ ?{
<print-3-byte>
;opcodes/jmi <pstr>
#2018 DEO
INC2 LDA2k <print-rel>
INC2 JMP2r }
LDAk #60 NEQ ?{
<print-3-byte>
;opcodes/jsi <pstr>
#2018 DEO #2018 DEO
INC2 LDA2k <print-rel> INC2 LDA2k <print-rel>
INC2 JMP2r } INC2 JMP2r }
@ -166,6 +148,15 @@
INC2 LDAk ?<pstr> INC2 LDAk ?<pstr>
POP2 JMP2r POP2 JMP2r
(
@|assets )
@meta $1
( name ) "Uxndis 0a
( desc ) "Uxntal 20 "Disassembler 0a
( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
( date ) "10 20 "Jun 20 "2024 $2
@opcodes [ @opcodes [
"LIT 00 "INC 00 "POP 00 "NIP 00 "LIT 00 "INC 00 "POP 00 "NIP 00
"SWP 00 "ROT 00 "DUP 00 "OVR 00 "SWP 00 "ROT 00 "DUP 00 "OVR 00
@ -175,8 +166,8 @@
"LDA 00 "STA 00 "DEI 00 "DEO 00 "LDA 00 "STA 00 "DEI 00 "DEO 00
"ADD 00 "SUB 00 "MUL 00 "DIV 00 "ADD 00 "SUB 00 "MUL 00 "DIV 00
"AND 00 "ORA 00 "EOR 00 "SFT 00 "AND 00 "ORA 00 "EOR 00 "SFT 00
&brk "BRK 00 &jci "JCI 00 &jsi "JSI &brk "BRK 00 &jci "JCI 00 &jmi "JMI
00 &jmi "JMI 00 ] 00 &jsi "JSI 00 ]
@dict &usage "usage: 20 "uxndis.rom 20 "input.rom 0a $1 @dict &usage "usage: 20 "uxndis.rom 20 "input.rom 0a $1