TN3 LAB4

LCD_E BIT P3.4
LCD_RS BIT P3.5
LCDADDR EQU 6000H
ORG 0000H
MAIN: MOV @R0,30H
MOV DPTR,#LCDADDR
ACALL CLEAR
ACALL INIT_LCD
MOV R0,#1
MOV R1,#0
ACALL GOTOXY
MOV R2,#0
RETURN:

MOV A,R2
ACALL DISPLAYSTRING2
INC R2
CJNE R2,#8,RETURN
MOV R0,#1
MOV R1,#12
ACALL GOTOXY
MOV A,#19
ACALL DISPLAYSTRING2

MAIN1:

MOV R0,#1
MOV R1,#8
ACALL GOTOXY
ACALL READADC
ACALL CALADC

MOV A,R0
ADD A,#9
ACALL DISPLAYSTRING2
MOV A,#8


ACALL DISPLAYSTRING2
MOV A,R1
MOV B,#10
DIV AB
ADD A,#9
ACALL DISPLAYSTRING2
MOV A,B
ADD A,#9
ACALL DISPLAYSTRING2
SJMP MAIN1
INIT_LCD:
MOV A,#38H
ACALL WRITECOM
MOV A,#0CH
ACALL WRITECOM
MOV A,#06H
ACALL WRITECOM
MOV A,#0C0H
ACALL WRITECOM
RET
CLEAR:
MOV A,#01H
ACALL WRITECOM
RET

WRITECOM:
MOV DPTR,#LCDADDR
SETB LCD_E
CLR LCD_RS
MOVX @DPTR,A


CLR LCD_E
ACALL WAIT_LCD
RET
WRITETEXT:
MOV DPTR,#LCDADDR
SETB LCD_E
SETB LCD_RS
MOVX @DPTR,A
CLR LCD_E
ACALL WAIT_LCD
RET
WAIT_LCD:
MOV R7,#10
L1:

MOV R6,#250
DJNZ R6,$
DJNZ R7,L1
RET

DISPLAYSTRING2:
MOV DPTR,#MESSAGE
MOVC A,@A+DPTR

ACALL WRITETEXT
RET
MESSAGE: DB "VOLTAGE .0123456789V"
READADC:
MOV DPTR,#4000H
MOV A,#00H
MOVX @DPTR,A
ACALL DELAY_ADC
MOVX A,@DPTR
MOV R0,A


RET
DELAY_ADC:
MOV R5,#100
DJNZ R5,$
RET
GOTOXY:
CJNE R0,#1,HANG2
MOV A,#80H
BACK: ADD A,R1
ACALL WRITECOM
RET
HANG2:

MOV A,#0C0H
SJMP BACK

CALADC:
MOV A,R0

MOV B,#51
DIV AB
MOV R0,A
MOV A,#5
MUL AB
MOV B,#51
DIV AB
MOV R1,A
MOV A,#5
MUL AB
MOV B,#51
DIV AB
MOV R2,A
MOV A,#5


MUL AB
MOV B,#51
DIV AB
CJNE A,#5,KHAC
KHAC: JC NEXT
INC R2
NEXT: MOV A,R1
MOV B,#10
MUL AB
ADD A,R2
MOV B,#2
MUL AB
MOV R1,A
RET

END