Browse code

(piano.tal) Added controller controls

Devine Lu Linvega authored on 17/11/2021 17:24:57
Showing 1 changed files
... ...
@@ -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