nihilazo
/
kalama-sin
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

start breaking out draw-pattern routine

This commit is contained in:
Nico 2022-03-01 15:33:35 +00:00
parent 0ea63bc340
commit 5a9514df3b
2 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
testmodule.tal
View File

@ -24,7 +24,7 @@ ff 06 0f
ff 00 00
( pattern 01 )
54 06 04
56 00 00
56 01 00
57 00 00
56 00 00
57 00 00
@ -42,16 +42,16 @@ ff 00 00
( pattern 02 )
3c 02 01
00 00 00
3f 08 01
3f 01 01
00 02 00
3c 03 00
00 04 00
3f 05 00
00 06 00
3c 07 00
00 00 00
3c 00 00
00 00 00
3f 08 00
00 00 00
3c 00 00
00 00 00
3f 08 01
00 08 00
3f 05 01
00 05 00
3c 00 00
00 00 00
3c 00 00

9
tracker.tal
View File

@ -75,10 +75,17 @@ BRK
;draw-song JSR2
#0008 .Screen/y DEO2
#0080 .Screen/x DEO2
;get-selected-song-line-address JSR2 DUP2 LDA ;draw-pattern JSR2
;get-selected-song-line-address JSR2 ;draw-patterns JSR2
BRK
( draws all currently selected patterns )
@draw-patterns ( addr* )
.Screen/x DEI2 ,&pos STR2
DUP2 ADD2 LDA ;draw-pattern JSR2
BRK
&pos $2
@get-selected-song-line-address ( -- addr* )
.tracker/selected-pattern LDZ #00 SWP #0004 MUL2
.kalama/module LDZ2 #0005 ADD2 ADD2