;******************************************************************************************
;   Project      :
;   Program Name : 
;   Programer    :
;   Create date  :  Version 1.0    H21.06.10
;   History      :
;******************************************************************************************
;   Description
;      平均律音階
;        中心の“ラ”の音の周波数が440Hz,その1オクターブ低い“ラ”の音が220Hz
;        音階の周波数＝220×2^(n/12)  nは,1から12の整数
;          ド  :261.63Hz(96回) 26
;          レ  :293.66Hz(85回) 29
;          ミ  :329.63Hz(76回) 33
;          ファ:349.23Hz(72回) 35
;          ソ  :392   Hz(64回) 39
;          ラ  :440   Hz(57回) 44
;          シ  :493.88Hz(51回) 49
;          ド  :523.25Hz(48回) 52
;******************************************************************************************
	LIST	P=PIC12F509,ST=OFF,R=DEC
	INCLUDE	"P12F509.inc"	
	__CONFIG _MCLRE_OFF & _CP_OFF & _WDT_OFF & _IntRC_OSC
;
LP0	EQU	07H
LP1	EQU	08H
LP2	EQU	09H
LP3	EQU	0AH
LP_N	EQU	0BH
LP_M	EQU	0CH
;
DO_N	EQU	D'96'
DO_M	EQU	D'26'
RE_N	EQU	D'85'
RE_M	EQU	D'29'
MI_N	EQU	D'76'
MI_M	EQU	D'33'
FA_N	EQU	D'72'
FA_M	EQU	D'35'
SO_N	EQU	D'64'
SO_M	EQU	D'39'
RA_N	EQU	D'57'
RA_M	EQU	D'44'
SI_N	EQU	D'51'
SI_M	EQU	D'49'
DO1_N	EQU	D'48'
DO1_M	EQU	D'52'
SPEED_1	EQU	D'01'
;

	ORG	0
	MOVLW	B'000000'
	OPTION
	MOVLW	B'111011'
	TRIS	GPIO
;
MAIN
; **************************************
;  音楽１
; **************************************
MAIN_MU1
	MOVLW	DO_M
	MOVWF	LP_M
	MOVLW	DO_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	DO_M
	MOVWF	LP_M
	MOVLW	DO_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	RE_M
	MOVWF	LP_M
	MOVLW	RE_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	RE_M
	MOVWF	LP_M
	MOVLW	RE_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	MI_M
	MOVWF	LP_M
	MOVLW	MI_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	MI_M
	MOVWF	LP_M
	MOVLW	MI_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	RE_M
	MOVWF	LP_M
	MOVLW	RE_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	PLAYWB
	CALL	PLAYWB
	CALL	PLAYWB
	CALL	STOPWB
	CALL	STOPWB
;
	MOVLW	MI_M
	MOVWF	LP_M
	MOVLW	MI_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	MI_M
	MOVWF	LP_M
	MOVLW	MI_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	SO_M
	MOVWF	LP_M
	MOVLW	SO_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	SO_M
	MOVWF	LP_M
	MOVLW	SO_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	RA_M
	MOVWF	LP_M
	MOVLW	RA_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	SO_M
	MOVWF	LP_M
	MOVLW	SO_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	SO_M
	MOVWF	LP_M
	MOVLW	SO_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	PLAYWB
	CALL	PLAYWB
	CALL	PLAYWB
	CALL	STOPWB
	CALL	STOPWB
;
	MOVLW	RA_M
	MOVWF	LP_M
	MOVLW	RA_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	RA_M
	MOVWF	LP_M
	MOVLW	RA_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	SO_M
	MOVWF	LP_M
	MOVLW	SO_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	SO_M
	MOVWF	LP_M
	MOVLW	SO_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	MI_M
	MOVWF	LP_M
	MOVLW	MI_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	DO_M
	MOVWF	LP_M
	MOVLW	DO_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	RE_M
	MOVWF	LP_M
	MOVLW	RE_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	PLAYWB
	CALL	PLAYWB
	CALL	PLAYWB
	CALL	STOPWB
	CALL	STOPWB
;
	MOVLW	SO_M
	MOVWF	LP_M
	MOVLW	SO_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	SO_M
	MOVWF	LP_M
	MOVLW	SO_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	MI_M
	MOVWF	LP_M
	MOVLW	MI_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	DO_M
	MOVWF	LP_M
	MOVLW	DO_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	RE_M
	MOVWF	LP_M
	MOVLW	RE_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	MI_M
	MOVWF	LP_M
	MOVLW	MI_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	STOPWB

	MOVLW	DO_M
	MOVWF	LP_M
	MOVLW	DO_N
	MOVWF	LP_N
	CALL	PLAYWB
	CALL	PLAYWB
	CALL	PLAYWB
	CALL	PLAYWB
	CALL	STOPWB
	CALL	STOPWB
;;
	CALL	STOPWB
	CALL	STOPWB
	CALL	STOPWB
	CALL	STOPWB
	CALL	STOPWB
	CALL	STOPWB

	GOTO	MAIN


;******************************************************************************************
;   Function Name : PLAYWB
;   Title         :  
;   Input         : LP_M,LP_N
;   Output        : 
;   Description   : 
;   Int_OSC(4MHz) : 4M/4 ==(20)==> 50KHz ==> (n)==> n Hz
;******************************************************************************************
PLAYWB

;  (0)Play Time
	MOVFW	LP_M
	MOVWF	LP3
PLAY00
	MOVLW	SPEED_1
	MOVWF	LP2
PLAY01
;  (1)H_PLUS
	MOVLW	B'000100'
	MOVWF	GPIO
	MOVFW	LP_N
	MOVWF	LP1
PLAY01B
	MOVLW	D'02'
	MOVWF	LP0
PLAY01A
	NOP
	NOP
;	NOP
;	NOP
;	NOP
	NOP
	NOP
	DECFSZ	LP0,F
	GOTO	PLAY01A 
	DECFSZ	LP1,F
	GOTO	PLAY01B

;  (2)L_PLUS
	MOVLW	B'000000'
	MOVWF	GPIO
	MOVFW	LP_N
	MOVWF	LP1
PLAY02B
	MOVLW	D'02'
	MOVWF	LP0
PLAY02A
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	DECFSZ	LP0,F
	GOTO	PLAY02A 
	DECFSZ	LP1,F
	GOTO	PLAY02B
	DECFSZ	LP2,F
	GOTO	PLAY01
	DECFSZ	LP3,F
	GOTO	PLAY00

	RETLW	H'00'


;******************************************************************************************
;   Function Name : STOPWB
;   Title         :  
;   Input         : LP_M,LP_N
;   Output        : 
;   Description   : 
;   Int_OSC(4MHz) : 4M/4 ==(20)==> 50KHz ==(100)==> 500Hz ==(100)==> 5Hz
;******************************************************************************************
STOPWB
	MOVLW	B'000000'
	MOVWF	GPIO

;  (0)Stop Time
	MOVLW	SPEED_1
	MOVWF	LP3
STOP00
	MOVLW	D'200'
	MOVWF	LP2
STOP01
;  (1)L_PLUS
	MOVLW	D'100'
	MOVWF	LP1
STOP01B
	MOVLW	D'02'
	MOVWF	LP0
STOP01A
	NOP
	NOP
;	NOP
;	NOP
;	NOP
	NOP
	NOP
	DECFSZ	LP0,F
	GOTO	STOP01A 
	DECFSZ	LP1,F
	GOTO	STOP01B
	DECFSZ	LP2,F
	GOTO	STOP01 
	DECFSZ	LP3,F
	GOTO	STOP00

	RETLW	H'00'

	END