Browse Source

Minor opt

main
Devine Lu Linvega 4 years ago
parent
commit
1c0f461edc
  1. 4
      src/nasu.tal

4
src/nasu.tal

@ -219,7 +219,7 @@ BRK
@on-button ( -> )
.Controller/button DEI2 ;find-modkey JSR2
DUP2 #0000 EQU2 ,&skip JCN
ORAk #00 EQU ,&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
DUP2 #0000 EQU2 ,&end JCN
ORAk #00 EQU ,&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

Loading…
Cancel
Save