typedef void (*IAP)(unsigned int *in, unsigned int *result);
#define iap_entry ((IAP) 0x7FFFFFF1)

unsigned int program (unsigned int * data)  {
  unsigned int command[5];
  unsigned int result[5];
  unsigned int save_VicInt;                

  save_VicInt = VICIntEnable;              
  VICIntEnClr = 0xFFFFFFFF; //запрет прерываний            

  command[0] = 50;//подготовка                            
  command[1] = 10;                                             
  command[2] = 10;                                           
  iap_entry (command, result);                    
  if (result[0])goto exit;

  command[0] = 52;//стирание                            
  command[1] = 10; // начало
  command[2] = 10;// конец
  command[3] = 60000;// частота проца
  iap_entry (command, result);
  if (result[0])goto exit;

  command[0] = 50;//подготовка
  command[1] = 10;
  command[2] = 10;                                     
  iap_entry (command, result);
  if (result[0])goto exit;

  command[0] = 51;//запись
  command[1] = (unsigned int) 0x0018000;  // куда пишется
  command[2] = (unsigned int) data;//что пишется              
  command[3] = 256;// число байт
  command[4] = 60000;
  iap_entry (command, result);
  if (result[0])goto exit;

exit:

  VICIntEnable = save_VicInt;
  return (result[0]);
}