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

Minor optimization to font.tal

This commit is contained in:
neauoire 2021-07-03 10:38:20 -07:00
parent 2a95c710b9
commit 7e4cb5fd1e
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
projects/examples/demos/font.tal
View File

@ -62,19 +62,19 @@ BRK
@draw-uf3 ( x* y* text* color -- ) @draw-uf3 ( x* y* text* color -- )
STH STH
STH2 SWP2 .Screen/y DEO2
.Screen/y DEO2 SWP2 DUP2 .Screen/x DEO2 SWP2
.Screen/x DEO2
STH2r
&loop &loop
LDAk #0a ! ,&no-linebreak JCN LDAk
#0000 .Screen/x DEO2 DUP #0a ! ,&no-linebreak JCN
.Screen/y DEI2 #0018 ++ .Screen/y DEO2 ( move down ) OVR2 .Screen/x DEO2
&no-linebreak ( incr y ) .Screen/y DEI2 #0010 ++ .Screen/y DEO2
LDAk STHkr ,&sprite JSR POP ,&continue JMP &no-linebreak
#0001 ++ STHkr ,&sprite JSR
&continue
( incr addr ) #0001 ++
LDAk ,&loop JCN LDAk ,&loop JCN
POP2 POPr POP2 POP2 POPr
RTN RTN
&sprite ( char color -- ) &sprite ( char color -- )