DB0 EQU P1.0
DB1 EQU P1.1
DB2 EQU P1.2
DB3 EQU P1.3
DB4 EQU P1.4
DB5 EQU P1.5
DB6 EQU P1.6
DB7 EQU P1.7
EN EQU  P0.2
RS EQU  P0.0
RW EQU  P0.1
DATA1 EQU P1

org 0000h
    
        LCALL DELAY_LCD

	LCALL INIT_LCD 		;  LCD INTIALIZATION
	LCALL CLEAR_LCD 	;  CLEARING LCD DISPLAY


	MOV   A,#'H'
	LCALL WRITE_TEXT
	MOV   A,#'E'
	LCALL WRITE_TEXT
	MOV   A,#'L'
	LCALL WRITE_TEXT
	MOV   A,#'L'
	LCALL WRITE_TEXT
	MOV   A,#'O'
	LCALL WRITE_TEXT
	MOV   A,#' '
	LCALL WRITE_TEXT
	
	CLR RS
	MOV DATA1,#0C1H
	SETB EN
        NOP
        NOP
	NOP
	CLR EN
	LCALL WAIT_LCD
	
	MOV    A,#'W'
	LCALL  WRITE_TEXT
	MOV    A,#'O'
	LCALL  WRITE_TEXT
	MOV    A,#'R'
	LCALL  WRITE_TEXT
	MOV    A,#'L'
	LCALL  WRITE_TEXT
        MOV    A,#'D'
	LCALL  WRITE_TEXT
         
        CLR  P0.7                ;to isplay successful execution 

HERE:   SJMP HERE


WAIT_LCD:

      CLR   EN 		           
      CLR   RS 	                  ;It's a command
      SETB  RW                    ;It's a read command
      MOV   DATA1,#0FFh           ;Set all pins to FF initially
      SETB  EN 		          ;Clock out command to LCD
      MOV   A,DATA1 	          ;Read the return value
      JB    ACC.7,WAIT_LCD        ;If bit 7 high, LCD still busy
      CLR   EN 		         ;Finish the command
      CLR   RW 		         ;Turn off RW for future commands
      RET



INIT_LCD:

      CLR RS	        	;CLEARING RS SINCE COMMAND
      MOV DATA1,#3Ch 	        ;CONTOL WORD TO SAY 2X8 LCD
      SETB EN			
      NOP			;DELAY FOR ENABLE
      NOP
      NOP
      CLR EN
      LCALL WAIT_LCD	        ;WAITING FOR THE END OF COMMAND

      CLR RS			; SECOND CONTROL WORD 
      MOV DATA1,#0Ch	        ;  TO TURN ON LCD AND CURSOR
      SETB EN			; CLOCK FOR LCD
      NOP
      NOP
      NOP
      CLR EN
      LCALL WAIT_LCD       ; WAITING FOR THE EXECUTION OF COMMAND
      
      LCALL CLEAR_LCD
 
      CLR RS
      MOV DATA1,#06h 	   ; TO MOVE THE CURSOR TO THE RIGHT
      SETB EN
      NOP
      NOP
      NOP
      CLR EN
      LCALL WAIT_LCD
       
 
  RET


CLEAR_LCD:

      CLR RS  
      MOV DATA1,#01h 		; COMMAND TO CLEAR LCD 
      SETB EN
      NOP
      NOP
      NOP
      CLR EN
      LCALL WAIT_LCD
  RET

WRITE_TEXT:

      SETB RS
      MOV DATA1,A 		; DATA IN A MOVED TO THE PORT
      SETB EN
      NOP
      NOP
      NOP
      CLR EN
      LCALL WAIT_LCD
  RET

DELAY_LCD:
       
      NOP
      NOP 
      NOP
      NOP
      NOP
      NOP
  RET
  END

i have posted the code here .i dont understand what is the mistake i make .please suggest me the modifications i should make