;0802液晶顯示網站的廣告
;***************************************************************************
;*  sxj1974@163.com		     (51c51 test web)     www.8951.com     *
;*  Create by :石學軍      www.51c51.com 更多例程請登陸網站        	   *
;***************************************************************************
	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 
GOO: CALL DELAY2
    MOV P0,#01H

	ACALL ENABLE  
  
	MOV p0,#80H		;顯示位置           
	ACALL ENABLE     
	mov dptr,#table3
	call write1
	mov p0,#0c0h       
	call enable
	mov dptr,#table2
	call write1
	
	call enable
 CALL DELAY2
   MOV P0,#01H
	ACALL ENABLE 
	MOV p0,#80H		;顯示位置           
	ACALL ENABLE     
	mov dptr,#table4
	call write1
	mov p0,#0c0h       
	call enable
	mov dptr,#table5
	call write1
	
	call enable
	jmp GOO

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 p0,a
	setb rs
	clr rw
	clr e
	call delay
	setb e
	ret 
delay:				;延時子程序。
	mov r7,#255
	d1:mov r6,#25
	d2:djnz r6,d2
	djnz r7,d1
	ret      

delay2:	mov r5,#50	;延時。
d4: 	mov r6,#40
d3:	mov r7,#248
	djnz r7,$
	djnz r6,d3
	djnz r5,d4
	ret
TABLE5:db "51MCUBOX",00H     
TABLE4:db "89956892",00H     
table3: db "8951.COM",00H     
table2: db "GO-51C51",00H
end