|
|
|
|
@ -9,33 +9,20 @@
|
|
|
|
|
|
|
|
|
|
|0000 |
|
|
|
|
|
|
|
|
|
@state |
|
|
|
|
&timer $1 &changed $1 |
|
|
|
|
@settings |
|
|
|
|
&depth $1 &color $1 &blend $1 |
|
|
|
|
&ratio $1 &tool $1 &focus $2 |
|
|
|
|
&zoom $1 &brush $1 |
|
|
|
|
@cursor |
|
|
|
|
&x $2 &y $2 &last $1 |
|
|
|
|
@selection |
|
|
|
|
&x1 $1 &y1 $1 |
|
|
|
|
&x2 $1 &y2 $1 |
|
|
|
|
&zx $1 &zy $1 ( zoom ) |
|
|
|
|
&a $1 |
|
|
|
|
@frame |
|
|
|
|
&x1 $2 &y1 $2 |
|
|
|
|
&x2 $2 &y2 $2 |
|
|
|
|
&width $2 &height $2 |
|
|
|
|
@filepath $40 ( ext ) $4 |
|
|
|
|
|
|
|
|
|
@toolview &x1 $2 &y1 $2 &x2 $2 &y2 $2 |
|
|
|
|
@colorview &x1 $2 &y1 $2 &x2 $2 &y2 $2 |
|
|
|
|
@blendview &x1 $2 &y1 $2 &x2 $2 &y2 $2 |
|
|
|
|
@dataview &x1 $2 &y1 $2 &x2 $2 &y2 $2 |
|
|
|
|
@preview &x1 $2 &y1 $2 &x2 $2 &y2 $2 |
|
|
|
|
@zoomview &x1 $2 &y1 $2 &x2 $2 &y2 $2 |
|
|
|
|
@tileview &x1 $2 &y1 $2 &x2 $2 &y2 $2 |
|
|
|
|
@nametableview &x $2 &y $2 &x2 $2 &y2 $2 |
|
|
|
|
@state &timer $1 &changed $1 |
|
|
|
|
@settings &depth $1 &color $1 &blend $1 &ratio $1 &tool $1 &focus $2 &zoom $1 &brush $1 |
|
|
|
|
@cursor &x $2 &y $2 &last $1 |
|
|
|
|
@selection &x1 $1 &y1 $1 &x2 $1 &y2 $1 &zx $1 &zy $1 &a $1 |
|
|
|
|
@frame &x1 $2 &y1 $2 &x2 $2 &y2 $2 &width $2 &height $2 |
|
|
|
|
@filepath $40 ( ext ) $4 |
|
|
|
|
@toolview &x1 $2 &y1 $2 &x2 $2 &y2 $2 |
|
|
|
|
@colorview &x1 $2 &y1 $2 &x2 $2 &y2 $2 |
|
|
|
|
@blendview &x1 $2 &y1 $2 &x2 $2 &y2 $2 |
|
|
|
|
@dataview &x1 $2 &y1 $2 &x2 $2 &y2 $2 |
|
|
|
|
@preview &x1 $2 &y1 $2 &x2 $2 &y2 $2 |
|
|
|
|
@zoomview &x1 $2 &y1 $2 &x2 $2 &y2 $2 |
|
|
|
|
@tileview &x1 $2 &y1 $2 &x2 $2 &y2 $2 |
|
|
|
|
@nametableview &x $2 &y $2 &x2 $2 &y2 $2 |
|
|
|
|
|
|
|
|
|
|0100 ( -> ) |
|
|
|
|
|
|
|
|
|
@ -119,6 +106,9 @@ BRK
|
|
|
|
|
00 '4 :pick-color4 "ColorC $1 |
|
|
|
|
$1 |
|
|
|
|
|
|
|
|
|
( |
|
|
|
|
@|vectors ) |
|
|
|
|
|
|
|
|
|
@untrap ( -- ) |
|
|
|
|
|
|
|
|
|
;on-frame .Screen/vector DEO2 |
|
|
|
|
@ -393,7 +383,8 @@ BRK
|
|
|
|
|
|
|
|
|
|
BRK |
|
|
|
|
|
|
|
|
|
( operations ) |
|
|
|
|
( |
|
|
|
|
@|helpers ) |
|
|
|
|
|
|
|
|
|
@toggle-zoom ( -- ) |
|
|
|
|
|
|
|
|
|
@ -618,6 +609,9 @@ JMP2r
|
|
|
|
|
|
|
|
|
|
JMP2r |
|
|
|
|
|
|
|
|
|
( |
|
|
|
|
@|drawing ) |
|
|
|
|
|
|
|
|
|
@redraw-all ( -- ) |
|
|
|
|
|
|
|
|
|
;draw-menu-bg JSR2 |
|
|
|
|
@ -1076,7 +1070,8 @@ JMP2r
|
|
|
|
|
|
|
|
|
|
JMP2r |
|
|
|
|
|
|
|
|
|
( file ) |
|
|
|
|
( |
|
|
|
|
@|options ) |
|
|
|
|
|
|
|
|
|
@file-new ( -- ) |
|
|
|
|
|
|
|
|
|
@ -1353,6 +1348,8 @@ JMP2r
|
|
|
|
|
JMP2r |
|
|
|
|
&sprite 8000 8000 8000 8000 |
|
|
|
|
|
|
|
|
|
( |
|
|
|
|
@|stdlib ) |
|
|
|
|
@rol ( byte -- byte ) DUP #07 SFT SWP DUP ADD ADD JMP2r |
|
|
|
|
@ror ( byte -- byte ) DUP #70 SFT SWP #01 SFT ADD JMP2r |
|
|
|
|
@mcpy ( src* dst* len* -- ) SWP2 STH2 OVR2 ADD2 SWP2 &loop LDAk STH2kr STA INC2r INC2 GTH2k ,&loop JCN POP2 POP2 POP2r JMP2r |
|
|
|
|
|