anchor.diff:    buff[3] := hi(lo(addr));
     buff[4] := lo(lo(addr));
   
  -  USBSendControlMessage(devHandle, PC2USB, USBASP_FUNC_25_WRITE, 0, 0, 5, buff);
  -  result := USBSendControlMessage(devHandle, PC2USB, USBASP_FUNC_25_WRITE, 1, 0, bufflen, buffer);
  +  SPIWrite(devHandle, 0, 5, buff);
  +  result := SPIWrite(devHandle, 1, bufflen, buffer);
   end;
   
   function UsbAsp25_WriteSSTB(devHandle: Pusb_dev_handle; Opcode: byte; Data: byte): integer;
  
positive.code: begin
    //Некоторые atmel'ы требуют 62H
    buff:= $62;
    USBSendControlMessage(devHandle, PC2USB, USBASP_FUNC_25_WRITE, 1, 0, 1, buff);
    //Старые SST требуют 60H
    buff:= $60;
    USBSendControlMessage(devHandle, PC2USB, USBASP_FUNC_25_WRITE, 1, 0, 1, buff);
    buff:= $C7;
    result := USBSendControlMessage(devHandle, PC2USB, USBASP_FUNC_25_WRITE, 1, 0, 1, buff);
  end;
  
  function UsbAsp25_WriteSR(devHandle: Pusb_dev_handle; sreg: byte; opcode: byte = $01): integer;
  
negative.code:   buff: byte;
  begin
    buff:= $06;
    result := SPIWrite(devHandle, 1, 1, buff);
  end;
  
  function UsbAsp25_Wrdi(devHandle: Pusb_dev_handle): integer;
  