add speed command
This commit is contained in:
parent
fd5afe422a
commit
717428c7b4
|
@ -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 -- )
|
||||
|
|
|
@ -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
|
||||
|
|
Reference in New Issue