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 |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,21 +63,18 @@
BRK BRK
@FRAME @on-key
( keyboard controls ) ~Keys.key #31 LTH ^$skip JNZ
~Keys.key #33 GTH ^$skip JNZ
~Keys.key #00 EQU ^$no-key JNZ
~Keys.key #31 LTH ^$no-key JNZ
~Keys.key #33 GTH ^$no-key JNZ
( select ) ~Keys.key #31 SUB =bankview.mode ( select ) ~Keys.key #31 SUB =bankview.mode
( release ) #00 =Keys.key ( release ) #00 =Keys.key
,redraw JSR2 ,redraw JSR2
$skip
$no-key BRK
~Controller.button #00 EQU ^$no-ctrl JNZ @on-button
~Controller.button ~Controller.button
DUP #10 EQU ^$no-ctrl-up JNZ DUP #10 EQU ^$no-ctrl-up JNZ
@ -89,13 +86,12 @@ BRK
DUP #80 EQU ^$no-ctrl-right JNZ DUP #80 EQU ^$no-ctrl-right JNZ
~tileview.addr 8- =tileview.addr $no-ctrl-right ~tileview.addr 8- =tileview.addr $no-ctrl-right
POP POP
~tileview.addr #0800 DIV2 #0800 MUL2 =bankview.addr ~tileview.addr #0800 DIV2 #0800 MUL2 =bankview.addr
,redraw JSR2 ,redraw JSR2
$no-ctrl BRK
( mouse controls ) @on-mouse
~Mouse.state #00 EQU ,$click-end JNZ2 ~Mouse.state #00 EQU ,$click-end JNZ2