Problem in displaying Characters in LCD Module

[vamanan]

mov datalcd,#38h

I am interfacing LCD module with 8051.When I am executing the program, the data I am sending is just visible in the LCD
Module and immediately everything turns complete black.When I am switching the power off the data just visibles again in the
LCd for a moment and then everythings go to blank.Can anybody help me in curing my headache.
My programme is

; UNDER DEVELOPMENT

$MOD51

DATALCD EQU P2 ; DATA AT PORT 2
EN EQU P3.4 ;
RW EQU P3.5 ; EN, R/W, RS SIGNALS
RS EQU P3.6 ;
CHRNUM EQU 10H ; NUMBER OF CHARACTERS IN A LINE (16 CHARACTERS ie. 10H)

ORG 0000H

CALL INIT ; INITIALISE THE LCD MODULE
CALL CLEAR ; CLEAR THE LCD MODULE

MOV DPTR, #LINE1 ;
MOV R1, #CHRNUM ;
MOV A, #00H ; ROUTINE TO DISPLAY
MOV R2, #00H ; THE FIRST LINE
WRTL1: MOVC A, @A+DPTR ; FROM LOOKUP TABLE
CALL PUTTXT ;
INC R2 ;
MOV A, R2 ;
DJNZ R1, WRTL1 ;

CALL NEWLN

MOV DPTR, #LINE2 ;
MOV R1, #CHRNUM ;
MOV A, #00H ; ROUTINE TO DISPLAY
MOV R2, #00H ; THE SECOND LINE
WRTL2: MOVC A, @A+DPTR ; FROM LOOKUP TABLE
CALL PUTTXT ;
INC R2 ;
MOV A, R2 ;
DJNZ R1, WRTL2 ;

SJMP $


INIT: SETB EN
CLR RS
CLR RW
MOV DATALCD, #38H
CLR EN
CALL WAIT

SETB EN
CLR RS
CLR RW
MOV DATALCD, #0EH
CLR EN
CALL WAIT

SETB EN
CLR RS
CLR RW
MOV DATALCD, #06H
CLR EN
CALL WAIT

RET

CLEAR: SETB EN
CLR RS
CLR RW
MOV DATALCD, #01H
CLR EN
CALL WAIT
RET

NEWLN: SETB EN
CLR RS
CLR RW
MOV DATALCD, #0C0H
CLR EN
CALL WAIT
RET

PUTTXT: SETB EN
SETB RS
CLR RW
MOV DATALCD, A
CLR EN
CALL WAIT
RET

WAIT: SETB EN
CLR RS
SETB RW
MOV DATALCD, #0FFH ; PORT2 INPUT MODE
MOV A, DATALCD
JB ACC.7, WAIT
CLR EN
CLR RW
RET

;;;;;;;;;; 'FFFFFFFFFFFFFFFF'
LINE1: DB 'xxxxxxxxxxxxxXXX'
LINE2: DB 'XXXXXXXXXXXXXXXX'

END

 

[sento]

May be problem with CONTRAST setting ...

 

[vamanan]

The contrast pin I permanently connected to ground.
Does it create any problem.

 

[XNOX_Rambo]

This is how you should connect the contrast pin: https://www.pacificdisplay.com/lcd_cont_adj.htm

 

[sento]

Try resistor 5k6 between Contrast pin and Gnd

 

[hill]

http://home.iae.nl/users/pouweha/lcd/lcd.shtml

 

[vamanan]

Sento,
AFter connecting resistor as mentioned by you, the problem is solved.
Thanking You.