...
|
...
|
@@ -104,12 +104,12 @@ BRK
|
104
|
104
|
( release ) #00 =Mouse.state
|
105
|
105
|
,redraw JSR2 ,$click-end JMP2
|
106
|
106
|
$no-brush-click
|
107
|
|
- ~Mouse.x ~tileview.x SUB2 8/ #000e NEQU2 ^$no-load-click JNZ
|
|
107
|
+ ~Mouse.x ~tileview.x SUB2 8/ #000e NEQ2 ^$no-load-click JNZ
|
108
|
108
|
( load ) ,filepath =File.name #0800 =File.length ~bankview.addr =File.load
|
109
|
109
|
( release ) #00 =Mouse.state
|
110
|
110
|
,redraw JSR2 ,$click-end JMP2
|
111
|
111
|
$no-load-click
|
112
|
|
- ~Mouse.x ~tileview.x SUB2 8/ #000f NEQU2 ^$no-save-click JNZ
|
|
112
|
+ ~Mouse.x ~tileview.x SUB2 8/ #000f NEQ2 ^$no-save-click JNZ
|
113
|
113
|
( save ) ,filepath =File.name #0800 =File.length ~bankview.addr =File.save
|
114
|
114
|
( release ) #00 =Mouse.state
|
115
|
115
|
,redraw JSR2 ,$click-end JMP2
|
...
|
...
|
@@ -437,8 +437,8 @@ RTN
|
437
|
437
|
|
438
|
438
|
@draw-cursor
|
439
|
439
|
|
440
|
|
- ~mouse.x ~Mouse.x NEQU2
|
441
|
|
- ~mouse.y ~Mouse.y NEQU2
|
|
440
|
+ ~mouse.x ~Mouse.x NEQ2
|
|
441
|
+ ~mouse.y ~Mouse.y NEQ2
|
442
|
442
|
|
443
|
443
|
#0000 EQU2 RTN? ( Return if unchanged )
|
444
|
444
|
|