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
|
||||
RTN
|
||||
&reset
|
||||
POP
|
||||
POP2
|
||||
#0000 .kalama/songpos STZ2
|
||||
RTN
|
||||
|
||||
|
@ -34,9 +34,8 @@ RTN
|
|||
&run
|
||||
DUP2 .kalama/module STZ2 ( store module address )
|
||||
DUP2 LDA #0f AND .kalama/speed STZ ( set speed )
|
||||
#0001 ADD2 LDA ( get 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 )
|
||||
.kalama/instruments STZ2
|
||||
#0001 ADD2 LDA ( stash pattern count byte )
|
||||
;DEBUG-instruments .kalama/instruments STZ2
|
||||
#ff .kalama/tick STZ
|
||||
#ff .kalama/line STZ
|
||||
#0000 .kalama/songpos STZ2
|
||||
|
@ -46,13 +45,13 @@ RTN
|
|||
( gets the memory address of the given pattern in loaded module )
|
||||
@k-get-pattern ( number -- addr* )
|
||||
&run
|
||||
( #00 #01 EQU ,&blank JCN )
|
||||
#00 SWP #0030 MUL2
|
||||
.kalama/module LDZ2
|
||||
#0003 ADD2 ( skip header )
|
||||
DUP2 LDA2 ADD2 ( skip song table body )
|
||||
#0002 ADD2 ( skip song table size short )
|
||||
ADD2
|
||||
|
||||
;module #0003 ADD2 DUP2 LDA2 ADD2 #0002 ADD2 ADD2
|
||||
RTN
|
||||
&blank
|
||||
POP
|
||||
;k-blank-pattern
|
||||
RTN
|
||||
|
||||
( gets the memory address of the given instrument in loaded module )
|
||||
|
@ -109,3 +108,5 @@ RTN
|
|||
|
||||
POPr
|
||||
RTN
|
||||
|
||||
@k-blank-pattern $30
|
||||
|
|
|
@ -91,6 +91,7 @@ RTN
|
|||
0008 ( size )
|
||||
00 ff ff ff
|
||||
01 ff ff ff ( song table, 2 rows )
|
||||
@DEBUG-patterns
|
||||
( pattern 00 )
|
||||
54 02 00 ( C-3 I00 )
|
||||
52 00 00
|
||||
|
@ -125,6 +126,7 @@ ff 00 00
|
|||
50 00 00
|
||||
54 00 00
|
||||
ff 00 00
|
||||
@DEBUG-instruments
|
||||
( instrument 00 )
|
||||
0002 ( sample length )
|
||||
ff ( volume )
|
||||
|
|
Reference in New Issue