// le systeme de fichier est encore ouvert et monté
// Le fichier doit deja exister et avoir sa taille maximale
// preparation 	: remplissage de blancs ou zeros
//  
   // FResult=pf_mount(0); NE PAS DEMONTER LE SYSTEME DE FICHIER .pour acceder a un autre fichier

    strcpypgm2ram (fileName,"SAUVE003.TXT"); 
    k=fprintf(_H_USART,(const rom char*)"Essai Ouverture fichier %s   \n\r",fileName); 
    FResult = pf_open(fileName);
 	pas=1;
	if (FResult == FR_OK )
	{
	 k=fprintf(_H_USART,(const rom char*)" Ouverture fichier %s  OK \n\r",fileName); 
	 }
	 else 
	 {
     k=fprintf(_H_USART,(const rom char*)" FResult = %c Erreur Ouverture Fichier %s  au pas %c\n\r",FResult + 0x30,fileName,pas+'0');  
     while(1);
	}
    //FResult=pf_lseek(0);  // gives an error ?
    //k=fprintf(_H_USART,(const rom char*)" FResult = %c Deplace pointer au debut\n\r",FResult + 0x30);  
   
    j=0;
    for (i=0;i<511;i++) 
    {
        j=i & 0x00FF;
    sector_buffer[i]=(unsigned char)(j);
    }	
    k=fprintf(_H_USART,(const rom char*)" buffer initialisé\n\r ");  
  
FResult=pf_write(sector_buffer,512,&br);
	k=fprintf(_H_USART,(const rom char*)" FResult = %c Ecriture effective de %5d bytes sur %s \n\r",FResult + 0x30,bw,fileName); 
	k=fprintf(_H_USART,(const rom char*)" Nouveau pointer de fichier = %lu \n\r",fs.fptr);
FResult=pf_write(sector_buffer,512,&br);
	k=fprintf(_H_USART,(const rom char*)" FResult = %c Ecriture effective de %5d bytes sur %s \n\r",FResult + 0x30,bw,fileName); 
	k=fprintf(_H_USART,(const rom char*)" Nouveau pointer de fichier = %lu \n\r",fs.fptr);
FResult=pf_write(sector_buffer,512,&br);
	k=fprintf(_H_USART,(const rom char*)" FResult = %c Ecriture effective de %5d bytes sur %s \n\r",FResult + 0x30,bw,fileName); 
	k=fprintf(_H_USART,(const rom char*)" Nouveau pointer de fichier = %lu \n\r",fs.fptr);
FResult=pf_write(sector_buffer,512,&br);
	k=fprintf(_H_USART,(const rom char*)" FResult = %c Ecriture effective de %5d bytes sur %s \n\r",FResult + 0x30,bw,fileName); 
	k=fprintf(_H_USART,(const rom char*)" Nouveau pointer de fichier = %lu \n\r",fs.fptr);
FResult=pf_write(sector_buffer,512,&br);
	k=fprintf(_H_USART,(const rom char*)" FResult = %c Ecriture effective de %5d bytes sur %s \n\r",FResult + 0x30,bw,fileName); 
	k=fprintf(_H_USART,(const rom char*)" Nouveau pointer de fichier = %lu \n\r",fs.fptr);
FResult=pf_write(sector_buffer,512,&br);
	k=fprintf(_H_USART,(const rom char*)" FResult = %c Ecriture effective de %5d bytes sur %s \n\r",FResult + 0x30,bw,fileName); 
	k=fprintf(_H_USART,(const rom char*)" Nouveau pointer de fichier = %lu \n\r",fs.fptr);
FResult=pf_write(sector_buffer,512,&br);
	k=fprintf(_H_USART,(const rom char*)" FResult = %c Ecriture effective de %5d bytes sur %s \n\r",FResult + 0x30,bw,fileName); 
	k=fprintf(_H_USART,(const rom char*)" Nouveau pointer de fichier = %lu \n\r",fs.fptr);
FResult=pf_write(sector_buffer,512,&br);
	k=fprintf(_H_USART,(const rom char*)" FResult = %c Ecriture effective de %5d bytes sur %s \n\r",FResult + 0x30,bw,fileName); 
	k=fprintf(_H_USART,(const rom char*)" Nouveau pointer de fichier = %lu \n\r",fs.fptr);
	k=fprintf(_H_USART,(const rom char*)"\r\n Finalise ecriture = %lu \n\r",fs.fptr);
FResult=pf_write(0,0,&br);
	k=fprintf(_H_USART,(const rom char*)"\r\n FResult = %c  inscription de %5d zeros \n\r",FResult + 0x30,bw);