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

Removed debug from font

This commit is contained in:
neauoire 2021-07-04 11:44:19 -07:00
parent edb7c1e0ca
commit d7c1dd826d
1 changed files with 3 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,13 +9,9 @@
%TOS { #00 SWP }
%INCR { SWP #01 ADD SWP }
%DEBUG { ;print-hex JSR2 #0a .Console/write DEO }
%DEBUG2 { SWP ;print-hex JSR2 ;print-hex JSR2 #0a .Console/write DEO }
( devices )
|00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2
|10 @Console &vector $2 &read $1 &pad $5 &write $1
|20 @Screen &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &color $1
|a0 @File &vector $2 &success $2 &offset $2 &pad $2 &name $2 &length $2 &load $2 &save $2
@ -28,9 +24,9 @@
|0100 ( -> )
( theme )
#0fca .System/r DEO2
#0eba .System/g DEO2
#0ec9 .System/b DEO2
#0fa7 .System/r DEO2
#0fa7 .System/g DEO2
#0fa7 .System/b DEO2
( load font )
#4000 .File/length DEO2
@ -140,17 +136,6 @@ RTN
RTN
@print-hex ( value -- )
STHk #04 SFT ,&parse JSR .Console/write DEO
STHr #0f AND ,&parse JSR .Console/write DEO
RTN
&parse ( value -- char )
DUP #09 GTH ,&above JCN #30 ADD RTN &above #09 SUB #60 ADD RTN
RTN
@title
5468 6520 466f 6720 486f 726e $1