initial version of respecting loop flag
This commit is contained in:
parent
214bc6191c
commit
e6766ff4ce
|
@ -89,6 +89,10 @@ RTN
|
||||||
,&chan STR
|
,&chan STR
|
||||||
LDA DUP
|
LDA DUP
|
||||||
#00 EQU ,&rest JCN
|
#00 EQU ,&rest JCN
|
||||||
|
.kalama/loopflags LDZ ,&chan LDR #01 SWP SFT AND
|
||||||
|
#00 NEQ ,&noloop JCN
|
||||||
|
#80 ORA
|
||||||
|
&noloop
|
||||||
.Audio0/pitch ,&chan LDR #10 MUL ADD DEO ( TODO effects, use loop bit )
|
.Audio0/pitch ,&chan LDR #10 MUL ADD DEO ( TODO effects, use loop bit )
|
||||||
RTN
|
RTN
|
||||||
&rest
|
&rest
|
||||||
|
|
286
player.tal
286
player.tal
File diff suppressed because one or more lines are too long
Reference in New Issue