;音頻驅(qū)動——演奏《八月桂花香》

        org 0
        ljmp start

        org 000bh
        inc 20h         ;中斷服務,中斷計數(shù)器加1
        mov th0,#0d8h
        mov tl0,#0efh   ;12M晶振，形成10毫秒中斷
        reti

start:  mov sp,#50h
        mov th0,#0d8h
        mov tl0,#0efh
        mov tmod,#01h
        mov ie,#82h

music0: nop
        mov dptr,#sdata ;表格地址送dptr
        mov 20h,#00h    ;中斷計數(shù)器清0
        mov b,#00h      ;表序號清0

music1: nop
        clr a
        movc a,@a+dptr  ;查表取代碼
        jz end0         ;是00h,則結(jié)束
        cjne a,#0ffh,music5
        ljmp music3

music5: nop
        mov r6,a
        inc dptr
        mov a,b
        movc a,@a+dptr  ;取節(jié)拍代碼送r7
        mov r7,a
        setb tr0        ;啟動計數(shù)

music2: nop
        cpl p1.7
        mov a,r6
        mov r3,a
        lcall delay
        mov a,r7
        cjne a,20h,music2 ;中斷計數(shù)器(20h)=r7否?
                        ;不等,則繼續(xù)循環(huán)
        mov 20h,#00h    ;等于,則取下一代碼
        inc dptr
        ljmp music1

music3: nop
        clr tr0         ;延時100毫秒
        mov r2,#0dh

music4: nop
        mov r3,#0ffh
        lcall delay
        djnz r2,music4
        inc dptr
        ljmp music1

end0:   nop
        mov r2,#64h     ;歌曲結(jié)束,延時1秒后繼續(xù)

music6: mov r3,#00h
        lcall delay
        djnz r2,music6
        ljmp music0

delay:  nop
del3:   mov r4,#02h
del4:   nop
        djnz r4,del4
        nop
        djnz r3,del3
        ret

sdata:  db 18h,30h,1ch,10h,20h,40h,1ch,10h,18h,10h,20h,10h,1ch,10h,18h,40h
        db 1ch,20h,20h,20h,1ch,20h,18h,20h,20h,80h,0ffh,20h,30h,1ch,10h,18h
        db 20h,15h,20h,1ch,20h,20h,20h,26h,40h,20h,20h,2bh,20h,26h,20h,20h
        db 20h,30h,80h,0ffh,20h,20h,1ch,10h,18h,10h,20h,20h,26h,20h,2bh,20h
        db 30h,20h,2bh,40h,20h,20h,1ch,10h,18h,10h,20h,20h,26h,20h,2bh,20h
        db 30h,20h,2bh,40h,20h,30h,1ch,10h,18h,20h,15h,20h,1ch,20h,20h,20h
        db 26h,40h,20h,20h,2bh,20h,26h,20h,20h,20h,30h,80h,20h,30h,1ch,10h
        db 20h,10h,1ch,10h,20h,20h,26h,20h,2bh,20h,30h,20h,2bh,40h,20h,15h
        db 1fh,05h,20h,10h,1ch,10h,20h,20h,26h,20h,2bh,20h,30h,20h,2bh,40h
        db 20h,30h,1ch,10h,18h,20h,15h,20h,1ch,20h,20h,20h,26h,40h,20h,20h
        db 2bh,20h,26h,20h,20h,20h,30h,30h,20h,30h,1ch,10h,18h,40h,1ch,20h
        db 20h,20h,26h,40h,13h,60h,18h,20h,15h,40h,13h,40h,18h,80h,00h

        end