Browse code

Added Console output on musictracker.tal to demonstrate Audio*/vector

Andrew Alderwick authored on 20/08/2021 21:46:25
Showing 1 changed files
... ...
@@ -23,6 +23,7 @@
23 23
 ( devices )
24 24
 
25 25
 |00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
26
+|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 &error $1 ]
26 27
 |20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
27 28
 |30 @Audio0 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &len $2 &addr $2 &volume $1 &pitch $1 ]
28 29
 |40 @Audio1 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &len $2 &addr $2 &volume $1 &pitch $1 ]
... ...
@@ -61,12 +62,16 @@
61 62
 
62 63
 	;square-wave .Audio0/addr DEO2
63 64
 	;square-wave/end ;square-wave SUB2 .Audio0/len DEO2
65
+	;on-square-done .Audio0/vector DEO2
64 66
 	;triangle-wave .Audio1/addr DEO2
65 67
 	;triangle-wave/end ;triangle-wave SUB2 .Audio1/len DEO2
68
+	;on-triangle-done .Audio1/vector DEO2
66 69
 	;sine-wave .Audio2/addr DEO2
67 70
 	;sine-wave/end ;sine-wave SUB2 .Audio2/len DEO2
71
+	;on-sine-done .Audio2/vector DEO2
68 72
 	;noise-wave .Audio3/addr DEO2
69 73
 	;noise-wave-end ;noise-wave SUB2 .Audio3/len DEO2
74
+	;on-noise-done .Audio3/vector DEO2
70 75
 
71 76
 	;draw-timeline JSR2
72 77
 	;draw-controls JSR2
... ...
@@ -125,6 +130,22 @@ BRK
125 130
 
126 131
 BRK
127 132
 
133
+@on-square-done ( -> )
134
+	LIT '0 .Console/write DEO
135
+	BRK
136
+
137
+@on-triangle-done ( -> )
138
+	LIT '1 .Console/write DEO
139
+	BRK
140
+
141
+@on-sine-done ( -> )
142
+	LIT '2 .Console/write DEO
143
+	BRK
144
+
145
+@on-noise-done ( -> )
146
+	LIT '3 .Console/write DEO
147
+	BRK
148
+
128 149
 @play ( pitch -- )
129 150
 
130 151
 	.Audio0/pitch DEO