ORG	0000
        	MOV 	DPTR,#MYDATA  	
       	MOV 	R0,#40H     	
       	MOV 	R2,#7     	
  BACK:	CLR 	A        		
         MOVC	A,@A+DPTR   	
     	MOV	@R0,A       	
      	INC	DPTR       	
      	INC	R0          	
      	DJNZ	R2,BACK  		
  HERE: 	SJMP	HERE
 
      	ORG 	250H
  MYDATA:	DB 	"AMERICA"
  		END