M src/manifest.tal => src/manifest.tal +1 -0
@@ 208,6 208,7 @@ JMP2r
INC GTHk ,&subcat JCN
POP2
LDAk ,&cat JCN
+ &skip
POP2
#0000
M src/nasu.tal => src/nasu.tal +6 -2
@@ 217,8 217,12 @@ BRK
@on-button ( -> )
- .Controller/button DEI2 ;find-modkey JSR2
- DUP2 #0000 EQU2 ,&skip JCN DUP2 JSR2 &skip POP2
+ .Controller/button DEI2
+ DUP2 #0000 EQU2 ,&skip JCN
+ ;find-modkey JSR2 DUP2 #0000 EQU2 ,&skip JCN
+ DUP2 JSR2
+ &skip
+ POP2
BRK