1602logo.asm

LCD液晶的应用程序

;1602液晶显示网站的LOGO
;***************************************************************************
;*  [e-mail]		     (51c51 test web)     www.8951.com     *
;*  Create by :石学军      www.51c51.com 更多例程请登陆网站        	   *
;***************************************************************************
	RS EQU P3.0 
	RW EQU P3.1 
	E EQU P3.5 
	MOV P1,#01H		;清除屏幕
	ACALL ENABLE 
	MOV P1,#38H		;8位点阵
	ACALL ENABLE 
	MOV P1,#0FH		;显示开
	ACALL ENABLE 
	MOV P1,#06H		;移动光标
	ACALL ENABLE 
	MOV P1,#80H		;显示位置           
	ACALL ENABLE     
	mov dptr,#table3
	call write1
	mov p1,#0c0h       
	call enable
	mov dptr,#table2
	call write1
	mov p1,#0c2h
	call enable
	jmp $
ENABLE:				;送命令
	CLR RS
	CLR RW 
	CLR E 
	ACALL DELAY 
	SETB E 
	RET
write1:				;写一段话
	mov r1,#00h
	a1:mov a,r1
	movc a,@a+dptr
	call write2
	inc r1
	cjne a,#00h,a1
	ret
write2:				;写一个字节
	mov p1,a
	setb rs
	clr rw
	clr e
	call delay
	setb e
	ret 
delay:				;延时子程序。
	mov r7,#255
	d1:mov r6,#255
	d2:djnz r6,d2
	djnz r7,d1
	ret      
table3: db 53h,58H,4AH,31H,39H,37H,34H,40H,31H,36H,33H,2EH,43H,4FH,4DH,20H,20,00H     
table2: db 54h,45h,4Ch,30h,37h,35h,35h,20H,32H,37H,35H,32H,39H,30H,36H,35H,00H
end