Ht47AD转换器应用

Ht47AD转换器应用

include ht47c20.inc
data .section 'data'
Rs equ 0064h
n db ?
count db ?
kh db ?
kl db ?
th db ?
tl db ?
int_count db ?
;----------------------------

code .section at 0 'code'
org 00h
jmp start
org 04h
reti
org 08h
reti
org 0ch
reti
org 10h
jmp t_int
;----------------------------
start: clr iNTC0
clr intc1
clr adcr
set adcr.1 ;A/D转换允许
MOV a,0fh ;TIMER A计数系统时钟
andm a,tmrc
set adcr.4 ;TIMER B计数传感器电阻-参考电容
set adcr.5
clr aCC ;定时/计数器初值
MOV tmral,a
MOV tmrah,a
MOV tmrbl,a
MOV tmrbh,a
clr int_count ;中断次数计数器
set tmrc.4 ;开定时/计数器
set intc1.0 ;定时/计数器中断允许
set intc0.0 ;总中断允许
jmp $
;----------------------------
t_int: inc int_count ;定时/计数器中断服务子程序
MOV a,int_count ;中断次数判断
MOV count,a
sdz count
jmp next
jmp int1
next: sdz count
jmp int3
jmp int2
;----------------------------
int1: MOV a,tmrbh ;第一次中断
MOV kh,a ;读取TIMER B的值,记为KRT0CS
MOV a,tmrbl
MOV kl,a
clr n
clr tblp
sCAN_tab: ;查表,确定n的值
tabrdl acc
sub a,kl
MOV a,tblh
sbc a,kh
inc n
inc tblp
sz c
jmp scan_over
jmp scan_tab
scan_over:
dec n
;----------
; MOV a,08h
;subm a,n
;----------
MOV a,high Rs
MOV kh,a
MOV a,low Rs
MOV kl,a
MOV a,n
MOV count,a
sz count ;判断n是否为0
jmp div ;n不为0,则进行除法操作
jmp div_over ;n为0,则不进行除法操作
div: clr c ;除法操作
rrc kh
rrc kl
sdz count
jmp div
div_over:
clr acc ;TIMER A计数初值为0
MOV tmral,a
MOV tmrah,a
MOV a,0ffh ;TIMER B计数初值为65536-KRTCS
sub a,kl
MOV tmrbl,a
MOV a,0ffh
sub a,kh
MOV tmrbh,a
set adcr.0 ;TIMER B溢出作为中断
set tmrc.4
reti
;----------------------------
int2: MOV a,tmrah ;第二次中断
MOV th,a ;读取TIMER A的值,记为T0
MOV a,tmral
MOV tl,a
clr adcr.0 ;TIMER A溢出作为中断
clr adcr.5 ;TIMER B计数参考电阻-参考电容
MOV a,0ffh ;TIMER A计数初值为65536-T0
sub a,tl
MOV tmral,a
MOV a,0ffh
sub a,th
MOV tmrah,a
clr acc ;TIMER B计数初值为0
MOV tmrbl,a
MOV tmrbh,a
set tmrc.4
reti
;----------------------------
int3: MOV a,tmrbh ;第三次中断
MOV kh,a ;读取TIMER B的值,记为KRSCS
MOV a,tmrbl
MOV kl,a
MOV a,n
MOV count,a
sz count ;判断n是否为0
jmp mul ;n不为0,则进行 乘法操作
jmp mul_over ;n为0,则不进行乘法操作
mul: clr acc ;乘法操作
rlc kl
rlc kh
sdz count
jmp mul
mul_over:
call display
clr adcr.0 ;TIMER A溢出作为中断
set adcr.5 ;TIMER B计数传感器电阻-参考电容
clr acc ;定时/计数器初值
MOV tmral,a
MOV tmrah,a
MOV tmrbl,a
MOV tmrbh,a
clr int_count ;清除中断次数计数器
set tmrc.4
reti
;----------------------------
display proc ;显示子程序
ret
display endp
;----------------------------
org 700h
tab: dc 100h,200h,400h,800h,1000h,2000h,4000h,8000h,0ffffh

;------------------------------------------------------------

include ht47c20.inc
data .section 'data'
count1 db ?
count2 db ?

code .section at 0 'code'
org 00h
jmp start
org 04h
reti
org 08h
reti
org 0ch
reti
org 10h
jmp ad_int
;---------------------------------
start:
clr intc0
clr intc1
MOV a,0fh
andm a,tmrc
MOV a,32h
MOV adcr,a
clr acc
MOV tmral,a
MOV tmrah,a
MOV tmrbl,a
MOV tmrbh,a
set tmrc.4
set intc1.0
set intc0.0
jmp $
;---------------------------------
ad_int: MOV a,tmrbh
MOV count1,a
MOV a,tmrbl
MOV count2,a
call calculate
reti
;---------------------------------
calculate proc

ret
calculate endp
;---------------------------------