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

(icnuf1) Working copy

This commit is contained in:
neauoire 2023-11-25 15:51:04 -08:00
parent da6e55e121
commit f7011bdee0
3 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
cli/icnuf1/816-original.icn Normal file
View File

Binary file not shown.

BIN
cli/icnuf1/816.icn
View File

Binary file not shown.

28
cli/icnuf1/icnuf1.tal
View File

@ -1,5 +1,6 @@
( uxncli format-c.rom file.bin ) ( uxncli format-c.rom file.bin )
|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1 |10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1
|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 |a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
@ -24,28 +25,38 @@
STH2r .File/name DEO2 STH2r .File/name DEO2
#0800 .File/length DEO2 #0800 .File/length DEO2
;icn .File/read DEO2 ;icn .File/read DEO2
( | convert ) ( | write )
<convert> <convert>
;src .File/name DEO2
;uf1 .File/write DEO2
#0800 .File/length DEO2
#800f DEO #800f DEO
BRK BRK
@get-addr ( a -- addr* )
STHk
( y ) #04 SFT #00 SWP #0080 MUL2
( x ) STHr #0f AND #00 SWP #0008 MUL2 ADD2 JMP2r
@<copy-tiles> ( a b -- ) @<copy-tiles> ( a b -- )
OVR phex/b #2018 DEO OVR phex/b #2018 DEO
DUP phex/b #0a18 DEO DUP phex/b #2018 DEO
POP2 ( a -> a* ) OVR get-addr phex #2018 DEO
( b -> b* ) DUP get-addr phex #0a18 DEO
SWP get-addr ;icn ADD2 ,&src STR2
get-addr ;uf1 ADD2 ,&dst STR2
;&cmd .System/expansion DEO2
JMP2r JMP2r
&cmd [ 01 0008 0000 &src $2 0000 &dst $2 ]
@<convert> ( -- ) @<convert> ( -- )
#0000 #0000
&l ( -- ) &l ( -- )
( | print pos )
( y ) DUP #15 SFT OVR #01 AND ADD #40 SFT STH ( y ) DUP #15 SFT OVR #01 AND ADD #40 SFT STH
( x ) DUP #01 SFT #0f AND ( x ) DUP #01 SFT #0f AND
( merge ) STHr ORA ( merge ) STHr ORA OVR <copy-tiles>
OVR <copy-tiles>
INC DUP ?&l INC DUP ?&l
POP2 POP2 JMP2r
JMP2r
@blank [ ffff ffff ffff ffff ] @blank [ ffff ffff ffff ffff ]
@ -79,4 +90,3 @@ JMP2r
@uf1 $800 @uf1 $800