0802a.asm

来自「我实验板带的实验程序」· 汇编 代码 · 共 54 行

;0802液晶显示一个A
;***************************************************************************
;*  [e-mail]		     (51c51 test web)     www.8951.com     *
;*  Create by :石学军      www.51c51.com 更多例程请登陆网站        	   *
;***************************************************************************
	RS EQU P2.0
	RW EQU P2.1
	E EQU P2.2
	ORG 0000H
	MOV P0,#00000001B	;清屏
	ACALL ENABLE
	MOV P0,#00000001B	;清屏
	ACALL ENABLE
	MOV P0,#00111000B	;显示功能
        ACALL ENABLE
	MOV P0,#00001111B	;显示开关控制
 	ACALL ENABLE
	MOV P0,#00000110B 	;输入模式
	ACALL ENABLE
	MOV P0,#0C0H		;数据存贮器地址
	ACALL ENABLE
	mov p0,#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 P0,#0FFH
	CLR RS
	SETB RW
	CLR E
	NOP
	SETB E
	JB P0.7,DELAY		;判断忙标志
	RET
	END