fix stack overflow, set up pallete to run debugger
This commit is contained in:
parent
17fa654536
commit
99ab8482f4
12
engine.tal
12
engine.tal
|
@ -1,3 +1,7 @@
|
||||||
|
( TODO
|
||||||
|
commmands
|
||||||
|
song playback
|
||||||
|
multiple channels )
|
||||||
@k-tick
|
@k-tick
|
||||||
&run
|
&run
|
||||||
.kalama/tick LDZ #01 ADD DUP
|
.kalama/tick LDZ #01 ADD DUP
|
||||||
|
@ -5,15 +9,17 @@
|
||||||
.kalama/tick STZ
|
.kalama/tick STZ
|
||||||
RTN
|
RTN
|
||||||
&play
|
&play
|
||||||
|
POP
|
||||||
#ff .kalama/tick STZ
|
#ff .kalama/tick STZ
|
||||||
.kalama/line LDZ #01 ADD DUP
|
.kalama/line LDZ #01 ADD DUP
|
||||||
DUP #00 SWP #0003 MUL2
|
DUP #00 SWP #0003 MUL2
|
||||||
#00 ;k-get-pattern/run JSR2 ADD2 ;k-play-line/run JSR2
|
#00 ;k-get-pattern/run JSR2 ADD2 #00 ;k-play-line/run JSR2
|
||||||
#0f EQU ,&next JCN
|
#0f EQU ,&next JCN
|
||||||
.kalama/line STZ
|
.kalama/line STZ
|
||||||
RTN
|
RTN
|
||||||
&next
|
&next
|
||||||
( TODO next pattern )
|
( TODO next pattern )
|
||||||
|
POP
|
||||||
#ff .kalama/line STZ
|
#ff .kalama/line STZ
|
||||||
RTN
|
RTN
|
||||||
|
|
||||||
|
@ -60,8 +66,10 @@ RTN
|
||||||
POPr
|
POPr
|
||||||
RTN
|
RTN
|
||||||
|
|
||||||
@k-play-line ( *l -- )
|
@k-play-line ( *l channel -- )
|
||||||
|
&chan $1
|
||||||
&run
|
&run
|
||||||
|
,&chan STR
|
||||||
LDA DUP
|
LDA DUP
|
||||||
#00 EQU ,&rest JCN
|
#00 EQU ,&rest JCN
|
||||||
.Audio0/pitch DEO ( TODO use correct channel, effects )
|
.Audio0/pitch DEO ( TODO use correct channel, effects )
|
||||||
|
|
34
player.tal
34
player.tal
|
@ -30,12 +30,12 @@
|
||||||
&tick $1
|
&tick $1
|
||||||
&line $1
|
&line $1
|
||||||
&speed $1
|
&speed $1
|
||||||
|
&songpos $2 ( position in song table )
|
||||||
|
|
||||||
( program )
|
( program )
|
||||||
|
|
||||||
|0100 ( -> )
|
|0100 ( -> )
|
||||||
|
|
||||||
( theme )
|
|
||||||
#0fe5 .System/r DEO2
|
#0fe5 .System/r DEO2
|
||||||
#0fc5 .System/g DEO2
|
#0fc5 .System/g DEO2
|
||||||
#0f25 .System/b DEO2
|
#0f25 .System/b DEO2
|
||||||
|
@ -87,27 +87,27 @@ RTN
|
||||||
~engine.tal
|
~engine.tal
|
||||||
|
|
||||||
@module
|
@module
|
||||||
88 02 02 ( file header - speed 8, loop on, 2 patterns, 2 instruments )
|
8f 02 02 ( file header - speed 8, loop on, 2 patterns, 2 instruments )
|
||||||
0008 ( size )
|
0008 ( size )
|
||||||
00 00 ff ff
|
00 00 ff ff
|
||||||
00 01 ff ff ( song table, 2 rows )
|
00 01 ff ff ( song table, 2 rows )
|
||||||
( pattern 00 )
|
( pattern 00 )
|
||||||
3c 02 00 ( C-3 I00 )
|
54 02 00 ( C-3 I00 )
|
||||||
00 00 00
|
52 00 00
|
||||||
|
54 00 00
|
||||||
|
4f 00 00
|
||||||
|
4b 00 00
|
||||||
|
4f 00 00
|
||||||
|
48 00 00
|
||||||
|
ff 00 00
|
||||||
|
54 02 00
|
||||||
|
52 00 00
|
||||||
|
54 00 00
|
||||||
|
4f 00 00
|
||||||
|
4b 00 00
|
||||||
|
4f 00 00
|
||||||
|
48 00 00
|
||||||
ff 00 00
|
ff 00 00
|
||||||
00 00 00
|
|
||||||
3c 00 00
|
|
||||||
00 00 00
|
|
||||||
00 00 00
|
|
||||||
00 00 00
|
|
||||||
3c 00 00
|
|
||||||
00 00 00
|
|
||||||
00 00 00
|
|
||||||
00 00 00
|
|
||||||
3c 00 00
|
|
||||||
00 00 00
|
|
||||||
00 00 00
|
|
||||||
00 00 00
|
|
||||||
( pattern 01 )
|
( pattern 01 )
|
||||||
ff 00 00
|
ff 00 00
|
||||||
3c 02 00 ( C-3 I00 )
|
3c 02 00 ( C-3 I00 )
|
||||||
|
|
Reference in New Issue