ORG 0000H
AGAIN:MOV DPTR,#COMMAND		
      MOV R7,#04
   
	MOV R6,#80H
   
	UP:	CLR A
		MOVC A,@A+DPTR
		ACALL CMD
		ACALL DELAY
		INC DPTR
		DJNZ R7,UP
		
		
   NEXT:MOV A,R6
		ACALL CMD
		
		

      MOV DPTR,#MY_NAME
		  
 	REP:CLR A
		MOVC A,@A+DPTR
		MOV P1,A
		ACALL WRT
		ACALL DELAY
		INC DPTR
		CJNE A,0,REP
		
		ACALL XDELAY
		ACALL XDELAY
				
		MOV A,#01H
		ACALL CMD
				
		INC R6
		MOV A,R6
		CJNE A,#0A0H,NEXT
        LJMP AGAIN

CMD:
        MOV P1,A
		CLR P2.0
		CLR P2.1
		SETB P2.2
		ACALL DELAY
		CLR P2.2
		RET

WRT:
		MOV P1,A
		SETB P2.0
		CLR P2.1
		SETB P2.2
		ACALL DELAY
		CLR P2.2
		RET
 DELAY:
 		MOV R3,#05
	H1:MOV R4,#255
	 H:DJNZ R4,H
	   DJNZ R3,H1
	   RET

XDELAY:
 		MOV R3,#255
	X1:MOV R4,#255
	 X:DJNZ R4,X
	   DJNZ R3,X1
	   RET
	ORG 300H    
   COMMAND: DB 38H,0EH,01H,06H
   MY_NAME:	DB "8052.com",0
	END