|
|
|
|
@ -185,13 +185,13 @@
|
|
|
|
|
.frame/x1 LDZ2 #0090 ++ .frame/y1 LDZ2 #0020 #0028 SIZE-TO-RECT ;zoomview SET-RECT |
|
|
|
|
.frame/x1 LDZ2 #00c0 ++ .frame/y1 LDZ2 #0048 #0020 SIZE-TO-RECT ;dataview SET-RECT |
|
|
|
|
|
|
|
|
|
.tileview/x1 LDZ2 #0002 -- .tileview-frame/x1 STZ2 |
|
|
|
|
.tileview/y1 LDZ2 #0002 -- .tileview-frame/y1 STZ2 |
|
|
|
|
.tileview/x1 LDZ2 #0001 -- .tileview-frame/x1 STZ2 |
|
|
|
|
.tileview/y1 LDZ2 #0001 -- .tileview-frame/y1 STZ2 |
|
|
|
|
.tileview/x2 LDZ2 INC2 .tileview-frame/x2 STZ2 |
|
|
|
|
.tileview/y2 LDZ2 INC2 .tileview-frame/y2 STZ2 |
|
|
|
|
|
|
|
|
|
.zoomview/x1 LDZ2 #0002 -- .zoomview-frame/x1 STZ2 |
|
|
|
|
.zoomview/y1 LDZ2 #0002 -- .zoomview-frame/y1 STZ2 |
|
|
|
|
.zoomview/x1 LDZ2 #0001 -- .zoomview-frame/x1 STZ2 |
|
|
|
|
.zoomview/y1 LDZ2 #0001 -- .zoomview-frame/y1 STZ2 |
|
|
|
|
.zoomview/x2 LDZ2 INC2 .zoomview-frame/x2 STZ2 |
|
|
|
|
.zoomview/y2 LDZ2 #0007 -- .zoomview-frame/y2 STZ2 |
|
|
|
|
|
|
|
|
|
@ -250,23 +250,23 @@ BRK
|
|
|
|
|
.Controller/button DEI #01 AND ;on-control JCN2 |
|
|
|
|
|
|
|
|
|
.Controller/key DEI |
|
|
|
|
DUP #31 ! ,&no-1 JCN |
|
|
|
|
#31 !~ ,&no-1 JCN |
|
|
|
|
( color ) #00 .settings/color STZ ;draw-toolview JSR2 &no-1 |
|
|
|
|
DUP #32 ! ,&no-2 JCN |
|
|
|
|
#32 !~ ,&no-2 JCN |
|
|
|
|
( color ) #01 .settings/color STZ ;draw-toolview JSR2 &no-2 |
|
|
|
|
DUP #33 ! ,&no-3 JCN |
|
|
|
|
#33 !~ ,&no-3 JCN |
|
|
|
|
( color ) #02 .settings/color STZ ;draw-toolview JSR2 &no-3 |
|
|
|
|
DUP #34 ! ,&no-4 JCN |
|
|
|
|
#34 !~ ,&no-4 JCN |
|
|
|
|
( color ) #03 .settings/color STZ ;draw-toolview JSR2 &no-4 |
|
|
|
|
DUP #08 ! ,&no-delete JCN |
|
|
|
|
#08 !~ ,&no-delete JCN |
|
|
|
|
( delete ) ;op-erase ;run-selection JSR2 SET-STATE ;redraw JSR2 &no-delete |
|
|
|
|
DUP #20 ! ,&no-zoom JCN |
|
|
|
|
#20 !~ ,&no-zoom JCN |
|
|
|
|
( zoom ) .settings/zoom TOGGLE ;redraw JSR2 &no-zoom |
|
|
|
|
DUP #71 ! ,&no-tool0 JCN |
|
|
|
|
#71 !~ ,&no-tool0 JCN |
|
|
|
|
( tool ) #00 .settings/tool STZ ;redraw JSR2 &no-tool0 |
|
|
|
|
DUP #77 ! ,&no-tool1 JCN |
|
|
|
|
#77 !~ ,&no-tool1 JCN |
|
|
|
|
( tool ) #01 .settings/tool STZ ;redraw JSR2 &no-tool1 |
|
|
|
|
DUP #1b ! ,&no-escape JCN |
|
|
|
|
#1b !~ ,&no-escape JCN |
|
|
|
|
( escape ) RESET-SELECTION ;redraw JSR2 &no-escape |
|
|
|
|
POP |
|
|
|
|
|
|
|
|
|
|