From 8bdf4419b9f285b0a1d6a546f4249b2753b90087 Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Wed, 17 Nov 2021 14:44:48 -0500 Subject: [PATCH] (calc.tal) Mouse release macro --- projects/software/calc.tal | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/projects/software/calc.tal b/projects/software/calc.tal index b629bc6..a0ec039 100644 --- 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