Browse code
(calc.tal) Mouse release macro
Devine Lu Linvega authored on 17/11/2021 19:44:48
Showing 1 changed files
| ... | ... |
@@ -21,6 +21,8 @@ |
| 21 | 21 |
%DEBUG { ;print-hex/byte JSR2 #0a .Console/write DEO }
|
| 22 | 22 |
%DEBUG2 { ;print-hex/short JSR2 #0a .Console/write DEO }
|
| 23 | 23 |
|
| 24 |
+%RELEASE-MOUSE { #0096 DEO }
|
|
| 25 |
+ |
|
| 24 | 26 |
%RTN { JMP2r }
|
| 25 | 27 |
%BRK? { #01 JCN BRK }
|
| 26 | 28 |
%RTN? { #01 JCN RTN }
|
| ... | ... |
@@ -206,7 +208,7 @@ BRK |
| 206 | 208 |
( value ) ++ ;keypad/layout ++ LDA |
| 207 | 209 |
;push-input JSR2 |
| 208 | 210 |
|
| 209 |
- ( release mouse ) #00 .Mouse/state DEO |
|
| 211 |
+ RELEASE-MOUSE |
|
| 210 | 212 |
|
| 211 | 213 |
BRK |
| 212 | 214 |
|
| ... | ... |
@@ -225,7 +227,7 @@ BRK |
| 225 | 227 |
POP |
| 226 | 228 |
|
| 227 | 229 |
;draw-bitpad JSR2 |
| 228 |
- ( release mouse ) #00 .Mouse/state DEO |
|
| 230 |
+ RELEASE-MOUSE |
|
| 229 | 231 |
|
| 230 | 232 |
BRK |
| 231 | 233 |
|
| ... | ... |
@@ -242,8 +244,8 @@ BRK |
| 242 | 244 |
[ STHr #0f SWP - ] #40 SFT SFT2 EOR2 |
| 243 | 245 |
.input/value STZ2 |
| 244 | 246 |
|
| 245 |
- ( release mouse ) #00 .Mouse/state DEO |
|
| 246 | 247 |
;draw-bitpad JSR2 |
| 248 |
+ RELEASE-MOUSE |
|
| 247 | 249 |
|
| 248 | 250 |
BRK |
| 249 | 251 |
|
| ... | ... |
@@ -258,8 +260,7 @@ BRK |
| 258 | 260 |
;do-pop JSR2 |
| 259 | 261 |
&no-pop |
| 260 | 262 |
POP |
| 261 |
- |
|
| 262 |
- ( release mouse ) #00 .Mouse/state DEO |
|
| 263 |
+ RELEASE-MOUSE |
|
| 263 | 264 |
|
| 264 | 265 |
BRK |
| 265 | 266 |
|