Browse code
Optimized nasu
neauoire authored on 06/04/2021 17:51:13
Showing 1 changed files
| ... | ... |
@@ -45,9 +45,9 @@ |
| 45 | 45 |
|0200 @RESET |
| 46 | 46 |
|
| 47 | 47 |
( theme ) #e0fc =System.r #30cc =System.g #30ac =System.b |
| 48 |
- ( vectors ) ,FRAME =Screen.vector |
|
| 49 |
- |
|
| 50 |
- ,FRAME =Screen.vector |
|
| 48 |
+ ( vectors ) ,on-button =Controller.vector |
|
| 49 |
+ ( vectors ) ,on-key =Keys.vector |
|
| 50 |
+ ( vectors ) ,on-mouse =Mouse.vector |
|
| 51 | 51 |
|
| 52 | 52 |
~Screen.width 2/ #008a SUB2 =bankview.x |
| 53 | 53 |
~Screen.height 2/ #003f SUB2 =bankview.y |
| ... | ... |
@@ -63,40 +63,36 @@ |
| 63 | 63 |
|
| 64 | 64 |
BRK |
| 65 | 65 |
|
| 66 |
-@FRAME |
|
| 67 |
- |
|
| 68 |
- ( keyboard controls ) |
|
| 69 |
- |
|
| 70 |
- ~Keys.key #00 EQU ^$no-key JNZ |
|
| 71 |
- |
|
| 72 |
- ~Keys.key #31 LTH ^$no-key JNZ |
|
| 73 |
- ~Keys.key #33 GTH ^$no-key JNZ |
|
| 74 |
- ( select ) ~Keys.key #31 SUB =bankview.mode |
|
| 75 |
- ( release ) #00 =Keys.key |
|
| 76 |
- ,redraw JSR2 |
|
| 77 |
- |
|
| 78 |
- $no-key |
|
| 79 |
- |
|
| 80 |
- ~Controller.button #00 EQU ^$no-ctrl JNZ |
|
| 66 |
+@on-key |
|
| 81 | 67 |
|
| 82 |
- ~Controller.button |
|
| 83 |
- DUP #10 EQU ^$no-ctrl-up JNZ |
|
| 84 |
- ~tileview.addr #0080 ADD2 =tileview.addr $no-ctrl-up |
|
| 85 |
- DUP #20 EQU ^$no-ctrl-down JNZ |
|
| 86 |
- ~tileview.addr #0080 SUB2 =tileview.addr $no-ctrl-down |
|
| 87 |
- DUP #40 EQU ^$no-ctrl-left JNZ |
|
| 88 |
- ~tileview.addr 8+ =tileview.addr $no-ctrl-left |
|
| 89 |
- DUP #80 EQU ^$no-ctrl-right JNZ |
|
| 90 |
- ~tileview.addr 8- =tileview.addr $no-ctrl-right |
|
| 91 |
- POP |
|
| 68 |
+ ~Keys.key #31 LTH ^$skip JNZ |
|
| 69 |
+ ~Keys.key #33 GTH ^$skip JNZ |
|
| 70 |
+ ( select ) ~Keys.key #31 SUB =bankview.mode |
|
| 71 |
+ ( release ) #00 =Keys.key |
|
| 72 |
+ ,redraw JSR2 |
|
| 73 |
+ $skip |
|
| 92 | 74 |
|
| 93 |
- ~tileview.addr #0800 DIV2 #0800 MUL2 =bankview.addr |
|
| 94 |
- ,redraw JSR2 |
|
| 75 |
+BRK |
|
| 95 | 76 |
|
| 96 |
- $no-ctrl |
|
| 77 |
+@on-button |
|
| 78 |
+ |
|
| 79 |
+ ~Controller.button |
|
| 80 |
+ DUP #10 EQU ^$no-ctrl-up JNZ |
|
| 81 |
+ ~tileview.addr #0080 ADD2 =tileview.addr $no-ctrl-up |
|
| 82 |
+ DUP #20 EQU ^$no-ctrl-down JNZ |
|
| 83 |
+ ~tileview.addr #0080 SUB2 =tileview.addr $no-ctrl-down |
|
| 84 |
+ DUP #40 EQU ^$no-ctrl-left JNZ |
|
| 85 |
+ ~tileview.addr 8+ =tileview.addr $no-ctrl-left |
|
| 86 |
+ DUP #80 EQU ^$no-ctrl-right JNZ |
|
| 87 |
+ ~tileview.addr 8- =tileview.addr $no-ctrl-right |
|
| 88 |
+ POP |
|
| 89 |
+ ~tileview.addr #0800 DIV2 #0800 MUL2 =bankview.addr |
|
| 90 |
+ ,redraw JSR2 |
|
| 97 | 91 |
|
| 98 |
- ( mouse controls ) |
|
| 92 |
+BRK |
|
| 99 | 93 |
|
| 94 |
+@on-mouse |
|
| 95 |
+ |
|
| 100 | 96 |
~Mouse.state #00 EQU ,$click-end JNZ2 |
| 101 | 97 |
|
| 102 | 98 |
( toolbar ) |