Related assembly code

Actually i done code for pulse genetor from min 0 count and max 15k count and this count is display on 4 bit lcd. But their is slight problem so i want code in assembly lang for 89c2051 ic. Thank you.

ORG 0000H LJMP MAIN ORG 0030H

CNT1 EQU 20H CNT2 EQU 22H

EN EQU P1.2 RS EQU P1.0 RW EQU P1.1 DAT EQU P1

MAIN: LCALL LCD_INT MOV SP,#50H SETB P3.0

MOV TH0,#0 MOV TL0,#0 MOV TMOD,#11H //LCALL AGAIN

AGAIN: MOV A,#080H LCALL COM

CLR P3.0 SETB TR0

SETB IT0

SETB TF0 CLR TR0

MOV CNT1,TH0 MOV CNT2,TL0 LCALL hextobcd

L1: SETB TR1 MOV TH1,#0F2H MOV TL1,#0C0H

MOV R0,#20H DEC R0 JNZ L1 //RET

SETB P3.7

MOV TH0,#0FFH MOV TL0,#0D8H

CLR P3.7 CLR TF0 /*MOV CNT1,TH0 MOV CNT2,TL0 */

DEC CNT1 DEC CNT2

JNZ L1 RET

hextobcd: mov r0,#00h mov r1,#00h cjne a,#00h,c1_hextobcd //If number is not 0 then continue ret

c1_hextobcd: clr c mov b,#100 //First divide by 100 div ab mov r0,a //save MSB in R0 clr c mov a,b mov b,#10 //Divide by 10 div ab swap a mov r1,a //save the tens place in the Higher nibble of R1 mov a,b orl a,r1 mov r1,a // save the tens place in the Lower nibble of R1 ret

SJMP AGAIN

//=====================FOR LCD DATA====================================================

LCALL CLEAR LCALL LINE1 MOV DPTR,#MYDATA LCALL LOOP LCALL LINE2 MOV DPTR,#MYDATA2 LCALL LOOP LCALL LINE3 MOV DPTR,#MYDATA3 LCALL LOOP LCALL LINE4 MOV DPTR,#MYDATA4 LCALL LOOP

///=======================ACTUALLY TMR N MODE =================================================

////============================WRITE DATA=======================================================================

W_NIB: PUSH ACC ORL DAT,#0F0H ORL A,#0FH ANL DAT,A SETB EN CLR EN POP ACC SWAP A ORL DAT,#0F0H ORL A,#0FH ANL DAT,A SETB EN CLR EN RET

///================================LCD INITIALISE======================================================

LCD_INT: CLR RS CLR RW CLR RW SETB EN MOV DAT,#028H CLR EN LCALL SDELAY MOV A,#028H LCALL COM MOV A,#0CH LCALL COM MOV A,#06H LCALL COM LCALL CLEAR MOV A,#080H LCALL COM RET

//==================================CLEAR COM========================================================

CLEAR: CLR RS MOV A,#01H LCALL COM RET

//===============================DATA COM============================================================

DATAW: SETB RS CLR RW LCALL W_NIB LCALL LDELAY RET

///================================SDELAY===============================================================

SDELAY: MOV R6,#1 HERE2: MOV R7,#255 HERE: DJNZ R7,HERE DJNZ R6,HERE2 RET

//=============================LDELAY=================================================================

LDELAY: MOV R6,#100 HER2: MOV R7,#255 HER: DJNZ R7,HER DJNZ R6,HER2 RET

//==============================COMMAND===================================================================

COM: CLR RS CLR RW LCALL W_NIB LCALL SDELAY RET

//==============================LINE==================================================================

LINE1: MOV A,#002H LCALL COM RET LINE2: MOV A,#0C0H LCALL COM RET LINE3: MOV A,#002H LCALL COM RET LINE4: MOV A,#0C0H LCALL COM RET

//==============================LOOP======================================================================

LOOP: CLR A MOVC A,@A+DPTR JZ GO_B2 LCALL DATAW LCALL SDELAY INC DPTR SJMP LOOP GO_B2: RET

//===========================MYDATA========================================================================

MYDATA: DB " AUTOMATE ",0 MYDATA2: DB " INDIA,PUNE ",0 MYDATA3: DB " VEHICLE ",0 MYDATA4: DB " SPEED ",0

//==============================================================================================================

END

THIS IS MY CODE CHECK OUT AND TELL ME THIS IS CORRECT OR NOT......