38 lines
812 B
Tal
38 lines
812 B
Tal
( synth demo using old device )
|
|
|
|
|30 @Audio0 [ &vec $2 &pos $2 &out $1 &pad $3 &adsr $2 &len $2 &addr $2 &vol $1 &pitch $1 ]
|
|
|
|
|0000
|
|
@next $2
|
|
|
|
|0100
|
|
#ff .Audio0/vol DEO
|
|
;square .Audio0/addr DEO2
|
|
( #0002 .Audio0/len DEO2 )
|
|
#0008 .Audio0/len DEO2
|
|
;play .Audio0/vec DEO2
|
|
( fall-through )
|
|
|
|
@play
|
|
.next LDZ2 #0002 MUL2 ;asdrs ADD2 LDA2 .Audio0/adsr DEO2
|
|
.next LDZ2 ;notes ADD2 LDA .Audio0/pitch DEO
|
|
.next LDZ2 INC2 ;size LDA2 DIV2k MUL2 SUB2 .next STZ2
|
|
BRK
|
|
|
|
@size 0018
|
|
|
|
@asdrs
|
|
0400 0200 0200 0400 0200 0200
|
|
0400 0200 0200 0400 0200 0200
|
|
0400 0200 0200 0400 0200 0200
|
|
0400 0200 0200 0400 0200 0200
|
|
|
|
@notes
|
|
18 18 18 24 18 24
|
|
18 18 18 24 18 24
|
|
1b 1b 1b 27 1b 27
|
|
1d 1d 1d 29 1d 29
|
|
|
|
( @square ff 00 )
|
|
@square ff ff ff ff 00 00 00 00
|