|
|
|
|
@ -219,7 +219,7 @@ BRK
|
|
|
|
|
@on-button ( -> ) |
|
|
|
|
|
|
|
|
|
.Controller/button DEI2 ;find-modkey JSR2 |
|
|
|
|
ORAk #00 EQU ,&skip JCN |
|
|
|
|
DUP2k EOR2 EQU2 ,&skip JCN |
|
|
|
|
DUP2 JSR2 |
|
|
|
|
&skip |
|
|
|
|
POP2 |
|
|
|
|
@ -295,7 +295,7 @@ BRK
|
|
|
|
|
#03 SFT2 NIP STH |
|
|
|
|
#03 SFT2 NIP STH SWPr |
|
|
|
|
.Mouse/state DEI DUP .cursor/last LDZ |
|
|
|
|
ORAk #00 EQU ,&end JCN |
|
|
|
|
#0000 EQU2 ,&end JCN |
|
|
|
|
DUP2 #0100 NEQ2 ,&no-down JCN STH2kr ;set-selection-from JSR2 &no-down |
|
|
|
|
DUP2 #0101 NEQ2 ,&no-up JCN STH2kr ;set-selection-to JSR2 &no-up |
|
|
|
|
&end |
|
|
|
|
|