uxn

Varvara Ordinator, written in ANSI C(SDL2)
git clone https://git.eamoncaddigan.net/uxn.git
Log | Files | Refs | README | LICENSE

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:
Mprojects/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