commit 708d418833164037b233a6d2125306a8b389c6f1
parent fef8806493b71113a93493ab2b8c383bc1c46bf4
Author: neauoire <aliceffekt@gmail.com>
Date: Sun, 6 Mar 2022 10:25:27 -0800
(screen.tal) Ported to the new auto-byte
Diffstat:
1 file changed, 16 insertions(+), 50 deletions(-)
diff --git a/projects/examples/devices/screen.tal b/projects/examples/devices/screen.tal
@@ -53,6 +53,7 @@
;draw-2bpp JSR2
;draw-pixels JSR2
;draw-autobytes JSR2
+ AUTO-NONE
BRK
@@ -149,16 +150,27 @@ RTN
.center/x LDZ2 #0090 ++ .Screen/x 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/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/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/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
@@ -194,52 +206,6 @@ 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
0f38 675f dfbf bfbf 0007 1820 2344 4848
