anchor.diff:  begin
     //Старые SST требуют Enable-Write-Status-Register (50H)
     Buff[0] := $50;
  -  USBSendControlMessage(devHandle, PC2USB, USBASP_FUNC_25_WRITE, 1, 0, 1, buff);
  +  SPIWrite(devHandle, 1, 1, buff);
     //
     Buff[0] := opcode;
     Buff[1] := sreg;
  -  result := USBSendControlMessage(devHandle, PC2USB, USBASP_FUNC_25_WRITE, 1, 0, 2, buff);
  +  result := SPIWrite(devHandle, 1, 2, buff);
   end;
   
   function UsbAsp25_WriteSR_2byte(devHandle: Pusb_dev_handle; sreg1, sreg2: byte): integer;
  
positive.code:   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);
  end;
  
  function UsbAsp25_WriteSSTB(devHandle: Pusb_dev_handle; Opcode: byte; Data: byte): integer;
  
negative.code:   buff[2] := hi(lo(addr));
    buff[3] := lo(lo(addr));
  
    SPIWrite(devHandle, 0, 4, buff);
    result := SPIWrite(devHandle, 1, bufflen, buffer);
  end;
  
  function UsbAsp25_Write32bitAddr(devHandle: Pusb_dev_handle; Opcode: byte; Addr: longword; buffer: array of byte; bufflen: integer): integer;
  