;/*********************************************
; example program for 51 download board
;  @11.0592MHz
; 
; www.mcufan.com

;;音變程序:MCS-51單片機的P3.6輸出驅動蜂鳴器變聲,低電平有效(發聲)
;*********************************************/
;音變程序:MCS-51單片機的P3.6輸出驅動蜂鳴器變聲,低電平有效(發聲)

	ORG 0h
	
	LJMP LBY	


;音變程序,P3.6放音。
        ORG     0600H		;音變程序,
LBY:  MOV     P2,#0FFH	;關P2口LED燈
        MOV     20H,#0F0H	;循次環數
        MOV     21H,#15H	;循次環數 
L3609:  LCALL   S361A		;調用變音子程序
        DJNZ    21H,L3609	;不為0轉
L360F:  INC     21H		;音調升高
        NOP     
        LCALL   S361A		;調用變音子程序
        DJNZ    21H,L360F	; 不為0轉
        SJMP    LBY		;從頭開始
        
        
S361A:  SETB    P3.6		;變音子程序P3.6燈亮
        LCALL   S3640		;調用延時子程序
        CLR     P3.6		;變音子程序2.0燈滅
        LCALL   S3640		;調用延時子程序 
        DJNZ    20H,S361A	;不為0轉
        CLR     P3.6		;關P3.6
        LCALL   S3646		;延時
        RET 
        
            
        ORG     0630H		;延時子程序
S3630:  PUSH    02H
L3632:  DJNZ    R2,$
        POP     02H
        DJNZ    R2,S3630
        RET  
        
           
        ORG     0640H		;延時子程序
S3640:  MOV     R2,21H
        LCALL   S3630
        RET  
        
           
S3646:  MOV     R2,#15H		;延時子程序
        LCALL   S3630
        RET     
        END