|
|
|
|
@ -316,7 +316,12 @@ BRK
|
|
|
|
|
;blank-txt ;new-file JSR2 |
|
|
|
|
;redraw JSR2 |
|
|
|
|
&no-name |
|
|
|
|
DUP #09 > OVR HOR SWP - #04 > #0101 !! ,&no-rename JCN |
|
|
|
|
DUP #07 ! ,&no-zoom JCN |
|
|
|
|
.settings/zoom TOGGLE |
|
|
|
|
;draw-tileview JSR2 |
|
|
|
|
;draw-toolview JSR2 |
|
|
|
|
&no-zoom |
|
|
|
|
DUP #08 > OVR HOR SWP - #04 > #0101 !! ,&no-rename JCN |
|
|
|
|
.state/trap TOGGLE |
|
|
|
|
#00 .state/blink STZ |
|
|
|
|
#23 ;draw-filepath JSR2 |
|
|
|
|
@ -331,11 +336,6 @@ BRK
|
|
|
|
|
DUP #04 - .settings/tool STZ |
|
|
|
|
;draw-toolview JSR2 POP BRK |
|
|
|
|
&no-tool |
|
|
|
|
DUP #08 ! ,&no-zoom JCN |
|
|
|
|
.settings/zoom LDZ TOGGLE |
|
|
|
|
;draw-tileview JSR2 |
|
|
|
|
;draw-toolview JSR2 |
|
|
|
|
&no-zoom |
|
|
|
|
POP |
|
|
|
|
&end |
|
|
|
|
|
|
|
|
|
@ -708,9 +708,9 @@ RTN
|
|
|
|
|
#21 .settings/tool LDZ #02 = + .Screen/color DEO |
|
|
|
|
|
|
|
|
|
( misc ) |
|
|
|
|
.Screen/x DEI2 #0010 ++ .Screen/x DEO2 |
|
|
|
|
.Screen/x DEI2 #0008 ++ .Screen/x DEO2 |
|
|
|
|
;zoom-icns [ .settings/zoom LDZ TOS #0008 ** ++ ] .Screen/addr DEO2 |
|
|
|
|
#23 .Screen/color DEO |
|
|
|
|
#21 .Screen/color DEO |
|
|
|
|
|
|
|
|
|
( file i/o ) |
|
|
|
|
.toolview/x2 LDZ2 #0008 -- .Screen/x DEO2 |
|
|
|
|
@ -753,7 +753,7 @@ RTN
|
|
|
|
|
@draw-filepath ( color -- ) |
|
|
|
|
|
|
|
|
|
STH |
|
|
|
|
.toolview/x1 LDZ2 #0040 ++ .Screen/x DEO2 |
|
|
|
|
.toolview/x1 LDZ2 #0048 ++ .Screen/x DEO2 |
|
|
|
|
.toolview/y1 LDZ2 .Screen/y DEO2 |
|
|
|
|
;path/name |
|
|
|
|
&loop |
|
|
|
|
|