uxn

commit 8bdf4419b9f285b0a1d6a546f4249b2753b90087
parent e2a64438cd638e5a2ac6cef300cab256d6a99a1a
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date:   Wed, 17 Nov 2021 14:44:48 -0500

(calc.tal) Mouse release macro

Diffstat:
M
projects/software/calc.tal
 | 
11
++++++-----

1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/projects/software/calc.tal b/projects/software/calc.tal
@@ -21,6 +21,8 @@
 %DEBUG  { ;print-hex/byte JSR2 #0a .Console/write DEO }
 %DEBUG2 { ;print-hex/short JSR2 #0a .Console/write DEO }
 
+%RELEASE-MOUSE { #0096 DEO }
+
 %RTN { JMP2r }
 %BRK? { #01 JCN BRK }
 %RTN? { #01 JCN RTN }
@@ -206,7 +208,7 @@ BRK
 	( value ) ++ ;keypad/layout ++ LDA 
 		;push-input JSR2
 
-	( release mouse ) #00 .Mouse/state DEO
+	RELEASE-MOUSE
 
 BRK
 
@@ -225,7 +227,7 @@ BRK
 	POP
 
 	;draw-bitpad JSR2
-	( release mouse ) #00 .Mouse/state DEO
+	RELEASE-MOUSE
 
 BRK
 
@@ -242,8 +244,8 @@ BRK
 		[ STHr #0f SWP - ] #40 SFT SFT2 EOR2 
 		.input/value STZ2
 
-	( release mouse ) #00 .Mouse/state DEO
 	;draw-bitpad JSR2
+	RELEASE-MOUSE
 
 BRK
 
@@ -258,8 +260,7 @@ BRK
 		;do-pop JSR2
 		&no-pop
 	POP
-
-	( release mouse ) #00 .Mouse/state DEO
+	RELEASE-MOUSE
 
 BRK