sund2.asm

几个可用的调试程序！！ ！！ ！！ ！！！１

;使用学习版中51的p2.4口。01mcu 2002/7/8
;配套教程 声音2


bb bit p2.4          ;定义bb在下面程序中代表p2.4
star:  acall sund
       acall d01s
       ljmp star

;声子程序
sund:  mov r2,#250   ;响250个周期
slop1: clr bb        ;使v1 9015导通
       acall d1ms    ;延时
       setb bb       ;使v1 9015截止
       acall d1ms
       djnz r2,slop1
       ret
;1ms延时子程序       
d1ms:  mov r0,#2   
dloop: mov r1,#250  ;改变r0的数值将改变声音频率
       djnz r1,$
       djnz r0,dloop
       ret
;0.5s延时子程序
d05s:  mov r0,#5
d05l1: mov r1,#200
d05l2: mov r2,#250
       djnz r2,$
       djnz r1,d05l2
       djnz r0,d05l1
       ret
       end