音变程序t.asm

单片机开发资料光盘-双龙-686M.zip

;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