HT47定時器應用

include ht47c20.inc
data .section 'data'
int_count db ?
io_count db ?
code .section at 0 'code'
org 00h
jmp start
org 04h
reti
org 08h

reti
org 0ch
reti
org 10h
jmp timer_int
;---------------------------------
org 20h
start:
clr iNTC0
clr intc1
clr adcr.1
set tmrc.5 ;系統(tǒng)時鐘
MOV a,0ah
MOV int_count,a
clr io_count
MOV a,LOW(65536-12000) ;0.1秒產(chǎn)生中斷
MOV tmral,a
MOV tmrbl,a
MOV a,HIGH(65536-12000)
MOV tmrah,a
MOV tmrbh,a
set tmrc.4
set intc1.0
set intc0.0
jmp $
;---------------------------------
timer_int:
sdz int_count
reti
inc io_count
swapa io_count
cpl aCC
MOV pa,a
MOV a,0ah
MOV int_count,a
reti
;*************************************************

;*************************************************

include ht47c20.inc
data .section 'data'
count db ?
code .section at 0 'code'
org 00h
jmp start
org 04h
reti
org 08h
reti
org 0ch
reti
org 10h
jmp timer_int
;---------------------------------
start: clr intc0
clr intc1
clr adcr.1 ;定時/計數(shù)器允許
set tmrc.7 ;計數(shù)外部時鐘
clr count
MOV a,LOW(65536-1000);定時/計數(shù)器初值
MOV tmral,a
MOV tmrbl,a
MOV a,HIGH(65536-1000)
MOV tmrah,a
MOV tmrbh,a
set tmrc.4 ;打開定時/計數(shù)器
set intc1.0 ;定時/計數(shù)器中斷允許
set intc0.0 ;總中斷允許
jmp $
;---------------------------------
timer_int:
inc count
swapa count
cpl acc
MOV pa,a
reti
;************************************************

;************************************************

include ht47c20.inc
data .section 'data'
count db ?

code .section at 0 'code'
org 00h
jmp start
org 04h
reti
org 08h
reti
org 0ch
reti
org 10h
jmp timer_int
;---------------------------------
start: clr intc0
clr intc1
clr adcr.1
set tmrc.5
set tmrc.7
clr count
MOV a,LOW(65536-60000)
MOV tmral,a
MOV tmrbl,a
MOV a,HIGH(65536-60000)
MOV tmrah,a
MOV tmrbh,a
set tmrc.4
set intc1.0
set intc0.0
jmp $
;---------------------------------
timer_int:
inc count
swapa count
cpl acc
MOV pa,a
reti
;*********************************************