d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(calc.tal) Mouse release macro

This commit is contained in:
Devine Lu Linvega 2021-11-17 14:44:48 -05:00
parent e2a64438cd
commit 8bdf4419b9
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
projects/software/calc.tal
View File

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