From 9589f401ff2130e3e1aa3785d3cd07b5e91f0575 Mon Sep 17 00:00:00 2001
From: Steven Hugg <hugg@fasterlight.com>
Date: Thu, 16 Aug 2018 10:13:09 -0400
Subject: [PATCH] fixed NES audio; use setTimeout for animation loop;
 famitracker

---
 presets/nes/famitone2.asm | 1242 +++++++++++++++++++++++++++++++++++++
 presets/nes/music.c       |  223 ++++++-
 presets/nes/musicdemo.asm | 1179 +++++++++++++++++++++++++++++++++++
 presets/nes/shoot2.c      |    4 +-
 src/audio.ts              |    8 +-
 src/emu.ts                |   27 +-
 src/platform/nes.js       |    8 +-
 7 files changed, 2657 insertions(+), 34 deletions(-)
 create mode 100644 presets/nes/famitone2.asm
 create mode 100644 presets/nes/musicdemo.asm

diff --git a/presets/nes/famitone2.asm b/presets/nes/famitone2.asm
new file mode 100644
index 00000000..0d731b4a
--- /dev/null
+++ b/presets/nes/famitone2.asm
@@ -0,0 +1,1242 @@
+;FamiTone2 v1.12
+
+;settings, uncomment or put them into your main program; the latter makes possible updates easier
+
+; FT_BASE_ADR		= $0300	;page in the RAM used for FT2 variables, should be $xx00
+; FT_TEMP			= $00	;3 bytes in zeropage used by the library as a scratchpad
+; FT_DPCM_OFF		= $c000	;$c000..$ffc0, 64-byte steps
+; FT_SFX_STREAMS	= 4		;number of sound effects played at once, 1..4
+
+; FT_DPCM_ENABLE			;undefine to exclude all DMC code
+; FT_SFX_ENABLE			;undefine to exclude all sound effects code
+; FT_THREAD				;undefine if you are calling sound effects from the same thread as the sound update call
+
+; FT_PAL_SUPPORT			;undefine to exclude PAL support
+; FT_NTSC_SUPPORT			;undefine to exclude NTSC support
+
+
+
+;internal defines
+
+	IFCONST FT_PAL_SUPPORT
+	IFCONST FT_NTSC_SUPPORT
+FT_PITCH_FIX equ 1			;add PAL/NTSC pitch correction code only when both modes are enabled
+	ENDIF
+	ENDIF
+
+FT_DPCM_PTR		= (FT_DPCM_OFF&$3fff)>>6
+
+
+;zero page variables
+
+FT_TEMP_PTR			= FT_TEMP		;word
+FT_TEMP_PTR_L		= FT_TEMP_PTR+0
+FT_TEMP_PTR_H		= FT_TEMP_PTR+1
+FT_TEMP_VAR1		= FT_TEMP+2
+FT_TEMP_SIZE        = 3
+
+;envelope structure offsets, 5 bytes per envelope, grouped by variable type
+
+FT_ENVELOPES_ALL	= 3+3+3+2	;3 for the pulse and triangle channels, 2 for the noise channel
+FT_ENV_STRUCT_SIZE	= 5
+
+FT_ENV_VALUE		= FT_BASE_ADR+0*FT_ENVELOPES_ALL
+FT_ENV_REPEAT		= FT_BASE_ADR+1*FT_ENVELOPES_ALL
+FT_ENV_ADR_L		= FT_BASE_ADR+2*FT_ENVELOPES_ALL
+FT_ENV_ADR_H		= FT_BASE_ADR+3*FT_ENVELOPES_ALL
+FT_ENV_PTR			= FT_BASE_ADR+4*FT_ENVELOPES_ALL
+
+
+;channel structure offsets, 7 bytes per channel
+
+FT_CHANNELS_ALL		= 5
+FT_CHN_STRUCT_SIZE	= 9
+
+FT_CHN_PTR_L		= FT_BASE_ADR+0*FT_CHANNELS_ALL
+FT_CHN_PTR_H		= FT_BASE_ADR+1*FT_CHANNELS_ALL
+FT_CHN_NOTE			= FT_BASE_ADR+2*FT_CHANNELS_ALL
+FT_CHN_INSTRUMENT	= FT_BASE_ADR+3*FT_CHANNELS_ALL
+FT_CHN_REPEAT		= FT_BASE_ADR+4*FT_CHANNELS_ALL
+FT_CHN_RETURN_L		= FT_BASE_ADR+5*FT_CHANNELS_ALL
+FT_CHN_RETURN_H		= FT_BASE_ADR+6*FT_CHANNELS_ALL
+FT_CHN_REF_LEN		= FT_BASE_ADR+7*FT_CHANNELS_ALL
+FT_CHN_DUTY			= FT_BASE_ADR+8*FT_CHANNELS_ALL
+
+
+;variables and aliases
+
+FT_ENVELOPES	= FT_BASE_ADR
+FT_CH1_ENVS		= FT_ENVELOPES+0
+FT_CH2_ENVS		= FT_ENVELOPES+3
+FT_CH3_ENVS		= FT_ENVELOPES+6
+FT_CH4_ENVS		= FT_ENVELOPES+9
+
+FT_CHANNELS		= FT_ENVELOPES+FT_ENVELOPES_ALL*FT_ENV_STRUCT_SIZE
+FT_CH1_VARS		= FT_CHANNELS+0
+FT_CH2_VARS		= FT_CHANNELS+1
+FT_CH3_VARS		= FT_CHANNELS+2
+FT_CH4_VARS		= FT_CHANNELS+3
+FT_CH5_VARS		= FT_CHANNELS+4
+
+
+FT_CH1_NOTE			= FT_CH1_VARS+<(FT_CHN_NOTE)
+FT_CH2_NOTE			= FT_CH2_VARS+<(FT_CHN_NOTE)
+FT_CH3_NOTE			= FT_CH3_VARS+<(FT_CHN_NOTE)
+FT_CH4_NOTE			= FT_CH4_VARS+<(FT_CHN_NOTE)
+FT_CH5_NOTE			= FT_CH5_VARS+<(FT_CHN_NOTE)
+
+FT_CH1_INSTRUMENT	= FT_CH1_VARS+<(FT_CHN_INSTRUMENT)
+FT_CH2_INSTRUMENT	= FT_CH2_VARS+<(FT_CHN_INSTRUMENT)
+FT_CH3_INSTRUMENT	= FT_CH3_VARS+<(FT_CHN_INSTRUMENT)
+FT_CH4_INSTRUMENT	= FT_CH4_VARS+<(FT_CHN_INSTRUMENT)
+FT_CH5_INSTRUMENT	= FT_CH5_VARS+<(FT_CHN_INSTRUMENT)
+
+FT_CH1_DUTY			= FT_CH1_VARS+<(FT_CHN_DUTY)
+FT_CH2_DUTY			= FT_CH2_VARS+<(FT_CHN_DUTY)
+FT_CH3_DUTY			= FT_CH3_VARS+<(FT_CHN_DUTY)
+FT_CH4_DUTY			= FT_CH4_VARS+<(FT_CHN_DUTY)
+FT_CH5_DUTY			= FT_CH5_VARS+<(FT_CHN_DUTY)
+
+FT_CH1_VOLUME		= FT_CH1_ENVS+<(FT_ENV_VALUE)+0
+FT_CH2_VOLUME		= FT_CH2_ENVS+<(FT_ENV_VALUE)+0
+FT_CH3_VOLUME		= FT_CH3_ENVS+<(FT_ENV_VALUE)+0
+FT_CH4_VOLUME		= FT_CH4_ENVS+<(FT_ENV_VALUE)+0
+
+FT_CH1_NOTE_OFF		= FT_CH1_ENVS+<(FT_ENV_VALUE)+1
+FT_CH2_NOTE_OFF		= FT_CH2_ENVS+<(FT_ENV_VALUE)+1
+FT_CH3_NOTE_OFF		= FT_CH3_ENVS+<(FT_ENV_VALUE)+1
+FT_CH4_NOTE_OFF		= FT_CH4_ENVS+<(FT_ENV_VALUE)+1
+
+FT_CH1_PITCH_OFF	= FT_CH1_ENVS+<(FT_ENV_VALUE)+2
+FT_CH2_PITCH_OFF	= FT_CH2_ENVS+<(FT_ENV_VALUE)+2
+FT_CH3_PITCH_OFF	= FT_CH3_ENVS+<(FT_ENV_VALUE)+2
+
+
+FT_VARS			= FT_CHANNELS+FT_CHANNELS_ALL*FT_CHN_STRUCT_SIZE
+
+FT_PAL_ADJUST	= FT_VARS+0
+FT_SONG_LIST_L	= FT_VARS+1
+FT_SONG_LIST_H	= FT_VARS+2
+FT_INSTRUMENT_L = FT_VARS+3
+FT_INSTRUMENT_H = FT_VARS+4
+FT_TEMPO_STEP_L	= FT_VARS+5
+FT_TEMPO_STEP_H	= FT_VARS+6
+FT_TEMPO_ACC_L	= FT_VARS+7
+FT_TEMPO_ACC_H	= FT_VARS+8
+FT_SONG_SPEED	= FT_CH5_INSTRUMENT
+FT_PULSE1_PREV	= FT_CH3_DUTY
+FT_PULSE2_PREV	= FT_CH5_DUTY
+FT_DPCM_LIST_L	= FT_VARS+9
+FT_DPCM_LIST_H	= FT_VARS+10
+FT_DPCM_EFFECT  = FT_VARS+11
+FT_OUT_BUF		= FT_VARS+12	;11 bytes
+
+
+;sound effect stream variables, 2 bytes and 15 bytes per stream
+;when sound effects are disabled, this memory is not used
+
+FT_SFX_ADR_L		= FT_VARS+23
+FT_SFX_ADR_H		= FT_VARS+24
+FT_SFX_BASE_ADR		= FT_VARS+25
+
+FT_SFX_STRUCT_SIZE	= 15
+FT_SFX_REPEAT		= FT_SFX_BASE_ADR+0
+FT_SFX_PTR_L		= FT_SFX_BASE_ADR+1
+FT_SFX_PTR_H		= FT_SFX_BASE_ADR+2
+FT_SFX_OFF			= FT_SFX_BASE_ADR+3
+FT_SFX_BUF			= FT_SFX_BASE_ADR+4	;11 bytes
+
+FT_BASE_SIZE 		= FT_SFX_BUF+11-FT_BASE_ADR
+
+;aliases for sound effect channels to use in user calls
+
+FT_SFX_CH0			= FT_SFX_STRUCT_SIZE*0
+FT_SFX_CH1			= FT_SFX_STRUCT_SIZE*1
+FT_SFX_CH2			= FT_SFX_STRUCT_SIZE*2
+FT_SFX_CH3			= FT_SFX_STRUCT_SIZE*3
+
+
+;aliases for the APU registers
+
+APU_PL1_VOL		= $4000
+APU_PL1_SWEEP	= $4001
+APU_PL1_LO		= $4002
+APU_PL1_HI		= $4003
+APU_PL2_VOL		= $4004
+APU_PL2_SWEEP	= $4005
+APU_PL2_LO		= $4006
+APU_PL2_HI		= $4007
+APU_TRI_LINEAR	= $4008
+APU_TRI_LO		= $400a
+APU_TRI_HI		= $400b
+APU_NOISE_VOL	= $400c
+APU_NOISE_LO	= $400e
+APU_NOISE_HI	= $400f
+APU_DMC_FREQ	= $4010
+APU_DMC_RAW		= $4011
+APU_DMC_START	= $4012
+APU_DMC_LEN		= $4013
+APU_SND_CHN		= $4015
+
+
+;aliases for the APU registers in the output buffer
+
+	IFNCONST FT_SFX_ENABLE				;if sound effects are disabled, write to the APU directly
+FT_MR_PULSE1_V		= APU_PL1_VOL
+FT_MR_PULSE1_L		= APU_PL1_LO
+FT_MR_PULSE1_H		= APU_PL1_HI
+FT_MR_PULSE2_V		= APU_PL2_VOL
+FT_MR_PULSE2_L		= APU_PL2_LO
+FT_MR_PULSE2_H		= APU_PL2_HI
+FT_MR_TRI_V			= APU_TRI_LINEAR
+FT_MR_TRI_L			= APU_TRI_LO
+FT_MR_TRI_H			= APU_TRI_HI
+FT_MR_NOISE_V		= APU_NOISE_VOL
+FT_MR_NOISE_F		= APU_NOISE_LO
+	ELSE								;otherwise write to the output buffer
+FT_MR_PULSE1_V		= FT_OUT_BUF
+FT_MR_PULSE1_L		= FT_OUT_BUF+1
+FT_MR_PULSE1_H		= FT_OUT_BUF+2
+FT_MR_PULSE2_V		= FT_OUT_BUF+3
+FT_MR_PULSE2_L		= FT_OUT_BUF+4
+FT_MR_PULSE2_H		= FT_OUT_BUF+5
+FT_MR_TRI_V			= FT_OUT_BUF+6
+FT_MR_TRI_L			= FT_OUT_BUF+7
+FT_MR_TRI_H			= FT_OUT_BUF+8
+FT_MR_NOISE_V		= FT_OUT_BUF+9
+FT_MR_NOISE_F		= FT_OUT_BUF+10
+	ENDIF
+
+
+
+;------------------------------------------------------------------------------
+; reset APU, initialize FamiTone
+; in: A   0 for PAL, not 0 for NTSC
+;     X,Y pointer to music data
+;------------------------------------------------------------------------------
+
+FamiToneInit: subroutine
+
+	stx FT_SONG_LIST_L		;store music data pointer for further use
+	sty FT_SONG_LIST_H
+	stx <FT_TEMP_PTR_L
+	sty <FT_TEMP_PTR_H
+
+	IFCONST FT_PITCH_FIX
+	tax						;set SZ flags for A
+	beq .pal
+	lda #64
+.pal:
+	ELSE
+	IFCONST FT_PAL_SUPPORT
+	lda #0
+	ENDIF
+	IFCONST FT_NTSC_SUPPORT
+	lda #64
+	ENDIF
+	ENDIF
+	sta FT_PAL_ADJUST
+
+	jsr FamiToneMusicStop	;initialize channels and envelopes
+
+	ldy #1
+	lda (FT_TEMP_PTR),y		;get instrument list address
+	sta FT_INSTRUMENT_L
+	iny
+	lda (FT_TEMP_PTR),y
+	sta FT_INSTRUMENT_H
+	iny
+	lda (FT_TEMP_PTR),y		;get sample list address
+	sta FT_DPCM_LIST_L
+	iny
+	lda (FT_TEMP_PTR),y
+	sta FT_DPCM_LIST_H
+
+	lda #$ff				;previous pulse period MSB, to not write it when not changed
+	sta FT_PULSE1_PREV
+	sta FT_PULSE2_PREV
+
+	lda #$0f				;enable channels, stop DMC
+	sta APU_SND_CHN
+	lda #$80				;disable triangle length counter
+	sta APU_TRI_LINEAR
+	lda #$00				;load noise length
+	sta APU_NOISE_HI
+
+	lda #$30				;volumes to 0
+	sta APU_PL1_VOL
+	sta APU_PL2_VOL
+	sta APU_NOISE_VOL
+	lda #$08				;no sweep
+	sta APU_PL1_SWEEP
+	sta APU_PL2_SWEEP
+
+	;jmp FamiToneMusicStop
+
+
+;------------------------------------------------------------------------------
+; stop music that is currently playing, if any
+; in: none
+;------------------------------------------------------------------------------
+
+FamiToneMusicStop: subroutine
+
+	lda #0
+	sta FT_SONG_SPEED		;stop music, reset pause flag
+	sta FT_DPCM_EFFECT		;no DPCM effect playing
+
+	ldx #<(FT_CHANNELS)	;initialize channel structures
+
+.set_channels:
+
+	lda #0
+	sta FT_CHN_REPEAT,x
+	sta FT_CHN_INSTRUMENT,x
+	sta FT_CHN_NOTE,x
+	sta FT_CHN_REF_LEN,x
+	lda #$30
+	sta FT_CHN_DUTY,x
+
+	inx						;next channel
+	cpx #<(FT_CHANNELS)+FT_CHANNELS_ALL
+	bne .set_channels
+
+	ldx #<(FT_ENVELOPES)	;initialize all envelopes to the dummy envelope
+
+.set_envelopes:
+
+	lda #< (_FT2DummyEnvelope)
+	sta FT_ENV_ADR_L,x
+	lda #>(_FT2DummyEnvelope)
+	sta FT_ENV_ADR_H,x
+	lda #0
+	sta FT_ENV_REPEAT,x
+	sta FT_ENV_VALUE,x
+	inx
+	cpx #<(FT_ENVELOPES)+FT_ENVELOPES_ALL
+
+	bne .set_envelopes
+
+	jmp FamiToneSampleStop
+
+
+;------------------------------------------------------------------------------
+; play music
+; in: A number of subsong
+;------------------------------------------------------------------------------
+
+FamiToneMusicPlay: subroutine
+
+	ldx FT_SONG_LIST_L
+	stx <FT_TEMP_PTR_L
+	ldx FT_SONG_LIST_H
+	stx <FT_TEMP_PTR_H
+
+	ldy #0
+	cmp (FT_TEMP_PTR),y		;check if there is such sub song
+	bcs .skip
+
+	asl					;multiply song number by 14
+	sta <FT_TEMP_PTR_L		;use pointer LSB as temp variable
+	asl
+	tax
+	asl
+	adc <FT_TEMP_PTR_L
+	stx <FT_TEMP_PTR_L
+	adc <FT_TEMP_PTR_L
+	adc #5					;add offset
+	tay
+
+	lda FT_SONG_LIST_L		;restore pointer LSB
+	sta <FT_TEMP_PTR_L
+
+	jsr FamiToneMusicStop	;stop music, initialize channels and envelopes
+
+	ldx #<(FT_CHANNELS)	;initialize channel structures
+
+.set_channels:
+
+	lda (FT_TEMP_PTR),y		;read channel pointers
+	sta FT_CHN_PTR_L,x
+	iny
+	lda (FT_TEMP_PTR),y
+	sta FT_CHN_PTR_H,x
+	iny
+
+	lda #0
+	sta FT_CHN_REPEAT,x
+	sta FT_CHN_INSTRUMENT,x
+	sta FT_CHN_NOTE,x
+	sta FT_CHN_REF_LEN,x
+	lda #$30
+	sta FT_CHN_DUTY,x
+
+	inx						;next channel
+	cpx #<(FT_CHANNELS)+FT_CHANNELS_ALL
+	bne .set_channels
+
+
+	lda FT_PAL_ADJUST		;read tempo for PAL or NTSC
+	beq .pal
+	iny
+	iny
+.pal:
+
+	lda (FT_TEMP_PTR),y		;read the tempo step
+	sta FT_TEMPO_STEP_L
+	iny
+	lda (FT_TEMP_PTR),y
+	sta FT_TEMPO_STEP_H
+
+
+	lda #0					;reset tempo accumulator
+	sta FT_TEMPO_ACC_L
+	lda #6					;default speed
+	sta FT_TEMPO_ACC_H
+	sta FT_SONG_SPEED		;apply default speed, this also enables music
+
+.skip:
+	rts
+
+
+;------------------------------------------------------------------------------
+; pause and unpause current music
+; in: A 0 or not 0 to play or pause
+;------------------------------------------------------------------------------
+
+FamiToneMusicPause: subroutine
+
+	tax					;set SZ flags for A
+	beq .unpause
+	
+.pause:
+
+	jsr FamiToneSampleStop
+	
+	lda #0				;mute sound
+	sta FT_CH1_VOLUME
+	sta FT_CH2_VOLUME
+	sta FT_CH3_VOLUME
+	sta FT_CH4_VOLUME
+	lda FT_SONG_SPEED	;set pause flag
+	ora #$80
+	bne .done
+.unpause:
+	lda FT_SONG_SPEED	;reset pause flag
+	and #$7f
+.done:
+	sta FT_SONG_SPEED
+
+	rts
+
+
+;------------------------------------------------------------------------------
+; update FamiTone state, should be called every NMI
+; in: none
+;------------------------------------------------------------------------------
+
+FamiToneUpdate: subroutine
+
+	IFCONST FT_THREAD
+	lda FT_TEMP_PTR_L
+	pha
+	lda FT_TEMP_PTR_H
+	pha
+	ENDIF
+
+	lda FT_SONG_SPEED		;speed 0 means that no music is playing currently
+	bmi .pause				;bit 7 set is the pause flag
+	bne .update
+.pause:
+	jmp .update_sound
+
+.update:
+
+	clc						;update frame counter that considers speed, tempo, and PAL/NTSC
+	lda FT_TEMPO_ACC_L
+	adc FT_TEMPO_STEP_L
+	sta FT_TEMPO_ACC_L
+	lda FT_TEMPO_ACC_H
+	adc FT_TEMPO_STEP_H
+	cmp FT_SONG_SPEED
+	bcs .update_row			;overflow, row update is needed
+	sta FT_TEMPO_ACC_H		;no row update, skip to the envelopes update
+	jmp .update_envelopes
+
+.update_row:
+
+	sec
+	sbc FT_SONG_SPEED
+	sta FT_TEMPO_ACC_H
+
+
+	ldx #<(FT_CH1_VARS)	;process channel 1
+	jsr _FT2ChannelUpdate
+	bcc .no_new_note1
+	ldx #<(FT_CH1_ENVS)
+	lda FT_CH1_INSTRUMENT
+	jsr _FT2SetInstrument
+	sta FT_CH1_DUTY
+.no_new_note1:
+
+	ldx #<(FT_CH2_VARS)	;process channel 2
+	jsr _FT2ChannelUpdate
+	bcc .no_new_note2
+	ldx #<(FT_CH2_ENVS)
+	lda FT_CH2_INSTRUMENT
+	jsr _FT2SetInstrument
+	sta FT_CH2_DUTY
+.no_new_note2:
+
+	ldx #<(FT_CH3_VARS)	;process channel 3
+	jsr _FT2ChannelUpdate
+	bcc .no_new_note3
+	ldx #<(FT_CH3_ENVS)
+	lda FT_CH3_INSTRUMENT
+	jsr _FT2SetInstrument
+.no_new_note3:
+
+	ldx #<(FT_CH4_VARS)	;process channel 4
+	jsr _FT2ChannelUpdate
+	bcc .no_new_note4
+	ldx #<(FT_CH4_ENVS)
+	lda FT_CH4_INSTRUMENT
+	jsr _FT2SetInstrument
+	sta FT_CH4_DUTY
+.no_new_note4:
+
+	IFCONST FT_DPCM_ENABLE
+
+	ldx #<(FT_CH5_VARS)	;process channel 5
+	jsr _FT2ChannelUpdate
+	bcc .no_new_note5
+	lda FT_CH5_NOTE
+	bne .play_sample
+	jsr FamiToneSampleStop
+	bne .no_new_note5		;A is non-zero after FamiToneSampleStop
+.play_sample:
+	jsr FamiToneSamplePlayM
+.no_new_note5:
+
+	ENDIF
+
+
+.update_envelopes:
+
+	ldx #<(FT_ENVELOPES)	;process 11 envelopes
+
+.env_process:
+
+	lda FT_ENV_REPEAT,x		;check envelope repeat counter
+	beq .env_read			;if it is zero, process envelope
+	dec FT_ENV_REPEAT,x		;otherwise decrement the counter
+	bne .env_next
+
+.env_read:
+
+	lda FT_ENV_ADR_L,x		;load envelope data address into temp
+	sta <FT_TEMP_PTR_L
+	lda FT_ENV_ADR_H,x
+	sta <FT_TEMP_PTR_H
+	ldy FT_ENV_PTR,x		;load envelope pointer
+
+.env_read_value:
+
+	lda (FT_TEMP_PTR),y		;read a byte of the envelope data
+	bpl .env_special		;values below 128 used as a special code, loop or repeat
+	clc						;values above 128 are output value+192 (output values are signed -63..64)
+	adc #256-192
+	sta FT_ENV_VALUE,x		;store the output value
+	iny						;advance the pointer
+	bne .env_next_store_ptr ;bra
+
+.env_special:
+
+	bne .env_set_repeat		;zero is the loop point, non-zero values used for the repeat counter
+	iny						;advance the pointer
+	lda (FT_TEMP_PTR),y		;read loop position
+	tay						;use loop position
+	jmp .env_read_value		;read next byte of the envelope
+
+.env_set_repeat:
+
+	iny
+	sta FT_ENV_REPEAT,x		;store the repeat counter value
+
+.env_next_store_ptr:
+
+	tya						;store the envelope pointer
+	sta FT_ENV_PTR,x
+
+.env_next:
+
+	inx						;next envelope
+
+	cpx #<(FT_ENVELOPES)+FT_ENVELOPES_ALL
+	bne .env_process
+
+
+.update_sound:
+
+	;convert envelope and channel output data into APU register values in the output buffer
+
+	lda FT_CH1_NOTE
+	beq .ch1cut
+	clc
+	adc FT_CH1_NOTE_OFF
+	IFCONST FT_PITCH_FIX
+	ora FT_PAL_ADJUST
+	ENDIF
+	tax
+	lda FT_CH1_PITCH_OFF
+	tay
+	adc _FT2NoteTableLSB,x
+	sta FT_MR_PULSE1_L
+	tya						;sign extension for the pitch offset
+	ora #$7f
+	bmi .ch1sign
+	lda #0
+.ch1sign:
+	adc _FT2NoteTableMSB,x
+
+	IFNCONST FT_SFX_ENABLE
+	cmp FT_PULSE1_PREV
+	beq .ch1prev
+	sta FT_PULSE1_PREV
+	ENDIF
+
+	sta FT_MR_PULSE1_H
+.ch1prev:
+	lda FT_CH1_VOLUME
+.ch1cut:
+	ora FT_CH1_DUTY
+	sta FT_MR_PULSE1_V
+
+
+	lda FT_CH2_NOTE
+	beq .ch2cut
+	clc
+	adc FT_CH2_NOTE_OFF
+	IFCONST FT_PITCH_FIX
+	ora FT_PAL_ADJUST
+	ENDIF
+	tax
+	lda FT_CH2_PITCH_OFF
+	tay
+	adc _FT2NoteTableLSB,x
+	sta FT_MR_PULSE2_L
+	tya
+	ora #$7f
+	bmi .ch2sign
+	lda #0
+.ch2sign:
+	adc _FT2NoteTableMSB,x
+
+	IFNCONST FT_SFX_ENABLE
+	cmp FT_PULSE2_PREV
+	beq .ch2prev
+	sta FT_PULSE2_PREV
+	ENDIF
+
+	sta FT_MR_PULSE2_H
+.ch2prev:
+	lda FT_CH2_VOLUME
+.ch2cut:
+	ora FT_CH2_DUTY
+	sta FT_MR_PULSE2_V
+
+
+	lda FT_CH3_NOTE
+	beq .ch3cut
+	clc
+	adc FT_CH3_NOTE_OFF
+	IFCONST FT_PITCH_FIX
+	ora FT_PAL_ADJUST
+	ENDIF
+	tax
+	lda FT_CH3_PITCH_OFF
+	tay
+	adc _FT2NoteTableLSB,x
+	sta FT_MR_TRI_L
+	tya
+	ora #$7f
+	bmi .ch3sign
+	lda #0
+.ch3sign:
+	adc _FT2NoteTableMSB,x
+	sta FT_MR_TRI_H
+	lda FT_CH3_VOLUME
+.ch3cut:
+	ora #$80
+	sta FT_MR_TRI_V
+
+
+	lda FT_CH4_NOTE
+	beq .ch4cut
+	clc
+	adc FT_CH4_NOTE_OFF
+	and #$0f
+	eor #$0f
+	sta <FT_TEMP_VAR1
+	lda FT_CH4_DUTY
+	asl
+	and #$80
+	ora <FT_TEMP_VAR1
+	sta FT_MR_NOISE_F
+	lda FT_CH4_VOLUME
+.ch4cut:
+	ora #$f0
+	sta FT_MR_NOISE_V
+
+
+	IFCONST FT_SFX_ENABLE
+
+	;process all sound effect streams
+
+	.if FT_SFX_STREAMS>0
+	ldx #FT_SFX_CH0
+	jsr _FT2SfxUpdate
+	ENDIF
+	.if FT_SFX_STREAMS>1
+	ldx #FT_SFX_CH1
+	jsr _FT2SfxUpdate
+	ENDIF
+	.if FT_SFX_STREAMS>2
+	ldx #FT_SFX_CH2
+	jsr _FT2SfxUpdate
+	ENDIF
+	.if FT_SFX_STREAMS>3
+	ldx #FT_SFX_CH3
+	jsr _FT2SfxUpdate
+	ENDIF
+
+
+	;send data from the output buffer to the APU
+
+	lda FT_OUT_BUF		;pulse 1 volume
+	sta APU_PL1_VOL
+	lda FT_OUT_BUF+1	;pulse 1 period LSB
+	sta APU_PL1_LO
+	lda FT_OUT_BUF+2	;pulse 1 period MSB, only applied when changed
+	cmp FT_PULSE1_PREV
+	beq .no_pulse1_upd
+	sta FT_PULSE1_PREV
+	sta APU_PL1_HI
+.no_pulse1_upd:
+
+	lda FT_OUT_BUF+3	;pulse 2 volume
+	sta APU_PL2_VOL
+	lda FT_OUT_BUF+4	;pulse 2 period LSB
+	sta APU_PL2_LO
+	lda FT_OUT_BUF+5	;pulse 2 period MSB, only applied when changed
+	cmp FT_PULSE2_PREV
+	beq .no_pulse2_upd
+	sta FT_PULSE2_PREV
+	sta APU_PL2_HI
+.no_pulse2_upd:
+
+	lda FT_OUT_BUF+6	;triangle volume (plays or not)
+	sta APU_TRI_LINEAR
+	lda FT_OUT_BUF+7	;triangle period LSB
+	sta APU_TRI_LO
+	lda FT_OUT_BUF+8	;triangle period MSB
+	sta APU_TRI_HI
+
+	lda FT_OUT_BUF+9	;noise volume
+	sta APU_NOISE_VOL
+	lda FT_OUT_BUF+10	;noise period
+	sta APU_NOISE_LO
+
+	ENDIF
+
+	IFCONST FT_THREAD
+	pla
+	sta FT_TEMP_PTR_H
+	pla
+	sta FT_TEMP_PTR_L
+	ENDIF
+
+	rts
+
+
+;internal routine, sets up envelopes of a channel according to current instrument
+;in X envelope group offset, A instrument number
+
+_FT2SetInstrument: subroutine
+	asl					;instrument number is pre multiplied by 4
+	tay
+	lda FT_INSTRUMENT_H
+	adc #0					;use carry to extend range for 64 instruments
+	sta <FT_TEMP_PTR_H
+	lda FT_INSTRUMENT_L
+	sta <FT_TEMP_PTR_L
+
+	lda (FT_TEMP_PTR),y		;duty cycle
+	sta <FT_TEMP_VAR1
+	iny
+
+	lda (FT_TEMP_PTR),y		;instrument pointer LSB
+	sta FT_ENV_ADR_L,x
+	iny
+	lda (FT_TEMP_PTR),y		;instrument pointer MSB
+	iny
+	sta FT_ENV_ADR_H,x
+	inx						;next envelope
+
+	lda (FT_TEMP_PTR),y		;instrument pointer LSB
+	sta FT_ENV_ADR_L,x
+	iny
+	lda (FT_TEMP_PTR),y		;instrument pointer MSB
+	sta FT_ENV_ADR_H,x
+
+	lda #0
+	sta FT_ENV_REPEAT-1,x	;reset env1 repeat counter
+	sta FT_ENV_PTR-1,x		;reset env1 pointer
+	sta FT_ENV_REPEAT,x		;reset env2 repeat counter
+	sta FT_ENV_PTR,x		;reset env2 pointer
+
+	cpx #<(FT_CH4_ENVS)	;noise channel has only two envelopes
+	bcs .no_pitch
+
+	inx						;next envelope
+	iny
+	sta FT_ENV_REPEAT,x		;reset env3 repeat counter
+	sta FT_ENV_PTR,x		;reset env3 pointer
+	lda (FT_TEMP_PTR),y		;instrument pointer LSB
+	sta FT_ENV_ADR_L,x
+	iny
+	lda (FT_TEMP_PTR),y		;instrument pointer MSB
+	sta FT_ENV_ADR_H,x
+
+.no_pitch:
+	lda <FT_TEMP_VAR1
+	rts
+
+
+;internal routine, parses channel note data
+
+_FT2ChannelUpdate: subroutine
+
+	lda FT_CHN_REPEAT,x		;check repeat counter
+	beq .no_repeat
+	dec FT_CHN_REPEAT,x		;decrease repeat counter
+	clc						;no new note
+	rts
+
+.no_repeat:
+	lda FT_CHN_PTR_L,x		;load channel pointer into temp
+	sta <FT_TEMP_PTR_L
+	lda FT_CHN_PTR_H,x
+	sta <FT_TEMP_PTR_H
+.no_repeat_r:
+	ldy #0
+
+.read_byte:
+	lda (FT_TEMP_PTR),y		;read byte of the channel
+
+	inc <FT_TEMP_PTR_L		;advance pointer
+	bne .no_inc_ptr1
+	inc <FT_TEMP_PTR_H
+.no_inc_ptr1:
+
+	ora #0
+	bmi .special_code		;bit 7 0=note 1=special code
+
+	lsr					;bit 0 set means the note is followed by an empty row
+	bcc .no_empty_row
+	inc FT_CHN_REPEAT,x		;set repeat counter to 1
+.no_empty_row:
+	sta FT_CHN_NOTE,x		;store note code
+	sec						;new note flag is set
+	bcs .done ;bra
+
+.special_code:
+	and #$7f
+	lsr
+	bcs .set_empty_rows
+	asl
+	asl
+	sta FT_CHN_INSTRUMENT,x	;store instrument number*4
+	bcc .read_byte ;bra
+
+.set_empty_rows:
+	cmp #$3d
+	bcc .set_repeat
+	beq .set_speed
+	cmp #$3e
+	beq .set_loop
+
+.set_reference:
+	clc						;remember return address+3
+	lda <FT_TEMP_PTR_L
+	adc #3
+	sta FT_CHN_RETURN_L,x
+	lda <FT_TEMP_PTR_H
+	adc #0
+	sta FT_CHN_RETURN_H,x
+	lda (FT_TEMP_PTR),y		;read length of the reference (how many rows)
+	sta FT_CHN_REF_LEN,x
+	iny
+	lda (FT_TEMP_PTR),y		;read 16-bit absolute address of the reference
+	sta <FT_TEMP_VAR1		;remember in temp
+	iny
+	lda (FT_TEMP_PTR),y
+	sta <FT_TEMP_PTR_H
+	lda <FT_TEMP_VAR1
+	sta <FT_TEMP_PTR_L
+	ldy #0
+	jmp .read_byte
+
+.set_speed:
+	lda (FT_TEMP_PTR),y
+	sta FT_SONG_SPEED
+	inc <FT_TEMP_PTR_L		;advance pointer after reading the speed value
+	bne .read_byte
+	inc <FT_TEMP_PTR_H
+	bne .read_byte ;bra
+
+.set_loop:
+	lda (FT_TEMP_PTR),y
+	sta <FT_TEMP_VAR1
+	iny
+	lda (FT_TEMP_PTR),y
+	sta <FT_TEMP_PTR_H
+	lda <FT_TEMP_VAR1
+	sta <FT_TEMP_PTR_L
+	dey
+	jmp .read_byte
+
+.set_repeat:
+	sta FT_CHN_REPEAT,x		;set up repeat counter, carry is clear, no new note
+
+.done:
+	lda FT_CHN_REF_LEN,x	;check reference row counter
+	beq .no_ref				;if it is zero, there is no reference
+	dec FT_CHN_REF_LEN,x	;decrease row counter
+	bne .no_ref
+
+	lda FT_CHN_RETURN_L,x	;end of a reference, return to previous pointer
+	sta FT_CHN_PTR_L,x
+	lda FT_CHN_RETURN_H,x
+	sta FT_CHN_PTR_H,x
+	rts
+
+.no_ref:
+	lda <FT_TEMP_PTR_L
+	sta FT_CHN_PTR_L,x
+	lda <FT_TEMP_PTR_H
+	sta FT_CHN_PTR_H,x
+	rts
+
+
+
+;------------------------------------------------------------------------------
+; stop DPCM sample if it plays
+;------------------------------------------------------------------------------
+
+FamiToneSampleStop: subroutine
+
+	lda #%00001111
+	sta APU_SND_CHN
+
+	rts
+
+
+	
+	IFCONST FT_DPCM_ENABLE
+
+;------------------------------------------------------------------------------
+; play DPCM sample, used by music player, could be used externally
+; in: A is number of a sample, 1..63
+;------------------------------------------------------------------------------
+
+FamiToneSamplePlayM: subroutine		;for music (low priority)
+
+	ldx FT_DPCM_EFFECT
+	beq _FT2SamplePlay
+	tax
+	lda APU_SND_CHN
+	and #16
+	beq .not_busy
+	rts
+
+.not_busy:
+	sta FT_DPCM_EFFECT
+	txa
+	jmp _FT2SamplePlay
+
+;------------------------------------------------------------------------------
+; play DPCM sample with higher priority, for sound effects
+; in: A is number of a sample, 1..63
+;------------------------------------------------------------------------------
+
+FamiToneSamplePlay: subroutine
+
+	ldx #1
+	stx FT_DPCM_EFFECT
+
+_FT2SamplePlay:
+
+	sta <FT_TEMP		;sample number*3, offset in the sample table
+	asl
+	clc
+	adc <FT_TEMP
+	
+	adc FT_DPCM_LIST_L
+	sta <FT_TEMP_PTR_L
+	lda #0
+	adc FT_DPCM_LIST_H
+	sta <FT_TEMP_PTR_H
+
+	lda #%00001111			;stop DPCM
+	sta APU_SND_CHN
+
+	ldy #0
+	lda (FT_TEMP_PTR),y		;sample offset
+	sta APU_DMC_START
+	iny
+	lda (FT_TEMP_PTR),y		;sample length
+	sta APU_DMC_LEN
+	iny
+	lda (FT_TEMP_PTR),y		;pitch and loop
+	sta APU_DMC_FREQ
+
+	lda #32					;reset DAC counter
+	sta APU_DMC_RAW
+	lda #%00011111			;start DMC
+	sta APU_SND_CHN
+
+	rts
+
+	ENDIF
+
+	IFCONST FT_SFX_ENABLE
+
+;------------------------------------------------------------------------------
+; init sound effects player, set pointer to data
+; in: X,Y is address of sound effects data
+;------------------------------------------------------------------------------
+
+FamiToneSfxInit: subroutine
+
+	stx <FT_TEMP_PTR_L
+	sty <FT_TEMP_PTR_H
+	
+	ldy #0
+	
+	IFCONST FT_PITCH_FIX
+
+	lda FT_PAL_ADJUST		;add 2 to the sound list pointer for PAL
+	bne .ntsc
+	iny
+	iny
+.ntsc:
+
+	ENDIF
+	
+	lda (FT_TEMP_PTR),y		;read and store pointer to the effects list
+	sta FT_SFX_ADR_L
+	iny
+	lda (FT_TEMP_PTR),y
+	sta FT_SFX_ADR_H
+
+	ldx #FT_SFX_CH0			;init all the streams
+
+.set_channels:
+	jsr _FT2SfxClearChannel
+	txa
+	clc
+	adc #FT_SFX_STRUCT_SIZE
+	tax
+	cpx #FT_SFX_STRUCT_SIZE*FT_SFX_STREAMS
+	bne .set_channels
+
+	rts
+
+
+;internal routine, clears output buffer of a sound effect
+;in: A is 0
+;    X is offset of sound effect stream
+
+_FT2SfxClearChannel: subroutine
+
+	lda #0
+	sta FT_SFX_PTR_H,x		;this stops the effect
+	sta FT_SFX_REPEAT,x
+	sta FT_SFX_OFF,x
+	sta FT_SFX_BUF+6,x		;mute triangle
+	lda #$30
+	sta FT_SFX_BUF+0,x		;mute pulse1
+	sta FT_SFX_BUF+3,x		;mute pulse2
+	sta FT_SFX_BUF+9,x		;mute noise
+
+	rts
+
+
+;------------------------------------------------------------------------------
+; play sound effect
+; in: A is a number of the sound effect 0..127
+;     X is offset of sound effect channel, should be FT_SFX_CH0..FT_SFX_CH3
+;------------------------------------------------------------------------------
+
+FamiToneSfxPlay: subroutine
+
+	asl					;get offset in the effects list
+	tay
+
+	jsr _FT2SfxClearChannel	;stops the effect if it plays
+
+	lda FT_SFX_ADR_L
+	sta <FT_TEMP_PTR_L
+	lda FT_SFX_ADR_H
+	sta <FT_TEMP_PTR_H
+
+	lda (FT_TEMP_PTR),y		;read effect pointer from the table
+	sta FT_SFX_PTR_L,x		;store it
+	iny
+	lda (FT_TEMP_PTR),y
+	sta FT_SFX_PTR_H,x		;this write enables the effect
+
+	rts
+
+
+;internal routine, update one sound effect stream
+;in: X is offset of sound effect stream
+
+_FT2SfxUpdate: subroutine
+
+	lda FT_SFX_REPEAT,x		;check if repeat counter is not zero
+	beq .no_repeat
+	dec FT_SFX_REPEAT,x		;decrement and return
+	bne .update_buf			;just mix with output buffer
+
+.no_repeat:
+	lda FT_SFX_PTR_H,x		;check if MSB of the pointer is not zero
+	bne .sfx_active
+	rts						;return otherwise, no active effect
+
+.sfx_active:
+	sta <FT_TEMP_PTR_H		;load effect pointer into temp
+	lda FT_SFX_PTR_L,x
+	sta <FT_TEMP_PTR_L
+	ldy FT_SFX_OFF,x
+	clc
+
+.read_byte:
+	lda (FT_TEMP_PTR),y		;read byte of effect
+	bmi .get_data			;if bit 7 is set, it is a register write
+	beq .eof
+	iny
+	sta FT_SFX_REPEAT,x		;if bit 7 is reset, it is number of repeats
+	tya
+	sta FT_SFX_OFF,x
+	jmp .update_buf
+
+.get_data:
+	iny
+	stx <FT_TEMP_VAR1		;it is a register write
+	adc <FT_TEMP_VAR1		;get offset in the effect output buffer
+	tax
+	lda (FT_TEMP_PTR),y		;read value
+	iny
+	sta FT_SFX_BUF-128,x	;store into output buffer
+	ldx <FT_TEMP_VAR1
+	jmp .read_byte			;and read next byte
+
+.eof:
+	sta FT_SFX_PTR_H,x		;mark channel as inactive
+
+.update_buf:
+
+	lda FT_OUT_BUF			;compare effect output buffer with main output buffer
+	and #$0f				;if volume of pulse 1 of effect is higher than that of the
+	sta <FT_TEMP_VAR1		;main buffer, overwrite the main buffer value with the new one
+	lda FT_SFX_BUF+0,x
+	and #$0f
+	cmp <FT_TEMP_VAR1
+	bcc .no_pulse1
+	lda FT_SFX_BUF+0,x
+	sta FT_OUT_BUF+0
+	lda FT_SFX_BUF+1,x
+	sta FT_OUT_BUF+1
+	lda FT_SFX_BUF+2,x
+	sta FT_OUT_BUF+2
+.no_pulse1:
+
+	lda FT_OUT_BUF+3		;same for pulse 2
+	and #$0f
+	sta <FT_TEMP_VAR1
+	lda FT_SFX_BUF+3,x
+	and #$0f
+	cmp <FT_TEMP_VAR1
+	bcc .no_pulse2
+	lda FT_SFX_BUF+3,x
+	sta FT_OUT_BUF+3
+	lda FT_SFX_BUF+4,x
+	sta FT_OUT_BUF+4
+	lda FT_SFX_BUF+5,x
+	sta FT_OUT_BUF+5
+.no_pulse2:
+
+	lda FT_SFX_BUF+6,x		;overwrite triangle of main output buffer if it is active
+	beq .no_triangle
+	sta FT_OUT_BUF+6
+	lda FT_SFX_BUF+7,x
+	sta FT_OUT_BUF+7
+	lda FT_SFX_BUF+8,x
+	sta FT_OUT_BUF+8
+.no_triangle:
+
+	lda FT_OUT_BUF+9		;same as for pulse 1 and 2, but for noise
+	and #$0f
+	sta <FT_TEMP_VAR1
+	lda FT_SFX_BUF+9,x
+	and #$0f
+	cmp <FT_TEMP_VAR1
+	bcc .no_noise
+	lda FT_SFX_BUF+9,x
+	sta FT_OUT_BUF+9
+	lda FT_SFX_BUF+10,x
+	sta FT_OUT_BUF+10
+.no_noise:
+
+	rts
+
+	ENDIF
+
+
+;dummy envelope used to initialize all channels with silence
+
+_FT2DummyEnvelope:
+	.byte $c0,$00,$00
+
+;PAL and NTSC, 11-bit dividers
+;rest note, then octaves 1-5, then three zeroes
+;first 64 bytes are PAL, next 64 bytes are NTSC
+
+_FT2NoteTableLSB:
+	IFCONST FT_PAL_SUPPORT
+	.byte $00,$33,$da,$86,$36,$eb,$a5,$62,$23,$e7,$af,$7a,$48,$19,$ec,$c2
+	.byte $9a,$75,$52,$30,$11,$f3,$d7,$bc,$a3,$8c,$75,$60,$4c,$3a,$28,$17
+	.byte $08,$f9,$eb,$dd,$d1,$c5,$ba,$af,$a5,$9c,$93,$8b,$83,$7c,$75,$6e
+	.byte $68,$62,$5c,$57,$52,$4d,$49,$45,$41,$3d,$3a,$36,$33,$30,$2d,$2b
+	ENDIF
+	IFCONST FT_NTSC_SUPPORT
+	.byte $00,$ad,$4d,$f2,$9d,$4c,$00,$b8,$74,$34,$f7,$be,$88,$56,$26,$f8
+	.byte $ce,$a5,$7f,$5b,$39,$19,$fb,$de,$c3,$aa,$92,$7b,$66,$52,$3f,$2d
+	.byte $1c,$0c,$fd,$ee,$e1,$d4,$c8,$bd,$b2,$a8,$9f,$96,$8d,$85,$7e,$76
+	.byte $70,$69,$63,$5e,$58,$53,$4f,$4a,$46,$42,$3e,$3a,$37,$34,$31,$2e
+	ENDIF
+_FT2NoteTableMSB:
+	IFCONST FT_PAL_SUPPORT
+	.byte $00,$06,$05,$05,$05,$04,$04,$04,$04,$03,$03,$03,$03,$03,$02,$02
+	.byte $02,$02,$02,$02,$02,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
+	.byte $01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	ENDIF
+	IFCONST FT_NTSC_SUPPORT
+	.byte $00,$06,$06,$05,$05,$05,$05,$04,$04,$04,$03,$03,$03,$03,$03,$02
+	.byte $02,$02,$02,$02,$02,$02,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
+	.byte $01,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	ENDIF
diff --git a/presets/nes/music.c b/presets/nes/music.c
index 525e57d1..8db42cad 100644
--- a/presets/nes/music.c
+++ b/presets/nes/music.c
@@ -22,25 +22,43 @@ const unsigned char TILESET[8*128] = {/*{w:8,h:8,bpp:1,count:128,brev:1}*/
 // MUSIC ROUTINES
 //
 
+// Namespace(bias=1.0, freq=111860.8, length=64, maxbits=13.0, upper=41)
+// 439.0 0.943191918851 41
+const int note_table_41[64] = {
+4318, 4076, 3847, 3631, 3427, 3235, 3053, 2882, 2720, 2567, 2423, 2287, 2159, 2037, 1923, 1815, 1713, 1617, 1526, 1440, 1360, 1283, 1211, 1143, 1079, 1018, 961, 907, 856, 808, 763, 720, 679, 641, 605, 571, 539, 509, 480, 453, 428, 403, 381, 359, 339, 320, 302, 285, 269, 254, 240, 226, 213, 201, 190, 179, 169, 160, 151, 142, 134, 126, 119, 113, };
+
 // Namespace(bias=1.0, freq=111860.8, length=64, maxbits=13, upper=49)
 // 440.5 1.79281159771 49
-const int note_table[64] = {
+const int note_table_49[64] = {
 4304, 4062, 3834, 3619, 3416, 3224, 3043, 2872, 2711, 2559, 2415, 2279, 2151, 2031, 1917, 1809, 1707, 1611, 1521, 1436, 1355, 1279, 1207, 1139, 1075, 1015, 958, 904, 853, 805, 760, 717, 677, 639, 603, 569, 537, 507, 478, 451, 426, 402, 379, 358, 338, 319, 301, 284, 268, 253, 239, 225, 213, 201, 189, 179, 168, 159, 150, 142, 134, 126, 119, 112, };
 
+// Namespace(bias=1.0, freq=111860.8, length=64, maxbits=12, upper=63)
+// 443.6 14.2328382554 63
+const int note_table_63[64] = {
+2137, 4034, 3807, 3593, 3392, 3201, 3022, 2852, 2692, 2541, 2398, 2263, 2136, 2016, 1903, 1796, 1695, 1600, 1510, 1425, 1345, 1270, 1199, 1131, 1068, 1008, 951, 898, 847, 800, 755, 712, 672, 634, 599, 565, 533, 503, 475, 448, 423, 399, 377, 356, 336, 317, 299, 282, 266, 251, 237, 224, 211, 199, 188, 177, 167, 158, 149, 141, 133, 125, 118, 111, };
+
+// Namespace(bias=-1.0, freq=55930.4, length=64, maxbits=12, upper=53)
+// 443.7 8.47550713772 53
+const int note_table_tri[64] = {
+2138, 2018, 1905, 1798, 1697, 1602, 1512, 1427, 1347, 1272, 1200, 1133, 1069, 1009, 953, 899, 849, 801, 756, 714, 674, 636, 601, 567, 535, 505, 477, 450, 425, 401, 379, 358, 338, 319, 301, 284, 268, 253, 239, 226, 213, 201, 190, 179, 169, 160, 151, 142, 135, 127, 120, 113, 107, 101, 95, 90, 85, 80, 76, 72, 68, 64, 60, 57, };
+
+const int* note_table = note_table_63;
 byte music_index = 0;
 byte cur_duration = 0;
 
-const byte music1[] = {
-0x35,0x8a,0x37,0x8a,0x33,0x3f,0x8a,0x30,0x3c,0x94,0x3e,0x32,0x8a,0x3a,0x2e,0x94,0x35,0x29,0x8a,0x37,0x2b,0x8a,0x33,0x27,0x8a,0x30,0x24,0x94,0x32,0x26,0x8a,0x2e,0x22,0x94,0x29,0x1d,0x8a,0x2b,0x1f,0x8a,0x27,0x1b,0x8a,0x24,0x18,0x94,0x1a,0x26,0x8a,0x18,0x24,0x8a,0x17,0x23,0x8a,0x16,0x22,0xa8,0x3a,0x35,0x32,0x94,0x29,0x26,0x22,0x8a,0x2a,0x8a,0x2b,0x1b,0x8a,0x33,0x8a,0x22,0x1f,0x27,0x8a,0x2b,0x8a,0x33,0x22,0x16,0x94,0x2b,0x27,0x25,0x8a,0x33,0x8a,0x20,0x14,0x94,0x27,0x24,0x94,0x1f,0x13,0x8a,0x3f,0x37,0x33,0x8a,0x38,0x35,0x27,0x8a,0x39,0x36,0x8a,0x3a,0x37,0x16,0x8a,0x3f,0x37,0x33,0x8a,0x35,0x38,0x22,0x8a,0x3a,0x37,0x8a,0x16,0x8a,0x3e,0x35,0x32,0x8a,0x38,0x35,0x26,0x94,0x3f,0x33,0x37,0x94,0x1f,0x22,0x27,0x94,0x27,0x22,0x1f,0x94,0x29,0x26,0x22,0x8a,0x2a,0x8a,0x2b,0x1b,0x8a,0x33,0x8a,0x1f,0x22,0x27,0x8a,0x2b,0x8a,0x33,0x22,0x16,0x94,0x2b,0x27,0x25,0x8a,0x33,0x8a,0x20,0x14,0x94,0x24,0x27,0x94,0x1f,0x13,0x94,0x3c,0x33,0x30,0x8a,0x3a,0x33,0x2e,0x8a,0x39,0x33,0x2d,0x8a,0x3c,0x30,0x8a,0x3f,0x33,0x1d,0x8a,0x37,0x8a,0x1d,0x8a,0x35,0x8a,0x3f,0x33,0x27,0x8a,0x3c,0x30,0x8a,0x35,0x38,0x26,0x94,0x22,0x16,0x94,0x24,0x18,0x94,0x29,0x26,0x1a,0x8a,0x2a,0x8a,0x2b,0x1b,0x8a,0x33,0x8a,0x27,0x22,0x1f,0x8a,0x2b,0x8a,0x33,0x16,0x22,0x94,0x2b,0x27,0x25,0x8a,0x33,0x8a,0x20,0x14,0x94,0x27,0x24,0x94,0x13,0x1f,0x8a,0x3f,0x33,0x37,0x8a,0x38,0x35,0x27,0x8a,0x39,0x36,0x8a,0x37,0x3a,0x16,0x8a,0x3f,0x37,0x33,0x8a,0x38,0x35,0x27,0x8a,0x3a,0x37,0x8a,0x16,0x8a,0x3e,0x35,0x32,0x8a,0x38,0x35,0x20,0x94,0x3f,0x37,0x33,0x94,0x27,0x22,0x1f,0x94,0x2b,0x27,0x22,0x94,0x3f,0x33,0x8a,0x35,0x8a,0x37,0x27,0x1b,0x8a,0x3f,0x33,0x8a,0x35,0x2b,0x22,0x8a,0x37,0x8a,0x25,0x19,0x8a,0x3f,0x33,0x8a,0x35,0x2b,0x27,0x8a,0x3f,0x33,0x8a,0x37,0x24,0x18,0x8a,0x3f,0x33,0x8a,0x35,0x2c,0x27,0x8a,0x37,0x8a,0x23,0x17,0x8a,0x3f,0x33,0x8a,0x35,0x2c,0x27,0x8a,0x3f,0x33,0x8a,0x3a,0x37,0x22,0x8a,0x3f,0x37,0x33,0x8a,0x38,0x35,0x2b,0x8a,0x3a,0x37,0x8a,0x16,0x8a,0x3e,0x32,0x35,0x8a,0x35,0x38,0x26,0x94,0x3f,0x33,0x37,0x94,0x22,0x16,0x94,0x24,0x18,0x94,0x29,0x26,0x1a,0x8a,0x2a,0x8a,0x2b,0x1b,0x8a,0x33,0x8a,0x27,0x22,0x1f,0x8a,0x2b,0x8a,0x33,0x22,0x16,0x94,0x2b,0x25,0x22,0x8a,0x33,0x8a,0x20,0x14,0x94,0x27,0x24,0x94,0x1f,0x13,0x8a,0x3f,0x37,0x33,0x8a,0x35,0x38,0x27,0x8a,0x39,0x36,0x8a,0x3a,0x37,0x16,0x8a,0x3f,0x37,0x33,0x8a,0x38,0x35,0x27,0x8a,0x3a,0x37,0x8a,0x16,0x8a,0x3e,0x35,0x32,0x8a,0x35,0x38,0x20,0x94,0x37,0x33,0x3f,0x94,0x27,0x22,0x1f,0x94,0x27,0x22,0x1f,0x94,0x29,0x26,0x22,0x8a,0x2a,0x8a,0x2b,0x1b,0x8a,0x33,0x8a,0x22,0x1f,0x27,0x8a,0x2b,0x8a,0x33,0x22,0x16,0x94,0x2b,0x27,0x25,0x8a,0x33,0x8a,0x20,0x14,0x94,0x27,0x24,0x94,0x1f,0x13,0x94,0x3c,0x33,0x30,0x8a,0x3a,0x33,0x2e,0x8a,0x2d,0x33,0x39,0x8a,0x3c,0x30,0x8a,0x3f,0x33,0x27,0x8a,0x37,0x8a,0x1d,0x8a,0x35,0x8a,0x33,0x3f,0x27,0x8a,0x3c,0x30,0x8a,0x38,0x35,0x26,0x94,0x22,0x16,0x94,0x24,0x18,0x94,0x29,0x26,0x1a,0x8a,0x2a,0x8a,0x2b,0x1b,0x8a,0x33,0x8a,0x22,0x27,0x1f,0x8a,0x2b,0x8a,0x33,0x22,0x16,0x94,0x2b,0x27,0x25,0x8a,0x33,0x8a,0x20,0x14,0x94,0x24,0x27,0x94,0x1f,0x13,0x8a,0x3f,0x37,0x33,0x8a,0x38,0x35,0x27,0x8a,0x36,0x39,0x8a,0x3a,0x37,0x16,0x8a,0x3f,0x37,0x33,0x8a,0x38,0x35,0x27,0x8a,0x37,0x3a,0x8a,0x16,0x8a,0x3e,0x35,0x32,0x8a,0x38,0x35,0x22,0x94,0x33,0x37,0x3f,0x94,0x27,0x22,0x1f,0x94,0x22,0x27,0x2b,0x94,0x3f,0x33,0x8a,0x35,0x8a,0x37,0x27,0x1b,0x8a,0x3f,0x33,0x8a,0x35,0x2b,0x27,0x8a,0x37,0x8a,0x25,0x19,0x8a,0x3f,0x33,0x8a,0x35,0x2b,0x22,0x8a,0x3f,0x33,0x8a,0x37,0x24,0x18,0x8a,0x33,0x3f,0x8a,0x35,0x2c,0x27,0x8a,0x37,0x8a,0x23,0x17,0x8a,0x3f,0x33,0x8a,0x35,0x2c,0x27,0x8a,0x3f,0x33,0x8a,0x3a,0x37,0x22,0x8a,0x3f,0x37,0x33,0x8a,0x38,0x35,0x2b,0x8a,0x37,0x3a,0x8a,0x16,0x8a,0x3e,0x35,0x32,0x8a,0x38,0x35,0x22,0x94,0x33,0x37,0x3f,0x94,0x22,0x16,0x94,0x1b,0x0f,0x8a,0x37,0x2b,0x33,0x8a,0x38,0x2c,0x35,0x8a,0x39,0x36,0x2d,0x8a,0x3a,0x37,0x2e,0x94,0x3c,0x37,0x30,0x8a,0x3a,0x2e,0x37,0x8a,0x16,0x8a,0x37,0x33,0x2b,0x8a,0x2c,0x38,0x35,0x8a,0x39,0x36,0x2d,0x8a,0x3a,0x37,0x2e,0x94,0x3c,0x37,0x30,0x8a,0x2e,0x37,0x3a,0x8a,0x16,0x8a,0x37,0x8a,0x33,0x27,0x2b,0x8a,0x2e,0x8a,0x30,0x14,0x8a,0x32,0x8a,0x33,0x2c,0x27,0x8a,0x35,0x8a,0x37,0x20,0x8a,0x35,0x8a,0x33,0x2c,0x27,0x8a,0x35,0x8a,0x2e,0x1f,0x8a,0x37,0x8a,0x38,0x2b,0x27,0x8a,0x3a,0x8a,0x3c,0x16,0x8a,0x3a,0x8a,0x37,0x22,0x2b,0x8a,0x38,0x8a,0x3a,0x37,0x2e,0x94,0x3c,0x30,0x37,0x8a,0x3a,0x37,0x2e,0x8a,0x16,0x8a,0x37,0x33,0x2b,0x8a,0x38,0x2c,0x35,0x8a,0x39,0x36,0x2d,0x8a,0x3a,0x37,0x2e,0x94,0x3c,0x37,0x30,0x8a,0x2e,0x37,0x3a,0x8a,0x1f,0x8a,0x3a,0x8a,0x3c,0x1e,0x8a,0x3d,0x8a,0x3e,0x3a,0x35,0x8a,0x3e,0x35,0x3a,0x8a,0x22,0x29,0x26,0x8a,0x3e,0x33,0x39,0x8a,0x1d,0x8a,0x3c,0x8a,0x39,0x33,0x29,0x8a,0x35,0x8a,0x3a,0x32,0x29,0x94,0x20,0x14,0x94,0x1f,0x13,0x8a,0x37,0x2b,0x33,0x8a,0x38,0x35,0x2c,0x8a,0x39,0x36,0x2d,0x8a,0x2e,0x3a,0x37,0x94,0x3c,0x37,0x30,0x8a,0x3a,0x37,0x2e,0x8a,0x16,0x8a,0x33,0x2b,0x37,0x8a,0x38,0x35,0x2c,0x8a,0x39,0x36,0x2d,0x8a,0x3a,0x37,0x2e,0x94,0x30,0x37,0x3c,0x8a,0x3a,0x2e,0x37,0x8a,0x16,0x8a,0x37,0x8a,0x33,0x2b,0x27,0x8a,0x2e,0x8a,0x30,0x14,0x8a,0x32,0x8a,0x33,0x2c,0x27,0x8a,0x35,0x8a,0x37,0x20,0x8a,0x35,0x8a,0x33,0x23,0x2c,0x8a,0x35,0x8a,0x33,0x1f,0x94,0x2b,0x22,0x27,0x94,0x1b,0x8a,0x2e,0x8a,0x2d,0x2b,0x27,0x8a,0x2e,0x8a,0x33,0x2c,0x27,0x94,0x30,0x2c,0x27,0x8a,0x33,0x8a,0x21,0x24,0x2a,0x8a,0x30,0x8a,0x33,0x2a,0x27,0x8a,0x30,0x8a,0x2e,0x2b,0x27,0x8a,0x33,0x8a,0x37,0x2b,0x22,0x8a,0x3a,0x8a,0x2b,0x27,0x22,0x8a,0x37,0x8a,0x33,0x2b,0x27,0x8a,0x2e,0x8a,0x30,0x2d,0x1d,0x94,0x33,0x2d,0x24,0x94,0x37,0x2c,0x26,0x8a,0x35,0x2c,0x8a,0x26,0x22,0x8a,0x33,0x2b,0x8a,0x27,0x1b,0x94,0x22,0x16,0x94,0x1f,0x13,0x8a,0x3f,0x37,0x8a,0x38,0x1d,0x11,0x8a,0x39,0x8a,0x3a,0x37,0x2e,0x94,0x3c,0x30,0x37,0x8a,0x3a,0x37,0x2e,0x8a,0x16,0x8a,0x37,0x33,0x2b,0x8a,0x38,0x2c,0x35,0x8a,0x39,0x36,0x2d,0x8a,0x3a,0x37,0x2e,0x94,0x3c,0x37,0x30,0x8a,0x2e,0x37,0x3a,0x8a,0x16,0x8a,0x37,0x8a,0x33,0x2b,0x27,0x8a,0x2e,0x8a,0x30,0x14,0x8a,0x32,0x8a,0x33,0x2c,0x27,0x8a,0x35,0x8a,0x37,0x20,0x8a,0x35,0x8a,0x33,0x23,0x27,0x8a,0x35,0x8a,0x2e,0x1f,0x8a,0x37,0x8a,0x38,0x27,0x2b,0x8a,0x3a,0x8a,0x3c,0x16,0x8a,0x3a,0x8a,0x37,0x2b,0x27,0x8a,0x38,0x8a,0x3a,0x37,0x2e,0x94,0x3c,0x30,0x37,0x8a,0x3a,0x37,0x2e,0x8a,0x16,0x8a,0x37,0x33,0x2b,0x8a,0x38,0x2c,0x35,0x8a,0x39,0x36,0x2d,0x8a,0x3a,0x37,0x2e,0x94,0x3c,0x37,0x30,0x8a,0x2e,0x37,0x3a,0x8a,0x1f,0x8a,0x3a,0x8a,0x3c,0x1e,0x8a,0x3d,0x8a,0x3e,0x3a,0x35,0x8a,0x3e,0x35,0x3a,0x8a,0x29,0x26,0x22,0x8a,0x3e,0x33,0x39,0x8a,0x1d,0x8a,0x3c,0x8a,0x39,0x33,0x27,0x8a,0x35,0x8a,0x3a,0x32,0x29,0x94,0x20,0x14,0x94,0x1f,0x13,0x8a,0x37,0x2b,0x33,0x8a,0x38,0x35,0x2c,0x8a,0x39,0x36,0x2d,0x8a,0x2e,0x3a,0x37,0x94,0x3c,0x37,0x30,0x8a,0x3a,0x37,0x2e,0x8a,0x16,0x8a,0x33,0x2b,0x37,0x8a,0x38,0x35,0x2c,0x8a,0x39,0x36,0x2d,0x8a,0x3a,0x37,0x2e,0x94,0x30,0x3c,0x37,0x8a,0x37,0x2e,0x3a,0x8a,0x16,0x8a,0x37,0x8a,0x33,0x2b,0x27,0x8a,0x2e,0x8a,0x30,0x14,0x8a,0x32,0x8a,0x33,0x27,0x24,0x8a,0x35,0x8a,0x37,0x20,0x8a,0x35,0x8a,0x33,0x2c,0x27,0x8a,0x35,0x8a,0x33,0x1f,0x94,0x2b,0x27,0x22,0x94,0x1b,0x8a,0x2e,0x8a,0x2d,0x2b,0x27,0x8a,0x2e,0x8a,0x33,0x2c,0x27,0x94,0x30,0x2c,0x20,0x8a,0x33,0x8a,0x2a,0x27,0x24,0x8a,0x30,0x8a,0x33,0x2a,0x27,0x8a,0x30,0x8a,0x2e,0x2b,0x22,0x8a,0x33,0x8a,0x37,0x2b,0x27,0x8a,0x3a,0x8a,0x2b,0x27,0x22,0x8a,0x37,0x8a,0x33,0x2b,0x22,0x8a,0x2e,0x8a,0x30,0x2d,0x27,0x94,0x33,0x2d,0x24,0x94,0x37,0x2c,0x26,0x8a,0x35,0x2c,0x8a,0x26,0x22,0x8a,0x33,0x2b,0x8a,0x27,0x1b,0x94,0x22,0x16,0x94,0x1b,0x0f,0x94,0x29,0x8a,0x2a,0x8a,0x2b,0x1b,0x8a,0x33,0x8a,0x27,0x1f,0x22,0x8a,0x2b,0x8a,0x33,0x22,0x16,0x94,0x2b,0x27,0x25,0x8a,0x33,0x8a,0x20,0x14,0x94,0x27,0x24,0x94,0x1f,0x13,0x8a,0x3f,0x37,0x33,0x8a,0x38,0x35,0x27,0x8a,0x39,0x36,0x8a,0x3a,0x37,0x16,0x8a,0x3f,0x37,0x33,0x8a,0x38,0x35,0x27,0x8a,0x3a,0x37,0x8a,0x16,0x8a,0x3e,0x35,0x32,0x8a,0x38,0x35,0x22,0x94,0x3f,0x37,0x33,0x94,0x27,0x22,0x1f,0x94,0x22,0x1f,0x27,0x94,0x29,0x26,0x22,0x8a,0x2a,0x8a,0x2b,0x1b,0x8a,0x33,0x8a,0x27,0x22,0x1f,0x8a,0x2b,0x8a,0x33,0x22,0x16,0x94,0x2b,0x27,0x22,0x8a,0x33,0x8a,0x20,0x14,0x94,0x27,0x24,0x94,0x1f,0x13,0x94,0x33,0x3c,0x30,0x8a,0x3a,0x33,0x2e,0x8a,0x39,0x33,0x2d,0x8a,0x3c,0x30,0x8a,0x3f,0x33,0x27,0x8a,0x37,0x8a,0x1d,0x8a,0x35,0x8a,0x3f,0x33,0x27,0x8a,0x3c,0x30,0x8a,0x35,0x38,0x26,0x94,0x22,0x16,0x94,0x24,0x18,0x94,0x29,0x26,0x1a,0x8a,0x2a,0x8a,0x2b,0x1b,0x8a,0x33,0x8a,0x1f,0x22,0x27,0x8a,0x2b,0x8a,0x33,0x22,0x16,0x94,0x2b,0x27,0x25,0x8a,0x33,0x8a,0x20,0x14,0x94,0x24,0x27,0x94,0x1f,0x13,0x8a,0x3f,0x37,0x33,0x8a,0x38,0x35,0x27,0x8a,0x39,0x36,0x8a,0x37,0x3a,0x16,0x8a,0x3f,0x33,0x37,0x8a,0x35,0x38,0x27,0x8a,0x3a,0x37,0x8a,0x16,0x8a,0x3e,0x35,0x32,0x8a,0x38,0x35,0x26,0x94,0x3f,0x37,0x33,0x94,0x27,0x22,0x1f,0x94,0x22,0x2b,0x27,0x94,0x3f,0x33,0x8a,0x35,0x8a,0x37,0x27,0x1b,0x8a,0x3f,0x33,0x8a,0x35,0x2b,0x27,0x8a,0x37,0x8a,0x25,0x19,0x8a,0x33,0x3f,0x8a,0x35,0x27,0x22,0x8a,0x3f,0x33,0x8a,0x37,0x24,0x18,0x8a,0x3f,0x33,0x8a,0x35,0x2c,0x27,0x8a,0x37,0x8a,0x23,0x17,0x8a,0x3f,0x33,0x8a,0x35,0x23,0x27,0x8a,0x3f,0x33,0x8a,0x3a,0x37,0x16,0x8a,0x33,0x37,0x3f,0x8a,0x38,0x35,0x2b,0x8a,0x3a,0x37,0x8a,0x16,0x8a,0x32,0x35,0x3e,0x8a,0x38,0x35,0x26,0x94,0x3f,0x37,0x33,0x94,0x22,0x16,0x94,0x3f,0x37,0x33,0xa8,0x38,0x3c,0x14,0x8a,0x3b,0x8a,0x3c,0x38,0x24,0x94,0x1b,0x94,0x3f,0x3c,0x38,0x94,0x38,0x3d,0x19,0x94,0x31,0x2c,0x29,0x8a,0x30,0x8a,0x31,0x20,0x8a,0x33,0x8a,0x35,0x2c,0x25,0x94,0x38,0x35,0x11,0x8a,0x37,0x8a,0x38,0x35,0x2c,0x94,0x18,0x94,0x3c,0x38,0x35,0x94,0x35,0x3a,0x3d,0x94,0x2e,0x25,0x29,0x8a,0x2d,0x8a,0x2e,0x1d,0x8a,0x30,0x8a,0x31,0x29,0x25,0x8a,0x3a,0x8a,0x35,0x25,0x19,0x94,0x3a,0x25,0x29,0x8a,0x35,0x8a,0x22,0x16,0x8a,0x3a,0x8a,0x35,0x23,0x17,0x94,0x33,0x24,0x18,0x94,0x24,0x27,0x2c,0x94,0x38,0x1d,0x94,0x2c,0x29,0x24,0x94,0x37,0x1f,0x8a,0x3b,0x8a,0x3e,0x26,0x29,0x8a,0x8a,0x23,0x8a,0x8a,0x3e,0x2b,0x29,0x8a,0x3f,0x8a,0x3c,0x2b,0x27,0xa8,0x3d,0x22,0x27,0x94,0x1b,0x94,0x3c,0x38,0x14,0x8a,0x3b,0x8a,0x38,0x3c,0x2c,0x94,0x1b,0x94,0x3f,0x3c,0x38,0x94,0x3d,0x38,0x19,0x94,0x31,0x2c,0x25,0x8a,0x30,0x8a,0x31,0x20,0x8a,0x33,0x8a,0x35,0x2c,0x29,0x94,0x38,0x35,0x11,0x8a,0x37,0x8a,0x38,0x35,0x2c,0x94,0x18,0x94,0x35,0x3c,0x38,0x94,0x3d,0x3a,0x35,0x94,0x2e,0x29,0x25,0x8a,0x2d,0x8a,0x2e,0x1d,0x8a,0x30,0x8a,0x31,0x29,0x25,0x8a,0x3a,0x8a,0x35,0x25,0x19,0x94,0x3a,0x29,0x25,0x8a,0x35,0x8a,0x16,0x22,0x8a,0x3a,0x8a,0x35,0x23,0x17,0x94,0x33,0x24,0x18,0x8a,0x20,0x14,0x8a,0x1f,0x13,0x8a,0x11,0x1d,0x8a,0x38,0x32,0x2f,0x9e,0x38,0x8a,0x3c,0x33,0x30,0x8a,0x3f,0x33,0x8a,0x2c,0x27,0x24,0x8a,0x3a,0x31,0x8a,0x27,0x1b,0x8a,0x33,0x8a,0x35,0x31,0x1b,0x8a,0x37,0x8a,0x38,0x30,0x20,0x94,0x32,0x8a,0x33,0x8a,0x35,0x8a,0x37,0x8a,0x38,0x8a,0x3a,0x8a,0x3c,0x38,0x14,0x8a,0x3b,0x8a,0x38,0x3c,0x2c,0x94,0x1b,0x94,0x3f,0x3c,0x38,0x94,0x3d,0x38,0x19,0x94,0x31,0x2c,0x29,0x8a,0x30,0x8a,0x31,0x20,0x8a,0x33,0x8a,0x35,0x29,0x2c,0x94,0x38,0x35,0x11,0x8a,0x37,0x8a,0x38,0x35,0x2c,0x94,0x18,0x94,0x3c,0x35,0x38,0x94,0x35,0x3d,0x3a,0x94,0x2e,0x29,0x25,0x8a,0x2d,0x8a,0x2e,0x1d,0x8a,0x30,0x8a,0x31,0x29,0x25,0x8a,0x3a,0x8a,0x35,0x25,0x19,0x94,0x3a,0x29,0x25,0x8a,0x35,0x8a,0x22,0x16,0x8a,0x3a,0x8a,0x35,0x23,0x17,0x94,0x33,0x24,0x18,0x94,0x2c,0x27,0x24,0x94,0x38,0x1d,0x94,0x2c,0x29,0x24,0x94,0x37,0x1f,0x8a,0x3b,0x8a,0x3e,0x26,0x2b,0x8a,0x8a,0x23,0x8a,0x8a,0x3e,0x2b,0x29,0x8a,0x3f,0x8a,0x3c,0x2b,0x27,0xa8,0x3d,0x2b,0x27,0x94,0x1b,0x94,0x3c,0x38,0x14,0x8a,0x3b,0x8a,0x38,0x3c,0x24,0x94,0x1b,0x94,0x3f,0x3c,0x38,0x94,0x3d,0x38,0x19,0x94,0x31,0x2c,0x29,0x8a,0x30,0x8a,0x31,0x20,0x8a,0x33,0x8a,0x35,0x2c,0x29,0x94,0x35,0x38,0x11,0x8a,0x37,0x8a,0x38,0x35,0x2c,0x94,0x18,0x94,0x3c,0x38,0x35,0x94,0x3d,0x3a,0x35,0x94,0x2e,0x25,0x29,0x8a,0x2d,0x8a,0x2e,0x1d,0x8a,0x30,0x8a,0x31,0x29,0x25,0x8a,0x3a,0x8a,0x35,0x25,0x19,0x94,0x3a,0x29,0x25,0x8a,0x35,0x8a,0x22,0x16,0x8a,0x3a,0x8a,0x35,0x23,0x17,0x94,0x33,0x24,0x18,0x8a,0x20,0x14,0x8a,0x1f,0x13,0x8a,0x1d,0x11,0x8a,0x38,0x32,0x2f,0x9e,0x38,0x8a,0x30,0x33,0x3c,0x8a,0x3f,0x33,0x8a,0x2c,0x27,0x24,0x8a,0x3a,0x31,0x8a,0x27,0x1b,0x8a,0x33,0x8a,0x35,0x31,0x1b,0x8a,0x37,0x8a,0x30,0x38,0x20,0xa8,0x3f,0x3c,0x38,0xa8,0x33,0x20,0x27,0x94,0x30,0x2c,0x27,0x8a,0x33,0x8a,0x2a,0x27,0x24,0x8a,0x30,0x8a,0x33,0x2a,0x21,0x8a,0x30,0x8a,0x2e,0x2b,0x27,0x8a,0x33,0x8a,0x37,0x22,0x27,0x8a,0x3a,0x8a,0x2b,0x27,0x22,0x8a,0x37,0x8a,0x33,0x2b,0x27,0x8a,0x2e,0x8a,0x30,0x2d,0x27,0x94,0x33,0x2d,0x24,0x94,0x37,0x2c,0x26,0x8a,0x35,0x2c,0x8a,0x26,0x22,0x8a,0x33,0x2b,0x8a,0x27,0x1b,0xa8,0x33,0x37,0x3a,0xa8,0x2c,0x29,0x14,0x94,0x2b,0x28,0x20,0x8a,0x2c,0x29,0x8a,0x18,0x8a,0x2b,0x28,0x8a,0x29,0x2c,0x24,0x94,0x14,0x8a,0x30,0x8a,0x2c,0x35,0x24,0x8a,0x30,0x8a,0x33,0x18,0x8a,0x35,0x8a,0x33,0x24,0x20,0x8a,0x30,0x8a,0x2e,0x2b,0x1b,0x94,0x2d,0x2a,0x27,0x8a,0x2e,0x2b,0x8a,0x16,0x8a,0x2d,0x2a,0x8a,0x2e,0x2b,0x1f,0x94,0x1b,0x8a,0x33,0x8a,0x37,0x2e,0x27,0x8a,0x33,0x8a,0x35,0x16,0x8a,0x37,0x8a,0x35,0x1f,0x22,0x8a,0x33,0x8a,0x35,0x32,0x16,0x94,0x34,0x31,0x26,0x8a,0x35,0x32,0x8a,0x1a,0x8a,0x34,0x31,0x8a,0x32,0x35,0x26,0x94,0x16,0x8a,0x38,0x8a,0x3c,0x32,0x22,0x8a,0x38,0x8a,0x3a,0x1d,0x8a,0x3c,0x8a,0x3a,0x26,0x22,0x8a,0x38,0x8a,0x3f,0x33,0x27,0x8a,0x3f,0x33,0x8a,0x3f,0x33,0x27,0xa8,0x3c,0x33,0x27,0x94,0x3a,0x33,0x1f,0x94,0x2e,0x2b,0x8a,0x2e,0x2b,0x8a,0x2e,0x2b,0x94,0x2b,0x2e,0x94,0x2c,0x29,0x14,0x94,0x2b,0x28,0x24,0x8a,0x2c,0x29,0x8a,0x18,0x8a,0x2b,0x28,0x8a,0x2c,0x29,0x24,0x94,0x14,0x8a,0x30,0x8a,0x35,0x2c,0x20,0x8a,0x30,0x8a,0x33,0x18,0x8a,0x35,0x8a,0x33,0x24,0x20,0x8a,0x30,0x8a,0x2e,0x2b,0x1b,0x94,0x2a,0x2d,0x27,0x8a,0x2e,0x2b,0x8a,0x16,0x8a,0x2d,0x2a,0x8a,0x2e,0x2b,0x1f,0x94,0x1b,0x8a,0x33,0x8a,0x37,0x2e,0x27,0x8a,0x33,0x8a,0x35,0x16,0x8a,0x37,0x8a,0x35,0x27,0x22,0x8a,0x33,0x8a,0x30,0x20,0x14,0x8a,0x2f,0x8a,0x30,0x1d,0x11,0x8a,0x3a,0x30,0x8a,0x1f,0x13,0x8a,0x38,0x30,0x8a,0x20,0x14,0x8a,0x33,0x30,0x8a,0x37,0x2e,0x22,0x8a,0x36,0x8a,0x37,0x22,0x2b,0x8a,0x3c,0x8a,0x2a,0x27,0x21,0x8a,0x3f,0x8a,0x3a,0x2b,0x27,0x8a,0x37,0x8a,0x33,0x2d,0x18,0x94,0x33,0x2d,0x1d,0x94,0x37,0x2c,0x32,0x8a,0x35,0x32,0x2c,0x8a,0x26,0x1a,0x8a,0x33,0x2e,0x2b,0x8a,0x27,0x1b,0x94,0x2b,0x2e,0x8a,0x2e,0x2b,0x8a,0x2e,0x2b,0x94,0x2e,0x2b,0x94,0x2c,0x29,0x14,0x94,0x2b,0x28,0x20,0x8a,0x29,0x2c,0x8a,0x18,0x8a,0x2b,0x28,0x8a,0x2c,0x29,0x24,0x94,0x14,0x8a,0x30,0x8a,0x35,0x2c,0x24,0x8a,0x30,0x8a,0x33,0x18,0x8a,0x35,0x8a,0x33,0x24,0x20,0x8a,0x30,0x8a,0x2e,0x2b,0x1b,0x94,0x2d,0x2a,0x27,0x8a,0x2e,0x2b,0x8a,0x16,0x8a,0x2d,0x2a,0x8a,0x2e,0x2b,0x1f,0x94,0x1b,0x8a,0x33,0x8a,0x37,0x2e,0x27,0x8a,0x33,0x8a,0x35,0x16,0x8a,0x37,0x8a,0x35,0x27,0x22,0x8a,0x33,0x8a,0x35,0x32,0x16,0x94,0x31,0x34,0x26,0x8a,0x35,0x32,0x8a,0x1a,0x8a,0x34,0x31,0x8a,0x35,0x32,0x26,0x94,0x16,0x8a,0x38,0x8a,0x3c,0x32,0x20,0x8a,0x38,0x8a,0x3a,0x1d,0x8a,0x3c,0x8a,0x3a,0x26,0x22,0x8a,0x38,0x8a,0x33,0x3f,0x27,0x8a,0x3f,0x33,0x8a,0x3f,0x33,0x1e,0xa8,0x3c,0x33,0x27,0x94,0x3a,0x33,0x27,0x94,0x2b,0x2e,0x8a,0x2e,0x2b,0x8a,0x2e,0x2b,0x94,0x2e,0x2b,0x94,0x2c,0x29,0x14,0x94,0x2b,0x28,0x20,0x8a,0x2c,0x29,0x8a,0x18,0x8a,0x2b,0x28,0x8a,0x2c,0x29,0x24,0x94,0x14,0x8a,0x30,0x8a,0x35,0x2c,0x24,0x8a,0x30,0x8a,0x33,0x18,0x8a,0x35,0x8a,0x33,0x24,0x20,0x8a,0x30,0x8a,0x2e,0x2b,0x1b,0x94,0x2d,0x2a,0x27,0x8a,0x2e,0x2b,0x8a,0x16,0x8a,0x2a,0x2d,0x8a,0x2e,0x2b,0x27,0x94,0x1b,0x8a,0x33,0x8a,0x37,0x2e,0x27,0x8a,0x33,0x8a,0x35,0x16,0x8a,0x37,0x8a,0x35,0x22,0x1f,0x8a,0x33,0x8a,0x30,0x20,0x14,0x8a,0x2f,0x8a,0x30,0x1d,0x11,0x8a,0x3a,0x30,0x8a,0x1f,0x13,0x8a,0x38,0x30,0x8a,0x20,0x14,0x8a,0x33,0x30,0x8a,0x37,0x2e,0x22,0x8a,0x36,0x8a,0x37,0x2b,0x27,0x8a,0x3c,0x8a,0x21,0x27,0x2a,0x8a,0x3f,0x8a,0x3a,0x2b,0x27,0x8a,0x37,0x8a,0x33,0x2d,0x24,0x94,0x33,0x2d,0x1d,0x94,0x37,0x32,0x2c,0x8a,0x35,0x2c,0x32,0x8a,0x26,0x1a,0x8a,0x33,0x2e,0x2b,0x8a,0x27,0x1b,0x94,0x22,0x16,0x94,0x3f,0x3a,0x37,0xff
-};
-
-static const byte* music_ptr = music1;
+const byte music1[]; // music data -- see end of file
+const byte* music_ptr = music1;
 
 byte next_music_byte() {
   return *music_ptr++;
 }
 
-#define DUTY 0x80
+#define DUTY_75 0xc0
+#define DUTY_50 0x80
+#define DUTY_25 0x40
+#define DUTY_12 0x00
+
+#define DUTY (DUTY_25 | 0x1)	// decay rate == 1
 
 void play_music() {
   static byte ch = 0;
@@ -52,11 +70,23 @@ void play_music() {
         if (ch == 0) {
           APU.pulse[0].period_low = period & 0xff;
           APU.pulse[0].len_period_high = period >> 8;
-          APU.pulse[0].control = DUTY | 0xf;
+          APU.pulse[0].control = DUTY;
         } else {
           APU.pulse[1].period_low = period & 0xff;
           APU.pulse[1].len_period_high = period >> 8;
-          APU.pulse[1].control = DUTY | 0xf;
+          APU.pulse[1].control = DUTY;
+          /*
+          //period = note_table_tri[note & 63];
+          period >>= 1;
+          APU.triangle.counter = 0xc0;
+          APU.triangle.period_low = period & 0xff;
+          APU.triangle.len_period_high = period >> 8;
+          */
+          /*
+          APU.noise.control = 0x4;
+          APU.noise.period = 0xe;
+          APU.noise.len = 0xf;
+          */
         }
         ch = ch^1;
       } else {
@@ -97,8 +127,8 @@ const byte APUINIT[0x13] = {
 void init_apu() {
   // from https://wiki.nesdev.com/w/index.php/APU_basics
   memcpy((void*)0x4000, APUINIT, sizeof(APUINIT));
-  APU.status = 0xf;
-  APU.fcontrol = 0x40;
+  APU.fcontrol = 0x40; // frame counter 5-step
+  APU.status = 0x0f; // turn on all channels except DMC
 }
 
 void main(void)
@@ -108,10 +138,17 @@ void main(void)
 	vram_write((unsigned char*)TILESET, sizeof(TILESET));
         pal_col(1,0x30);//set while color
         put_str(NTADR_A(2,2),"HELLO, WORLD!");
-        ppu_on_all();//enable rendering
+        ppu_on_bg();//enable rendering
 
   	init_apu();
-
+/*
+  APU.delta_mod.control = 0x1;
+  //APU.delta_mod.output = 0x0;
+  APU.delta_mod.address = 0xff;
+  APU.delta_mod.length = 0xff;
+  APU.status = 0x10;
+*/
+  
   music_ptr = 0;
   while (1) {
     if (!music_ptr) start_music(music1);
@@ -119,3 +156,163 @@ void main(void)
     play_music();
   }
 }
+
+//
+// MUSIC DATA -- "The Easy Winners" by Scott Jopline
+//
+const byte music1[] = {
+	0x2a,0x1e,0x98,0x33,0x27,0xa4,0x31,0x25,0x8c,0x2f,0x23,0x8c,0x2e,0x22,0x8c,0x2c,
+	0x20,0x8c,0x2a,0x1e,0x98,0x28,0x1c,0x8c,0x27,0x1b,0x98,0x25,0x19,0x8c,0x23,0x17,
+	0x8c,0x22,0x12,0x8c,0x23,0x8c,0x25,0x8c,0x27,0x8c,0x28,0x1e,0x8c,0x2a,0x1c,0x8c,
+	0x2c,0x1b,0x8c,0x2e,0x19,0x8c,0x2f,0x17,0x98,0x1e,0x98,0x12,0x98,0x1e,0x98,0x2f,
+	0x17,0x98,0x33,0x27,0x98,0x12,0x98,0x36,0x1e,0x98,0x38,0x17,0x8c,0x36,0x8c,0x1e,
+	0x8c,0x38,0x8c,0x33,0x12,0x8c,0x38,0x8c,0x36,0x1e,0x98,0x3d,0x10,0x8c,0x3b,0x8c,
+	0x20,0x8c,0x37,0x8c,0x3b,0x10,0x8c,0x3d,0x8c,0x3b,0x28,0x8c,0x36,0x8c,0x17,0x98,
+	0x2a,0x1e,0x8c,0x2c,0x8c,0x2e,0x12,0x8c,0x2f,0x8c,0x31,0x1e,0x8c,0x32,0x8c,0x33,
+	0x17,0x98,0x33,0x1e,0x98,0x12,0x98,0x33,0x1e,0x98,0x38,0x17,0x8c,0x36,0x8c,0x27,
+	0x8c,0x38,0x8c,0x36,0x18,0x8c,0x36,0x8c,0x33,0x21,0x98,0x36,0x19,0x8c,0x2e,0x8c,
+	0x22,0x8c,0x36,0x8c,0x2f,0x19,0x8c,0x36,0x8c,0x2f,0x25,0x98,0x2e,0x1e,0x98,0x1c,
+	0x98,0x1b,0x8c,0x2a,0x8c,0x2e,0x25,0x8c,0x34,0x8c,0x33,0x17,0x98,0x33,0x1e,0x98,
+	0x12,0x98,0x33,0x27,0x98,0x38,0x17,0x8c,0x36,0x8c,0x1e,0x8c,0x38,0x8c,0x36,0x12,
+	0x8c,0x38,0x8c,0x33,0x1e,0x98,0x3d,0x10,0x8c,0x3b,0x8c,0x20,0x8c,0x3d,0x8c,0x3b,
+	0x1c,0x8c,0x3b,0x8c,0x38,0x1c,0x8c,0x3f,0x8c,0x1b,0x8c,0x33,0x8c,0x37,0x22,0x8c,
+	0x3a,0x8c,0x3f,0x0f,0x98,0x3a,0x8c,0x3b,0x8c,0x3d,0x10,0x8c,0x3b,0x8c,0x20,0x8c,
+	0x3d,0x8c,0x38,0x10,0x8c,0x3d,0x8c,0x3b,0x28,0x8c,0x36,0x8c,0x17,0x8c,0x34,0x8c,
+	0x36,0x1e,0x8c,0x34,0x8c,0x33,0x17,0x8c,0x36,0x8c,0x27,0x8c,0x36,0x8c,0x30,0x12,
+	0x8c,0x34,0x8c,0x1e,0x8c,0x36,0x8c,0x34,0x12,0x8c,0x33,0x8c,0x28,0x1e,0x98,0x2f,
+	0x1e,0x98,0x12,0x98,0x14,0x98,0x16,0x98,0x33,0x17,0x98,0x33,0x27,0x98,0x12,0x98,
+	0x33,0x1e,0x98,0x38,0x17,0x8c,0x36,0x8c,0x1e,0x8c,0x38,0x8c,0x36,0x12,0x8c,0x38,
+	0x8c,0x33,0x1e,0x98,0x3d,0x10,0x8c,0x3b,0x8c,0x20,0x8c,0x3d,0x8c,0x3b,0x10,0x8c,
+	0x3d,0x8c,0x38,0x28,0x8c,0x36,0x8c,0x17,0x98,0x2a,0x1e,0x8c,0x2c,0x8c,0x2e,0x12,
+	0x8c,0x2f,0x8c,0x31,0x1e,0x8c,0x32,0x8c,0x33,0x17,0x98,0x33,0x1e,0x98,0x12,0x98,
+	0x36,0x1e,0x98,0x38,0x17,0x8c,0x36,0x8c,0x27,0x8c,0x32,0x8c,0x36,0x18,0x8c,0x36,
+	0x8c,0x36,0x21,0x98,0x36,0x19,0x8c,0x2e,0x8c,0x22,0x8c,0x36,0x8c,0x35,0x19,0x8c,
+	0x36,0x8c,0x2f,0x25,0x98,0x36,0x1e,0x98,0x1c,0x98,0x1b,0x8c,0x2a,0x8c,0x2e,0x25,
+	0x8c,0x34,0x8c,0x2f,0x17,0x98,0x33,0x1e,0x98,0x12,0x98,0x36,0x1e,0x98,0x38,0x17,
+	0x8c,0x36,0x8c,0x1e,0x8c,0x32,0x8c,0x36,0x12,0x8c,0x38,0x8c,0x36,0x1e,0x98,0x3d,
+	0x10,0x8c,0x38,0x8c,0x28,0x8c,0x3d,0x8c,0x3b,0x1c,0x8c,0x3b,0x8c,0x3d,0x1c,0x8c,
+	0x37,0x8c,0x1b,0x8c,0x33,0x8c,0x37,0x16,0x8c,0x3a,0x8c,0x3f,0x1b,0x98,0x3a,0x8c,
+	0x3b,0x8c,0x3d,0x10,0x8c,0x3b,0x8c,0x20,0x8c,0x3d,0x8c,0x3b,0x10,0x8c,0x3d,0x8c,
+	0x38,0x28,0x8c,0x36,0x8c,0x17,0x8c,0x38,0x8c,0x36,0x1e,0x8c,0x34,0x8c,0x2f,0x17,
+	0x8c,0x36,0x8c,0x27,0x8c,0x36,0x8c,0x36,0x12,0x8c,0x34,0x8c,0x1e,0x8c,0x30,0x8c,
+	0x34,0x12,0x8c,0x33,0x8c,0x31,0x1e,0x98,0x2f,0x17,0x98,0x12,0x98,0x2f,0x0b,0x98,
+	0x2a,0x8c,0x2b,0x8c,0x2c,0x12,0x8c,0x2d,0x8c,0x2e,0x28,0x8c,0x2e,0x8c,0x16,0x8c,
+	0x36,0x8c,0x34,0x1e,0x8c,0x31,0x8c,0x2c,0x19,0x8c,0x2d,0x8c,0x2e,0x28,0x8c,0x2e,
+	0x8c,0x19,0x8c,0x31,0x8c,0x2c,0x1a,0x8c,0x2e,0x8c,0x2f,0x1b,0x8c,0x2a,0x8c,0x2c,
+	0x27,0x8c,0x2e,0x8c,0x2f,0x12,0x8c,0x30,0x8c,0x31,0x1e,0x8c,0x32,0x8c,0x33,0x23,
+	0x8c,0x32,0x8c,0x33,0x1e,0x8c,0x33,0x8c,0x12,0x8c,0x36,0x8c,0x31,0x1e,0x8c,0x33,
+	0x8c,0x34,0x25,0x8c,0x3d,0x8c,0x1e,0x8c,0x33,0x8c,0x34,0x12,0x8c,0x3d,0x8c,0x1e,
+	0x8c,0x33,0x8c,0x34,0x25,0x8c,0x3d,0x8c,0x1e,0x8c,0x3b,0x8c,0x3a,0x12,0x8c,0x38,
+	0x8c,0x36,0x16,0x8c,0x34,0x8c,0x33,0x17,0x8c,0x3b,0x8c,0x27,0x8c,0x32,0x8c,0x33,
+	0x12,0x8c,0x3b,0x8c,0x1e,0x8c,0x32,0x8c,0x33,0x17,0x8c,0x3b,0x8c,0x27,0x8c,0x38,
+	0x8c,0x36,0x12,0x8c,0x33,0x8c,0x31,0x1e,0x8c,0x2f,0x8c,0x2e,0x14,0x8c,0x2f,0x8c,
+	0x30,0x2a,0x8c,0x30,0x8c,0x18,0x8c,0x36,0x8c,0x33,0x20,0x8c,0x30,0x8c,0x2e,0x1b,
+	0x8c,0x2f,0x8c,0x30,0x2a,0x8c,0x30,0x8c,0x14,0x8c,0x33,0x8c,0x38,0x20,0x8c,0x33,
+	0x8c,0x31,0x19,0x8c,0x30,0x8c,0x31,0x28,0x8c,0x2c,0x8c,0x1c,0x8c,0x30,0x8c,0x31,
+	0x20,0x8c,0x34,0x8c,0x38,0x19,0x8c,0x33,0x8c,0x34,0x20,0x8c,0x31,0x8c,0x25,0x8c,
+	0x2c,0x8c,0x28,0x8c,0x25,0x8c,0x26,0x1d,0x8c,0x29,0x20,0x8c,0x2c,0x23,0x8c,0x2f,
+	0x26,0x8c,0x32,0x29,0x8c,0x32,0x29,0x98,0x32,0x29,0x98,0x35,0x8c,0x38,0x8c,0x32,
+	0x8c,0x3e,0xb0,0x3f,0x8c,0x3b,0x8c,0x36,0x8c,0x33,0x8c,0x33,0x8c,0x2f,0x8c,0x27,
+	0x8c,0x2a,0x8c,0x28,0x12,0x8c,0x28,0x8c,0x12,0x8c,0x2f,0x8c,0x17,0x98,0x2a,0x8c,
+	0x2b,0x8c,0x2c,0x12,0x8c,0x2d,0x8c,0x2e,0x28,0x8c,0x31,0x8c,0x16,0x8c,0x36,0x8c,
+	0x34,0x1e,0x8c,0x31,0x8c,0x2c,0x19,0x8c,0x2d,0x8c,0x2e,0x28,0x8c,0x2e,0x8c,0x19,
+	0x8c,0x31,0x8c,0x2c,0x1a,0x8c,0x2e,0x8c,0x2f,0x1b,0x8c,0x2a,0x8c,0x2c,0x27,0x8c,
+	0x2e,0x8c,0x2f,0x12,0x8c,0x30,0x8c,0x31,0x1e,0x8c,0x32,0x8c,0x33,0x17,0x8c,0x32,
+	0x8c,0x33,0x27,0x8c,0x33,0x8c,0x12,0x8c,0x36,0x8c,0x31,0x1e,0x8c,0x33,0x8c,0x34,
+	0x19,0x8c,0x3d,0x8c,0x28,0x8c,0x33,0x8c,0x34,0x12,0x8c,0x3d,0x8c,0x1e,0x8c,0x33,
+	0x8c,0x34,0x19,0x8c,0x3d,0x8c,0x28,0x8c,0x3b,0x8c,0x3a,0x12,0x8c,0x38,0x8c,0x36,
+	0x16,0x8c,0x34,0x8c,0x33,0x17,0x8c,0x3b,0x8c,0x27,0x8c,0x32,0x8c,0x33,0x12,0x8c,
+	0x3b,0x8c,0x1e,0x8c,0x32,0x8c,0x33,0x17,0x8c,0x3b,0x8c,0x27,0x8c,0x38,0x8c,0x36,
+	0x12,0x8c,0x33,0x8c,0x31,0x1e,0x8c,0x2f,0x8c,0x2e,0x14,0x8c,0x2f,0x8c,0x30,0x2a,
+	0x8c,0x30,0x8c,0x18,0x8c,0x36,0x8c,0x33,0x20,0x8c,0x30,0x8c,0x2e,0x1b,0x8c,0x2f,
+	0x8c,0x30,0x2a,0x8c,0x30,0x8c,0x14,0x8c,0x33,0x8c,0x38,0x20,0x8c,0x33,0x8c,0x31,
+	0x19,0x8c,0x30,0x8c,0x31,0x28,0x8c,0x2c,0x8c,0x1c,0x8c,0x30,0x8c,0x31,0x20,0x8c,
+	0x34,0x8c,0x38,0x19,0x8c,0x33,0x8c,0x34,0x20,0x8c,0x31,0x8c,0x25,0x8c,0x2c,0x8c,
+	0x28,0x8c,0x25,0x8c,0x26,0x1d,0x8c,0x29,0x20,0x8c,0x2c,0x23,0x8c,0x2f,0x26,0x8c,
+	0x32,0x29,0x8c,0x32,0x29,0x98,0x32,0x29,0x98,0x35,0x8c,0x2f,0x8c,0x3b,0x8c,0x3e,
+	0xb0,0x3f,0x8c,0x3b,0x8c,0x36,0x8c,0x33,0x8c,0x33,0x8c,0x2f,0x8c,0x27,0x8c,0x2a,
+	0x8c,0x28,0x1e,0x8c,0x28,0x8c,0x12,0x8c,0x2f,0x8c,0x17,0x98,0x2a,0x98,0x33,0x17,
+	0x98,0x33,0x1e,0x98,0x12,0x98,0x33,0x1e,0x98,0x38,0x17,0x8c,0x36,0x8c,0x1e,0x8c,
+	0x38,0x8c,0x36,0x12,0x8c,0x38,0x8c,0x33,0x27,0x98,0x3d,0x10,0x8c,0x3b,0x8c,0x20,
+	0x8c,0x3d,0x8c,0x3b,0x10,0x8c,0x37,0x8c,0x3b,0x20,0x8c,0x36,0x8c,0x17,0x98,0x2a,
+	0x1e,0x8c,0x2c,0x8c,0x2e,0x12,0x8c,0x2f,0x8c,0x31,0x1e,0x8c,0x32,0x8c,0x33,0x17,
+	0x98,0x33,0x27,0x98,0x12,0x98,0x36,0x1e,0x98,0x38,0x17,0x8c,0x33,0x8c,0x27,0x8c,
+	0x38,0x8c,0x36,0x18,0x8c,0x36,0x8c,0x36,0x21,0x98,0x36,0x19,0x8c,0x31,0x8c,0x22,
+	0x8c,0x36,0x8c,0x2f,0x19,0x8c,0x36,0x8c,0x2f,0x25,0x98,0x36,0x1e,0x98,0x1c,0x98,
+	0x1b,0x8c,0x2a,0x8c,0x2e,0x25,0x8c,0x34,0x8c,0x33,0x17,0x98,0x33,0x1e,0x98,0x12,
+	0x98,0x36,0x27,0x98,0x38,0x17,0x8c,0x33,0x8c,0x1e,0x8c,0x38,0x8c,0x36,0x12,0x8c,
+	0x38,0x8c,0x36,0x1e,0x98,0x3d,0x10,0x8c,0x38,0x8c,0x20,0x8c,0x3d,0x8c,0x3b,0x1c,
+	0x8c,0x3b,0x8c,0x3d,0x1c,0x8c,0x37,0x8c,0x1b,0x8c,0x33,0x8c,0x37,0x22,0x8c,0x3a,
+	0x8c,0x3f,0x0f,0x98,0x3a,0x8c,0x3b,0x8c,0x37,0x10,0x8c,0x3b,0x8c,0x20,0x8c,0x3d,
+	0x8c,0x3b,0x1c,0x8c,0x3d,0x8c,0x3b,0x20,0x8c,0x33,0x8c,0x17,0x8c,0x38,0x8c,0x36,
+	0x1e,0x8c,0x34,0x8c,0x2f,0x23,0x8c,0x36,0x8c,0x1e,0x8c,0x36,0x8c,0x36,0x12,0x8c,
+	0x34,0x8c,0x1e,0x8c,0x36,0x8c,0x31,0x1e,0x8c,0x33,0x8c,0x31,0x12,0x98,0x2f,0x17,
+	0x98,0x12,0x98,0x2f,0x0b,0xb0,0x34,0x28,0x98,0x34,0x28,0xa4,0x2f,0x23,0x8c,0x34,
+	0x28,0x8c,0x36,0x2a,0x8c,0x38,0x98,0x2c,0xa4,0x2f,0x8c,0x34,0x8c,0x38,0x8c,0x2f,
+	0x8c,0x36,0x98,0x33,0x8c,0x17,0x8c,0x33,0x8c,0x2d,0x17,0x98,0x2c,0x1c,0x98,0x10,
+	0x98,0x12,0x98,0x2f,0x14,0x8c,0x30,0x8c,0x31,0x15,0x8c,0x39,0x8c,0x2d,0x8c,0x36,
+	0x8c,0x30,0x1e,0x8c,0x39,0x8c,0x1f,0x8c,0x36,0x8c,0x2f,0x20,0x8c,0x34,0x8c,0x38,
+	0x2c,0x8c,0x3d,0x8c,0x1c,0x8c,0x3b,0x8c,0x38,0x23,0x8c,0x34,0x8c,0x33,0x17,0x8c,
+	0x3b,0x8c,0x36,0x2d,0x8c,0x33,0x8c,0x31,0x1e,0x8c,0x33,0x8c,0x1f,0x8c,0x2f,0x8c,
+	0x34,0x20,0x8c,0x34,0x8c,0x38,0x1c,0x8c,0x3b,0x8c,0x23,0x8c,0x3d,0x8c,0x3b,0x14,
+	0x8c,0x38,0x8c,0x31,0x15,0x8c,0x39,0x8c,0x25,0x8c,0x36,0x8c,0x30,0x2a,0x8c,0x39,
+	0x8c,0x1f,0x8c,0x36,0x8c,0x2f,0x20,0x8c,0x34,0x8c,0x38,0x23,0x8c,0x3d,0x8c,0x1c,
+	0x8c,0x3b,0x8c,0x38,0x2c,0x8c,0x34,0x8c,0x36,0x19,0x8c,0x38,0x8c,0x36,0x28,0x8c,
+	0x34,0x8c,0x33,0x12,0x8c,0x34,0x8c,0x2e,0x8c,0x31,0x8c,0x2f,0x23,0x98,0x32,0x1d,
+	0x8c,0x36,0x1e,0x8c,0x33,0x17,0x98,0x2f,0x20,0x98,0x31,0x21,0x8c,0x39,0x8c,0x25,
+	0x8c,0x36,0x8c,0x30,0x1e,0x8c,0x39,0x8c,0x1f,0x8c,0x36,0x8c,0x2c,0x8c,0x2f,0x8c,
+	0x34,0x23,0x8c,0x38,0x8c,0x3d,0x1c,0x8c,0x3b,0x8c,0x38,0x23,0x8c,0x34,0x8c,0x33,
+	0x23,0x8c,0x3b,0x8c,0x36,0x23,0x8c,0x33,0x8c,0x31,0x1e,0x8c,0x33,0x8c,0x1f,0x8c,
+	0x2f,0x8c,0x2c,0x8c,0x34,0x8c,0x38,0x1c,0x8c,0x3b,0x8c,0x38,0x17,0x8c,0x3d,0x8c,
+	0x3b,0x14,0x8c,0x38,0x8c,0x31,0x15,0x8c,0x39,0x8c,0x25,0x8c,0x36,0x8c,0x30,0x1e,
+	0x8c,0x39,0x8c,0x21,0x8c,0x36,0x8c,0x20,0x8c,0x2f,0x8c,0x34,0x1c,0x8c,0x38,0x8c,
+	0x3d,0x23,0x8c,0x3b,0x8c,0x38,0x1c,0x8c,0x2f,0x8c,0x2e,0x19,0x8c,0x31,0x8c,0x12,
+	0x98,0x2d,0x0b,0x8c,0x33,0x98,0x2c,0x8c,0x1c,0x98,0x38,0x1c,0x8c,0x34,0x8c,0x36,
+	0x17,0x8c,0x38,0x8c,0x2f,0x14,0x8c,0x30,0x8c,0x31,0x15,0x8c,0x39,0x8c,0x2d,0x8c,
+	0x36,0x8c,0x30,0x1e,0x8c,0x39,0x8c,0x1f,0x8c,0x36,0x8c,0x2f,0x20,0x8c,0x34,0x8c,
+	0x38,0x2c,0x8c,0x3d,0x8c,0x1c,0x8c,0x3b,0x8c,0x38,0x23,0x8c,0x34,0x8c,0x33,0x17,
+	0x8c,0x3b,0x8c,0x36,0x2d,0x8c,0x33,0x8c,0x31,0x1e,0x8c,0x33,0x8c,0x1f,0x8c,0x2f,
+	0x8c,0x34,0x20,0x8c,0x34,0x8c,0x38,0x1c,0x8c,0x3b,0x8c,0x23,0x8c,0x3d,0x8c,0x3b,
+	0x14,0x8c,0x38,0x8c,0x31,0x15,0x8c,0x39,0x8c,0x25,0x8c,0x36,0x8c,0x30,0x2a,0x8c,
+	0x39,0x8c,0x1f,0x8c,0x36,0x8c,0x2f,0x20,0x8c,0x34,0x8c,0x38,0x23,0x8c,0x3d,0x8c,
+	0x28,0x8c,0x3b,0x8c,0x38,0x23,0x8c,0x34,0x8c,0x36,0x19,0x8c,0x38,0x8c,0x36,0x28,
+	0x8c,0x34,0x8c,0x33,0x1e,0x8c,0x34,0x8c,0x28,0x8c,0x31,0x8c,0x2f,0x23,0x98,0x32,
+	0x1d,0x8c,0x33,0x1e,0x8c,0x3b,0x17,0x98,0x2f,0x28,0x98,0x31,0x15,0x8c,0x39,0x8c,
+	0x25,0x8c,0x36,0x8c,0x30,0x1e,0x8c,0x39,0x8c,0x2b,0x8c,0x36,0x8c,0x20,0x8c,0x2f,
+	0x8c,0x34,0x23,0x8c,0x38,0x8c,0x3d,0x1c,0x8c,0x3b,0x8c,0x38,0x2c,0x8c,0x34,0x8c,
+	0x33,0x17,0x8c,0x3b,0x8c,0x36,0x23,0x8c,0x33,0x8c,0x31,0x1e,0x8c,0x33,0x8c,0x2b,
+	0x8c,0x2f,0x8c,0x20,0x8c,0x34,0x8c,0x38,0x1c,0x8c,0x3b,0x8c,0x38,0x17,0x8c,0x3d,
+	0x8c,0x32,0x14,0x8c,0x38,0x8c,0x31,0x21,0x8c,0x39,0x8c,0x19,0x8c,0x36,0x8c,0x30,
+	0x1e,0x8c,0x39,0x8c,0x21,0x8c,0x36,0x8c,0x20,0x8c,0x2f,0x8c,0x34,0x28,0x8c,0x38,
+	0x8c,0x3d,0x17,0x8c,0x3b,0x8c,0x38,0x1c,0x8c,0x2f,0x8c,0x2e,0x19,0x8c,0x31,0x8c,
+	0x12,0x98,0x2d,0x17,0x8c,0x36,0x98,0x2c,0x8c,0x10,0x98,0x17,0x98,0x34,0x10,0x8c,
+	0x2f,0x8c,0x31,0x8c,0x3e,0x8c,0x33,0x1e,0x98,0x2f,0x23,0x8c,0x31,0x8c,0x23,0x98,
+	0x23,0x98,0x33,0x12,0x98,0x2f,0x23,0x8c,0x31,0x8c,0x1e,0x8c,0x2f,0x17,0x8c,0x31,
+	0x16,0x8c,0x33,0x15,0x8c,0x34,0x14,0x98,0x3b,0x2c,0x8c,0x31,0x8c,0x1c,0x98,0x23,
+	0x98,0x34,0x14,0x98,0x3b,0x2c,0x8c,0x31,0x8c,0x1c,0x98,0x1d,0x98,0x1e,0x98,0x3d,
+	0x2d,0x8c,0x3b,0x8c,0x17,0x98,0x23,0x98,0x1b,0x98,0x3d,0x2d,0x8c,0x33,0x8c,0x17,
+	0x98,0x23,0x98,0x1c,0x98,0x3d,0x2c,0x8c,0x34,0x8c,0x17,0x98,0x23,0x98,0x1c,0x98,
+	0x3d,0x2c,0x8c,0x3b,0x8c,0x20,0x8c,0x2f,0x8c,0x31,0x1f,0x8c,0x32,0x8c,0x3f,0x1e,
+	0x98,0x2f,0x2d,0x8c,0x31,0x8c,0x17,0x98,0x23,0x98,0x3f,0x12,0x98,0x2f,0x2d,0x8c,
+	0x31,0x8c,0x12,0x8c,0x2f,0x17,0x8c,0x3d,0x16,0x8c,0x33,0x15,0x8c,0x34,0x20,0x98,
+	0x2f,0x23,0x8c,0x3d,0x8c,0x1c,0x98,0x23,0x98,0x2c,0x8c,0x34,0x8c,0x38,0x1c,0x8c,
+	0x3b,0x8c,0x38,0x17,0x8c,0x3d,0x8c,0x32,0x14,0x8c,0x38,0x8c,0x31,0x15,0x8c,0x39,
+	0x8c,0x25,0x8c,0x36,0x8c,0x30,0x1e,0x8c,0x39,0x8c,0x21,0x8c,0x36,0x8c,0x20,0x8c,
+	0x2f,0x8c,0x34,0x1c,0x8c,0x38,0x8c,0x3d,0x23,0x8c,0x3b,0x8c,0x38,0x1c,0x8c,0x2f,
+	0x8c,0x2e,0x19,0x8c,0x31,0x8c,0x12,0x98,0x2d,0x17,0x8c,0x36,0x98,0x2c,0x8c,0x2c,
+	0x10,0x98,0x17,0x98,0x34,0x20,0x8c,0x2f,0x8c,0x3d,0x1f,0x8c,0x32,0x8c,0x33,0x2a,
+	0x98,0x2f,0x23,0x8c,0x3d,0x8c,0x17,0x98,0x23,0x98,0x33,0x1e,0x98,0x2f,0x23,0x8c,
+	0x3d,0x8c,0x12,0x8c,0x2f,0x17,0x8c,0x31,0x16,0x8c,0x33,0x21,0x8c,0x38,0x14,0x98,
+	0x2f,0x23,0x8c,0x31,0x8c,0x1c,0x98,0x2c,0x98,0x38,0x14,0x98,0x2f,0x23,0x8c,0x31,
+	0x8c,0x1c,0x98,0x29,0x98,0x1e,0x98,0x3d,0x23,0x8c,0x33,0x8c,0x17,0x98,0x2d,0x98,
+	0x1b,0x98,0x3d,0x23,0x8c,0x33,0x8c,0x17,0x98,0x2d,0x98,0x1c,0x98,0x3d,0x23,0x8c,
+	0x34,0x8c,0x17,0x98,0x2c,0x98,0x1c,0x98,0x3d,0x23,0x8c,0x3b,0x8c,0x20,0x8c,0x2f,
+	0x8c,0x31,0x2b,0x8c,0x32,0x8c,0x3f,0x1e,0x98,0x2f,0x23,0x8c,0x31,0x8c,0x17,0x98,
+	0x2d,0x98,0x3f,0x12,0x98,0x2f,0x23,0x8c,0x31,0x8c,0x12,0x8c,0x3b,0x23,0x8c,0x31,
+	0x16,0x8c,0x33,0x15,0x8c,0x34,0x14,0x98,0x2f,0x23,0x8c,0x3d,0x8c,0x28,0x98,0x23,
+	0x98,0x20,0x8c,0x34,0x8c,0x38,0x1c,0x8c,0x3b,0x8c,0x38,0x23,0x8c,0x3d,0x8c,0x3b,
+	0x14,0x8c,0x38,0x8c,0x31,0x15,0x8c,0x39,0x8c,0x19,0x8c,0x36,0x8c,0x30,0x1e,0x8c,
+	0x39,0x8c,0x2d,0x8c,0x36,0x8c,0x20,0x8c,0x2f,0x8c,0x34,0x1c,0x8c,0x38,0x8c,0x3d,
+	0x17,0x8c,0x3b,0x8c,0x38,0x1c,0x8c,0x2f,0x8c,0x2e,0x25,0x8c,0x31,0x8c,0x12,0x98,
+	0x2d,0x0b,0x8c,0x33,0x98,0x2c,0x8c,0x2c,0x10,0x98,0x17,0x98,0x34,0x10,0xff,        
+};
\ No newline at end of file
diff --git a/presets/nes/musicdemo.asm b/presets/nes/musicdemo.asm
new file mode 100644
index 00000000..979fc2b8
--- /dev/null
+++ b/presets/nes/musicdemo.asm
@@ -0,0 +1,1179 @@
+
+	include "nesdefs.asm"
+
+;;;;; VARIABLES
+
+	seg.u RAM
+	org $0
+
+FT_BASE_ADR             = $0300 ;page in the RAM used for FT2 variables, should be $xx00
+FT_TEMP                 = $00   ;3 bytes in zeropage used by the library as a scratchpad
+FT_DPCM_OFF             = $c000 ;$c000..$ffc0, 64-byte steps
+FT_SFX_STREAMS  = 4             ;number of sound effects played at once, 1..4
+;FT_DPCM_ENABLE  = 1             ;undefine to exclude all DMC code
+;FT_SFX_ENABLE   = 1             ;undefine to exclude all sound effects code
+;FT_THREAD       = 1                     ;undefine if you are calling sound effects from the same thread as the sound update call
+FT_PAL_SUPPORT  = 1             ;undefine to exclude PAL support
+FT_NTSC_SUPPORT = 1             ;undefine to exclude NTSC support
+
+;;;;; NES CARTRIDGE HEADER
+
+	NES_HEADER 0,2,1,0 ; mapper 0, 2 PRGs, 1 CHR, vertical
+
+;;;;; START OF CODE
+
+Start:
+	NES_INIT	; set up stack pointer, turn off PPU
+        jsr WaitSync	; wait for VSYNC
+        jsr ClearRAM	; clear RAM
+        jsr WaitSync	; wait for VSYNC (and PPU warmup)
+
+	lda #$3f	; $3F -> A register
+        ldy #$00	; $00 -> Y register
+        sta PPU_ADDR	; write high byte first
+        sty PPU_ADDR    ; $3F00 -> PPU address
+        lda #$1c	; $1C = light blue color
+        sta PPU_DATA    ; $1C -> PPU data
+        lda #CTRL_NMI
+        sta PPU_CTRL	; enable NMI
+        lda #MASK_COLOR
+        sta PPU_MASK	; enable rendering
+        
+        ldx #<music_data
+        ldy #>music_data
+        lda PPU_STATUS
+        and #$80 ;NTSC_MODE
+        jsr FamiToneInit
+        lda #0
+        jsr FamiToneMusicPlay
+        
+.endless
+        jsr WaitSync	; wait for VSYNC
+	jsr FamiToneUpdate
+	jmp .endless	; endless loop
+
+;;;;; COMMON SUBROUTINES
+
+	include "nesppu.asm"
+
+	include "famitone2.asm"
+
+;;;;; INTERRUPT HANDLERS
+
+NMIHandler:
+	rti
+
+
+;this file for FamiTone2 library generated by text2data tool
+
+FT_DPCM_OFF	= $c000
+FT_DPCM_PTR     = (FT_DPCM_OFF&$3fff)>>6
+
+music_data: subroutine
+_after_the_rain_music_data:
+	.byte 1
+	.word .instruments
+	.word .samples-3
+	.word .song0ch0,.song0ch1,.song0ch2,.song0ch3,.song0ch4,307,256
+
+.instruments:
+	.byte $30 ;instrument $00
+	.word .env1,.env15,.env0
+	.byte $00
+	.byte $70 ;instrument $01
+	.word .env2,.env0,.env16
+	.byte $00
+	.byte $70 ;instrument $02
+	.word .env3,.env13,.env0
+	.byte $00
+	.byte $70 ;instrument $03
+	.word .env3,.env14,.env0
+	.byte $00
+	.byte $30 ;instrument $04
+	.word .env4,.env0,.env0
+	.byte $00
+	.byte $70 ;instrument $05
+	.word .env5,.env13,.env0
+	.byte $00
+	.byte $70 ;instrument $06
+	.word .env5,.env14,.env0
+	.byte $00
+	.byte $30 ;instrument $07
+	.word .env6,.env0,.env0
+	.byte $00
+	.byte $30 ;instrument $08
+	.word .env7,.env0,.env0
+	.byte $00
+	.byte $b0 ;instrument $09
+	.word .env9,.env0,.env0
+	.byte $00
+	.byte $30 ;instrument $0a
+	.word .env5,.env0,.env0
+	.byte $00
+	.byte $70 ;instrument $0b
+	.word .env8,.env0,.env16
+	.byte $00
+	.byte $30 ;instrument $0c
+	.word .env1,.env0,.env0
+	.byte $00
+	.byte $b0 ;instrument $0d
+	.word .env2,.env0,.env16
+	.byte $00
+	.byte $b0 ;instrument $0e
+	.word .env8,.env0,.env0
+	.byte $00
+	.byte $30 ;instrument $0f
+	.word .env10,.env15,.env0
+	.byte $00
+	.byte $30 ;instrument $10
+	.word .env11,.env0,.env16
+	.byte $00
+	.byte $30 ;instrument $11
+	.word .env8,.env0,.env0
+	.byte $00
+	.byte $70 ;instrument $12
+	.word .env12,.env0,.env16
+	.byte $00
+
+.samples:
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;1
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;2
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;3
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;4
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;5
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;6
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;7
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;8
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;9
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;10
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;11
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;12
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;13
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;14
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;15
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;16
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;17
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;18
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;19
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;20
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;21
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;22
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;23
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;24
+	.byte $00+<(FT_DPCM_PTR),$0c,$0f	;25
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;26
+	.byte $04+<(FT_DPCM_PTR),$1b,$0f	;27
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;28
+	.byte $0b+<(FT_DPCM_PTR),$22,$0f	;29
+	.byte $14+<(FT_DPCM_PTR),$0d,$0f	;30
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;31
+	.byte $18+<(FT_DPCM_PTR),$0a,$0f	;32
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;33
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;34
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;35
+	.byte $1b+<(FT_DPCM_PTR),$36,$0f	;36
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;37
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;38
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;39
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;40
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;41
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;42
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;43
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;44
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;45
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;46
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;47
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;48
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;49
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;50
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;51
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;52
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;53
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;54
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;55
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;56
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;57
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;58
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;59
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;60
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;61
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;62
+	.byte $00+<(FT_DPCM_PTR),$00,$00	;63
+
+.env0:
+	.byte $c0,$00,$00
+.env1:
+	.byte $cf,$00,$00
+.env2:
+	.byte $c5,$c6,$c7,$05,$c6,$0b,$c5,$0f,$c4,$11,$c3,$14,$c2,$15,$c1,$1d
+	.byte $c0,$00,$10
+.env3:
+	.byte $c5,$c5,$c4,$c4,$c3,$c3,$c2,$c2,$c1,$c1,$c0,$00,$0a
+.env4:
+	.byte $c8,$c4,$c3,$c2,$c2,$c1,$c1,$c0,$00,$07
+.env5:
+	.byte $c3,$02,$c2,$02,$c1,$02,$c0,$00,$06
+.env6:
+	.byte $ca,$c8,$c6,$c5,$c4,$c3,$c3,$c2,$c2,$c1,$03,$c0,$00,$0b
+.env7:
+	.byte $c6,$c6,$c3,$03,$c2,$03,$c1,$c1,$c0,$00,$08
+.env8:
+	.byte $c4,$03,$c3,$03,$c2,$30,$c1,$45,$c0,$00,$08
+.env9:
+	.byte $c8,$c5,$c5,$c4,$c4,$c3,$00,$05
+.env10:
+	.byte $cf,$cf,$c0,$00,$02
+.env11:
+	.byte $c9,$06,$c8,$08,$c7,$08,$c6,$09,$c5,$0a,$c4,$0e,$c3,$11,$c2,$16
+	.byte $c1,$18,$c0,$00,$12
+.env12:
+	.byte $c5,$03,$c4,$06,$c3,$09,$c2,$23,$c3,$0a,$c4,$11,$c3,$0d,$c2,$0a
+	.byte $c1,$0f,$c0,$00,$12
+.env13:
+	.byte $c0,$c0,$c3,$c3,$c7,$c7,$00,$00
+.env14:
+	.byte $c0,$c0,$c4,$c4,$c7,$c7,$00,$00
+.env15:
+	.byte $cc,$c0,$00,$01
+.env16:
+	.byte $c0,$0f,$c1,$c1,$c2,$c2,$c1,$c1,$c0,$c0,$00,$02
+
+
+.song0ch0:
+.song0ch0loop:
+.ref0:
+	.byte $84,$41,$41,$41,$8a,$41,$84,$41,$8a,$41,$41,$84,$41,$41,$41,$41
+	.byte $8a,$41,$84,$41,$8a,$41,$84,$41,$40,$81
+.ref1:
+	.byte $86,$47,$47,$47,$8c,$47,$86,$47,$8c,$47,$47,$86,$47,$47,$47,$47
+	.byte $8c,$47,$86,$47,$8c,$47,$86,$47,$46,$81
+.ref2:
+	.byte $39,$39,$39,$8c,$39,$86,$39,$8c,$39,$39,$86,$39,$39,$39,$39,$8c
+	.byte $39,$86,$39,$8c,$39,$86,$39,$38,$81
+.ref3:
+	.byte $3d,$3d,$3d,$8c,$3d,$86,$3d,$8c,$3d,$3d,$86,$3d,$3d,$3d,$3d,$8c
+	.byte $3d,$86,$3d,$8c,$3d,$3c,$85
+	.byte $ff,$11
+	.word .ref0
+	.byte $ff,$11
+	.word .ref1
+	.byte $ff,$11
+	.word .ref2
+.ref7:
+	.byte $3d,$3d,$3d,$8c,$3d,$86,$3d,$8c,$3d,$86,$3d,$3d,$3d,$3d,$8c,$3d
+	.byte $3c,$91
+.ref8:
+	.byte $87,$84,$41,$41,$8a,$40,$85,$84,$41,$8a,$41,$96,$24,$28,$83,$84
+	.byte $41,$41,$8a,$41,$96,$2f,$84,$41,$8a,$40,$81
+.ref9:
+	.byte $96,$2c,$2e,$83,$86,$47,$47,$8c,$47,$96,$2f,$86,$47,$8c,$47,$96
+	.byte $2c,$85,$86,$47,$47,$8c,$46,$85,$96,$1e,$85
+.ref10:
+	.byte $20,$85,$86,$39,$39,$8c,$39,$96,$21,$86,$39,$8c,$38,$89,$86,$39
+	.byte $39,$8c,$38,$85,$86,$39,$8c,$38,$81
+.ref11:
+	.byte $96,$36,$85,$86,$3d,$3d,$8c,$3c,$85,$86,$3d,$8c,$3d,$96,$32,$85
+	.byte $86,$3d,$3d,$8c,$3c,$8d
+	.byte $ff,$11
+	.word .ref8
+.ref13:
+	.byte $96,$2c,$2e,$83,$86,$47,$47,$8c,$47,$96,$2f,$86,$47,$8c,$47,$96
+	.byte $32,$85,$86,$47,$47,$8c,$46,$85,$96,$36,$85
+.ref14:
+	.byte $38,$85,$86,$39,$39,$8c,$38,$85,$86,$39,$8c,$38,$89,$86,$39,$39
+	.byte $8c,$38,$85,$86,$39,$8c,$38,$81
+.ref15:
+	.byte $96,$3c,$85,$86,$3d,$3d,$8c,$3c,$85,$86,$3d,$8c,$3c,$89,$86,$3d
+	.byte $3d,$8c,$3c,$85,$86,$3d,$8c,$3c,$81
+.ref16:
+	.byte $96,$21,$86,$39,$39,$8c,$39,$86,$39,$8c,$39,$86,$39,$39,$9c,$3d
+	.byte $86,$39,$9c,$38,$85,$86,$39,$39,$9c,$36,$85
+.ref17:
+	.byte $96,$33,$86,$3d,$3d,$9c,$25,$86,$3d,$8c,$3d,$86,$3d,$3d,$8c,$3d
+	.byte $86,$3d,$9c,$32,$85,$86,$3d,$3d,$9c,$2c,$85
+.ref18:
+	.byte $83,$86,$2f,$2f,$9c,$37,$86,$2f,$9c,$37,$86,$2f,$2f,$9c,$37,$86
+	.byte $2f,$8c,$2e,$85,$86,$2f,$2f,$9c,$2c,$2e,$83
+.ref19:
+	.byte $33,$84,$29,$29,$9c,$33,$84,$29,$8a,$29,$84,$29,$29,$9c,$2f,$84
+	.byte $29,$9c,$2e,$85,$84,$29,$29,$8a,$28,$85
+.ref20:
+	.byte $83,$86,$39,$39,$8c,$39,$86,$39,$8c,$39,$86,$39,$38,$85,$39,$9c
+	.byte $2c,$85,$86,$39,$39,$9c,$32,$85
+.ref21:
+	.byte $2c,$2e,$86,$3d,$3d,$9c,$2f,$86,$3d,$8c,$3d,$86,$3d,$3d,$9c,$2d
+	.byte $86,$3d,$9c,$2c,$85,$86,$3d,$3d,$8c,$3c,$85
+.ref22:
+	.byte $83,$86,$2f,$2f,$9c,$3d,$86,$2f,$9c,$3d,$86,$2f,$2f,$8c,$2f,$86
+	.byte $2f,$8c,$2e,$85,$86,$2f,$2f,$9c,$46,$85
+.ref23:
+	.byte $4b,$86,$2f,$2f,$9c,$4b,$86,$2f,$8c,$2f,$86,$2f,$2f,$9c,$46,$8d
+	.byte $96,$2c,$2e,$83,$32,$85
+.ref24:
+	.byte $21,$86,$39,$39,$8c,$39,$86,$39,$8c,$39,$86,$39,$39,$9c,$3d,$86
+	.byte $39,$9c,$38,$85,$86,$39,$39,$9c,$36,$85
+	.byte $ff,$10
+	.word .ref17
+	.byte $ff,$11
+	.word .ref18
+	.byte $ff,$10
+	.word .ref19
+.ref28:
+	.byte $83,$86,$39,$39,$9c,$21,$86,$39,$9c,$25,$86,$39,$39,$8c,$39,$86
+	.byte $39,$8c,$38,$85,$86,$39,$38,$9c,$26,$28,$85
+.ref29:
+	.byte $2d,$86,$3d,$3d,$9c,$29,$86,$3d,$9c,$2d,$86,$3d,$3d,$8c,$3d,$86
+	.byte $3d,$8c,$3c,$85,$86,$3d,$3c,$9c,$2c,$2e,$85
+.ref30:
+	.byte $33,$86,$2f,$2f,$9c,$2f,$86,$2f,$9c,$2f,$86,$2f,$2f,$9c,$2f,$86
+	.byte $2f,$8c,$2e,$85,$86,$2f,$2f,$8c,$2e,$85
+.ref31:
+	.byte $83,$86,$2f,$2f,$8c,$2f,$86,$2f,$8c,$2f,$86,$2f,$2f,$8c,$2e,$9d
+	.byte $ff,$11
+	.word .ref0
+	.byte $ff,$11
+	.word .ref1
+	.byte $ff,$11
+	.word .ref2
+	.byte $ff,$10
+	.word .ref3
+	.byte $ff,$11
+	.word .ref0
+	.byte $ff,$11
+	.word .ref1
+	.byte $ff,$11
+	.word .ref2
+	.byte $ff,$0d
+	.word .ref7
+.ref40:
+	.byte $8f,$9a,$36,$85,$3a,$3c,$8b,$3a,$85,$36,$85,$28,$85
+.ref41:
+	.byte $9f,$44,$85,$46,$95
+.ref42:
+	.byte $8f,$36,$85,$3a,$3c,$8b,$3a,$85,$28,$85,$2c,$85
+.ref43:
+	.byte $8f,$2d,$2f,$2c,$a5
+.ref44:
+	.byte $8f,$36,$85,$3a,$3c,$8b,$3a,$85,$32,$85,$36,$85
+	.byte $ff,$05
+	.word .ref41
+.ref46:
+	.byte $8f,$4e,$85,$4a,$8d,$46,$85,$44,$85,$40,$44,$83
+.ref47:
+	.byte $8f,$45,$47,$4a,$8d,$46,$85,$44,$8d
+.ref48:
+	.byte $8f,$a0,$10,$14,$83,$16,$8d,$16,$85,$14,$85,$16,$85
+.ref49:
+	.byte $9f,$14,$16,$83,$1a,$85,$1e,$8d
+.ref50:
+	.byte $16,$a5,$10,$14,$83,$16,$85,$14,$85
+.ref51:
+	.byte $87,$28,$2c,$83,$2e,$85,$2c,$8d,$82,$28,$2c,$83,$2e,$85,$2c,$85
+.ref52:
+	.byte $8f,$a0,$28,$2c,$83,$2e,$8d,$2c,$85,$28,$85,$2e,$85
+.ref53:
+	.byte $8f,$82,$2c,$2e,$83,$32,$85,$a0,$2c,$2e,$83,$32,$85,$36,$8d
+.ref54:
+	.byte $38,$ad,$36,$38,$83,$3c,$85
+.ref55:
+	.byte $87,$3a,$3c,$87,$3a,$3c,$83,$a2,$3d,$a0,$3c,$9d
+	.byte $ff,$10
+	.word .ref16
+	.byte $ff,$10
+	.word .ref17
+	.byte $ff,$11
+	.word .ref18
+	.byte $ff,$10
+	.word .ref19
+	.byte $ff,$10
+	.word .ref20
+	.byte $ff,$11
+	.word .ref21
+	.byte $ff,$10
+	.word .ref22
+	.byte $ff,$0f
+	.word .ref23
+	.byte $ff,$10
+	.word .ref24
+	.byte $ff,$10
+	.word .ref17
+	.byte $ff,$11
+	.word .ref18
+	.byte $ff,$10
+	.word .ref19
+	.byte $ff,$11
+	.word .ref28
+	.byte $ff,$11
+	.word .ref29
+	.byte $ff,$10
+	.word .ref30
+	.byte $ff,$0a
+	.word .ref31
+	.byte $fd
+	.word .song0ch0loop
+
+.song0ch1:
+.song0ch1loop:
+.ref72:
+	.byte $92,$11,$11,$11,$94,$11,$92,$29,$11,$94,$29,$92,$0d,$11,$11,$11
+	.byte $94,$11,$92,$29,$2d,$94,$29,$92,$2e,$81
+.ref73:
+	.byte $94,$2f,$92,$17,$17,$94,$17,$92,$2f,$17,$94,$2f,$92,$11,$17,$17
+	.byte $17,$94,$17,$92,$2f,$94,$2f,$92,$2c,$2e,$2c,$81
+.ref74:
+	.byte $09,$09,$09,$94,$09,$92,$21,$09,$94,$21,$92,$07,$09,$09,$09,$94
+	.byte $09,$92,$21,$23,$94,$21,$92,$24,$81
+.ref75:
+	.byte $94,$25,$92,$0d,$0d,$94,$0d,$92,$25,$0d,$94,$25,$92,$0b,$0d,$94
+	.byte $0b,$92,$25,$2d,$2f,$94,$2d,$92,$2c,$2e,$2c,$81
+.ref76:
+	.byte $11,$11,$11,$94,$11,$92,$29,$11,$94,$29,$92,$0d,$11,$11,$11,$94
+	.byte $11,$92,$29,$2d,$94,$29,$92,$2e,$81
+	.byte $ff,$12
+	.word .ref73
+	.byte $ff,$11
+	.word .ref74
+.ref79:
+	.byte $94,$25,$92,$0d,$0d,$94,$0d,$92,$22,$24,$0d,$2c,$2e,$2d,$24,$85
+	.byte $94,$24,$85,$92,$0d,$94,$0d,$92,$25,$24,$81
+.ref80:
+	.byte $11,$94,$10,$91,$82,$24,$28,$83,$2c,$85,$2e,$85,$32,$85,$2c,$2e
+	.byte $83
+.ref81:
+	.byte $97,$2c,$95,$1e,$85,$20,$85
+.ref82:
+	.byte $af,$36,$38,$83,$36,$85
+.ref83:
+	.byte $97,$32,$a5
+.ref84:
+	.byte $97,$24,$28,$83,$2c,$85,$2e,$85,$32,$85,$2c,$2e,$83
+.ref85:
+	.byte $97,$32,$95,$36,$85,$38,$85
+.ref86:
+	.byte $af,$36,$38,$83,$3c,$85
+.ref87:
+	.byte $bf
+.ref88:
+	.byte $8f,$9a,$38,$9c,$39,$9a,$38,$3d,$38,$91,$36,$85,$32,$85
+.ref89:
+	.byte $24,$95,$2d,$9c,$2d,$9a,$2e,$32,$83,$2e,$85,$2c,$8d
+.ref90:
+	.byte $36,$a5,$33,$9c,$33,$9a,$2c,$2e,$83,$32,$85
+.ref91:
+	.byte $97,$2e,$a5
+.ref92:
+	.byte $97,$28,$9c,$29,$9a,$28,$2c,$85,$2e,$85,$32,$83,$2c,$2e,$85
+.ref93:
+	.byte $97,$2c,$a5
+.ref94:
+	.byte $3c,$a5,$3c,$85,$46,$85,$4a,$85
+.ref95:
+	.byte $97,$46,$a5
+.ref96:
+	.byte $8f,$38,$9c,$39,$9a,$38,$3d,$38,$91,$36,$85,$32,$85
+	.byte $ff,$0b
+	.word .ref89
+	.byte $ff,$09
+	.word .ref90
+.ref99:
+	.byte $97,$2e,$a5
+.ref100:
+	.byte $1e,$20,$87,$24,$89,$29,$9c,$29,$9a,$24,$8b,$26,$28,$85,$2c,$85
+.ref101:
+	.byte $28,$89,$2c,$89,$2f,$9c,$2f,$9a,$2c,$8b,$2c,$2e,$85,$32,$85
+.ref102:
+	.byte $2e,$bd
+.ref103:
+	.byte $a4,$14,$16,$bb
+	.byte $ff,$11
+	.word .ref72
+	.byte $ff,$12
+	.word .ref73
+	.byte $ff,$11
+	.word .ref74
+	.byte $ff,$12
+	.word .ref75
+	.byte $ff,$11
+	.word .ref76
+	.byte $ff,$12
+	.word .ref73
+	.byte $ff,$11
+	.word .ref74
+	.byte $ff,$13
+	.word .ref79
+.ref112:
+	.byte $11,$94,$11,$84,$29,$29,$8a,$28,$85,$84,$29,$8a,$29,$9c,$3a,$3c
+	.byte $83,$84,$29,$29,$8a,$29,$9c,$3b,$92,$29,$94,$28,$81
+.ref113:
+	.byte $92,$11,$94,$11,$84,$29,$29,$8a,$28,$85,$84,$29,$8a,$28,$89,$92
+	.byte $11,$94,$11,$92,$29,$94,$29,$92,$2f,$94,$2e,$81
+.ref114:
+	.byte $92,$17,$94,$17,$86,$2f,$2f,$8c,$2e,$85,$86,$2f,$8c,$2f,$9c,$3a
+	.byte $3c,$83,$86,$2f,$2f,$8c,$2f,$9c,$3b,$92,$2f,$94,$2e,$81
+.ref115:
+	.byte $92,$0d,$94,$0d,$86,$25,$25,$8c,$24,$85,$86,$25,$8c,$25,$9c,$2c
+	.byte $85,$92,$0d,$94,$0d,$92,$25,$94,$25,$92,$2b,$94,$2a,$81
+.ref116:
+	.byte $92,$11,$94,$11,$84,$29,$29,$8a,$28,$85,$84,$29,$8a,$29,$9c,$3a
+	.byte $3c,$83,$84,$29,$29,$8a,$29,$9c,$3b,$92,$29,$94,$28,$81
+	.byte $ff,$10
+	.word .ref113
+.ref118:
+	.byte $92,$09,$94,$09,$86,$21,$21,$8c,$20,$85,$86,$21,$8c,$21,$9c,$4a
+	.byte $85,$86,$21,$21,$8c,$21,$9c,$47,$92,$21,$94,$20,$81
+.ref119:
+	.byte $92,$0d,$94,$0d,$86,$25,$25,$8c,$24,$85,$86,$25,$8c,$25,$9c,$4a
+	.byte $85,$92,$0d,$94,$0d,$92,$25,$94,$25,$92,$2b,$94,$2a,$81
+.ref120:
+	.byte $83,$84,$29,$29,$8a,$29,$84,$29,$8a,$29,$84,$29,$29,$a2,$17,$84
+	.byte $29,$8a,$28,$85,$84,$29,$29,$a2,$14,$85
+.ref121:
+	.byte $17,$86,$2f,$2f,$a2,$17,$86,$2f,$8c,$2f,$86,$2f,$2f,$8c,$2e,$85
+	.byte $86,$2f,$2f,$a2,$1a,$85,$1e,$85
+.ref122:
+	.byte $83,$86,$21,$21,$a2,$17,$86,$21,$a2,$17,$86,$21,$21,$8c,$21,$86
+	.byte $21,$8c,$20,$85,$86,$21,$21,$a2,$16,$85
+.ref123:
+	.byte $15,$86,$25,$25,$8c,$25,$86,$25,$a2,$15,$86,$25,$25,$a2,$14,$85
+	.byte $86,$25,$25,$96,$28,$2c,$83,$2e,$85
+.ref124:
+	.byte $2d,$84,$29,$29,$8a,$29,$84,$29,$8a,$29,$84,$29,$29,$a2,$2f,$84
+	.byte $29,$8a,$28,$85,$84,$29,$29,$a2,$28,$85
+.ref125:
+	.byte $2f,$86,$2f,$2f,$8c,$2f,$86,$2f,$8c,$2f,$86,$2f,$2f,$96,$32,$85
+	.byte $86,$2f,$2f,$a2,$32,$85,$36,$85
+.ref126:
+	.byte $83,$86,$21,$21,$a2,$39,$86,$21,$a2,$39,$86,$21,$21,$8c,$21,$86
+	.byte $21,$8c,$20,$85,$86,$21,$21,$a2,$36,$38,$83
+.ref127:
+	.byte $3d,$86,$25,$25,$8c,$25,$86,$25,$a2,$3d,$86,$25,$25,$8c,$24,$85
+	.byte $a2,$3c,$95
+	.byte $ff,$0b
+	.word .ref88
+	.byte $ff,$0b
+	.word .ref89
+	.byte $ff,$09
+	.word .ref90
+.ref131:
+	.byte $97,$2e,$a5
+	.byte $ff,$0d
+	.word .ref92
+.ref133:
+	.byte $97,$2c,$a5
+	.byte $ff,$08
+	.word .ref94
+.ref135:
+	.byte $97,$46,$a5
+	.byte $ff,$0b
+	.word .ref96
+	.byte $ff,$0b
+	.word .ref89
+	.byte $ff,$09
+	.word .ref90
+.ref139:
+	.byte $97,$2e,$a5
+	.byte $ff,$0e
+	.word .ref100
+	.byte $ff,$0d
+	.word .ref101
+.ref142:
+	.byte $2e,$bd
+.ref143:
+	.byte $a4,$14,$16,$bb
+	.byte $fd
+	.word .song0ch1loop
+
+.song0ch2:
+.song0ch2loop:
+.ref144:
+	.byte $80,$28,$00,$28,$00,$29,$01,$41,$29,$01,$24,$00,$28,$00,$28,$00
+	.byte $29,$01,$41,$98,$44,$85,$46,$81
+.ref145:
+	.byte $80,$2e,$00,$2e,$00,$2f,$01,$47,$2f,$01,$28,$00,$2e,$00,$2e,$00
+	.byte $2e,$00,$83,$98,$46,$85,$44,$46,$44,$81
+.ref146:
+	.byte $80,$20,$00,$20,$00,$21,$01,$39,$21,$01,$1e,$00,$20,$00,$20,$00
+	.byte $21,$01,$98,$39,$3a,$85,$3c,$81
+.ref147:
+	.byte $80,$24,$00,$24,$00,$25,$01,$3d,$25,$01,$22,$00,$25,$01,$98,$3d
+	.byte $45,$46,$85,$44,$46,$44,$81
+	.byte $ff,$16
+	.word .ref144
+	.byte $ff,$18
+	.word .ref145
+.ref150:
+	.byte $80,$20,$00,$20,$00,$21,$01,$39,$21,$01,$1e,$00,$20,$00,$20,$00
+	.byte $21,$01,$39,$98,$3a,$85,$3c,$81
+.ref151:
+	.byte $80,$24,$00,$24,$00,$25,$01,$98,$3a,$3c,$83,$44,$46,$45,$3c,$89
+	.byte $3a,$36,$80,$25,$01,$3c,$00,$3c,$00
+.ref152:
+	.byte $28,$00,$28,$00,$29,$01,$41,$00,$85,$24,$00,$28,$00,$28,$00,$29
+	.byte $01,$41,$41,$29,$00,$81
+.ref153:
+	.byte $2e,$00,$2e,$00,$2f,$01,$47,$00,$85,$28,$00,$2e,$00,$2e,$00,$2e
+	.byte $00,$83,$47,$01,$46,$00,$46,$00
+.ref154:
+	.byte $20,$00,$20,$00,$21,$01,$39,$00,$85,$20,$00,$20,$00,$20,$00,$21
+	.byte $01,$39,$39,$21,$00,$81
+.ref155:
+	.byte $24,$00,$24,$00,$25,$01,$3d,$00,$85,$22,$00,$24,$00,$24,$00,$24
+	.byte $00,$83,$3c,$83,$00,$25,$3c,$81
+	.byte $ff,$16
+	.word .ref152
+	.byte $ff,$18
+	.word .ref153
+	.byte $ff,$16
+	.word .ref154
+.ref159:
+	.byte $24,$00,$24,$00,$25,$01,$3d,$00,$85,$23,$24,$85,$3d,$3d,$24,$85
+	.byte $37,$36,$81
+.ref160:
+	.byte $20,$83,$00,$20,$00,$20,$83,$00,$20,$00,$39,$01,$20,$83,$00,$20
+	.byte $00,$20,$83,$00,$21,$3a,$85
+.ref161:
+	.byte $24,$83,$00,$24,$00,$24,$83,$00,$24,$00,$3d,$01,$24,$83,$00,$24
+	.byte $00,$24,$83,$00,$24,$00,$44,$85
+.ref162:
+	.byte $2e,$83,$00,$2e,$00,$2e,$83,$00,$2e,$00,$47,$01,$2e,$83,$00,$2e
+	.byte $00,$2e,$83,$00,$2f,$2c,$85
+.ref163:
+	.byte $28,$83,$00,$28,$00,$28,$83,$00,$28,$00,$41,$01,$28,$83,$00,$28
+	.byte $00,$28,$83,$00,$41,$3c,$85
+	.byte $ff,$17
+	.word .ref160
+	.byte $ff,$18
+	.word .ref161
+	.byte $ff,$17
+	.word .ref162
+.ref167:
+	.byte $2e,$83,$00,$2e,$00,$2e,$83,$00,$2e,$00,$47,$01,$2e,$85,$00,$85
+	.byte $44,$98,$46,$83,$80,$4a,$85
+	.byte $ff,$17
+	.word .ref160
+	.byte $ff,$18
+	.word .ref161
+	.byte $ff,$17
+	.word .ref162
+	.byte $ff,$17
+	.word .ref163
+	.byte $ff,$17
+	.word .ref160
+	.byte $ff,$18
+	.word .ref161
+	.byte $ff,$17
+	.word .ref162
+.ref175:
+	.byte $2e,$83,$00,$2e,$00,$2e,$83,$00,$2e,$00,$47,$01,$2e,$85,$00,$95
+.ref176:
+	.byte $28,$00,$28,$00,$29,$01,$41,$29,$01,$24,$00,$28,$00,$28,$00,$29
+	.byte $01,$41,$98,$44,$85,$46,$81
+	.byte $ff,$18
+	.word .ref145
+	.byte $ff,$16
+	.word .ref146
+	.byte $ff,$15
+	.word .ref147
+	.byte $ff,$16
+	.word .ref144
+	.byte $ff,$18
+	.word .ref145
+	.byte $ff,$16
+	.word .ref150
+	.byte $ff,$16
+	.word .ref151
+.ref184:
+	.byte $28,$00,$29,$9e,$41,$40,$89,$40,$8d,$41,$40,$89,$80,$41,$00,$81
+.ref185:
+	.byte $28,$00,$29,$9e,$41,$40,$89,$40,$8d,$80,$28,$00,$9e,$29,$80,$40
+	.byte $00,$9e,$41,$80,$46,$00,$9e,$46,$81
+.ref186:
+	.byte $80,$2e,$00,$2f,$9e,$47,$46,$89,$46,$8d,$47,$46,$89,$80,$47,$00
+	.byte $81
+.ref187:
+	.byte $24,$00,$25,$9e,$3d,$3c,$89,$3c,$8d,$80,$24,$00,$9e,$25,$80,$3c
+	.byte $00,$9e,$3d,$80,$42,$00,$9e,$42,$81
+.ref188:
+	.byte $80,$28,$00,$29,$9e,$41,$40,$89,$40,$8d,$41,$40,$89,$80,$41,$00
+	.byte $81
+	.byte $ff,$12
+	.word .ref185
+.ref190:
+	.byte $80,$20,$00,$21,$9e,$39,$38,$89,$38,$8d,$39,$38,$89,$80,$39,$00
+	.byte $81
+.ref191:
+	.byte $24,$00,$25,$9e,$3d,$3c,$89,$3c,$8d,$80,$24,$00,$24,$89,$00,$85
+	.byte $ff,$16
+	.word .ref152
+	.byte $ff,$18
+	.word .ref153
+	.byte $ff,$16
+	.word .ref154
+	.byte $ff,$18
+	.word .ref155
+	.byte $ff,$16
+	.word .ref152
+	.byte $ff,$18
+	.word .ref153
+	.byte $ff,$16
+	.word .ref154
+	.byte $ff,$13
+	.word .ref159
+	.byte $ff,$17
+	.word .ref160
+	.byte $ff,$18
+	.word .ref161
+	.byte $ff,$17
+	.word .ref162
+	.byte $ff,$17
+	.word .ref163
+	.byte $ff,$17
+	.word .ref160
+	.byte $ff,$18
+	.word .ref161
+	.byte $ff,$17
+	.word .ref162
+	.byte $ff,$15
+	.word .ref167
+	.byte $ff,$17
+	.word .ref160
+	.byte $ff,$18
+	.word .ref161
+	.byte $ff,$17
+	.word .ref162
+	.byte $ff,$17
+	.word .ref163
+	.byte $ff,$17
+	.word .ref160
+	.byte $ff,$18
+	.word .ref161
+	.byte $ff,$17
+	.word .ref162
+	.byte $ff,$10
+	.word .ref175
+	.byte $fd
+	.word .song0ch2loop
+
+.song0ch3:
+	.byte $fb,$06
+.song0ch3loop:
+.ref216:
+	.byte $fb,$05,$88,$1f,$fb,$03,$1f,$fb,$05,$1f,$fb,$03,$90,$1f,$fb,$05
+	.byte $8e,$1f,$fb,$03,$88,$1f,$fb,$05,$90,$1f,$fb,$03,$88,$1f,$fb,$05
+	.byte $1f,$fb,$03,$1f,$fb,$05,$8e,$1f,$fb,$03,$90,$1f,$fb,$05,$8e,$1f
+	.byte $fb,$03,$90,$1f,$fb,$05,$88,$1f,$fb,$03,$1e,$81
+.ref217:
+	.byte $fb,$05,$1f,$fb,$03,$1f,$fb,$05,$1f,$fb,$03,$90,$1f,$fb,$05,$8e
+	.byte $1f,$fb,$03,$88,$1f,$fb,$05,$90,$1f,$fb,$03,$88,$1f,$fb,$05,$1f
+	.byte $fb,$03,$1f,$fb,$05,$8e,$1f,$fb,$03,$90,$1f,$fb,$05,$8e,$1f,$fb
+	.byte $03,$90,$1f,$fb,$05,$88,$1f,$fb,$03,$1e,$81
+	.byte $ff,$11
+	.word .ref217
+.ref219:
+	.byte $fb,$05,$1f,$fb,$03,$1f,$fb,$05,$1f,$fb,$03,$90,$1f,$fb,$05,$8e
+	.byte $1f,$fb,$03,$88,$1f,$fb,$05,$90,$1f,$fb,$03,$88,$1f,$fb,$05,$1f
+	.byte $fb,$03,$1f,$fb,$05,$8e,$1f,$fb,$03,$83,$fb,$05,$1f,$fb,$03,$83
+	.byte $fb,$05,$1f,$fb,$03,$83
+	.byte $ff,$11
+	.word .ref216
+	.byte $ff,$11
+	.word .ref217
+	.byte $ff,$11
+	.word .ref217
+	.byte $ff,$10
+	.word .ref219
+.ref224:
+	.byte $fb,$05,$88,$1f,$fb,$03,$83,$fb,$05,$8e,$1f,$fb,$03,$88,$1f,$fb
+	.byte $05,$90,$1f,$fb,$03,$83,$fb,$05,$8e,$1f,$fb,$03,$88,$1f,$fb,$05
+	.byte $83,$fb,$03,$83,$fb,$05,$8e,$1f,$fb,$03,$83,$fb,$05,$90,$1f,$fb
+	.byte $03,$83,$fb,$05,$8e,$1f,$fb,$03,$83
+.ref225:
+	.byte $fb,$05,$88,$1f,$fb,$03,$83,$fb,$05,$8e,$1f,$fb,$03,$88,$1f,$fb
+	.byte $05,$90,$1f,$fb,$03,$83,$fb,$05,$8e,$1f,$fb,$03,$88,$1f,$fb,$05
+	.byte $83,$fb,$03,$1f,$fb,$05,$8e,$1f,$fb,$03,$88,$1f,$fb,$05,$90,$1f
+	.byte $fb,$03,$88,$1f,$fb,$05,$8e,$1f,$fb,$03,$88,$1e,$81
+.ref226:
+	.byte $fb,$05,$1f,$fb,$03,$83,$fb,$05,$8e,$1f,$fb,$03,$88,$1f,$fb,$05
+	.byte $90,$1f,$fb,$03,$83,$fb,$05,$8e,$1f,$fb,$03,$88,$1f,$fb,$05,$83
+	.byte $fb,$03,$83,$fb,$05,$8e,$1f,$fb,$03,$83,$fb,$05,$90,$1f,$fb,$03
+	.byte $83,$fb,$05,$8e,$1f,$fb,$03,$83
+	.byte $ff,$11
+	.word .ref225
+	.byte $ff,$10
+	.word .ref226
+	.byte $ff,$11
+	.word .ref225
+	.byte $ff,$10
+	.word .ref226
+.ref231:
+	.byte $fb,$05,$88,$1f,$fb,$03,$83,$fb,$05,$8e,$1f,$fb,$03,$88,$1f,$fb
+	.byte $05,$90,$1f,$fb,$03,$83,$fb,$05,$8e,$1f,$fb,$03,$88,$1f,$fb,$05
+	.byte $8e,$1f,$fb,$03,$83,$fb,$05,$88,$1f,$fb,$03,$83,$fb,$05,$1f,$fb
+	.byte $03,$83,$fb,$05,$1f,$fb,$03,$83
+.ref232:
+	.byte $fb,$05,$8e,$1d,$fb,$03,$90,$1f,$fb,$05,$88,$1f,$fb,$03,$90,$1f
+	.byte $fb,$05,$88,$1f,$fb,$03,$1f,$fb,$05,$1f,$fb,$03,$8e,$1f,$fb,$05
+	.byte $88,$1f,$fb,$03,$90,$1f,$fb,$05,$88,$1f,$fb,$03,$90,$1f,$fb,$05
+	.byte $88,$1f,$fb,$03,$1f,$fb,$05,$1f,$fb,$03,$8e,$1e,$81
+.ref233:
+	.byte $fb,$05,$1d,$fb,$03,$90,$1f,$fb,$05,$88,$1f,$fb,$03,$90,$1f,$fb
+	.byte $05,$88,$1f,$fb,$03,$1f,$fb,$05,$1f,$fb,$03,$8e,$1f,$fb,$05,$88
+	.byte $1f,$fb,$03,$90,$1f,$fb,$05,$88,$1f,$fb,$03,$90,$1f,$fb,$05,$88
+	.byte $1f,$fb,$03,$1f,$fb,$05,$1f,$fb,$03,$8e,$1e,$81
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+.ref239:
+	.byte $fb,$05,$1d,$fb,$03,$90,$1f,$fb,$05,$88,$1f,$fb,$03,$90,$1f,$fb
+	.byte $05,$88,$1f,$fb,$03,$1f,$fb,$05,$1f,$fb,$03,$8e,$1f,$fb,$05,$90
+	.byte $1f,$fb,$03,$83,$fb,$05,$1f,$fb,$03,$83,$fb,$05,$1b,$fb,$03,$83
+	.byte $fb,$05,$83,$fb,$03,$83
+	.byte $ff,$11
+	.word .ref232
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$10
+	.word .ref239
+	.byte $ff,$11
+	.word .ref216
+	.byte $ff,$11
+	.word .ref217
+	.byte $ff,$11
+	.word .ref217
+	.byte $ff,$10
+	.word .ref219
+	.byte $ff,$11
+	.word .ref216
+	.byte $ff,$11
+	.word .ref217
+	.byte $ff,$11
+	.word .ref217
+	.byte $ff,$10
+	.word .ref219
+.ref256:
+	.byte $fb,$05,$90,$1f,$fb,$03,$83,$fb,$05,$83,$fb,$03,$83,$fb,$05,$1f
+	.byte $fb,$03,$83,$fb,$05,$83,$fb,$03,$83,$fb,$05,$1f,$fb,$03,$83,$fb
+	.byte $05,$83,$fb,$03,$83,$fb,$05,$1f,$fb,$03,$83,$fb,$05,$83,$fb,$03
+	.byte $88,$1e,$81
+.ref257:
+	.byte $fb,$05,$90,$1f,$fb,$03,$83,$fb,$05,$83,$fb,$03,$83,$fb,$05,$1f
+	.byte $fb,$03,$83,$fb,$05,$83,$fb,$03,$83,$fb,$05,$1f,$fb,$03,$83,$fb
+	.byte $05,$88,$1f,$fb,$03,$1f,$fb,$05,$1f,$fb,$03,$1f,$fb,$05,$1f,$fb
+	.byte $03,$1e,$81
+	.byte $ff,$11
+	.word .ref256
+	.byte $ff,$11
+	.word .ref257
+	.byte $ff,$11
+	.word .ref256
+	.byte $ff,$11
+	.word .ref257
+	.byte $ff,$11
+	.word .ref256
+	.byte $ff,$11
+	.word .ref257
+.ref264:
+	.byte $fb,$05,$1f,$fb,$03,$1f,$fb,$05,$90,$1f,$fb,$03,$88,$1f,$fb,$05
+	.byte $1f,$fb,$03,$1f,$fb,$05,$90,$1f,$fb,$03,$88,$1f,$fb,$05,$1f,$fb
+	.byte $03,$1f,$fb,$05,$90,$1f,$fb,$03,$88,$1f,$fb,$05,$1f,$fb,$03,$1f
+	.byte $fb,$05,$90,$1f,$fb,$03,$8e,$1e,$81
+.ref265:
+	.byte $fb,$05,$88,$1f,$fb,$03,$1f,$fb,$05,$90,$1f,$fb,$03,$88,$1f,$fb
+	.byte $05,$1f,$fb,$03,$1f,$fb,$05,$90,$1f,$fb,$03,$88,$1f,$fb,$05,$1f
+	.byte $fb,$03,$1f,$fb,$05,$90,$1f,$fb,$03,$88,$1f,$fb,$05,$1f,$fb,$03
+	.byte $1f,$fb,$05,$90,$1f,$fb,$03,$8e,$1e,$81
+	.byte $ff,$11
+	.word .ref265
+	.byte $ff,$11
+	.word .ref265
+	.byte $ff,$11
+	.word .ref265
+	.byte $ff,$11
+	.word .ref265
+	.byte $ff,$11
+	.word .ref265
+.ref271:
+	.byte $fb,$05,$88,$1f,$fb,$03,$1f,$fb,$05,$90,$1f,$fb,$03,$88,$1f,$fb
+	.byte $05,$1f,$fb,$03,$1f,$fb,$05,$90,$1f,$fb,$03,$88,$1f,$fb,$05,$1f
+	.byte $fb,$03,$83,$fb,$05,$83,$fb,$03,$83,$fb,$05,$1f,$fb,$03,$1f,$fb
+	.byte $05,$90,$1f,$fb,$03,$8e,$1e,$81
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$10
+	.word .ref239
+	.byte $ff,$11
+	.word .ref232
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$11
+	.word .ref233
+	.byte $ff,$10
+	.word .ref239
+	.byte $fd
+	.word .song0ch3loop
+
+.song0ch4:
+.song0ch4loop:
+.ref288:
+	.byte $32,$85,$32,$85,$3b,$32,$85,$33,$33,$33,$32,$85,$3b,$33,$36,$85
+.ref289:
+	.byte $32,$85,$32,$85,$3b,$32,$85,$33,$33,$33,$32,$85,$3a,$83,$36,$37
+	.byte $36,$81
+.ref290:
+	.byte $32,$85,$32,$85,$3b,$32,$85,$33,$33,$33,$32,$85,$3b,$33,$36,$83
+	.byte $36
+.ref291:
+	.byte $32,$85,$32,$85,$3b,$32,$85,$3b,$32,$83,$36,$3b,$3b,$3a,$83,$36
+	.byte $3b,$3a,$81
+	.byte $ff,$10
+	.word .ref288
+	.byte $ff,$12
+	.word .ref289
+.ref294:
+	.byte $32,$85,$32,$85,$3b,$32,$85,$33,$33,$33,$32,$85,$3b,$32,$85,$3a
+	.byte $81
+.ref295:
+	.byte $32,$85,$32,$85,$3b,$32,$85,$33,$3a,$93,$36,$37,$36,$81
+.ref296:
+	.byte $32,$8d,$36,$89,$32,$89,$32,$85,$37,$32,$89
+.ref297:
+	.byte $32,$85,$32,$85,$36,$89,$32,$89,$32,$85,$36,$85,$33,$32,$81
+.ref298:
+	.byte $32,$8d,$36,$89,$32,$89,$32,$85,$37,$32,$85,$36,$81
+.ref299:
+	.byte $32,$85,$32,$85,$36,$85,$37,$32,$89,$32,$85,$36,$85,$37,$36,$81
+	.byte $ff,$0b
+	.word .ref296
+	.byte $ff,$0f
+	.word .ref297
+	.byte $ff,$0d
+	.word .ref298
+.ref303:
+	.byte $32,$85,$32,$85,$37,$32,$85,$37,$32,$8b,$36,$3a,$85,$3a,$85
+.ref304:
+	.byte $32,$89,$33,$36,$89,$32,$89,$32,$85,$3b,$32,$89
+.ref305:
+	.byte $32,$89,$33,$36,$89,$32,$85,$37,$32,$85,$3a,$85,$33,$32,$81
+	.byte $ff,$0c
+	.word .ref304
+	.byte $ff,$0f
+	.word .ref305
+	.byte $ff,$0c
+	.word .ref304
+	.byte $ff,$0f
+	.word .ref305
+	.byte $ff,$0c
+	.word .ref304
+.ref311:
+	.byte $32,$89,$33,$36,$89,$32,$85,$37,$32,$83,$3a,$3a,$85,$3a,$85
+	.byte $ff,$0c
+	.word .ref304
+	.byte $ff,$0f
+	.word .ref305
+	.byte $ff,$0c
+	.word .ref304
+	.byte $ff,$0f
+	.word .ref305
+	.byte $ff,$0c
+	.word .ref304
+	.byte $ff,$0f
+	.word .ref305
+	.byte $ff,$0c
+	.word .ref304
+.ref319:
+	.byte $32,$89,$33,$36,$89,$32,$85,$37,$32,$85,$3a,$8d
+	.byte $ff,$10
+	.word .ref288
+	.byte $ff,$12
+	.word .ref289
+	.byte $ff,$11
+	.word .ref290
+	.byte $ff,$13
+	.word .ref291
+	.byte $ff,$10
+	.word .ref288
+	.byte $ff,$12
+	.word .ref289
+	.byte $ff,$11
+	.word .ref294
+	.byte $ff,$0e
+	.word .ref295
+.ref328:
+	.byte $32,$8d,$3c,$89,$40,$89,$40,$85,$3c,$89,$40,$81
+.ref329:
+	.byte $32,$85,$40,$85,$3d,$40,$85,$40,$89,$32,$85,$3d,$32,$89
+	.byte $ff,$0c
+	.word .ref328
+.ref331:
+	.byte $32,$85,$40,$85,$3d,$40,$85,$40,$85,$3d,$40,$85,$3c,$85,$3d,$3c
+	.byte $81
+	.byte $ff,$0c
+	.word .ref328
+	.byte $ff,$11
+	.word .ref331
+	.byte $ff,$0c
+	.word .ref328
+.ref335:
+	.byte $32,$85,$40,$85,$3d,$40,$85,$32,$8f,$36,$37,$37,$37,$36,$81
+.ref336:
+	.byte $32,$89,$33,$37,$32,$85,$36,$89,$32,$85,$3b,$32,$85,$32,$81
+.ref337:
+	.byte $32,$89,$33,$37,$32,$85,$37,$32,$85,$32,$85,$3b,$33,$32,$85
+	.byte $ff,$0f
+	.word .ref336
+.ref339:
+	.byte $32,$89,$33,$37,$32,$85,$37,$32,$85,$32,$85,$3b,$33,$3b,$3a,$81
+	.byte $ff,$0f
+	.word .ref336
+	.byte $ff,$0f
+	.word .ref337
+	.byte $ff,$0f
+	.word .ref336
+.ref343:
+	.byte $32,$89,$33,$3b,$33,$3b,$3b,$3a,$8d,$36,$83,$36,$37,$36,$81
+	.byte $ff,$0c
+	.word .ref304
+	.byte $ff,$0f
+	.word .ref305
+	.byte $ff,$0c
+	.word .ref304
+	.byte $ff,$0f
+	.word .ref305
+	.byte $ff,$0c
+	.word .ref304
+	.byte $ff,$0f
+	.word .ref305
+	.byte $ff,$0c
+	.word .ref304
+	.byte $ff,$0f
+	.word .ref311
+	.byte $ff,$0c
+	.word .ref304
+	.byte $ff,$0f
+	.word .ref305
+	.byte $ff,$0c
+	.word .ref304
+	.byte $ff,$0f
+	.word .ref305
+	.byte $ff,$0c
+	.word .ref304
+	.byte $ff,$0f
+	.word .ref305
+	.byte $ff,$0c
+	.word .ref304
+	.byte $ff,$0c
+	.word .ref319
+	.byte $fd
+	.word .song0ch4loop
+
+;this file for FamiTone2 libary generated by nsf2data tool
+
+sounds: subroutine
+	.word .ntsc
+	.word .pal
+.ntsc:
+	.word .sfx_ntsc_0
+	.word .sfx_ntsc_1
+	.word .sfx_ntsc_2
+	.word .sfx_ntsc_3
+.pal:
+	.word .sfx_pal_0
+	.word .sfx_pal_1
+	.word .sfx_pal_2
+	.word .sfx_pal_3
+
+.sfx_ntsc_0:
+	.byte $80,$bf,$81,$56,$82,$03,$83,$bf,$84,$a6,$85,$02,$04,$81,$3a,$82
+	.byte $02,$84,$c4,$85,$01,$04,$81,$ab,$82,$01,$84,$52,$04,$81,$1c,$84
+	.byte $e1,$85,$00,$04,$81,$d5,$82,$00,$84,$a9,$04,$80,$b8,$81,$1c,$82
+	.byte $01,$83,$b8,$84,$e1,$04,$81,$d5,$82,$00,$84,$a9,$04,$80,$30,$00
+.sfx_pal_0:
+	.byte $80,$bf,$81,$19,$82,$03,$83,$bf,$84,$75,$85,$02,$04,$81,$11,$82
+	.byte $02,$84,$a4,$85,$01,$03,$81,$8c,$82,$01,$84,$3a,$03,$81,$08,$84
+	.byte $d1,$85,$00,$04,$81,$c6,$82,$00,$84,$9d,$03,$80,$b8,$81,$08,$82
+	.byte $01,$83,$b8,$84,$d1,$03,$81,$c6,$82,$00,$84,$9d,$04,$80,$30,$00
+.sfx_ntsc_1:
+	.byte $89,$3f,$8a,$0d,$01,$8a,$0b,$01,$8a,$09,$01,$8a,$07,$01,$8a,$05
+	.byte $01,$8a,$03,$01,$89,$3e,$8a,$01,$01,$8a,$0f,$01,$8a,$0d,$01,$8a
+	.byte $0b,$01,$89,$3d,$8a,$09,$01,$8a,$07,$01,$8a,$05,$01,$8a,$03,$01
+	.byte $89,$3c,$8a,$01,$01,$8a,$0f,$01,$8a,$0d,$01,$8a,$0b,$01,$89,$3b
+	.byte $8a,$09,$01,$8a,$07,$01,$8a,$05,$01,$8a,$03,$01,$89,$3a,$8a,$01
+	.byte $01,$8a,$0f,$01,$8a,$0d,$01,$8a,$0b,$01,$89,$39,$8a,$09,$01,$8a
+	.byte $07,$01,$8a,$05,$01,$8a,$03,$01,$89,$38,$8a,$01,$01,$8a,$0f,$01
+	.byte $8a,$0d,$01,$8a,$0b,$01,$89,$37,$8a,$09,$01,$8a,$07,$01,$8a,$05
+	.byte $01,$8a,$03,$01,$89,$36,$8a,$01,$01,$8a,$0f,$01,$8a,$0d,$01,$8a
+	.byte $0b,$01,$89,$35,$8a,$09,$01,$8a,$07,$01,$8a,$05,$01,$8a,$03,$01
+	.byte $89,$34,$8a,$01,$01,$8a,$0f,$01,$8a,$0d,$01,$8a,$0b,$01,$89,$33
+	.byte $8a,$09,$01,$8a,$07,$01,$8a,$05,$01,$8a,$03,$01,$89,$32,$8a,$01
+	.byte $01,$8a,$0f,$01,$8a,$0d,$01,$8a,$0b,$01,$89,$31,$8a,$09,$01,$8a
+	.byte $07,$01,$8a,$05,$01,$8a,$03,$01,$8a,$01,$01,$8a,$0f,$01,$8a,$0d
+	.byte $01,$00
+.sfx_pal_1:
+	.byte $89,$3f,$8a,$0d,$01,$8a,$0b,$01,$8a,$09,$01,$8a,$07,$01,$8a,$05
+	.byte $01,$89,$3e,$8a,$03,$01,$8a,$01,$01,$8a,$0f,$01,$8a,$0d,$01,$89
+	.byte $3d,$8a,$0b,$01,$8a,$09,$01,$8a,$07,$01,$8a,$05,$01,$89,$3c,$8a
+	.byte $03,$01,$8a,$01,$01,$8a,$0f,$01,$8a,$0d,$01,$89,$3b,$8a,$0b,$01
+	.byte $8a,$09,$01,$8a,$07,$01,$8a,$05,$01,$89,$3a,$8a,$03,$01,$8a,$01
+	.byte $01,$8a,$0f,$01,$8a,$0d,$01,$89,$39,$8a,$0b,$01,$8a,$09,$01,$8a
+	.byte $07,$01,$8a,$05,$01,$89,$38,$8a,$03,$01,$8a,$01,$01,$8a,$0f,$01
+	.byte $8a,$0d,$01,$89,$37,$8a,$0b,$01,$8a,$09,$01,$8a,$07,$01,$8a,$05
+	.byte $01,$89,$36,$8a,$03,$01,$8a,$01,$01,$8a,$0f,$01,$8a,$0d,$01,$89
+	.byte $35,$8a,$0b,$01,$8a,$09,$01,$8a,$07,$01,$8a,$05,$01,$89,$34,$8a
+	.byte $03,$01,$8a,$01,$01,$8a,$0f,$01,$8a,$0d,$01,$89,$33,$8a,$0b,$01
+	.byte $8a,$09,$01,$8a,$07,$01,$8a,$05,$01,$89,$32,$8a,$03,$01,$8a,$01
+	.byte $01,$8a,$0f,$01,$8a,$0d,$01,$89,$31,$8a,$0b,$01,$8a,$09,$01,$8a
+	.byte $07,$01,$8a,$05,$01,$8a,$03,$01,$8a,$01,$01,$8a,$0f,$01,$00
+.sfx_ntsc_2:
+	.byte $80,$bf,$81,$d5,$82,$00,$02,$81,$6a,$02,$80,$b4,$04,$80,$b8,$81
+	.byte $d5,$02,$81,$6a,$02,$80,$b2,$04,$00
+.sfx_pal_2:
+	.byte $80,$bf,$81,$c6,$82,$00,$02,$81,$62,$02,$80,$b4,$03,$80,$b8,$81
+	.byte $c6,$02,$81,$62,$01,$80,$b2,$04,$00
+.sfx_ntsc_3:
+	.byte $86,$81,$87,$6a,$88,$00,$01,$87,$70,$01,$87,$6a,$01,$87,$70,$01
+	.byte $87,$6a,$01,$00
+.sfx_pal_3:
+	.byte $86,$81,$87,$62,$88,$00,$01,$87,$68,$01,$87,$62,$01,$87,$68,$01
+	.byte $87,$62,$01,$00
+
+;;;;; CPU VECTORS
+
+	NES_VECTORS
+
diff --git a/presets/nes/shoot2.c b/presets/nes/shoot2.c
index 2e3c4ec0..425523cb 100644
--- a/presets/nes/shoot2.c
+++ b/presets/nes/shoot2.c
@@ -391,10 +391,10 @@ void draw_next_row() {
 #define FLIPXY 0xc0
 
 const byte DIR_TO_CODE[32] = {
-  0, 1, 2, 3, 4, 5, 6, 6,
-  6|FLIPY, 6|FLIPY, 5|FLIPY, 4|FLIPY, 3|FLIPY, 2|FLIPY, 1|FLIPY, 0|FLIPY,
   0|FLIPXY, 1|FLIPXY, 2|FLIPXY, 3|FLIPXY, 4|FLIPXY, 5|FLIPXY, 6|FLIPXY, 6|FLIPXY,
   6|FLIPX, 6|FLIPX, 5|FLIPX, 4|FLIPX, 3|FLIPX, 2|FLIPX, 1|FLIPX, 0|FLIPX,
+  0, 1, 2, 3, 4, 5, 6, 6,
+  6|FLIPY, 6|FLIPY, 5|FLIPY, 4|FLIPY, 3|FLIPY, 2|FLIPY, 1|FLIPY, 0|FLIPY,
 };
 
 const byte SINTBL[32] = {
diff --git a/src/audio.ts b/src/audio.ts
index f9a46eb1..c46c56bf 100644
--- a/src/audio.ts
+++ b/src/audio.ts
@@ -299,7 +299,7 @@ var SampleAudio = function(clockfreq) {
     }
     self.context = new AudioContext();
     self.sr=self.context.sampleRate;
-    self.bufferlen=(self.sr > 44100) ? 4096 : 2048;
+    self.bufferlen=2048;
 
     // Amiga 500 fixed filter at 6kHz. WebAudio lowpass is 12dB/oct, whereas
     // older Amigas had a 6dB/oct filter at 4900Hz.
@@ -361,9 +361,9 @@ var SampleAudio = function(clockfreq) {
       bufpos = 0;
       bufferlist[ifill] = buffer;
       var inext = (ifill + 1) % bufferlist.length;
-      //if (inext != idrain) ifill = inext;
       if (inext == idrain) {
-        ifill = (idrain + bufferlist.length/2) % bufferlist.length;
+        ifill = Math.floor(idrain + nbuffers/2) % bufferlist.length;
+        //console.log('audio skipped', idrain, ifill);
       } else {
         ifill = inext;
       }
@@ -375,7 +375,7 @@ var SampleAudio = function(clockfreq) {
     while (count-- > 0) {
       accum += value;
       sfrac += sinc;
-      if (sfrac >= 1) {
+      while (sfrac >= 1) {
         sfrac -= 1;
         value *= sfrac;
         this.addSingleSample(accum - value);
diff --git a/src/emu.ts b/src/emu.ts
index ea893354..72c9a492 100644
--- a/src/emu.ts
+++ b/src/emu.ts
@@ -216,21 +216,27 @@ var AnimationTimer = function(frequencyHz:number, callback:() => void) {
   var intervalMsec = 1000.0 / frequencyHz;
   var running;
   var lastts = 0;
-  var useReqAnimFrame = window.requestAnimationFrame ? (frequencyHz>40) : false;
+  var useReqAnimFrame = false; //window.requestAnimationFrame ? (frequencyHz>40) : false;
   var nframes, startts; // for FPS calc
   this.frameRate = frequencyHz;
 
-  function scheduleFrame() {
+  function scheduleFrame(msec:number) {
     if (useReqAnimFrame)
       window.requestAnimationFrame(nextFrame);
     else
-      setTimeout(nextFrame, intervalMsec);
+      setTimeout(nextFrame, msec);
   }
-  function nextFrame(ts) {
-    if (running) {
-      scheduleFrame();
+  function nextFrame(ts:number) {
+    if (!ts) ts = Date.now();
+    if (ts - lastts < intervalMsec*10) {
+      lastts += intervalMsec;
+    } else {
+      lastts = ts + intervalMsec; // frames skipped, catch up
     }
-    if (!useReqAnimFrame || ts - lastts > intervalMsec/2) {
+    if (running) {
+      scheduleFrame(lastts - ts);
+    }
+    if (!useReqAnimFrame || lastts - ts > intervalMsec/2) {
       if (running) {
         try {
           callback();
@@ -239,11 +245,6 @@ var AnimationTimer = function(frequencyHz:number, callback:() => void) {
           throw e;
         }
       }
-      if (ts - lastts < intervalMsec*30) {
-        lastts += intervalMsec;
-      } else {
-        lastts = ts;
-      }
       if (nframes == 0) startts = ts;
       if (nframes++ == 300) {
         console.log("Avg framerate: " + nframes*1000/(ts-startts) + " fps");
@@ -258,7 +259,7 @@ var AnimationTimer = function(frequencyHz:number, callback:() => void) {
       running = true;
       lastts = 0;
       nframes = 0;
-      scheduleFrame();
+      scheduleFrame(0);
     }
   }
   this.stop = function() {
diff --git a/src/platform/nes.js b/src/platform/nes.js
index f8bf3a2e..733e5dac 100644
--- a/src/platform/nes.js
+++ b/src/platform/nes.js
@@ -12,6 +12,7 @@ var JSNES_PRESETS = [
   {id:'neslib4.c', name:'Metasprites'},
   {id:'neslib5.c', name:'RLE Unpack'},
   {id:'music.c', name:'Music Player'},
+  {id:'musicdemo.asm', name:'Famitone Demo'},
   {id:'siegegame.c', name:'Siege Game'},
   {id:'shoot2.c', name:'Solarian Game'},
 ];
@@ -61,8 +62,9 @@ var JSNESPlatform = function(mainElement) {
   var nes;
   var rom;
   var video, audio, timer;
-  var audioFrequency = 44100;
+  var audioFrequency = 44030; //44100
   var frameindex = 0;
+  var nsamples = 0;
 
   this.getPresets = function() { return JSNES_PRESETS; }
 
@@ -78,17 +80,19 @@ var JSNESPlatform = function(mainElement) {
         video.updateFrame();
         self.restartDebugState();
         frameindex++;
+        //if (frameindex == 2000) console.log(nsamples*60/frameindex,'Hz');
       },
       onAudioSample: function(left, right) {
         if (frameindex < 10)
           audio.feedSample(0, 1); // avoid popping at powerup
         else
           audio.feedSample(left+right, 1);
+        //nsamples++;
       },
       onStatusUpdate: function(s) {
         console.log(s);
       },
-      //onBatteryRamWrite
+      //TODO: onBatteryRamWrite
     });
     nes.stop = function() {
       // TODO: trigger breakpoint