this is broken but I need to show it
This commit is contained in:
parent
e1f50db931
commit
f1e1110d30
21
engine.tal
21
engine.tal
|
@ -25,7 +25,7 @@ multiple channels )
|
||||||
.kalama/songpos STZ2
|
.kalama/songpos STZ2
|
||||||
RTN
|
RTN
|
||||||
&reset
|
&reset
|
||||||
POP
|
POP2
|
||||||
#0000 .kalama/songpos STZ2
|
#0000 .kalama/songpos STZ2
|
||||||
RTN
|
RTN
|
||||||
|
|
||||||
|
@ -34,9 +34,8 @@ RTN
|
||||||
&run
|
&run
|
||||||
DUP2 .kalama/module STZ2 ( store module address )
|
DUP2 .kalama/module STZ2 ( store module address )
|
||||||
DUP2 LDA #0f AND .kalama/speed STZ ( set speed )
|
DUP2 LDA #0f AND .kalama/speed STZ ( set speed )
|
||||||
#0001 ADD2 LDA ( get pattern count byte )
|
#0001 ADD2 LDA ( stash pattern count byte )
|
||||||
;k-get-pattern/run JSR2 ( get the "pattern" that is 1 over the pattern index numbers. This is the first byte of the instruments )
|
;DEBUG-instruments .kalama/instruments STZ2
|
||||||
.kalama/instruments STZ2
|
|
||||||
#ff .kalama/tick STZ
|
#ff .kalama/tick STZ
|
||||||
#ff .kalama/line STZ
|
#ff .kalama/line STZ
|
||||||
#0000 .kalama/songpos STZ2
|
#0000 .kalama/songpos STZ2
|
||||||
|
@ -46,13 +45,13 @@ RTN
|
||||||
( gets the memory address of the given pattern in loaded module )
|
( gets the memory address of the given pattern in loaded module )
|
||||||
@k-get-pattern ( number -- addr* )
|
@k-get-pattern ( number -- addr* )
|
||||||
&run
|
&run
|
||||||
|
( #00 #01 EQU ,&blank JCN )
|
||||||
#00 SWP #0030 MUL2
|
#00 SWP #0030 MUL2
|
||||||
.kalama/module LDZ2
|
;module #0003 ADD2 DUP2 LDA2 ADD2 #0002 ADD2 ADD2
|
||||||
#0003 ADD2 ( skip header )
|
RTN
|
||||||
DUP2 LDA2 ADD2 ( skip song table body )
|
&blank
|
||||||
#0002 ADD2 ( skip song table size short )
|
POP
|
||||||
ADD2
|
;k-blank-pattern
|
||||||
|
|
||||||
RTN
|
RTN
|
||||||
|
|
||||||
( gets the memory address of the given instrument in loaded module )
|
( gets the memory address of the given instrument in loaded module )
|
||||||
|
@ -109,3 +108,5 @@ RTN
|
||||||
|
|
||||||
POPr
|
POPr
|
||||||
RTN
|
RTN
|
||||||
|
|
||||||
|
@k-blank-pattern $30
|
||||||
|
|
|
@ -91,6 +91,7 @@ RTN
|
||||||
0008 ( size )
|
0008 ( size )
|
||||||
00 ff ff ff
|
00 ff ff ff
|
||||||
01 ff ff ff ( song table, 2 rows )
|
01 ff ff ff ( song table, 2 rows )
|
||||||
|
@DEBUG-patterns
|
||||||
( pattern 00 )
|
( pattern 00 )
|
||||||
54 02 00 ( C-3 I00 )
|
54 02 00 ( C-3 I00 )
|
||||||
52 00 00
|
52 00 00
|
||||||
|
@ -125,6 +126,7 @@ ff 00 00
|
||||||
50 00 00
|
50 00 00
|
||||||
54 00 00
|
54 00 00
|
||||||
ff 00 00
|
ff 00 00
|
||||||
|
@DEBUG-instruments
|
||||||
( instrument 00 )
|
( instrument 00 )
|
||||||
0002 ( sample length )
|
0002 ( sample length )
|
||||||
ff ( volume )
|
ff ( volume )
|
||||||
|
|
Reference in New Issue