... | ... |
@@ -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 |