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”鍵停止播放.