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

(screen.tal) Ported to the new auto-byte

This commit is contained in:
neauoire 2022-03-06 10:25:27 -08:00
parent fef8806493
commit 708d418833
1 changed files with 16 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
projects/examples/devices/screen.tal
View File

@ -53,6 +53,7 @@
;draw-2bpp JSR2 ;draw-2bpp JSR2
;draw-pixels JSR2 ;draw-pixels JSR2
;draw-autobytes JSR2 ;draw-autobytes JSR2
AUTO-NONE
BRK BRK
@ -149,16 +150,27 @@ RTN
.center/x LDZ2 #0090 ++ .Screen/x DEO2 .center/x LDZ2 #0090 ++ .Screen/x DEO2
.center/y LDZ2 #0040 -- .Screen/y DEO2 .center/y LDZ2 #0040 -- .Screen/y DEO2
#02 #03 ;23x-icns #04 ;draw-x JSR2 ;23x-icns .Screen/addr DEO2
#16 .Screen/auto DEO
#04 .Screen/sprite DEOk DEOk DEO
.center/x LDZ2 #00a8 ++ .Screen/x DEO2 .center/x LDZ2 #00a8 ++ .Screen/x DEO2
.center/y LDZ2 #0030 -- .Screen/y DEO2 .center/y LDZ2 #0030 -- .Screen/y DEO2
#02 #03 ;23y-icns #0c ;draw-y JSR2 ;23y-icns .Screen/addr DEO2
#25 .Screen/auto DEO
#0c .Screen/sprite DEOk DEO
.center/x LDZ2 #00a0 ++ .Screen/x DEO2 .center/x LDZ2 #00a0 ++ .Screen/x DEO2
.center/y LDZ2 #0040 -- .Screen/y DEO2 .center/y LDZ2 #0040 -- .Screen/y DEO2
#03 #02 ;32x-icns #01 ;draw-x JSR2 ;32x-icns .Screen/addr DEO2
#26 .Screen/auto DEO
#01 .Screen/sprite DEOk DEO
.center/x LDZ2 #0090 ++ .Screen/x DEO2 .center/x LDZ2 #0090 ++ .Screen/x DEO2
.center/y LDZ2 #0028 -- .Screen/y DEO2 .center/y LDZ2 #0028 -- .Screen/y DEO2
#03 #02 ;32y-icns #03 ;draw-y JSR2 ;32y-icns .Screen/addr DEO2
#15 .Screen/auto DEO
#03 .Screen/sprite DEOk DEOk DEO
RTN RTN
@ -194,52 +206,6 @@ RTN
RTN RTN
@draw-x ( w h addr* color -- )
STH
.Screen/addr DEO2
SWP ,&w STR
.Screen/x DEI2 ,&x STR2
AUTO-XADDR
#00
&ver
[ LIT &w $1 ] #00
&hor
STHkr .Screen/sprite DEO
INC GTHk ,&hor JCN
POP2
.Screen/y DEI2k #0008 ++ ROT DEO2
[ LIT2 &x $2 ] .Screen/x DEO2
INC GTHk ,&ver JCN
POP2
POPr
AUTO-NONE
RTN
@draw-y ( w h addr* color -- )
STH
.Screen/addr DEO2
,&h STR
.Screen/y DEI2 ,&y STR2
AUTO-YADDR
#00
&hor
[ LIT &h $1 ] #00
&ver
STHkr .Screen/sprite DEO
INC GTHk ,&ver JCN
POP2
.Screen/x DEI2k #0008 ++ ROT DEO2
[ LIT2 &y $2 ] .Screen/y DEO2
INC GTHk ,&hor JCN
POP2
POPr
AUTO-NONE
RTN
@preview_icn @preview_icn
0f38 675f dfbf bfbf 0007 1820 2344 4848 0f38 675f dfbf bfbf 0007 1820 2344 4848