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

(uxndis) Display labels in literals

This commit is contained in:
Devine Lu Linvega 2024-06-11 07:47:17 -08:00
parent 809302fe92
commit d1e009e4a8
2 changed files with 18 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cli/uxndis/makefile
View File

@ -21,7 +21,7 @@ install: all
uninstall: uninstall:
@ rm -f ${DIR}/${ID}.rom @ rm -f ${DIR}/${ID}.rom
archive: all archive: all
@ cp src/${ID}.tal ../oscean/etc/${ID}.tal.txt @ cp src/${ID}.tal ../../../oscean/etc/${ID}.tal.txt
.PHONY: all clean lint run install uninstall archive .PHONY: all clean lint run install uninstall archive

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

@ -57,6 +57,7 @@
@<print-line> ( addr* -- addr* ) @<print-line> ( addr* -- addr* )
( ) DUP2 ;rom SUB2 ( ) DUP2 ;rom SUB2
( ) DUP2 #0100 ADD2 find-sym DUP2 #ffff EQU2 ?{ ( ) DUP2 #0100 ADD2 find-sym DUP2 #ffff EQU2 ?{
#0a18 DEO
[ LIT2 "@ 18 ] DEO [ LIT2 "@ 18 ] DEO
DUP2 <pstr> DUP2 <pstr>
#0a18 DEO } #0a18 DEO }
@ -92,7 +93,6 @@
JMP2r JMP2r
@<print-opcode> ( addr* -- addr* ) @<print-opcode> ( addr* -- addr* )
( | print hex )
LDAk ?{ <print-1-byte> LDAk ?{ <print-1-byte>
;opcodes/brk !<pstr> } ;opcodes/brk !<pstr> }
LDAk #9f AND ?{ LDAk #9f AND ?{
@ -104,41 +104,39 @@
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 LDAk #80 EOR <print-mode>
#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 LDAk #80 EOR <print-mode>
#2018 DEO #2018 DEO
INC2 LDA2k <phex> INC2 LDA2k find-sym DUP2 #ffff EQU2 ?{ <pstr>
INC2 JMP2r }
POP2 LDA2k <phex>
INC2 JMP2r } INC2 JMP2r }
<print-1-byte> <print-1-byte>
LDAk #1f AND #00 SWP #20 SFT2 ;opcodes ADD2 <pstr> LDAk #1f AND #00 SWP #20 SFT2 ;opcodes ADD2 <pstr>
LDAk
( >> ) ( >> )
@<print-mode> ( addr* -- ) @<print-mode> ( byte -- )
LDAk #80 AND #00 EQU ?{ DUP #20 AND #00 EQU ?{
[ LIT2 "k 18 ] DEO }
&no-keep ( addr* -- )
LDAk #20 AND #00 EQU ?{
[ LIT2 "2 18 ] DEO } [ LIT2 "2 18 ] DEO }
LDAk #40 AND #00 EQU ?{ DUP #80 AND #00 EQU ?{
[ LIT2 "k 18 ] DEO }
#40 AND #00 EQU ?{
[ LIT2 "r 18 ] DEO } [ LIT2 "r 18 ] DEO }
JMP2r JMP2r
@<print-rel> ( addr* value* -- ) @<print-rel> ( addr* value* -- )
( | find sym ) ( | find sym )
SWP2 ;rom SUB2 #0103 ADD2 OVR2 ADD2 find-sym SWP2 ;rom SUB2 #0103 ADD2 OVR2 ADD2 find-sym
( ) DUP2 #ffff NEQ2 ?<print-dst> ( ) INC2k ORA ?{
POP2 POP2 OVR #80 AND ?<pdec>
( | resume ) [ LIT2 "+ 18 ] DEO
OVR #80 AND ?<pdec> !<pdec> }
[ LIT2 "+ 18 ] DEO
!<pdec>
@<print-dst> ( addr* sym* -- )
NIP2 !<pstr> NIP2 !<pstr>
@<print-pad> ( count -- ) @<print-pad> ( count -- )
@ -201,7 +199,7 @@
( name ) "Uxndis 0a ( name ) "Uxndis 0a
( desc ) "Uxntal 20 "Disassembler 0a ( desc ) "Uxntal 20 "Disassembler 0a
( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a ( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
( date ) "10 20 "Jun 20 "2024 $2 ( date ) "11 20 "Jun 20 "2024 $2
@opcodes [ @opcodes [
"LIT 00 "INC 00 "POP 00 "NIP 00 "LIT 00 "INC 00 "POP 00 "NIP 00