start of sample loop handling

2022-01-14 18:13:20 +00:00 · 2022-01-14 18:13:20 +00:00 · 214bc6191c
parent 52f1e551d2
commit 214bc6191c
2 changed files with 9 additions and 8 deletions
--- a/engine.tal
+++ b/engine.tal
@ -86,10 +86,10 @@ RTN
@k-play-line ( *l channel -- )
 &chan $1
 &run
-#10 MUL ,&chan STR
+,&chan STR
 LDA DUP
  #00 EQU ,&rest JCN
-  .Audio0/pitch ,&chan LDR ADD DEO ( TODO use correct channel, effects, use loop bit )
+  .Audio0/pitch ,&chan LDR #10 MUL ADD DEO ( TODO effects, use loop bit )
  RTN
 &rest
 POP
--- a/player.tal
+++ b/player.tal