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

(romviz) Optimizations

This commit is contained in:
Devine Lu Linvega 2023-04-05 14:27:56 -07:00
parent 7ef37be67f
commit 20a01503de
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
gui/romviz/romviz.tal
View File

@ -125,7 +125,7 @@ JMP2r
.page LDZ set-page
draw-clear
#00 .Screen/auto DEO
[ LIT2 00 -Screen/auto ] DEO
;pixel-icn .Screen/addr DEO2
LIT2r 0000
&stream
@ -139,7 +139,7 @@ JMP2r
#01 ;draw-chr/color STA
#01e0 .Screen/x DEO2
#0010 .Screen/y DEO2
#01 .Screen/auto DEO
[ LIT2 01 -Screen/auto ] DEO
.page LDZ draw-byte
( size )
#0200 .Screen/x DEO2
@ -169,12 +169,12 @@ JMP2r
@draw-clear ( -- )
#f1 .Screen/auto DEO
[ LIT2 f1 -Screen/auto ] DEO
#0400
&v
#0020 .Screen/x DEO2
#00 OVR #70 SFT2 #0020 ADD2 .Screen/y DEO2
#c0 &h #00 .Screen/sprite DEO INC DUP ?&h POP
#c0 &h [ LIT2 00 -Screen/sprite ] DEO INC DUP ?&h POP
INC GTHk ?&v
POP2
@ -205,11 +205,11 @@ JMP2r
@draw-linev ( -- )
#02 .Screen/auto DEO
[ LIT2 02 -Screen/auto ] DEO
;linev-icn .Screen/addr DEO2
#4000
&v
#05 .Screen/sprite DEO
[ LIT2 05 -Screen/sprite ] DEO
INC GTHk ?&v
POP2
@ -217,11 +217,11 @@ JMP2r
@draw-lineh ( -- )
#01 .Screen/auto DEO
[ LIT2 01 -Screen/auto ] DEO
;lineh-icn .Screen/addr DEO2
#4000
&v
#05 .Screen/sprite DEO
[ LIT2 05 -Screen/sprite ] DEO
INC GTHk ?&v
POP2
@ -242,14 +242,14 @@ JMP2r
@draw-chr ( char -- )
#20 SUB #00 SWP #30 SFT2 ;font ADD2 .Screen/addr DEO2
[ LIT &color 01 ] .Screen/sprite DEO
[ LIT2 &color 01 -Screen/sprite ] DEO
JMP2r
@draw-str ( str* -- )
LDAk #01 SUB #7f GTH ?&skip
#01 .Screen/auto DEO
[ LIT2 01 -Screen/auto ] DEO
&w
LDAk draw-chr
INC2 LDAk ?&w
@ -262,15 +262,15 @@ JMP2r
addr-pos .Screen/y DEO2 .Screen/x DEO2
DUP ?&no-null
POP ( .Screen/sprite DEO ) JMP2r
POP JMP2r
&no-null
DUP #20 GTH ?&no-low
POP #05 .Screen/sprite DEO JMP2r
POP [ LIT2 05 -Screen/sprite ] DEO JMP2r
&no-low
#80 GTH ?&no-ascii
#0a .Screen/sprite DEO JMP2r
[ LIT2 0a -Screen/sprite ] DEO JMP2r
&no-ascii
#0f .Screen/sprite DEO
[ LIT2 0f -Screen/sprite ] DEO
JMP2r