@@ 987,14 987,14 @@ RTN
@draw-zoomview ( -- )
;bigpixel-icn .Screen/addr DEO2
- #00 #08
+ #08 #00
&ver
- OVR #04 * TOS .zoomview/y1 LDZ2 ++ .Screen/y DEO2
- #00 #08
+ DUP #04 * TOS .zoomview/y1 LDZ2 ++ .Screen/y DEO2
+ #08 #00
&hor
- OVR #04 * TOS .zoomview/x1 LDZ2 ++ .Screen/x DEO2
+ DUP #04 * TOS .zoomview/x1 LDZ2 ++ .Screen/x DEO2
( get pixel )
- GET-ITERATORS
+ GET-ITER
( ch 1 )
TOS .settings/focus LDZ2 ++ [ STH2k ] LDA
SWP [ STHk ] #07 SWP - SFT #01 AND
@@ 1003,9 1003,9 @@ RTN
#07 SWP - SFT #01 AND
#02 * +
.Screen/sprite DEO
- INCR LTHk ,&hor JCN
+ #01 + GTHk ,&hor JCN
POP2
- INCR LTHk ,&ver JCN
+ #01 + GTHk ,&ver JCN
POP2
.zoomview/x1 LDZ2 #0002 --