initial version of respecting loop flag

This commit is contained in:
Nico 2022-01-14 19:38:00 +00:00
parent 214bc6191c
commit e6766ff4ce
2 changed files with 147 additions and 143 deletions

View File

@ -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

View File

@ -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