... | ... |
@@ -34,10 +34,10 @@ |
34 | 34 |
|0100 ;System { vector 2 pad 6 r 2 g 2 b 2 } |
35 | 35 |
|0110 ;Console { pad 8 char 1 byte 1 short 2 } |
36 | 36 |
|0120 ;Screen { vector 2 width 2 height 2 pad 2 x 2 y 2 color 1 } |
37 |
-|0130 ;Sprite { pad 8 x 2 y 2 addr 2 color 1 } |
|
38 |
-|0140 ;Controller { buttons 1 } |
|
39 |
-|0150 ;Keys { key 1 } |
|
40 |
-|0160 ;Mouse { x 2 y 2 state 1 chord 1 change 1 } |
|
37 |
+|0130 ;Sprite { vector 2 pad 6 x 2 y 2 addr 2 color 1 } |
|
38 |
+|0140 ;Controller { vector 2 button 1 } |
|
39 |
+|0150 ;Keys { vector 2 key 1 } |
|
40 |
+|0160 ;Mouse { vector 2 x 2 y 2 state 1 chord 1 } |
|
41 | 41 |
|0170 ;File { pad 8 name 2 length 2 load 2 save 2 } |
42 | 42 |
|
43 | 43 |
( program ) |
... | ... |
@@ -67,19 +67,19 @@ BRK |
67 | 67 |
|
68 | 68 |
( keyboard controls ) |
69 | 69 |
|
70 |
- ~Keys #00 EQU ^$no-key JNZ |
|
70 |
+ ~Keys.key #00 EQU ^$no-key JNZ |
|
71 | 71 |
|
72 |
- ~Keys #31 LTH ^$no-key JNZ |
|
73 |
- ~Keys #33 GTH ^$no-key JNZ |
|
74 |
- ( select ) ~Keys #31 SUB =bankview.mode |
|
75 |
- ( release ) #00 =Keys |
|
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 | 76 |
,redraw JSR2 |
77 | 77 |
|
78 | 78 |
$no-key |
79 | 79 |
|
80 |
- ~Controller.buttons #00 EQU ^$no-ctrl JNZ |
|
80 |
+ ~Controller.button #00 EQU ^$no-ctrl JNZ |
|
81 | 81 |
|
82 |
- ~Controller.buttons |
|
82 |
+ ~Controller.button |
|
83 | 83 |
DUP #10 EQU ^$no-ctrl-up JNZ |
84 | 84 |
~tileview.addr #0080 ADD2 =tileview.addr $no-ctrl-up |
85 | 85 |
DUP #20 EQU ^$no-ctrl-down JNZ |