返回主页XL2000实验仪51论坛单片机教学本站例程 技术资料 软件下载 产品介绍学液晶显示如何购买  

  步进电机xl600实验仪 红外线遥控 c语言集锦自制编程器音响技术品质技术音响网址  更新中..51论坛

1602液晶屏驱动源程序6

察看本站的产品全家福和网站介绍      本站产品正式流水线工艺生产情况         

如果您在学习中遇到任何问题清参加51单片机学习网（深圳学林电子有限公司）论坛讨论， 让更多的朋友帮助你！

12232驱动程序   12832驱动程序   12864驱动源程序   1602 驱动程序   0802 液晶驱动程序  回液晶主页

;lcd display program
RS BIT P3.0
R_W BIT P3.1
ENABLE BIT P3.2 
LCDDATA DATA P1


;******************************************

ORG 0000H
AJMP MAIN
;ORG 000BH
;AJMP INSERS

ORG 0050H
MAIN:
;MOV TMOD,#00H
;MOV TL0,#00H
;MOV TH0,#00H
;SETB EA
;SETB ET0
;SETB TR0
;MOV R5,#50
;CLR P3.2
;SETB P3.1
MOV SP,#60H
LCALL INITIAL
MOV A,#10000000B
LCALL WRITE_INSTRUCTION
MOV DPTR,#LINE1
LCALL PR_STRING
MOV A,#11000000B
LCALL WRITE_INSTRUCTION
MOV DPTR,#LINE2
LCALL PR_STRING
AJMP $
LINE1:
DB "LCD testing____", 00H
LINE2:
DB "Easy learning it.", 00H

;MOV TL0,#00H
;MOV TH0,#00H
;DJNZ R5,L0
;MOV R5,#50
;CPL P3.2
;CPL P3.1
;L0:
;RETI

INITIAL:
MOV A,#00111000B
LCALL WRITE_INSTRUCTION
MOV A,#00001110B
LCALL WRITE_INSTRUCTION
MOV A,#00000110B
LCALL WRITE_INSTRUCTION
RET

CHECKBUSY:
PUSH ACC
CHECKBUSYLOOP:
CLR ENABLE
SETB R_W
CLR RS
SETB ENABLE
MOV A,LCDDATA
CLR ENABLE
JB ACC.7,CHECKBUSYLOOP
POP ACC
RET

WRITE_INSTRUCTION:
LCALL CHECKBUSY
CLR ENABLE
CLR R_W
CLR RS 
SETB ENABLE
MOV LCDDATA,A
CLR ENABLE
LCALL DELAY
RET

WRITELCDDATA:
LCALL CHECKBUSY
CLR ENABLE
CLR R_W
SETB RS
SETB ENABLE
MOV LCDDATA,A
CLR ENABLE
RET

CLS:
MOV A,#01H
LCALL WRITE_INSTRUCTION
RET

PR_STRING:
PUSH ACC
PR_LOOP:
CLR A
MOVC A,@A+DPTR
JZ END_PR
LCALL WRITELCDDATA
INC DPTR
AJMP PR_LOOP

END_PR:
POP ACC
RET

DELAY:
MOV R5,#05H
L1:
MOV R6,#0F8H
L2:
DJNZ R6,L2
DJNZ R5,L1
RET

END