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