org 0000h
mian:
jb p1.7,$;開關
lcall f1khz
lcall f500hz
sjmp main
;..............1Khz....
f1khz:
mov r7,#50
setb p1.0; 發聲
lcall t500us
clr p1.0
lcall t500us
djnz r7,f1kHZ
ret
;...............500Hz...
f500hz:
mov r7,#100
setb p1.0; 發聲
lcall t500us
lcall t500us
clr p1.0
lcall t500us
lcall t500us
djnz r7,f500HZ
ret
;................0.5ms....
t500us:
mov r7,#247;R7不是250,是因為調用指令等已花去了幾US了
djnz r7,$
ret
end