AUXR1 EQU 0A2H      


   mov   a,#1
   mov   r2,#1
   mov   dptr,#80h
   mov   r3,#80h
loop:
   movx  @dptr,a
   inc   dptr
   add   a,r2
   xch   a,r2
   djnz  r3,loop

   call  WRMEM

stop:
   sjmp  stop



WRMEM:	ORL	AUXR1,#01H	;ENABLE DPTR1
	MOV	DPTR,#80H	;ADDRESS OF BLOCK TO READ
	ANL	AUXR1,#0FEH	;ENABLE DPTR0
	MOV	DPTR,#3000H	;ADDRESS OF BLOCK TO WRITE
	MOV	A,#09H		;WRITE BLOCK BYTE
	MOV	R1,A		;MUST BE IN R1 FOR API
	MOV	A,#128		;BYTES TO WRITE
	ORL	AUXR1,#20H	;ENABLE BOOT ROM
	LCALL	0FFF0H		;PGM_MTP API ENTRY POINT
	ANL	AUXR1,#0DFH	;DISABLE BOOT ROM
	RET

   end