2018年01月12日 | 单片机按键蜂鸣器演奏歌曲功能C程序

    BUZZER EQU P2.4 
    org    0000h        ;主程序起始地址 
    ajmp    main        ;跳至主程序

    org    000bh        ;timer0中断起始地址 
    jmp    tim0        ;跳至timer0中断子程序 
    org    0030h 
main: 
     MOV     tmod,#01h    ;设timer0在MODE1 
     MOV     ie,#82h        ;中断使能 
checkkey: 
    lcall    key            ;8ms when no key pressed. 
    cpl    a 
    jz    checkkey 
     MOV     a,34h 
    cjne    a,#0ah,checkkey 
    ajmp    start0 
             
start0: 
     MOV     30h,#00h    ;取简谱码指针 
next:     
    lcall    key            ;8ms when no key pressed. 
    cpl    a 
    jz    begm 
     MOV     a,34h 
    cjne    a,#0bh,begm 
    ajmp    end0 
begm: 
     MOV     a,30h        ;简谱码指针载入A 
     MOV     dptr,#table    ;至table取简谱码 
     MOV c    a,@a+dptr 
     MOV     r2,a        ;取到的简谱码暂存于R2 
    jz    end0        ;是否取到00(结束码)? 
    anl    a,#0fh        ;不是,则取低4位(节拍码) 
     MOV     r5,a        ;将节拍码存入R5 
     MOV     a,r2        ;将取到的简谱码再载入A 
    swap    a        ;高低四位交换 
    anl    a,#0fh        ;取低四位(音符码) 
    jnz    sing        ;取到的音符码是否为零? 
    clr    tr0        ;是,则不发音 
    jmp    d1 
sing:    dec    a        ;取到的音符码减1(不含0). 
     MOV     22h,a        ;存入(22H). 
    rl    a        ;乘2 
     MOV     dptr,#table1    ;至table1取相对的高位字节计数值 
     MOV c    a,@a+dptr 
     MOV     th0,a        ;取到的高位字节存入TH0 
     MOV     21h,a        ;取到的高位字节存入(21H) 
     MOV     a,22h        ;再载入取的的音符码 
    rl    a        ;乘2 
    inc    a        ;加1 
     MOV c    a,@a+dptr    ;至table1取相对的低位字节计数值 
     MOV     tl0,a        ;取到的高位字节存入TL0   
     MOV     20h,a           ;取到的高位字节存入(20H) 
    setb    tr0        ;启动timer0 
d1:    call    delay        ;基本单位时间1/4拍187毫秒 
    inc    30h        ;取简谱码指针加1 
    jmp    next        ;取下一个码 
end0:    clr    tr0        ;停止timer0 
    jmp    checkkey        ;重复循环 

tim0: 
    push    aCC        ;将A的值暂存于堆栈 
    push    psw        ;将psw的值暂存于堆栈 
     MOV     tl0,20h        ;重设计数值 
     MOV     th0,21h 
    cpl    BUZZER        ;将蜂鸣器反相 
    pop    psw        ;至堆栈取回psw的值 
    pop    acc        ;至堆栈取回a的值 
    reti            ;返回主程序 

delay:     MOV     r7,#02h        ;187毫秒 
d2:     MOV     r4,#187 
d3:     MOV     r3,#248 
    djnz    r3,$ 
    djnz    r4,d3 
    djnz    r7,d2 
    djnz    r5,delay    ;决定节拍 
    ret 
KEY: LCALL KS 
     JNZ K1 
      ljmp    key_exit 
K1:  LCALL delay4ms 
     LCALL delay4ms 
     LCALL KS 
     JNZ K2 
      ljmp    key_exit 
K2:     MOV  R2,#0EFH 
      MOV  R4,#00H 
K3:     MOV  P1,R2 
L6:    JB P1.0,L1  
      MOV  A,#00H 
     AJMP LK 
L1:    JB P1.1,L2 
      MOV  A,#04H 
     AJMP LK 
L2: JB P1.2,L3               
      MOV  A,#08H 
     AJMP LK 
L3:    JB P1.3,NEXT1 
      MOV  A,#0cH 
LK:    ADD A,R4 
         MOV     34h,a 
K4:    ;LCALL delay4ms 
;        lcall display 
;     LCALL KS 
;     JNZ K4 
     RET 
      
NEXT1: 
    INC  R4 
     MOV  A,R2 
    JNB ACC.7,key_exit 
    RL A 
     MOV  R2,A 
    AJMP K3 
key_exit: 
         MOV  a,#0ffh 
        ret 

KS:     MOV  P1,#0FH 
      MOV  A,P1 
     XRL A,#0FH 
     RET 
delay4ms:                        ;4ms 
       MOV  R5,#08H 
L7:     MOV  R6,#0FAH 
L8:    DJNZ R6,L8 
     DJNZ R5,L7 
     RET 

table1: 
    dw    64260,64400,64524,64580 
    dw    64684,64777,64820,64898 
    dw    64968,65030,65058,65110 
    dw    65157,65178,65217 

table: 
    ;1 
    db    82h,01h,81h,94h,84h,0b4h,0a4h,04h,82h,01h,81h,94h,84h,0c4h,0b4h,04h 
    ;2 
    db    82h,01h,81h,0f4h,0d4h,0b4h,0a4h,94h,0e2h,01h,0e1h,0d4h,0b4h,0c4h,0b4h,04h 
    ;3 
    db    82h,01h,81h,94h,84h,0b4h,0a4h,04h,82h,01h,81h,94h,84h,0c4h,0b4h,04h 
    ;4 
    db    82h,01h,81h,0f4h,0d4h,0b4h,0a4h,94h,0e2h,01h,0e1h,0d4h,0b4h,0c4h,0b4h,04h,00 
    end

实现按键蜂鸣器演奏歌曲功能,按“A”键开始播放，按“B”键停止播放.