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
;---------------------------------