HT47蜂鳴器應(yīng)用

include ht47c20.inc

data .section 'data'
count1 db ?
count2 db ?
;****************************
code .section at 0 'code'
org 00h
jmp start

;****************************
org 20h
start: clr iNTC0
clr intc1
loop: clr pa.1
clr pa.0
call delay
set pa.1
call delay
set pa.0
call delay
jmp loop
;****************************
delay proc
MOV a,0a0h
MOV count1,a
MOV count2,a
d: sdz count1
jmp d
sdz count2
jmp d
ret
delay endp