...
|
...
|
@@ -138,15 +138,21 @@ BRK
|
138
|
138
|
( release )
|
139
|
139
|
#00 .Controller/key DEO
|
140
|
140
|
|
141
|
|
- .Controller/button DEI #f0 AND
|
142
|
|
- DUP #04 SFT #01 AND #01 ! ,&no-up JCN
|
143
|
|
- ( move ) .Audio0/addr DEI2 #0001 -- .Audio0/addr DEO2 &no-up
|
144
|
|
- DUP #05 SFT #01 AND #01 ! ,&no-down JCN
|
145
|
|
- ( move ) .Audio0/addr DEI2 INC2 .Audio0/addr DEO2 &no-down
|
146
|
|
- DUP #06 SFT #01 AND #01 ! ,&no-left JCN
|
147
|
|
- ( move ) .Audio0/addr DEI2 #0010 -- .Audio0/addr DEO2 &no-left
|
148
|
|
- DUP #07 SFT #01 AND #01 ! ,&no-right JCN
|
149
|
|
- ( move ) .Audio0/addr DEI2 #0010 ++ .Audio0/addr DEO2 &no-right
|
|
141
|
+ .Controller/button DEI
|
|
142
|
+ DUP #11 ! ,&cu JCN #3c ;play JSR2 &cu
|
|
143
|
+ DUP #21 ! ,&cd JCN #3d ;play JSR2 &cd
|
|
144
|
+ DUP #41 ! ,&cl JCN #3e ;play JSR2 &cl
|
|
145
|
+ DUP #81 ! ,&cr JCN #3f ;play JSR2 &cr
|
|
146
|
+ DUP #12 ! ,&au JCN #40 ;play JSR2 &au
|
|
147
|
+ DUP #22 ! ,&ad JCN #41 ;play JSR2 &ad
|
|
148
|
+ DUP #42 ! ,&al JCN #42 ;play JSR2 &al
|
|
149
|
+ DUP #82 ! ,&ar JCN #43 ;play JSR2 &ar
|
|
150
|
+ DUP #14 ! ,&su JCN #44 ;play JSR2 &su
|
|
151
|
+ DUP #24 ! ,&sd JCN #45 ;play JSR2 &sd
|
|
152
|
+ DUP #44 ! ,&sl JCN #46 ;play JSR2 &sl
|
|
153
|
+ DUP #84 ! ,&sr JCN #47 ;play JSR2 &sr
|
|
154
|
+ DUP #40 ! ,&l JCN .Audio0/addr DEI2 #0010 -- .Audio0/addr DEO2 &l
|
|
155
|
+ DUP #80 ! ,&r JCN .Audio0/addr DEI2 #0010 ++ .Audio0/addr DEO2 &r
|
150
|
156
|
POP
|
151
|
157
|
|
152
|
158
|
;draw-octave JSR2
|