dos33fsprogs/demos/l/d4/play_frame.s

play_frame:
	; drop note down after first
;	lda	#$C
;	sta	AY_REGS+8
;	sta	AY_REGS+9
;	sta	AY_REGS+10

       lda     #$0E
       sta     AY_REGS+8                       ; $08 volume A
       lda     #$0C
       sta     AY_REGS+9                       ; $09 volume B
       sta     AY_REGS+10                      ; $0A volume C


	;============================
	; see if still counting down

	lda	SONG_COUNTDOWN
	bpl	done_update_song

set_notes_loop:

	;==================
	; load next byte

	ldy	SONG_OFFSET
	lda	tracker_song,Y

	;==================
	; see if hit end

	cmp	#$FF
	bne	all_ok

	;====================================
	; if at end, loop back to beginning

	lda	#0			; reset song offset
	sta	SONG_OFFSET
	beq	set_notes_loop		; bra

all_ok:

note_only:

	; NNNNNECC -- c=channel, e=end, n=note

	tay				; save note in Y

	and	#3
	asl
	tax				; put channel offset in X

	tya
	and	#$4
	sta	SONG_COUNTDOWN		; always 4 long?

	tya
	lsr
	lsr
	lsr				; get note in A

	tay				; lookup in table
	lda	frequencies_low,Y

	sta	AY_REGS,X		; set proper register value

	lda	frequencies_high,Y
	sta	AY_REGS+1,X

	lda	#$F
	sta	AY_REGS+8

	;============================
	; point to next

	; assume less than 256 bytes
	inc	SONG_OFFSET


	lda	SONG_COUNTDOWN
	beq	set_notes_loop		; bra

.include "ay3_write_regs.s"

done_update_song:
	dec	SONG_COUNTDOWN