;**************************************************************************
; FILENAME: 
;*******************************************************************************
; INCLUDE FILES
;*******************************************************************************


	.include 	..\include\svar.h

	.text
;*******************************************************************************
; PUBLIC DECLARATIONS
;*******************************************************************************
; Name: PRG_program
; 
; Description
; 
;*******************************************************************************
 
START:
	
	ldpk 	PRG_paddr              ;Point to data page 
        LACC	PRG_paddr
	LDP	#0
	SACL 	FL_SECST		;FIRST ADDRESS OF FLASH SEGMENT         
	BLDD	#FL_SECST,ADDR	 	;ADDR -> START OF SECTOR			 
	SPLK	#0fh,SECTOR		;SECTOR KEY                                  

	LDPK	PRG_bufaddr
	LACC	PRG_bufaddr
	LDP	#0
	SACL	DATA0			
	LDPK	PRG_length
	LACC	PRG_length
	LDP	#0
	SACL	FL_SECEND		;# OF DATA WORDS IN DATA BLOCK                
	CALL	PROGRAM			;PROGRAM SECTOR 1				

		
	ldpk	ERROR_FLAG
        splk    #0,ERROR_FLAG   ;update algorithm status
        b       PRG_stop        ;Branch to stop

err1:	ldpk	ERROR_FLAG
        splk    #1,ERROR_FLAG   ;update algorithm status
        pop
        b       PRG_stop        ;Branch to stop



                
PRG_stop:
	RET

    	.INCLUDE	PGM_ALG.ASM	;PROGRAM ROUTINE

                .end