From dfa5c2af67092f2ac8952f7b7ff1b0b8dcf5f333 Mon Sep 17 00:00:00 2001 From: neauoire Date: Wed, 3 Mar 2021 20:24:29 -0800 Subject: [PATCH] Touch edit in nasu --- examples/app.nasu.usm | 31 +++++++++++++++++++++++++++---- 1 file changed, 27 insertions(+), 4 deletions(-) diff --git a/examples/app.nasu.usm b/examples/app.nasu.usm index db39e12..41d10b2 100644 --- a/examples/app.nasu.usm +++ b/examples/app.nasu.usm @@ -20,6 +20,7 @@ ;i 1 ;pt Point ;addr 2 +;pos Point2d |0100 @RESET @@ -60,19 +61,42 @@ BRK @no-ctrl - ,no-click ~dev/mouse.state #00 EQU JMP? POP2 + ,click-end ~dev/mouse.state #00 EQU JMP? POP2 ~dev/mouse.x ~bankview.x GTH2 ~dev/mouse.x ~bankview.x #0080 ADD2 LTH2 #0101 EQU2 ~dev/mouse.y ~bankview.y GTH2 ~dev/mouse.y ~bankview.y #0080 ADD2 LTH2 #0101 EQU2 - #0101 NEQ2 ,no-click ROT JMP? POP2 + #0101 NEQ2 ,no-bank-click ROT JMP? POP2 ( touch in bankview ) ~dev/mouse.x ~bankview.x SUB2 #0008 DIV2 #0008 MUL2 ~dev/mouse.y ~bankview.y SUB2 #0008 DIV2 #0008 MUL2 #0010 MUL2 ADD2 ~bankview.addr ADD2 =tileview.addr + ,redraw JSR ,click-end JMP + + @no-bank-click + + ~dev/mouse.x ~tileview.x GTH2 ~dev/mouse.x ~tileview.x #0080 ADD2 LTH2 #0101 EQU2 + ~dev/mouse.y ~tileview.y GTH2 ~dev/mouse.y ~tileview.y #0080 ADD2 LTH2 #0101 EQU2 + #0101 NEQ2 ,click-end ROT JMP? POP2 + + ( touch in tileview ) + + ~dev/mouse.x ~tileview.x SUB2 #0008 DIV2 #0008 MUL2 #0040 DIV2 + ~dev/mouse.y ~tileview.y SUB2 #0008 DIV2 #0008 MUL2 #0040 DIV2 #0002 MUL2 ADD2 + #0008 MUL2 + ~tileview.addr ADD2 =addr ( addr offset ) + + ~dev/mouse.x ~tileview.x SUB2 ~dev/mouse.x ~tileview.x SUB2 #0040 DIV2 #0040 MUL2 SUB2 =pos.x + ~dev/mouse.y ~tileview.y SUB2 ~dev/mouse.y ~tileview.y SUB2 #0040 DIV2 #0040 MUL2 SUB2 =pos.y + + ( load ) ~addr ~pos.y #0008 DIV2 ADD2 LDR + ( mask ) #01 #07 ~pos.x #0008 DIV2 SWP POP SUB ROL + XOR + ( save ) ~addr ~pos.y #0008 DIV2 ADD2 STR + ,redraw JSR - @no-click + @click-end ,draw-cursor JSR @@ -237,7 +261,6 @@ RTS ,tool_copy =dev/sprite.addr #02 =dev/sprite.color - RTS @draw-tileview-icn