{$100}
begin.
if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
sreg := 0;
SPIWrite(0, 1, $15);
SPIRead(1, 1,sreg);
sreg_temp := (sreg and $9F) or $00;
SPIWrite(1, 1, $50);
SPIWrite(1, 2, $11,sreg_temp);
//Busy?
repeat.
SPIWrite(0, 1, $05);
SPIRead(1, 1, sreg);
until((sreg and 1) <> 1);
ProgressBar(1);
ProgressBar(0, 0, 0);
SPIExitProgMode();
end.
{$75}
begin.
if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
sreg := 0;
SPIWrite(0, 1, $15);
SPIRead(1, 1,sreg);
sreg_temp := (sreg and $9F) or $20;
SPIWrite(1, 1, $50);
SPIWrite(1, 2, $11,sreg_temp);
//Busy?
repeat.
SPIWrite(0, 1, $05);
SPIRead(1, 1, sreg);
until((sreg and 1) <> 1);
ProgressBar(1);
ProgressBar(0, 0, 0);
SPIExitProgMode();
end.
{$50}
begin.
if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
sreg := 0;
SPIWrite(0, 1, $15);
SPIRead(1, 1,sreg);
sreg_temp := (sreg and $9F) or $40;
SPIWrite(1, 1, $50);
SPIWrite(1, 2, $11,sreg_temp);
//Busy?
repeat.
SPIWrite(0, 1, $05);
SPIRead(1, 1, sreg);
until((sreg and 1) <> 1);
ProgressBar(1);
ProgressBar(0, 0, 0);
SPIExitProgMode();
end.
{$25}
begin.
if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
sreg := 0;
SPIWrite(0, 1, $15);
SPIRead(1, 1,sreg);
sreg_temp := (sreg and $9F) or $60;
SPIWrite(1, 1, $50);
SPIWrite(1, 2, $11,sreg_temp);
//Busy?
repeat.
SPIWrite(0, 1, $05);
SPIRead(1, 1, sreg);
until((sreg and 1) <> 1);
ProgressBar(1);
ProgressBar(0, 0, 0);
SPIExitProgMode();
end
