|
|
|
|
@ -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 |
|
|
|
|
|