diff --git a/main.tal b/main.tal index 4b5a893..0adc9e4 100644 --- a/main.tal +++ b/main.tal @@ -409,8 +409,15 @@ RTN PTN_LEN .Playback/position LDZ2 NEQ2 ,&continue JCN ( if we're at the end of the pattern, reset the counter ) #0000 .Playback/position STZ2 &continue + ( TODO make this more proper, currently a PoC of polyphony ) .Playback/position LDZ2 PTN_WIDTH MUL2 .Channel0/pattern-addr LDZ2 ADD2 ( put pattern line address on the stack ) .Audio0 ;play-line JSR2 + .Playback/position LDZ2 PTN_WIDTH MUL2 .Channel1/pattern-addr LDZ2 ADD2 ( put pattern line address on the stack ) + .Audio1 ;play-line JSR2 + .Playback/position LDZ2 PTN_WIDTH MUL2 .Channel2/pattern-addr LDZ2 ADD2 ( put pattern line address on the stack ) + .Audio2 ;play-line JSR2 + .Playback/position LDZ2 PTN_WIDTH MUL2 .Channel3/pattern-addr LDZ2 ADD2 ( put pattern line address on the stack ) + .Audio3 ;play-line JSR2 #0001 .Playback/position LDZ2 ADD2 .Playback/position STZ2 ;draw-playhead JSR2 ( update the playhead position ) RTN