;0802液晶顯示CHINA-SZ LOVE8051
;***************************************************************************
;*  sxj1974@163.com		     (51c51 test web)     www.8951.com     *
;*  Create by :石學軍      www.51c51.com 更多例程請登陸網(wǎng)站        	   *
;***************************************************************************
	RS EQU P2.0
	RW EQU P2.1
	E EQU P2.2
	MOV P0,#01H		;清除屏幕
	ACALL ENABLE
	MOV P0,#38H		;8位點陣
	ACALL ENABLE
	MOV P0,#0FH		;顯示開
	ACALL ENABLE
	MOV P0,#06H		;移動光標
	ACALL ENABLE
	MOV P0,#80H		;顯示位置
	ACALL ENABLE
	mov dptr,#table3
	call write1
	mov p0,#0c0h
	call enable
	mov dptr,#table2
	call write1
	mov p0,#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:				;寫一個字節(jié)
	mov p0,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"CHINA-SZ"
table2: db"LOVE8051"
end