... | ... |
@@ -67,8 +67,9 @@ BRK |
67 | 67 |
|
68 | 68 |
,no-toolbar-click ~dev/mouse.y ~bankview.y #0010 SUB2 SUB2 #0008 DIV2 #0000 NEQ2 JMP? POP2 |
69 | 69 |
,no-toolbar-click ~dev/mouse.x ~bankview.x SUB2 #0008 DIV2 #000c LTH2 JMP? POP2 |
70 |
- ,no-toolbar-click ~dev/mouse.x ~bankview.x SUB2 #0008 DIV2 #000f GTH2 JMP? POP2 |
|
70 |
+ ,no-toolbar-click ~dev/mouse.x ~bankview.x SUB2 #0008 DIV2 #000e GTH2 JMP? POP2 |
|
71 | 71 |
~mouse.x ~bankview.x SUB2 #0008 DIV2 #000c SUB2 SWP POP =bankview.mode |
72 |
+ ,redraw JSR ,click-end JMP |
|
72 | 73 |
@no-toolbar-click |
73 | 74 |
|
74 | 75 |
( bankview ) |
... | ... |
@@ -132,8 +133,6 @@ BRK |
132 | 133 |
|
133 | 134 |
BRK |
134 | 135 |
|
135 |
- |
|
136 |
- |
|
137 | 136 |
@redraw |
138 | 137 |
|
139 | 138 |
,draw-bankview JSR |
... | ... |
@@ -156,19 +155,15 @@ RTS |
156 | 155 |
~bankview.x #0060 ADD2 =dev/sprite.x |
157 | 156 |
~bankview.y #0010 SUB2 =dev/sprite.y |
158 | 157 |
,tool_selector =dev/sprite.addr |
159 |
- #01 =dev/sprite.color |
|
158 |
+ #01 ~bankview.mode #00 EQU ADD =dev/sprite.color |
|
160 | 159 |
|
161 | 160 |
~dev/sprite.x #0008 ADD2 =dev/sprite.x |
162 | 161 |
,tool_hand =dev/sprite.addr |
163 |
- #02 =dev/sprite.color |
|
162 |
+ #01 ~bankview.mode #01 EQU ADD =dev/sprite.color |
|
164 | 163 |
|
165 | 164 |
~dev/sprite.x #0008 ADD2 =dev/sprite.x |
166 | 165 |
,tool_eraser =dev/sprite.addr |
167 |
- #02 =dev/sprite.color |
|
168 |
- |
|
169 |
- ~dev/sprite.x #0008 ADD2 =dev/sprite.x |
|
170 |
- ,tool_copy =dev/sprite.addr |
|
171 |
- #02 =dev/sprite.color |
|
166 |
+ #01 ~bankview.mode #02 EQU ADD =dev/sprite.color |
|
172 | 167 |
|
173 | 168 |
( guides ) |
174 | 169 |
|
... | ... |
@@ -379,8 +374,7 @@ RTS |
379 | 374 |
|
380 | 375 |
@tool_selector [ 80c0 e0f0 f8e0 1000 ] |
381 | 376 |
@tool_hand [ 4040 4070 f8f8 f870 ] |
382 |
-@tool_eraser [ 0814 2244 a850 2d00 ] |
|
383 |
-@tool_copy [ 5824 5a42 4242 3c00 ] |
|
377 |
+@tool_eraser [ 2050 b87c 3e1c 0800 ] |
|
384 | 378 |
|
385 | 379 |
@blank_icn [ 0000 0000 0000 0000 ] |
386 | 380 |
@cell1_icn [ 7cfe fefe fefe 7c00 ] |