initial version of respecting loop flag

2022-01-14 19:38:00 +00:00 · 2022-01-14 19:38:00 +00:00 · e6766ff4ce
parent 214bc6191c
commit e6766ff4ce
2 changed files with 147 additions and 143 deletions
--- a/engine.tal
+++ b/engine.tal
@ -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
--- a/player.tal
+++ b/player.tal