diff --git a/engine.tal b/engine.tal index 5138ecf..0cebd3c 100644 --- a/engine.tal +++ b/engine.tal @@ -114,13 +114,16 @@ RTN &run ,&chan STR SWP ( get command ) -DUP #01 EQU ,&vol JCN ( set instrument ) +DUP #01 EQU ,&vol JCN ( set volume ) DUP #02 EQU ,&instr JCN ( set instrument ) +DUP #07 EQU ,&speed JCN ( set speed ) POP2 RTN &vol POP ,&chan LDR #10 MUL .Audio0/volume ADD DEO RTN &instr POP ,&chan LDR ;k-load-instrument JSR2 RTN +&speed POP #0f AND ( only include low byte ) DUP DEBUG .kalama/speed STZ #00 .kalama/tick STZ +RTN ( loads instrument with number into specified audio channel, 0-indexed ) @k-load-instrument ( number channel -- ) diff --git a/player.tal b/player.tal index c9868a4..7768992 100644 --- a/player.tal +++ b/player.tal @@ -104,13 +104,13 @@ ff 01 88 54 02 00 52 00 00 54 00 00 -4f 00 00 +4f 07 04 4b 00 00 4f 00 00 48 00 00 -ff 00 00 +ff 02 01 ( pattern 01 ) -54 02 01 +54 07 0f 56 00 00 57 00 00 56 00 00