|
|
|
@ -441,9 +441,6 @@ JMP2r |
|
|
|
|
|
|
|
|
|
|
|
@set-selection-from ( x y -- ) |
|
|
|
@set-selection-from ( x y -- ) |
|
|
|
|
|
|
|
|
|
|
|
OVR #30 SFT |
|
|
|
|
|
|
|
OVR #30 SFT |
|
|
|
|
|
|
|
,set-selection-zoom JSR |
|
|
|
|
|
|
|
#0f AND |
|
|
|
#0f AND |
|
|
|
DUP .selection/y1 STZ |
|
|
|
DUP .selection/y1 STZ |
|
|
|
.selection/y2 STZ |
|
|
|
.selection/y2 STZ |
|
|
|
@ -816,13 +813,13 @@ JMP2r |
|
|
|
;bigpixel-icn .Screen/addr DEO2 |
|
|
|
;bigpixel-icn .Screen/addr DEO2 |
|
|
|
#0800 |
|
|
|
#0800 |
|
|
|
&ver |
|
|
|
&ver |
|
|
|
#00 OVR |
|
|
|
#00 OVRk |
|
|
|
DUP2 #00 .selection/y1 LDZ #30 SFT ADD2 ,&y STR2 |
|
|
|
#00 .selection/y1 LDZ #30 SFT ADD2 ,&y STR2 |
|
|
|
#20 SFT .zoomview/y1 LDZ2 ADD2 .Screen/y DEO2 |
|
|
|
#20 SFT .zoomview/y1 LDZ2 ADD2 .Screen/y DEO2 |
|
|
|
#0800 |
|
|
|
#0800 |
|
|
|
&hor |
|
|
|
&hor |
|
|
|
#00 OVR |
|
|
|
#00 OVRk |
|
|
|
DUP2 #00 .selection/x1 LDZ #30 SFT ADD2 ,&x STR2 |
|
|
|
#00 .selection/x1 LDZ #30 SFT ADD2 ,&x STR2 |
|
|
|
#20 SFT .zoomview/x1 LDZ2 ADD2 .Screen/x DEO2 |
|
|
|
#20 SFT .zoomview/x1 LDZ2 ADD2 .Screen/x DEO2 |
|
|
|
[ LIT2 &x $2 ] [ LIT2 &y $2 ] ;get-pixel JSR2 .Screen/sprite DEO |
|
|
|
[ LIT2 &x $2 ] [ LIT2 &y $2 ] ;get-pixel JSR2 .Screen/sprite DEO |
|
|
|
INC GTHk ,&hor JCN |
|
|
|
INC GTHk ,&hor JCN |
|
|
|
|
Devine Lu Linvega
4 years ago