initial version of respecting loop flag
This commit is contained in:
parent
214bc6191c
commit
e6766ff4ce
|
@ -89,6 +89,10 @@ RTN
|
|||
,&chan STR
|
||||
LDA DUP
|
||||
#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 )
|
||||
RTN
|
||||
&rest
|
||||
|
|
|
@ -43,7 +43,7 @@
|
|||
|
||||
;module ;k-init-module JSR2
|
||||
|
||||
#00 #00 ;k-load-instrument JSR2
|
||||
#01 #00 ;k-load-instrument JSR2
|
||||
|
||||
;on-frame/run .Screen/vector DEO2
|
||||
BRK
|
||||
|
|
Reference in New Issue