@@ 36,7 36,7 @@ BRK
BRK
&no-sub
( don't leave if menu is active )
- ;draw-menu/sel LDA #ff NEQ ,&no-leave JCN
+ ;draw-menu/sel LDA INC ,&no-leave JCN
.Mouse/y DEI2 #0014 LTH2 ,&no-leave JCN
,menu-close JSR
&no-leave
@@ 310,12 310,9 @@ JMP2r
#00 .Screen/auto DEO
#40 ,draw-cursor JSR
- .Mouse/x DEI2 DUP2 .cursor/x STZ2 .Screen/x DEO2
- .Mouse/y DEI2 DUP2 .cursor/y STZ2 .Screen/y DEO2
+ .Mouse/x DEI2 .cursor/x STZ2
+ .Mouse/y DEI2 .cursor/y STZ2
.Screen/addr DEO2
- .Screen/sprite DEO
-
-JMP2r
@draw-cursor ( color -- )
@@ 352,20 349,8 @@ JMP2r
@scat ( src* dst* -- ) ,scap JSR
@scpy ( src* dst* -- ) STH2 &w LDAk STH2kr STA INC2r INC2 LDAk ,&w JCN POP2 #00 STH2r STA JMP2r
@mclr ( src* len* -- ) OVR2 ADD2 SWP2 &l STH2k #00 STH2r STA INC2 GTH2k ,&l JCN POP2 POP2 JMP2r
-
-@phex ( short* -- )
-
- SWP ,&b JSR
- &b ( byte -- ) DUP #04 SFT ,&c JSR
- &c ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO
-
-JMP2r
-
-@exit ( -- )
-
- #010f DEO
-
-JMP2r
+@phex ( short* -- ) SWP ,&b JSR &b DUP #04 SFT ,&c JSR &c #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO JMP2r
+@exit ( -- ) #010f DEO JMP2r
( assets )