;PROGRAM CODE for write words and create a character (PINTU) on 16x2 LCD using 8051/52 micro-controller (AT89C51/52) with the help of assembly language

		
        	ORG 00H
                MOV A,#38H
                ACALL COMNWRT
		ACALL DELAY
		MOV A,#01
		ACALL COMNWRT
		ACALL DELAY
	

		MOV A,#082H
		ACALL COMNWRT
		ACALL DELAY
		MOV A,#'N'
		ACALL DATAWRT
		ACALL DELAY
		MOV A,#'A'
		ACALL DATAWRT
		ACALL DELAY
		MOV A,#'M'
		ACALL DATAWRT
		ACALL DELAY
		MOV A,#'A'
		ACALL DATAWRT
		ACALL DELAY
		MOV A,#'S'
		ACALL DATAWRT
		ACALL DELAY
		MOV A,#'T'
		ACALL DATAWRT
		ACALL DELAY
		MOV A,#'E'
		ACALL DATAWRT
		ACALL DELAY
		MOV A,#0C0H
		ACALL COMNWRT
		ACALL DELAY
		MOV A,#'I'
		ACALL DATAWRT
		ACALL DELAY
		MOV A,#' '
		ACALL DATAWRT
		ACALL DELAY
		MOV A,#'A'
		ACALL DATAWRT
		ACALL DELAY
		MOV A,#'M'
		ACALL DATAWRT
		ACALL DELAY
		MOV A,#' '
		ACALL DATAWRT
		ACALL DELAY
		MOV A,#'P'
		ACALL DATAWRT
		ACALL DELAY
		MOV A,#'I'
		ACALL DATAWRT
		ACALL DELAY
		MOV A,#'N'
		ACALL DATAWRT
		ACALL DELAY 
		MOV A,#'T'
		ACALL DATAWRT
		ACALL DELAY
		MOV A,#'U'
		ACALL DATAWRT
		ACALL DELAY  		   
	   

			    

	
mov A,#64
ACALL COMNWRT
mov A,#00000000B 
ACALL DATAWRT
mov A,#00000011B
ACALL DATAWRT 
mov A,#00000111B 
ACALL DATAWRT 
mov A,#00000111B
ACALL DATAWRT 
mov A,#00001111B 
ACALL DATAWRT 
mov A,#00010010B 
ACALL DATAWRT 
mov A,#00010010B 
ACALL DATAWRT 
mov A,#00001111B 
ACALL DATAWRT 
mov A,#08CH
ACALL COMNWRT
ACALL DELAY
mov A,#00H
ACALL DATAWRT
ACALL DELAY


mov A,#72
ACALL COMNWRT
mov A,#00011111B 
ACALL DATAWRT
mov A,#00011111B
ACALL DATAWRT 
mov A,#00011111B 
ACALL DATAWRT 
mov A,#00011111B
ACALL DATAWRT 
mov A,#00000011B 
ACALL DATAWRT 
mov A,#00000000B 
ACALL DATAWRT 
mov A,#00001100B 
ACALL DATAWRT 
mov A,#00010010B 
ACALL DATAWRT 
mov A,#08DH
ACALL COMNWRT																		  
ACALL DELAY
mov A,#01H
ACALL DATAWRT
ACALL DELAY

mov A,#80
ACALL COMNWRT
mov A,#00000000B 
ACALL DATAWRT
mov A,#00011000B
ACALL DATAWRT 
mov A,#00011100B 
ACALL DATAWRT 
mov A,#00011100B
ACALL DATAWRT 
mov A,#00010010B 
ACALL DATAWRT 
mov A,#00000010B 
ACALL DATAWRT 
mov A,#00001100B 
ACALL DATAWRT 
mov A,#00010010B 
ACALL DATAWRT 
mov A,#08EH
ACALL COMNWRT
ACALL DELAY
mov A,#02H
ACALL DATAWRT
ACALL DELAY

mov A,#88
ACALL COMNWRT
mov A,#00011110B 
ACALL DATAWRT
mov A,#00011111B
ACALL DATAWRT 
mov A,#00011110B 
ACALL DATAWRT 
mov A,#00001100B 
ACALL DATAWRT 
mov A,#00000110B 
ACALL DATAWRT 
mov A,#00000010B 
ACALL DATAWRT 
mov A,#00000001B 
ACALL DATAWRT 
mov A,#00000000B 
ACALL DATAWRT 
mov A,#0CCH
ACALL COMNWRT
ACALL DELAY
mov A,#03H
ACALL DATAWRT
ACALL DELAY


mov A,#96
ACALL COMNWRT
mov A,#00010110B 
ACALL DATAWRT
mov A,#00001100B
ACALL DATAWRT 
mov A,#00000000B 
ACALL DATAWRT 
mov A,#00010001B
ACALL DATAWRT 
mov A,#00011000B 
ACALL DATAWRT 
mov A,#00011110B 
ACALL DATAWRT 
mov A,#00000001B 
ACALL DATAWRT 
mov A,#00011110B 
ACALL DATAWRT 
mov A,#0CDH
ACALL COMNWRT
ACALL DELAY
mov A,#04H
ACALL DATAWRT
ACALL DELAY


mov A,#104
ACALL COMNWRT
mov A,#00010110B 
ACALL DATAWRT
mov A,#00001100B
ACALL DATAWRT 
mov A,#00000100B 
ACALL DATAWRT 
mov A,#00010010B
ACALL DATAWRT 
mov A,#00000010B 
ACALL DATAWRT 
mov A,#00000100B 
ACALL DATAWRT 
mov A,#00011000B 
ACALL DATAWRT 
mov A,#00000000B 
ACALL DATAWRT 
mov A,#0CEH
ACALL COMNWRT
ACALL DELAY
mov A,#05H
ACALL DATAWRT
ACALL DELAY

AA: JMP AA
     	
 
COMNWRT:
        MOV P0,A 
	CLR P2.0
	CLR P2.1
	SETB P2.2
	ACALL DELAY
	CLR P2.2
	RET

DATAWRT:
        MOV P0,A
	SETB P2.0
	CLR P2.1
	SETB P2.2
	ACALL DELAY
	CLR P2.2
	RET

DELAY:
        MOV R3,#1
HERE2:  MOV R4,#255
HERE1:  MOV R5,#255 
HERE:   DJNZ R5,HERE
	DJNZ R4,HERE1
	DJNZ R3,HERE2
	    
	RET

	END