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

Optimized nasu

This commit is contained in:
neauoire 2021-04-06 10:51:13 -07:00
parent 5dc0245c9e
commit c2fcede6cc
1 changed files with 28 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
projects/software/nasu.usm
View File

@ -45,9 +45,9 @@
|0200 @RESET
( theme ) #e0fc =System.r #30cc =System.g #30ac =System.b
( vectors ) ,FRAME =Screen.vector
,FRAME =Screen.vector
( vectors ) ,on-button =Controller.vector
( vectors ) ,on-key =Keys.vector
( vectors ) ,on-mouse =Mouse.vector
~Screen.width 2/ #008a SUB2 =bankview.x
~Screen.height 2/ #003f SUB2 =bankview.y
@ -63,21 +63,18 @@
BRK
@FRAME
@on-key
( keyboard controls )
~Keys.key #00 EQU ^$no-key JNZ
~Keys.key #31 LTH ^$no-key JNZ
~Keys.key #33 GTH ^$no-key JNZ
~Keys.key #31 LTH ^$skip JNZ
~Keys.key #33 GTH ^$skip JNZ
( select ) ~Keys.key #31 SUB =bankview.mode
( release ) #00 =Keys.key
,redraw JSR2
$skip
$no-key
BRK
~Controller.button #00 EQU ^$no-ctrl JNZ
@on-button
~Controller.button
DUP #10 EQU ^$no-ctrl-up JNZ
@ -89,13 +86,12 @@ BRK
DUP #80 EQU ^$no-ctrl-right JNZ
~tileview.addr 8- =tileview.addr $no-ctrl-right
POP
~tileview.addr #0800 DIV2 #0800 MUL2 =bankview.addr
,redraw JSR2
$no-ctrl
BRK
( mouse controls )
@on-mouse
~Mouse.state #00 EQU ,$click-end JNZ2