start of sample loop handling
This commit is contained in:
parent
52f1e551d2
commit
214bc6191c
|
@ -86,10 +86,10 @@ RTN
|
||||||
@k-play-line ( *l channel -- )
|
@k-play-line ( *l channel -- )
|
||||||
&chan $1
|
&chan $1
|
||||||
&run
|
&run
|
||||||
#10 MUL ,&chan STR
|
,&chan STR
|
||||||
LDA DUP
|
LDA DUP
|
||||||
#00 EQU ,&rest JCN
|
#00 EQU ,&rest JCN
|
||||||
.Audio0/pitch ,&chan LDR ADD DEO ( TODO use correct channel, effects, use loop bit )
|
.Audio0/pitch ,&chan LDR #10 MUL ADD DEO ( TODO effects, use loop bit )
|
||||||
RTN
|
RTN
|
||||||
&rest
|
&rest
|
||||||
POP
|
POP
|
||||||
|
|
13
player.tal
13
player.tal
File diff suppressed because one or more lines are too long
Reference in New Issue