TN3 LAB3

;VIET CT CON READADC DOC GIA TRI KENH VA TRA VE GIA TRI TRONG R0 ;VIET CT HIEN THI GIA TRI KENH CUA ADC LEN LCD DUNG CT CON READADC LCD_E BIT P3.4 LCD_RS BIT P3.5 LCDADDR EQU 6000H ORG 2000H MAIN: MOV R0,#30H MOV DPTR,#LCDADDR LAP: ACALL CLEAR ACALL INIT_LCD ACALL READADC ACALL DISPLAYADC MOV A,R2 ADD A,#30H ACALL WRITETEXT MOV A,R1 ADD A,#30H ACALL WRITETEXT MOV A,R0 ADD A,#30H ACALL WRITETEXT SJMP LAP INIT_LCD: MOV A,#38H ACALL WRITECOM MOV A,#0EH 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 READADC: MOV DPTR,#4000H MOV A,#00H MOVX @DPTR,A ;DOC GIA TRI KENH ACALL DELAY ;CHO ADC DOC XONG MOVX A,@DPTR MOV R0,A RET DELAY: MOV R5,#100 DJNZ R5,$ RET DISPLAYADC: MOV A,R0 MOV B,#10 DIV AB MOV R0,B MOV B,#10 DIV AB MOV R1,B MOV B,#10 DIV AB MOV R2,B RET END ; TRA GIA TRI RA R0