diff --git a/interlace_demo/Makefile b/interlace_demo/Makefile
index 357822f3..f7df7e3d 100644
--- a/interlace_demo/Makefile
+++ b/interlace_demo/Makefile
@@ -47,7 +47,7 @@ rasterbars_sound.o:	rasterbars_sound.s gr_copy.s \
 	rasterbars_screen.s rasterbars_table.s movement_table.s rb_bg.inc \
 	pt3_lib_core.s pt3_lib_init.s pt3_lib_mockingboard.s \
 	pt3_lib_sample_ornament.s pt3_write_frame.s pt3_lib_calculate_note.s \
-	pt3_lib_decode_note.s
+	pt3_lib_decode_note.s pt3_lib_make_frame.s pt3_lib_do_frame.s
 	ca65 -o rasterbars_sound.o rasterbars_sound.s -l rasterbars_sound.lst
 
 
diff --git a/interlace_demo/pt3_lib_core.s b/interlace_demo/pt3_lib_core.s
index 5616665d..eb721ffd 100644
--- a/interlace_demo/pt3_lib_core.s
+++ b/interlace_demo/pt3_lib_core.s
@@ -94,392 +94,10 @@ end_vars=$80+(NOTE_STRUCT_SIZE*3)
 .include "pt3_lib_sample_ornament.s"
 .include "pt3_lib_calculate_note.s"
 .include "pt3_lib_decode_note.s"
+.include "pt3_lib_make_frame.s"
+.include "pt3_lib_do_frame.s"
 
-	;=====================================
-	; Set Pattern
-	;=====================================
-	; FIXME: inline this?  we do call it from outside
-	;	in the player note length code
 
-is_done:
-	; done with song, set it to non-zero
-	sta	DONE_SONG						; 3
-	rts								; 6
-
-pt3_set_pattern:
-
-	; Lookup current pattern in pattern table
-current_pattern_smc:
-	ldy	#$d1							; 2
-	lda	PT3_LOC+PT3_PATTERN_TABLE,Y				; 4+
-
-	; if value is $FF we are at the end of the song
-	cmp	#$ff							; 2
-	beq	is_done							; 2/3
-
-								;============
-								;   20 if end
-
-not_done:
-
-	; set up the three pattern address pointers
-
-	asl		; mul pattern offset by two, as word sized	; 2
-	tay								; 2
-
-	; point PATTERN_H/PATTERN_L to the pattern address table
-
-	clc								; 2
-	lda	PT3_LOC+PT3_PATTERN_LOC_L				; 4
-	sta	PATTERN_L						; 3
-	lda	PT3_LOC+PT3_PATTERN_LOC_H				; 4
-	adc	#>PT3_LOC		; assume page boundary		; 2
-	sta	PATTERN_H						; 3
-
-	; First 16-bits points to the Channel A address
-	lda	(PATTERN_L),Y						; 5+
-	sta	note_a+NOTE_ADDR_L					; 4
-	iny								; 2
-	lda	(PATTERN_L),Y						; 5+
-	adc	#>PT3_LOC		; assume page boundary		; 2
-	sta	note_a+NOTE_ADDR_H					; 4
-	iny								; 2
-
-	; Next 16-bits points to the Channel B address
-	lda	(PATTERN_L),Y						; 5+
-	sta	note_b+NOTE_ADDR_L					; 4
-	iny								; 2
-	lda	(PATTERN_L),Y						; 5+
-	adc	#>PT3_LOC		; assume page boundary		; 2
-	sta	note_b+NOTE_ADDR_H					; 4
-	iny								; 2
-
-	; Next 16-bits points to the Channel C address
-	lda	(PATTERN_L),Y						; 5+
-	sta	note_c+NOTE_ADDR_L					; 4
-	iny								; 2
-	lda	(PATTERN_L),Y						; 5+
-	adc	#>PT3_LOC		; assume page boundary		; 2
-	sta	note_c+NOTE_ADDR_H					; 4
-
-	; clear out the noise channel
-	lda	#0							; 2
-	sta	pt3_noise_period_smc+1					; 4
-
-	; Set all three channels as active
-	; FIXME: num_channels, may need to be 6 if doing 6-channel pt3?
-	lda	#3							; 2
-	sta	pt3_pattern_done_smc+1					; 4
-
-	rts								; 6
-
-
-
-
-
-
-	;=====================================
-	; pt3 make frame
-	;=====================================
-	; update pattern or line if necessary
-	; then calculate the values for the next frame
-
-	; 8+373=381
-
-	;==========================
-	; pattern done early!
-
-early_end:
-	; A is pattern_done which is zero at this point
-	inc	current_pattern_smc+1	; increment pattern		; 6
-	sta	current_line_smc+1					; 4
-	sta	current_subframe_smc+1					; 4
-
-	; always goes to set_pattern here?
-
-	jmp	set_pattern						; 3
-
-check_subframe:
-	lda	current_subframe_smc+1					; 4
-	bne	pattern_good						; 2/3
-
-set_pattern:
-	; load a new pattern in
-	jsr	pt3_set_pattern						;6+?
-
-	lda	DONE_SONG						; 3
-	beq	pt3_new_line						; 2/3
-	rts								; 6
-
-
-	;==========================================
-	; real entry point
-
-pt3_make_frame:
-	; see if we need a new pattern
-	; we do if line==0 and subframe==0
-	; allow fallthrough where possible
-current_line_smc:
-	lda	#$d1							; 2
-
-	beq	check_subframe						; 2/3
-
-pattern_good:
-
-	; see if we need a new line
-
-current_subframe_smc:
-	lda	#$d1							; 2
-
-	bne	line_good						; 2/3
-
-pt3_new_line:
-	; decode a new line
-	jsr	pt3_decode_line						; 6+?
-
-	; check if pattern done early
-
-pt3_pattern_done_smc:
-	lda	#$d1							; 2
-
-	beq	early_end						; 2/3
-
-
-	;========================================
-line_good:
-
-	; Increment everything
-
-	inc	current_subframe_smc+1	; subframe++			; 6
-	lda	current_subframe_smc+1					; 4
-
-	; if we hit pt3_speed, move to next
-pt3_speed_smc:
-	eor	#$d1							; 2
-
-	bne	do_frame						; 2/3
-
-next_line:
-	sta	current_subframe_smc+1	; reset subframe to 0		; 4
-
-	inc	current_line_smc+1	; and increment line		; 6
-	lda	current_line_smc+1					; 4
-
-	eor	#64			; always end at 64.		; 2
-	bne	do_frame		; is this always needed?	; 2/3
-
-next_pattern:
-	sta	current_line_smc+1	; reset line to 0		; 4
-
-	inc	current_pattern_smc+1	; increment pattern		; 6
-
-
-
-
-
-
-	;======================================
-	; do frame
-	;======================================
-	; ????? FIXME/calculate note
-	;
-	; 9+ 202 +    36+11+18+30+18+49 = 373
-
-do_frame:
-	; AY-3-8910 register summary
-	;
-	; R0/R1 = A period low/high
-	; R2/R3 = B period low/high
-	; R4/R5 = C period low/high
-	; R6 = Noise period
-	; R7 = Enable XX Noise=!CBA Tone=!CBA
-	; R8/R9/R10 = Channel A/B/C amplitude M3210, M=envelope enable
-	; R11/R12 = Envelope Period low/high
-	; R13 = Envelope Shape, 0xff means don't write
-	; R14/R15 = I/O (ignored)
-
-	ldx	#0			; needed			; 2
-	stx	PT3_MIXER_VAL						; 3
-	stx	pt3_envelope_add_smc+1					; 4
-								;===========
-								;	9
-
-	;;ldx	#(NOTE_STRUCT_SIZE*0)	; Note A
-	jsr	calculate_note						; 6+60
-	ldx	#(NOTE_STRUCT_SIZE*1)	; Note B			; 2
-	jsr	calculate_note						; 6+60
-	ldx	#(NOTE_STRUCT_SIZE*2)	; Note C			; 2
-	jsr	calculate_note						; 6+60
-								;=============
-								; 	202
-
-	; Note, we assume 1MHz timings, adjust pt3 as needed
-
-	; Load up the Frequency Registers
-
-	lda	note_a+NOTE_TONE_L      ; Note A Period L	(ZP)	; 3
-	sta	AY_REGISTERS+0          ; into R0                       ; 3
-
-	lda	note_a+NOTE_TONE_H	; Note A Period H		; 3
-	sta	AY_REGISTERS+1		; into R1			; 3
-
-	lda	note_b+NOTE_TONE_L	; Note B Period L		; 3
-	sta	AY_REGISTERS+2		; into R2			; 3
-
-	lda	note_b+NOTE_TONE_H	; Note B Period H		; 3
-	sta	AY_REGISTERS+3		; into R3			; 3
-
-	lda	note_c+NOTE_TONE_L	; Note C Period L		; 3
-	sta	AY_REGISTERS+4		; into R4			; 3
-
-	lda	note_c+NOTE_TONE_H	; Note C Period H		; 3
-	sta	AY_REGISTERS+5		; into R5			; 3
-								;===========
-								;	36
-	; Noise
-	; frame[6]= (pt3->noise_period+pt3->noise_add)&0x1f;
-
-	clc								; 2
-pt3_noise_period_smc:
-	lda	#$d1							; 2
-pt3_noise_add_smc:
-	adc	#$d1							; 2
-	and	#$1f							; 2
-	sta	AY_REGISTERS+6						; 3
-								;============
-								;	11
-
-	;=======================
-	; Mixer
-
-	; PT3_MIXER_VAL is already in AY_REGISTERS+7
-
-	;=======================
-	; Amplitudes
-
-	lda	note_a+NOTE_AMPLITUDE					; 3
-	sta	AY_REGISTERS+8						; 3
-	lda	note_b+NOTE_AMPLITUDE					; 3
-	sta	AY_REGISTERS+9						; 3
-	lda	note_c+NOTE_AMPLITUDE					; 3
-	sta	AY_REGISTERS+10						; 3
-								;===========
-								;	18
-
-	;======================================
-	; Envelope period
-	; result=period+add+slide (16-bits)
-	clc								; 2
-pt3_envelope_period_l_smc:
-	lda	#$d1							; 2
-pt3_envelope_add_smc:
-	adc	#$d1							; 2
-	tay								; 2
-pt3_envelope_period_h_smc:
-	lda	#$d1							; 2
-	adc	#0							; 2
-	tax								; 2
-
-	clc								; 2
-	tya								; 2
-pt3_envelope_slide_l_smc:
-	adc	#$d1							; 2
-	sta	AY_REGISTERS+11						; 3
-	txa								; 2
-pt3_envelope_slide_h_smc:
-	adc	#$d1							; 2
-	sta	AY_REGISTERS+12						; 3
-								;===========
-								;	30
-
-	;========================
-	; Envelope shape
-	; same=11 + 7 = 18
-	; diff=11 + [4] + 3 = 18
-
-pt3_envelope_type_smc:
-	lda	#$d1							; 2
-pt3_envelope_type_old_smc:
-	cmp	#$d1							; 2
-	sta	pt3_envelope_type_old_smc+1; copy old to new		; 4
-	bne	envelope_diff_waste					; 3
-								;============
-								;        11
-envelope_same:
-									;-1
-	lda	#$ff			; if same, store $ff		; 2
-	jmp	envelope_diff						; 3
-envelope_diff_waste:
-	nop								; 2
-	nop								; 2
-envelope_diff:
-	sta	AY_REGISTERS+13						; 3
-								;============
-								;	18
-
-
-	;==============================
-	; end-of-frame envelope update
-	;==============================
-
-	; if envelope delay 0, skip
-	;	= 5+ [38]  + 6 = 49
-	; else if envelope delay 1, skip
-	;	= 5+8+[30] + 6 = 49
-	; else
-	;	= 5+8+30+6 = 49
-
-pt3_envelope_delay_smc:
-	lda	#$d1							; 2
-	beq	done_do_frame_x		; assume can't be negative?	; 3
-					; do this if envelope_delay>0
-								;==========
-								;	  5
-
-									; -1
-	dec	pt3_envelope_delay_smc+1				; 6
-	bne	done_do_frame_y						; 3
-								;==========
-								;	  8
-					; only do if we hit 0
-
-
-									; -1
-pt3_envelope_delay_orig_smc:
-	lda	#$d1			; reset envelope delay		; 2
-	sta	pt3_envelope_delay_smc+1				; 4
-
-	clc				; 16-bit add			; 2
-	lda	pt3_envelope_slide_l_smc+1				; 4
-pt3_envelope_slide_add_l_smc:
-	adc	#$d1							; 2
-	sta	pt3_envelope_slide_l_smc+1				; 4
-	lda	pt3_envelope_slide_h_smc+1				; 4
-pt3_envelope_slide_add_h_smc:
-	adc	#$d1							; 2
-	sta	pt3_envelope_slide_h_smc+1				; 4
-	jmp	done_do_frame						; 3
-								;===========
-								;	30
-done_do_frame_x:
-	; waste 8
-	nop			; 2
-	nop			; 2
-	nop			; 2
-	nop			; 2
-
-done_do_frame_y:
-	; waste 30
-	inc	CYCLE_WASTE	; 5
-	inc	CYCLE_WASTE	; 5
-	inc	CYCLE_WASTE	; 5
-	inc	CYCLE_WASTE	; 5
-	inc	CYCLE_WASTE	; 5
-	inc	CYCLE_WASTE	; 5
-
-done_do_frame:
-
-	rts								; 6
 
 ;=======================
 ; tables
diff --git a/interlace_demo/pt3_lib_do_frame.s b/interlace_demo/pt3_lib_do_frame.s
new file mode 100644
index 00000000..51ad480a
--- /dev/null
+++ b/interlace_demo/pt3_lib_do_frame.s
@@ -0,0 +1,209 @@
+;========================================================================
+; EVERYTHING IS CYCLE COUNTED
+;========================================================================
+
+
+	;======================================
+	; do frame
+	;======================================
+	; ????? FIXME/calculate note
+	;
+	; 9+ 202 +    36+11+18+30+18+49 = 373
+
+do_frame:
+	; AY-3-8910 register summary
+	;
+	; R0/R1 = A period low/high
+	; R2/R3 = B period low/high
+	; R4/R5 = C period low/high
+	; R6 = Noise period
+	; R7 = Enable XX Noise=!CBA Tone=!CBA
+	; R8/R9/R10 = Channel A/B/C amplitude M3210, M=envelope enable
+	; R11/R12 = Envelope Period low/high
+	; R13 = Envelope Shape, 0xff means don't write
+	; R14/R15 = I/O (ignored)
+
+	ldx	#0			; needed			; 2
+	stx	PT3_MIXER_VAL						; 3
+	stx	pt3_envelope_add_smc+1					; 4
+								;===========
+								;	9
+
+	;;ldx	#(NOTE_STRUCT_SIZE*0)	; Note A
+	jsr	calculate_note						; 6+60
+	ldx	#(NOTE_STRUCT_SIZE*1)	; Note B			; 2
+	jsr	calculate_note						; 6+60
+	ldx	#(NOTE_STRUCT_SIZE*2)	; Note C			; 2
+	jsr	calculate_note						; 6+60
+								;=============
+								; 	202
+
+	; Note, we assume 1MHz timings, adjust pt3 as needed
+
+	; Load up the Frequency Registers
+
+	lda	note_a+NOTE_TONE_L      ; Note A Period L	(ZP)	; 3
+	sta	AY_REGISTERS+0          ; into R0                       ; 3
+
+	lda	note_a+NOTE_TONE_H	; Note A Period H		; 3
+	sta	AY_REGISTERS+1		; into R1			; 3
+
+	lda	note_b+NOTE_TONE_L	; Note B Period L		; 3
+	sta	AY_REGISTERS+2		; into R2			; 3
+
+	lda	note_b+NOTE_TONE_H	; Note B Period H		; 3
+	sta	AY_REGISTERS+3		; into R3			; 3
+
+	lda	note_c+NOTE_TONE_L	; Note C Period L		; 3
+	sta	AY_REGISTERS+4		; into R4			; 3
+
+	lda	note_c+NOTE_TONE_H	; Note C Period H		; 3
+	sta	AY_REGISTERS+5		; into R5			; 3
+								;===========
+								;	36
+	; Noise
+	; frame[6]= (pt3->noise_period+pt3->noise_add)&0x1f;
+
+	clc								; 2
+pt3_noise_period_smc:
+	lda	#$d1							; 2
+pt3_noise_add_smc:
+	adc	#$d1							; 2
+	and	#$1f							; 2
+	sta	AY_REGISTERS+6						; 3
+								;============
+								;	11
+
+	;=======================
+	; Mixer
+
+	; PT3_MIXER_VAL is already in AY_REGISTERS+7
+
+	;=======================
+	; Amplitudes
+
+	lda	note_a+NOTE_AMPLITUDE					; 3
+	sta	AY_REGISTERS+8						; 3
+	lda	note_b+NOTE_AMPLITUDE					; 3
+	sta	AY_REGISTERS+9						; 3
+	lda	note_c+NOTE_AMPLITUDE					; 3
+	sta	AY_REGISTERS+10						; 3
+								;===========
+								;	18
+
+	;======================================
+	; Envelope period
+	; result=period+add+slide (16-bits)
+	clc								; 2
+pt3_envelope_period_l_smc:
+	lda	#$d1							; 2
+pt3_envelope_add_smc:
+	adc	#$d1							; 2
+	tay								; 2
+pt3_envelope_period_h_smc:
+	lda	#$d1							; 2
+	adc	#0							; 2
+	tax								; 2
+
+	clc								; 2
+	tya								; 2
+pt3_envelope_slide_l_smc:
+	adc	#$d1							; 2
+	sta	AY_REGISTERS+11						; 3
+	txa								; 2
+pt3_envelope_slide_h_smc:
+	adc	#$d1							; 2
+	sta	AY_REGISTERS+12						; 3
+								;===========
+								;	30
+
+	;========================
+	; Envelope shape
+	; same=11 + 7 = 18
+	; diff=11 + [4] + 3 = 18
+
+pt3_envelope_type_smc:
+	lda	#$d1							; 2
+pt3_envelope_type_old_smc:
+	cmp	#$d1							; 2
+	sta	pt3_envelope_type_old_smc+1; copy old to new		; 4
+	bne	envelope_diff_waste					; 3
+								;============
+								;        11
+envelope_same:
+									;-1
+	lda	#$ff			; if same, store $ff		; 2
+	jmp	envelope_diff						; 3
+envelope_diff_waste:
+	nop								; 2
+	nop								; 2
+envelope_diff:
+	sta	AY_REGISTERS+13						; 3
+								;============
+								;	18
+
+
+	;==============================
+	; end-of-frame envelope update
+	;==============================
+
+	; if envelope delay 0, skip
+	;	= 5+ [38]  + 6 = 49
+	; else if envelope delay 1, skip
+	;	= 5+8+[30] + 6 = 49
+	; else
+	;	= 5+8+30+6 = 49
+
+pt3_envelope_delay_smc:
+	lda	#$d1							; 2
+	beq	done_do_frame_x		; assume can't be negative?	; 3
+					; do this if envelope_delay>0
+								;==========
+								;	  5
+
+									; -1
+	dec	pt3_envelope_delay_smc+1				; 6
+	bne	done_do_frame_y						; 3
+								;==========
+								;	  8
+					; only do if we hit 0
+
+
+									; -1
+pt3_envelope_delay_orig_smc:
+	lda	#$d1			; reset envelope delay		; 2
+	sta	pt3_envelope_delay_smc+1				; 4
+
+	clc				; 16-bit add			; 2
+	lda	pt3_envelope_slide_l_smc+1				; 4
+pt3_envelope_slide_add_l_smc:
+	adc	#$d1							; 2
+	sta	pt3_envelope_slide_l_smc+1				; 4
+	lda	pt3_envelope_slide_h_smc+1				; 4
+pt3_envelope_slide_add_h_smc:
+	adc	#$d1							; 2
+	sta	pt3_envelope_slide_h_smc+1				; 4
+	jmp	done_do_frame						; 3
+								;===========
+								;	30
+done_do_frame_x:
+	; waste 8
+	nop			; 2
+	nop			; 2
+	nop			; 2
+	nop			; 2
+
+done_do_frame_y:
+	; waste 30
+	inc	CYCLE_WASTE	; 5
+	inc	CYCLE_WASTE	; 5
+	inc	CYCLE_WASTE	; 5
+	inc	CYCLE_WASTE	; 5
+	inc	CYCLE_WASTE	; 5
+	inc	CYCLE_WASTE	; 5
+
+done_do_frame:
+
+	rts								; 6
+
+
diff --git a/interlace_demo/pt3_lib_make_frame.s b/interlace_demo/pt3_lib_make_frame.s
new file mode 100644
index 00000000..b51420ba
--- /dev/null
+++ b/interlace_demo/pt3_lib_make_frame.s
@@ -0,0 +1,185 @@
+;========================================================================
+; EVERYTHING IS CYCLE COUNTED
+;========================================================================
+
+	;=====================================
+	; Set Pattern
+	;=====================================
+	; FIXME: inline this?  we do call it from outside
+	;	in the player note length code
+
+is_done:
+	; done with song, set it to non-zero
+	sta	DONE_SONG						; 3
+	rts								; 6
+
+pt3_set_pattern:
+
+	; Lookup current pattern in pattern table
+current_pattern_smc:
+	ldy	#$d1							; 2
+	lda	PT3_LOC+PT3_PATTERN_TABLE,Y				; 4+
+
+	; if value is $FF we are at the end of the song
+	cmp	#$ff							; 2
+	beq	is_done							; 2/3
+
+								;============
+								;   20 if end
+
+not_done:
+
+	; set up the three pattern address pointers
+
+	asl		; mul pattern offset by two, as word sized	; 2
+	tay								; 2
+
+	; point PATTERN_H/PATTERN_L to the pattern address table
+
+	clc								; 2
+	lda	PT3_LOC+PT3_PATTERN_LOC_L				; 4
+	sta	PATTERN_L						; 3
+	lda	PT3_LOC+PT3_PATTERN_LOC_H				; 4
+	adc	#>PT3_LOC		; assume page boundary		; 2
+	sta	PATTERN_H						; 3
+
+	; First 16-bits points to the Channel A address
+	lda	(PATTERN_L),Y						; 5+
+	sta	note_a+NOTE_ADDR_L					; 4
+	iny								; 2
+	lda	(PATTERN_L),Y						; 5+
+	adc	#>PT3_LOC		; assume page boundary		; 2
+	sta	note_a+NOTE_ADDR_H					; 4
+	iny								; 2
+
+	; Next 16-bits points to the Channel B address
+	lda	(PATTERN_L),Y						; 5+
+	sta	note_b+NOTE_ADDR_L					; 4
+	iny								; 2
+	lda	(PATTERN_L),Y						; 5+
+	adc	#>PT3_LOC		; assume page boundary		; 2
+	sta	note_b+NOTE_ADDR_H					; 4
+	iny								; 2
+
+	; Next 16-bits points to the Channel C address
+	lda	(PATTERN_L),Y						; 5+
+	sta	note_c+NOTE_ADDR_L					; 4
+	iny								; 2
+	lda	(PATTERN_L),Y						; 5+
+	adc	#>PT3_LOC		; assume page boundary		; 2
+	sta	note_c+NOTE_ADDR_H					; 4
+
+	; clear out the noise channel
+	lda	#0							; 2
+	sta	pt3_noise_period_smc+1					; 4
+
+	; Set all three channels as active
+	; FIXME: num_channels, may need to be 6 if doing 6-channel pt3?
+	lda	#3							; 2
+	sta	pt3_pattern_done_smc+1					; 4
+
+	rts								; 6
+
+
+
+
+
+
+	;=====================================
+	; pt3 make frame
+	;=====================================
+	; update pattern or line if necessary
+	; then calculate the values for the next frame
+
+	; 8+373=381
+
+	;==========================
+	; pattern done early!
+
+early_end:
+	; A is pattern_done which is zero at this point
+	inc	current_pattern_smc+1	; increment pattern		; 6
+	sta	current_line_smc+1					; 4
+	sta	current_subframe_smc+1					; 4
+
+	; always goes to set_pattern here?
+
+	jmp	set_pattern						; 3
+
+check_subframe:
+	lda	current_subframe_smc+1					; 4
+	bne	pattern_good						; 2/3
+
+set_pattern:
+	; load a new pattern in
+	jsr	pt3_set_pattern						;6+?
+
+	lda	DONE_SONG						; 3
+	beq	pt3_new_line						; 2/3
+	rts								; 6
+
+
+	;==========================================
+	; real entry point
+
+pt3_make_frame:
+	; see if we need a new pattern
+	; we do if line==0 and subframe==0
+	; allow fallthrough where possible
+current_line_smc:
+	lda	#$d1							; 2
+
+	beq	check_subframe						; 2/3
+
+pattern_good:
+
+	; see if we need a new line
+
+current_subframe_smc:
+	lda	#$d1							; 2
+
+	bne	line_good						; 2/3
+
+pt3_new_line:
+	; decode a new line
+	jsr	pt3_decode_line						; 6+?
+
+	; check if pattern done early
+
+pt3_pattern_done_smc:
+	lda	#$d1							; 2
+
+	beq	early_end						; 2/3
+
+
+	;========================================
+line_good:
+
+	; Increment everything
+
+	inc	current_subframe_smc+1	; subframe++			; 6
+	lda	current_subframe_smc+1					; 4
+
+	; if we hit pt3_speed, move to next
+pt3_speed_smc:
+	eor	#$d1							; 2
+
+	bne	do_frame						; 2/3
+
+next_line:
+	sta	current_subframe_smc+1	; reset subframe to 0		; 4
+
+	inc	current_line_smc+1	; and increment line		; 6
+	lda	current_line_smc+1					; 4
+
+	eor	#64			; always end at 64.		; 2
+	bne	do_frame		; is this always needed?	; 2/3
+
+next_pattern:
+	sta	current_line_smc+1	; reset line to 0		; 4
+
+	inc	current_pattern_smc+1	; increment pattern		; 6
+
+
+
+