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
|
||||||
|
|
|
@ -43,7 +43,7 @@
|
||||||
|
|
||||||
;module ;k-init-module JSR2
|
;module ;k-init-module JSR2
|
||||||
|
|
||||||
#00 #00 ;k-load-instrument JSR2
|
#01 #00 ;k-load-instrument JSR2
|
||||||
|
|
||||||
;on-frame/run .Screen/vector DEO2
|
;on-frame/run .Screen/vector DEO2
|
||||||
BRK
|
BRK
|
||||||
|
|
Reference in New Issue