|
|
P1ASF EQU 09DH
ADC_CONTR EQU 0BCH
ADC_RESL EQU 0BEH
AUXR1 EQU 0A2H
LCD_RS EQU P2.6
LCD_RW EQU P2.5
LCD_EN EQU P2.7
LCD_DATA EQU P0
AD_L EQU 30H
ORG 0000H
LJMP START
START:
LCALL LCD_INIT;
MOV R1,#01H
LCALL LCD_WCMOD
MOV R1,#01H
LCALL LCD_WCMOD
S2:LCALL INIT_ADC
LCALL AD_CON
MOV R1,#01H
LCALL LCD_WCMOD
LCALL LCD_DIS2
LJMP S2
INIT_ADC:
MOV P1ASF,#01H
MOV AUXR1,#04H
MOV ADC_CONTR,#0E0H
LCALL DELAY5US
MOV ADC_CONTR,#0E8H
LCALL DELAY5US
RET
AD_CON:
MOV ADC_CONTR,#0E8H
LCALL DELAY5US
MOV A,ADC_RESL
LCALL DELAY5US
MOV AD_L,A
MOV R3,AD_L
MOV ADC_CONTR,#00H
RET
//*************************************************10進制顯示*********************************************//
LCD_DIS2:
LCALL LCD_BUSY
CLR A
MOV A,R3
MOV B,#33H
DIV AB
ANL A,#0FH
ADD A,#30H
LCALL LCD_WDATA
LCALL DELAY
MOV A,#2EH
LCALL LCD_WDATA
LCALL DELAY
MOV A,B
MOV B,#05H
MUL AB
MOV B,#33H
DIV AB
MOV R2,B
MOV B,#02H
MUL AB
MOV R0,A
MOV A,R2
MOV B,#05H
MUL AB
MOV B,#33H
DIV AB
ANL A,#0FH
MOV B,#04H
MUL AB
MOV R4,A
CJNE A,#09H,L1
L1: JNC LOOP2
JMP LOOP1
LOOP1:
MOV A,R0
ADD A,#30H
LCALL LCD_WDATA
LCALL DELAY
MOV A,R4
ADD A,#30H
LCALL LCD_WDATA
JMP L2
LOOP2:
INC R0
MOV A,R0
ADD A,#30H
LCALL LCD_WDATA
LCALL DELAY
MOV A,R4
SUBB A,#0AH
ADD A,#30H
LCALL LCD_WDATA
JMP L2
L2:
LCALL DELAY
RET
//*************************************************1602********************************//
LCD_INIT:
MOV R1,#38H
LCALL LCD_WCMOD
MOV R1,#08H
LCALL LCD_WCMOD
MOV R1,#0CH
LCALL LCD_WCMOD
RET
LCD_WCMOD:
LCALL LCD_BUSY
CLR LCD_EN
CLR LCD_RW
CLR LCD_RS
SETB LCD_EN
MOV A,R1
MOV LCD_DATA,A
CLR LCD_EN
RET
LCD_WDATA:
CLR LCD_EN
SETB LCD_RS
CLR LCD_RW
SETB LCD_EN
MOV LCD_DATA,A
CLR LCD_EN
RET
LCD_BUSY:
CLR A
CLR LCD_EN
CLR LCD_RS
SETB LCD_RW
SETB LCD_EN
MOV A,LCD_DATA
CLR LCD_EN
JB ACC.7,LCD_BUSY
LCALL DELAY
RET
DELAY:
MOV R7,#250
LOOP0:MOV R6,#100
DJNZ R6,$
DJNZ R7,LOOP0
RET
DELAY5US:
MOV R2,#120
DJNZ R2,$
RET
END
|
-
-
12_ad采集.rar
2020-4-9 12:28 上傳
點擊文件名下載附件
下載積分: 黑幣 -5
22.5 KB, 下載次數(shù): 3, 下載積分: 黑幣 -5
12c5a60s2 ad讀取
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
