;內容：旋轉變阻器改變AD轉換的數通過4為LED顯示出來
;數碼管段碼接法A-PD0,B-PD1....G-PD6,H-PD7
;數碼管位碼接法OM0-PC0...COM4-PC3
;完整源碼下載:http://www.zg4o1577.cn/f/htadzh.rar
;;AD輸入腳-PA0
include HT66F50.inc
ORG 0000H
JMP A1
ORG 0014H ;多功能中斷入口地址
JMP ZD1
ORG 1CH ;ADC中斷入口地址
JMP ISR_ADC
ORG 0030H
Q1:
DC 03FH ; 0
DC 006H ; 1
DC 05BH ; 2
DC 04FH ; 3
DC 066H ; 4
DC 06DH ; 5
DC 07DH ; 6
DC 007H ; 7
DC 07FH ; 8
DC 06FH ; 9
DC 077H ; A
DC 07CH ; B
DC 039H ; C
DC 05EH ; D
DC 079H ; E
DC 071H ; F
A1:
CLR [98H] ;AD數據高8位存儲器
CLR [99H] ;AD數據低8位存儲器
MOV A,0 ;顯示內容
MOV [8AH],A ;第一位數碼管段碼顯示內容寄存器
MOV A,0 ;顯示內容
MOV [8BH],A ;第二位數碼管段碼顯示內容寄存器
MOV A,0 ;顯示內容
MOV [8CH],A ;第三位數碼管段碼顯示內容寄存器
MOV A,0 ;顯示內容
MOV [8DH],A ;第四位數碼管顯示內容寄存器
MOV A,08H ;跟CP1C寄存器設置要求選擇數據
MOV CP1C,A ;設置PC口為I/0口而不是中斷口
CLR PBC ;設置pc 口為輸出口
CLR PDC ;設置PD 口為輸出口
MOV A,1 ;設置初始顯示位碼顯示第一位
MOV [80H],A ;位碼寄存器
MOV A,8AH ;設置對應第一位段碼寄存器
MOV MP0,A ;間接寄存器指針
MOV A,00000000B ;設置TM2 計數時鐘位為fSYS/4
MOV TM2C0,A
MOV A,11000001B ;設置TM2中斷為定時/計數模式選擇比較器A匹配
MOV TM2C1,A
MOV A,LOW 5000 ;設置中斷時間為5000個時鐘周期
MOV TM2AL,A ;低8位
MOV A,HIGH 5000 ;設置中斷時間為5000個時鐘周期
MOV TM2AH,A ;高8位
MOV A,00010000B ;打開AD電源 并ADRFS=1
MOV ADCR0,A ;ADRH為bit 3~bit 0，ADRL為bit 7~bit 0
MOV A,00000110B ;AD轉換時鐘為fSYS/64,
MOV ADCR1,A ;VREFS=0選擇內部參考電壓
MOV A,00000001B ;選擇AD通道為AN0
MOV ACERL,A
clr START ; 啟動AD轉換 0→1→0 啟動
set START ;
clr START ;
CLR ADF ;清標志
SET ADE ;開AD中斷
CLR MF0F ;清多功能中斷0標志
CLR T2AF ;清定時器2較器A中斷標志
SET MF0E ;使能多功能0中斷
SET T2AE ;使能定時器2較器A中斷
SET EMI ;使能總中斷
SET T2ON ;開始計數
A2:
CALL CL1 ;調用2位16進制數轉換為5位10進制數子程序
MOV A,[9DH] ;顯示內容
MOV [8AH],A ;第一位數碼管段碼顯示內容寄存器
MOV A,[9CH] ;顯示內容
MOV [8BH],A ;第二位數碼管段碼顯示內容寄存器
MOV A,[9BH] ;顯示內容
MOV [8CH],A ;第三位數碼管段碼顯示內容寄存器
MOV A,[9AH] ;顯示內容
MOV [8DH],A ;第四位數碼管顯示內容寄存器
JMP A2
;*******************************************************
;2位16進制數轉換為5為10進制數子程序（0ffh=65535）
;*******************************************************
CL1:
MOV A,[98H]
MOV [9AH],A
MOV A,[99H]
MOV [9BH],A
CALL CL2
MOV A,00001111B
AND A,[9EH]
MOV [9AH],A
SWAP [9EH]
MOV A,00001111B
AND A,[9EH]
MOV [9BH],A
MOV A,[9CH]
MOV [9EH],A
MOV A,00001111B
AND A,[9DH]
MOV [9CH],A
SWAP [9DH]
MOV A,00001111B
ANDM A,[9DH]
RET
CL2:
CLR [9CH]
CLR [9DH]
CLR [9EH]
MOV A,16
MOV [9FH],A
CL3:
CLR C
RLC [9BH]
RLC [9AH]
MOV A,[9EH]
ADC A,[9EH]
DAA [9EH]
MOV A,[9DH]
ADC A,[9DH]
DAA [9DH]
MOV A,[9CH]
ADC A,[9CH]
DAA [9CH]
SDZ [9FH]
JMP CL3
RET
;*******************************************************
; 中斷服務子程序
;*******************************************************
ZD1:
MOV [0F0H],A ;壓棧ACC到0F0H
MOV A,STATUS ;
MOV [0F1H],A ;壓棧status標志寄存器到0F1H
CLR PB ;清PC（清屏幕）
MOV A,Q1 ;數據表地址
CLR TBHP ;清數據表地址高位否則出錯
ADD A,IAR0 ;利用間接寄存器找到要顯示段碼所在數據表的地址
MOV TBLP,A ;表格指針寄存器TBLP
TABRD PD ;查表并將數據存到PD口寄存器
MOV A,[80H] ;位碼寄存器
MOV PB,A ;將位碼寄存器的數存到PC口寄存器
;段碼和位碼的數都有了所以數碼管被點亮
INC MP0 ;間接寄存器指針加1指向下一個段碼寄存器
RL [80H] ;左移位碼寄存器控制下一個數碼管
SNZ [80H].5 ;判斷是否控制完4個數碼管
JMP ZD2 ;退出中斷繼續
MOV A,1 ;是則從新初始化寄存器數據
MOV [80H],A ;
MOV A,8AH ;千位數碼管對應寄存器
MOV MP0,A ;存到間接寄存器0
ZD2:
MOV A,[0F1H] ;彈棧后進先出先進后出
MOV STATUS,A ;彈棧0F1H的數到標志寄存器
MOV A,[0F0H] ;彈棧0F0H的數到acc
CLR MF0F ;清多功能標志
CLR T2AF ;清定時器2比較器A標志
RETI ;中斷返回
ISR_ADC:
MOV [0F0H],A ;壓棧ACC到0F0H
MOV A,STATUS ;
MOV [0F1H],A ;壓棧status標志寄存器到0F1H
MOV A,ADRH
MOV [98H],A
MOV A,ADRL
MOV [99H],A
MOV A,[0F1H] ;彈棧后進先出先進后出
MOV STATUS,A ;彈棧0F1H的數到標志寄存器
MOV A,[0F0H] ;彈棧0F0H的數到acc
clr START ;high pulse on start bit to initiate conversion
set START ;reset A/D
clr START ;start A/D
RETI ;中斷返回
;*******************************************************
; 延時子程序
;*******************************************************
M001:
MOV A,1
MOV [85H],A
M002:
MOV A,200
MOV [86H],A
M003:
MOV A,250
MOV [87H],A
M004:
SDZ [87H]
JMP M004
SDZ [86H]
JMP M003
SDZ [85H]
JMP M002
RET
END