uxn

commit b6c40129e4403651537e5590b105cb3da4117140
parent d1755a5e5b469ef827e8f0e30d35efdaca936e02
Author: neauoire <aliceffekt@gmail.com>
Date:   Mon,  2 Aug 2021 11:19:36 -0700

Cleanup on controller.tal

Diffstat:
M
projects/examples/devices/controller.tal
 | 
25
++++---------------------

1 file changed, 4 insertions(+), 21 deletions(-)
diff --git a/projects/examples/devices/controller.tal b/projects/examples/devices/controller.tal
@@ -7,15 +7,11 @@
 
 %RTN { JMP2r }
 %TOS { #00 SWP }
-%LTS2  { #8000 ++ SWP2 #8000 ++ >> } %GTS2  { #8000 ++ SWP2 #8000 ++ << }
-
-%DEBUG  { ;print-hex JSR2 #0a .Console/write DEO }
-%DEBUG2 { SWP ;print-hex JSR2 ;print-hex JSR2 #0a .Console/write DEO }
+%LTS2  { #8000 ++ SWP2 #8000 ++ >> } 
 
 ( 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 &pixel $1 &sprite $1 ]
 |80 @Controller [ &vector $2 &button $1 &key    $1 ]
 
@@ -26,17 +22,14 @@
 @center
 	&x $2
 	&y $2
-
-@position
-	&x $2
-	&y $2
 @frame
 	&w $2 &h $2
 	&x0 $2 &y0 $2
 	&x1 $2 &y1 $2
-
 @color $1
-@rect        [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]
+@rect
+	&x1 $2 &y1 $2 
+	&x2 $2 &y2 $2
 
 ( init )
 
@@ -172,16 +165,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
-
 @controller-icn
 	&dpad       ffff ffff ffff ffff
 	&dpad-up    7eff e7c3 ffff ffff