1602a.asm

LCD液晶的应用程序

;1602液晶显示一个A
;***************************************************************************
;*  [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
	ORG 0000H
	MOV P1,#00000001B	;清屏
	ACALL ENABLE
	MOV P1,#00000001B	;清屏
	ACALL ENABLE
	MOV P1,#00111000B	;显示功能
        ACALL ENABLE
	MOV P1,#00001111B	;显示开关控制
 	ACALL ENABLE
	MOV P1,#00000110B 	;输入模式
	ACALL ENABLE
	MOV P1,#0C0H		;数据存贮器地址
	ACALL ENABLE
	mov p1,#01000001b	;ASCII码
	SETB RS
	CLR RW 
	CLR E
	ACALL DELAY
	SETB E 
	AJMP $
ENABLE: CLR RS 			;送命令
	CLR RW
	CLR E
	ACALL DELAY
	SETB E
	RET
DELAY: MOV P1,#0FFH
	CLR RS
	SETB RW
	CLR E
	NOP
	SETB E	
	JB P1.7,DELAY		;判断忙标志
	RET
	END