ORG	0000H
		call init
		
	

		mov dptr,#mydata


h_1:		clr a
		movc a,@a+dptr
		jz b_1
		acall datawrt
		acall delay
		inc dptr
		jz again
		sjmp h_1
again: sjmp $

init:
	mov a,#38h
	acall comndwrt
	acall delay

	mov a,#38h
	acall comndwrt
	acall delay

	mov a,#38h
	acall comndwrt
	acall delay

	mov a,#0eh
	acall comndwrt
	acall delay
	
	mov a,#01h
	acall comndwrt
	acall delay
	
	mov a,#06h
	acall comndwrt
	acall delay
	
	mov a,#80h
	acall comndwrt
	acall delay
	ret

comndwrt:	
	mov p0,a
	clr p3.7
	clr p3.6
	setb p3.5
	acall delay
	clr p3.5
	ret	

datawrt:
	mov p0,a
	setb p3.7
	clr p3.6
	setb p3.5
	acall delay 
	clr p3.5
	ret

delay:	mov r2,#50
here0:	mov r3,#255
here01:	djnz r3,here01
	djnz r2,here0
	ret

		
		org 300h
mydata:DB'TEST LCD ',0ah,0

		end