BSR	SAMPLE
	
BRA	CHLOP3
*
*
CHLOP2	LDA	M.MODE,PCR
	
BN


	
DEC	,S
	
BNE	CHLOP1
*
	
PULS	A,B,U,PC
*
*
SAMPLE	EQU	*		CHANEL MUSIC DATA SAMPLING
*

          SPL11	LDA	,X	KEY NUMBER
	
LBEQ	SPL5	ｷｭｳﾌ
	
BPL	SPL114
*
	
CMPA	#$FE
	
BNE	SPL110
*
	
LDD	#0	CHANNEL MUSIC END
	
STD	<CPOINT,U
	
RTS
*
*
SPL110	TFR	A,B
	
ANDB	#%00011111
	
ANDA	#%01100000
	
BNE	SPL112
*
	
LSLB	VOLUME CHECK
	
LSLB
	
STB	<C.VOLI,U
*
	
BRA	SPL113
*
SPL112	CMPA	#%00100000 VOICE
	
BNE	SPL114
*
	
LDA	M.MODE,PCR
	
BNE	SPL113
*
	
PSHS	X
	
LBSR	VOICE
	
PULS	X
*
SPL113	LEAX	1,X
	
BRA	SPL11
*
SPL114	LDB	<C.TIE,U	ﾀｲ ﾌﾗｸﾞ CHECK
	
LBNE	SPL5
*
	
LEAY	MSW,PCR	MUSIC SWITCH CHECK
	
LDB	<C.NO,U
	
TST	B,Y
	
LBNE	SPL5
*
	
LDB	M.MODE,PCR
	
LBNE	SPL2P	to PSG MODE
*
*
*
********************
*	FM MUSIC SHOT	*
********************
*
*
SPL2	EQU	*
*
	
LEAY	FREQ.T,PCR
	
TFR	A,B
	
ANDB	#$70
	
LSRB
	
STB	<C.BNO,U	BNO SAVE

STB	,-S
*
	
ANDA	#$0F
	
LSLA
	
LDD	A,Y
*
	
STD	<C.FNO,U	FNO SAVE
*
	
ORA	,S+	A : BLOCK/FNum2	,	B :FNum1
*
	
BSR	FNOWRT
*
	
LDB	<C.VOLI,U VOLUME CHECK
	
TST	VOLOFS,PCR	CHECK NOMAL MODE
	
BEQ	SPL331
	
BMI	SPL33
*
	
CMPB	<C.VOL,U
	
BLO	SPL3