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

60
projects/software/nasu.usm
View File

@ -45,9 +45,9 @@
|0200 @RESET |0200 @RESET
( theme ) #e0fc =System.r #30cc =System.g #30ac =System.b ( theme ) #e0fc =System.r #30cc =System.g #30ac =System.b
( vectors ) ,FRAME =Screen.vector ( vectors ) ,on-button =Controller.vector
( vectors ) ,on-key =Keys.vector
,FRAME =Screen.vector ( vectors ) ,on-mouse =Mouse.vector
~Screen.width 2/ #008a SUB2 =bankview.x ~Screen.width 2/ #008a SUB2 =bankview.x
~Screen.height 2/ #003f SUB2 =bankview.y ~Screen.height 2/ #003f SUB2 =bankview.y
@ -63,40 +63,36 @@
BRK BRK
@FRAME @on-key
( keyboard controls ) ~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
~Keys.key #00 EQU ^$no-key JNZ BRK
~Keys.key #31 LTH ^$no-key JNZ @on-button
~Keys.key #33 GTH ^$no-key JNZ
( select ) ~Keys.key #31 SUB =bankview.mode ~Controller.button
( release ) #00 =Keys.key DUP #10 EQU ^$no-ctrl-up JNZ
,redraw JSR2 ~tileview.addr #0080 ADD2 =tileview.addr $no-ctrl-up
DUP #20 EQU ^$no-ctrl-down JNZ
~tileview.addr #0080 SUB2 =tileview.addr $no-ctrl-down
DUP #40 EQU ^$no-ctrl-left JNZ
~tileview.addr 8+ =tileview.addr $no-ctrl-left
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-key BRK
~Controller.button #00 EQU ^$no-ctrl JNZ
~Controller.button
DUP #10 EQU ^$no-ctrl-up JNZ
~tileview.addr #0080 ADD2 =tileview.addr $no-ctrl-up
DUP #20 EQU ^$no-ctrl-down JNZ
~tileview.addr #0080 SUB2 =tileview.addr $no-ctrl-down
DUP #40 EQU ^$no-ctrl-left JNZ
~tileview.addr 8+ =tileview.addr $no-ctrl-left
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
( mouse controls )
@on-mouse
~Mouse.state #00 EQU ,$click-end JNZ2 ~Mouse.state #00 EQU ,$click-end JNZ2
( toolbar ) ( toolbar )