;0600H-064BH 音變程序,P1.7放音。
        ORG     0600H		;音變程序,MCS-51單片機的 P1.7輸出音變聲
L3600:  MOV     P1,#0FFH		;關P1口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    L3600		;從頭開始
S361A:  SETB    P1.7			;變音子程序P1.7燈亮
        LCALL   S3640		;調用延時子程序
        CLR     P1.7			;變音子程序P1.7燈滅
        LCALL   S3640		;調用延時子程序 
        DJNZ    20H,S361A	;不為0轉
        CLR     P1.7			;關P1.7
        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