p20音变程序.asm

来自「单片机开发资料光盘-双龙-686M.zip」· 汇编 代码 · 共 37 行

;0600H-064BH 音变程序,P2.0放音。
        ORG     0600H		;音变程序,MCS-51单片机的p2.0输出音变声
L3600:  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    L3600		;从头开始
S361A:  SETB    P2.0		;变音子程序P2.0灯亮
        LCALL   S3640		;调用延时子程序
        CLR     P2.0		;变音子程序2.0灯灭
        LCALL   S3640		;调用延时子程序 
        DJNZ    20H,S361A	;不为0转
        CLR     P2.0		;关P2.0
        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