d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Touch edit in nasu

This commit is contained in:
neauoire 2021-03-03 20:24:29 -08:00
parent 227f54675d
commit dfa5c2af67
1 changed files with 27 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
examples/app.nasu.usm
View File

@ -20,6 +20,7 @@
;i 1 ;i 1
;pt Point ;pt Point
;addr 2 ;addr 2
;pos Point2d
|0100 @RESET |0100 @RESET
@ -60,19 +61,42 @@ BRK
@no-ctrl @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.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 ~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 ) ( touch in bankview )
~dev/mouse.x ~bankview.x SUB2 #0008 DIV2 #0008 MUL2 ~dev/mouse.x ~bankview.x SUB2 #0008 DIV2 #0008 MUL2
~dev/mouse.y ~bankview.y SUB2 #0008 DIV2 #0008 MUL2 #0010 MUL2 ADD2 ~dev/mouse.y ~bankview.y SUB2 #0008 DIV2 #0008 MUL2 #0010 MUL2 ADD2
~bankview.addr ADD2 =tileview.addr ~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 ,redraw JSR
@no-click @click-end
,draw-cursor JSR ,draw-cursor JSR
@ -237,7 +261,6 @@ RTS
,tool_copy =dev/sprite.addr ,tool_copy =dev/sprite.addr
#02 =dev/sprite.color #02 =dev/sprite.color
RTS RTS
@draw-tileview-icn @draw-tileview-icn