|
|
|
|
@ -1,8 +1,5 @@
|
|
|
|
|
@manifest |
|
|
|
|
|
|
|
|
|
&size &w 0130 &h 00e0 |
|
|
|
|
&theme &r 0a6f &g 05cf &b 0caf |
|
|
|
|
|
|
|
|
|
&name "Nasu $1 |
|
|
|
|
&date "2022-06-28 $1 |
|
|
|
|
&menu |
|
|
|
|
@ -80,7 +77,7 @@ BRK
|
|
|
|
|
( don't leave if menu is active ) |
|
|
|
|
;draw-cat/sel LDA #ff EQU |
|
|
|
|
.Mouse/y DEI2 #0007 GTH2 |
|
|
|
|
#0101 EQU2 ;on-menu-leave JCN2 |
|
|
|
|
AND ;on-menu-leave JCN2 |
|
|
|
|
|
|
|
|
|
BRK |
|
|
|
|
|
|
|
|
|
@ -261,7 +258,7 @@ JMP2r
|
|
|
|
|
;manifest/menu |
|
|
|
|
&cat |
|
|
|
|
[ LIT &id 00 ] [ LIT &target $1 ] EQU ,&end JCN |
|
|
|
|
DUP2 INC2 ;slen JSR2 INC2 INC2 STH2 ADD2r |
|
|
|
|
INC2k ;slen JSR2 INC2 INC2 STH2 ADD2r |
|
|
|
|
;skip-sub JSR2 |
|
|
|
|
,&id LDR INC ,&id STR |
|
|
|
|
LDAk ,&cat JCN |
|
|
|
|
|