用PIC单片机实现音乐播放的实例程序

    b BeepPlay
psHang:
    call HangTab
    b BeepPlay
psWelcom:
    call WelcomTab
    b BeepPlay
BeepPlay:
    incf BeepCnt,f
    movwf TmrBak
    movf TmrBak,f
    btfsc status,z
    b BeepOff
    movlw .1
    xorwf TmrBak,w
    btfsc status,z
    b BeepStop
    b BeepForEnd
BeepOff:
    clrf BeepCnt
    bcf Sflag,FgBeep
    bcf BeepOut
    bcf T2CON,TMR2ON
    b BeepForEnd
BeepStop:
    bcf T2CON,TMR2ON ;stop
    bcf BeepOut
    BeepForEnd:
    retlw 0
;**************************************************
END

上一页  [1] [2] 

本文关键字：单片机  程序  音乐播放  源码-程序，单片机-工控设备 - 源码-程序