start breaking out draw-pattern routine
This commit is contained in:
parent
0ea63bc340
commit
5a9514df3b
|
@ -24,7 +24,7 @@ ff 06 0f
|
||||||
ff 00 00
|
ff 00 00
|
||||||
( pattern 01 )
|
( pattern 01 )
|
||||||
54 06 04
|
54 06 04
|
||||||
56 00 00
|
56 01 00
|
||||||
57 00 00
|
57 00 00
|
||||||
56 00 00
|
56 00 00
|
||||||
57 00 00
|
57 00 00
|
||||||
|
@ -42,16 +42,16 @@ ff 00 00
|
||||||
( pattern 02 )
|
( pattern 02 )
|
||||||
3c 02 01
|
3c 02 01
|
||||||
00 00 00
|
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
|
00 00 00
|
||||||
3c 00 00
|
3f 05 01
|
||||||
00 00 00
|
00 05 00
|
||||||
3f 08 00
|
|
||||||
00 00 00
|
|
||||||
3c 00 00
|
|
||||||
00 00 00
|
|
||||||
3f 08 01
|
|
||||||
00 08 00
|
|
||||||
3c 00 00
|
3c 00 00
|
||||||
00 00 00
|
00 00 00
|
||||||
3c 00 00
|
3c 00 00
|
||||||
|
|
|
@ -75,10 +75,17 @@ BRK
|
||||||
;draw-song JSR2
|
;draw-song JSR2
|
||||||
#0008 .Screen/y DEO2
|
#0008 .Screen/y DEO2
|
||||||
#0080 .Screen/x 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
|
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* )
|
@get-selected-song-line-address ( -- addr* )
|
||||||
.tracker/selected-pattern LDZ #00 SWP #0004 MUL2
|
.tracker/selected-pattern LDZ #00 SWP #0004 MUL2
|
||||||
.kalama/module LDZ2 #0005 ADD2 ADD2
|
.kalama/module LDZ2 #0005 ADD2 ADD2
|
||||||
|
|
Reference in New Issue