initial work on drawing multiple patterns, needs cleanup
This commit is contained in:
parent
0ea63bc340
commit
9228d3a44d
|
@ -40,18 +40,18 @@ ff 00 00
|
||||||
54 05 0f
|
54 05 0f
|
||||||
ff 00 00
|
ff 00 00
|
||||||
( pattern 02 )
|
( pattern 02 )
|
||||||
3c 02 01
|
3c 01 01
|
||||||
00 00 00
|
00 02 00
|
||||||
3f 08 01
|
3f 03 01
|
||||||
|
00 04 00
|
||||||
|
3c 05 00
|
||||||
|
00 06 00
|
||||||
|
3f 07 00
|
||||||
00 00 00
|
00 00 00
|
||||||
3c 00 00
|
3c 00 00
|
||||||
00 00 00
|
00 00 00
|
||||||
3f 08 00
|
3f 04 01
|
||||||
00 00 00
|
00 04 04
|
||||||
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
|
||||||
|
|
36
tracker.tal
36
tracker.tal
|
@ -1,5 +1,5 @@
|
||||||
( a blank file )
|
( a blank file )
|
||||||
|
( TODO fix ugly stack effects )
|
||||||
%+ { ADD } %- { SUB } %* { MUL } %/ { DIV }
|
%+ { ADD } %- { SUB } %* { MUL } %/ { DIV }
|
||||||
%< { LTH } %> { GTH } %= { EQU } %! { NEQ }
|
%< { LTH } %> { GTH } %= { EQU } %! { NEQ }
|
||||||
%++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }
|
%++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }
|
||||||
|
@ -64,7 +64,7 @@
|
||||||
#0f25 .System/b DEO2
|
#0f25 .System/b DEO2
|
||||||
|
|
||||||
;module ;k-init-module/run JSR2
|
;module ;k-init-module/run JSR2
|
||||||
|
;on-input .Controller/vector DEO2
|
||||||
;redraw JSR2
|
;redraw JSR2
|
||||||
|
|
||||||
BRK
|
BRK
|
||||||
|
@ -75,10 +75,40 @@ 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
|
||||||
|
|
||||||
|
@on-input ( -> )
|
||||||
|
.Controller/button DEI
|
||||||
|
DUP #10 AND ,&up JCN
|
||||||
|
#20 AND ,&down JCN
|
||||||
|
BRK
|
||||||
|
&up
|
||||||
|
.tracker/selected-pattern LDZ #01 SUB .tracker/selected-pattern STZ
|
||||||
|
,&end JMP
|
||||||
|
&down
|
||||||
|
.tracker/selected-pattern LDZ #01 ADD .tracker/selected-pattern STZ
|
||||||
|
,&end JMP
|
||||||
|
&end
|
||||||
|
;redraw JSR2
|
||||||
|
BRK
|
||||||
|
|
||||||
|
@draw-patterns ( addr* )
|
||||||
|
DUP2
|
||||||
|
LDA ;draw-pattern JSR2
|
||||||
|
#0008 .Screen/y DEO2
|
||||||
|
.Screen/x DEI2 #0040 ADD2 .Screen/x DEO2
|
||||||
|
DUP2 #0001 ADD2 LDA ;draw-pattern JSR2
|
||||||
|
#0008 .Screen/y DEO2
|
||||||
|
.Screen/x DEI2 #0040 ADD2 .Screen/x DEO2
|
||||||
|
DUP2 #0002 ADD2 LDA ;draw-pattern JSR2
|
||||||
|
#0008 .Screen/y DEO2
|
||||||
|
.Screen/x DEI2 #0040 ADD2 .Screen/x DEO2
|
||||||
|
#0003 ADD2 LDA ;draw-pattern JSR2
|
||||||
|
RTN
|
||||||
|
|
||||||
@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