Browse Source

Minor optimizations

main
neauoire 3 years ago
parent
commit
e0c73e07b8
  1. 2
      src/manifest.tal
  2. 10
      src/nasu.tal

2
src/manifest.tal

@ -36,7 +36,7 @@ BRK
BRK
&no-sub
( do not 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 #000c LTH2 ,&no-leave JCN
,menu-close JSR
&no-leave

10
src/nasu.tal

@ -752,9 +752,7 @@ JMP2r
STH
OVR2 SWP2 ,get-pixel-addr JSR
( ch1 ) OVR2 OVR2 STHkr #00 ,toggle-pixel JSR
( ch2 ) #0008 ADD2 STHr #01 ,toggle-pixel JSR
JMP2r
( ch2 ) #0008 ADD2 STHr #01
@toggle-pixel ( x* addr* color -- )
@ -967,11 +965,11 @@ JMP2r
( tools )
.Screen/x DEI2k #0008 ADD2 ROT DEO2
;brush-icn .Screen/addr DEO2
#01 [ .settings/tool LDZ #00 EQU ] ADD .Screen/sprite DEO
#01 .settings/tool LDZ #00 EQU ADD .Screen/sprite DEO
;select-icn .Screen/addr DEO2
#01 [ .settings/tool LDZ #01 EQU ] ADD .Screen/sprite DEO
#01 .settings/tool LDZ #01 EQU ADD .Screen/sprite DEO
;zoom-icns [ #00 .settings/zoom LDZ #30 SFT2 ADD2 ] .Screen/addr DEO2
#01 [ .settings/tool LDZ #02 EQU ] ADD .Screen/sprite DEO
#01 .settings/tool LDZ #02 EQU ADD .Screen/sprite DEO
( file i/o )
;draw-state JSR2
.toolview/x2 LDZ2 STH2k #0018 SUB2 .Screen/x DEO2

Loading…
Cancel
Save