**************************************************************************
** PERFORMS THE FOLLOWING:						**
*				                           		**
* 									**
*  PROGRAM EACH WORD IN ARRAY (NOROWRED)                   		**
*		     |                                     		**
*                    |                                     		**
*      PROGRAM EACH WORD (32 TOTAL) IN REDUNDANCY ROWS     		**
*                    |                                     		**
*                    |                                     		**
*                   END                                    		**
*                                                          		**
*   NOTES: -PERFORMS PROGRAM VERIFY AFTER EACH             		**
*            PROGRAM PULSE IS APPLIED                      		**
*                                                          		**
*                                                          		**
**************************************************************************
; Revision history:
;
; 4/12/02: Commented out the line which wrote to the SCSR1 to set up the
;          PLL. The PLL is set up in the boot ROM code, and there is 
;          a selection mechanism to select x2 or x4 mode for the PLL.
;          This over-wrote that selection causing the programmer to fail
;          when the x2 option was selected, since only the pll register
;          got changed, while the baud rate register in the SCI remained 
;          the same.
;



	.include 	..\include\svar.h

	.text

START

	LDP	#0E0h

;;;	SPLK	#0060h,7018h  -- removed to fix bug 4/12/02

	SPLK	#000bh,7019h
	SPLK	#6fh,7029h




	LDP	#0
	
	SPLK 	#1000h,FL_SECST		;FIRST ADDRESS OF FLASH SEGMENT
	SPLK	#1FFFh,FL_SECEND	;LAST ADDRESS IN FLASH SEGMENT
	SPLK	#000fh,SECTOR		;SECTOR KEY
	CALL	CLEAR			;CLEAR SECTOR 1

	SPLK 	#0000h,FL_SECST		;FIRST ADDRESS OF FLASH SEGMENT
	SPLK	#0FFFh,FL_SECEND	;LAST ADDRESS IN FLASH SEGMENT
	SPLK	#000fh,SECTOR		;SECTOR KEY
	CALL	CLEAR			;CLEAR SECTOR 1

	LDPK	#ERROR_FLAG
	SPLK	#0,ERROR_FLAG
	RET

err1	LDP     #6
	SPLK	#1,ERROR_FLAG
        POP
        POP
        RET 
OLIVIER:        


****************************************************************************************
	.COPY	"CLR_ALG.ASM"	;CLEAR ROUTINE		

	.END