| Секции | +|
| {$read} | +Код секции выполняется при нажатии кнопки чтении памяти | +
| {$write} | +Код секции выполняется при нажатии кнопки записи памяти | +
| {$erase} | +Код секции выполняется при нажатии кнопки стирания памяти | +
| {$verify} | +Код секции выполняется при нажатии кнопки сравнения памяти | +
| {$unlock} | +Код секции выполняется при нажатии кнопки снятия защиты | +
| Предопределенные переменные | +|
| _IC_Name | +Название текущей выбранной микросхемы | +
| _IC_Size | +Размер, в байтах, текущей выбранной микросхемы | +
| _IC_Page | +Размер страницы, в байтах, текущей выбранной микросхемы | +
| _SPI_SPEED_MAX | +Максимально возможная частота для SPISetSpeed | +
| Основные функции | +|
| ShowMessage(text); | +
+ Аналог ShowMessage + |
+
| LogPrint(text, color); | +
+ Выводит сообщение в лог |
+
| IntToHex(value, digits): string; | +
+ Аналог IntToHex + |
+
| ProgressBar(inc, max, pos); | +
+ Устанавливает состояние ProgressBar |
+
| CreateByteArray(size): variant; | +
+ Создает массив с типом элементов varbyte + |
+
| GetArrayItem(array, index): variant; | +
+ Возвращает значение элемента массива + |
+
| SetArrayItem(array, index, value); | +
+ Устанавливает значение элемента массива + |
+
| ReadToEditor(size, position, buffer, ...); | +
+ Записывает данные из буфера в редактор размером size в позицию position + |
+
| WriteFromEditor(size, position, buffer, ...); | +
+ Записывает данные из редактора размером size с позиции position + |
+
| GetEditorDataSize: longword; | +
+ Возвращает размер данных в редакторе + |
+
| Работа с SPI | +|
| SPIEnterProgMode(speed): boolean; | +
+ Инициализирует состояние пинов для SPI и устанавливает частоту SPI |
+
| SPIExitProgMode(); | +
+ Отключает пины SPI + |
+
| SPIRead(cs, size, buffer, ...): integer; | +
+ Читает данные в буфер |
+
| SPIWrite(cs, size, buffer, ...): integer; | +
+ Записывает данные из буфера |
+
| SPIReadToEditor(cs, size): integer; | +
+ Читает данные в редактор |
+
| SPIWriteFromEditor(cs, size, position): integer; | +
+ Записывает данные из редактора размером size с позиции position |
+
| Работа с I2C | +|
| I2CEnterProgMode(); | +
+ Инициализирует состояние пинов + |
+
+
| I2cExitProgMode(); | +
+ Отключает пины + |
+
+
| I2CReadWrite(DevAddr, wsize, rsize, wbuffer, rbuffer): integer; | +
+ Записывает/читае данные из буферов |
+
| I2CStart(); | +
+ Используется вместе с I2CReadByte и I2CWriteByte + |
+
+
| I2CStop(); | +
+ Используется вместе с I2CReadByte и I2CWriteByte + |
+
+
| I2CReadByte(ack: boolean): byte; | +
+ Читает байт данных и отправляет ack/nack + |
+
+
| I2CWriteByte(data): boolean; | +
+ Записывает байт данных и возвращает ack/nack + |
+
+
diff --git a/AsProgrammer/scripts/w25q32FV_64FV_128FV_SecRegisters.pas b/AsProgrammer/scripts/w25q32FV_64FV_128FV_SecRegisters.pas new file mode 100644 index 0000000..bc41491 --- /dev/null +++ b/AsProgrammer/scripts/w25q32FV_64FV_128FV_SecRegisters.pas @@ -0,0 +1,192 @@ +// designed for WINBOND W25Q32FV/JV W25Q64FV/JV W25Q128FV/JV (not BV serie) +// READ / WRITE / ERASE Security REGISTERS +// script can be adapted for other brand and models by changing 'RegSize' value in each section +{$ READ_JEDEC_ID} +begin + ID:= CreateByteArray(3); + if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed'); + LogPrint ('Start read JEDEC ID'); + + // read ID to test installation + SPIWrite (0, 1, $9F); + SPIRead(1, 3, ID); + + logprint('Read ID: ' + inttohex((GetArrayItem(ID, 0)),2)+ inttohex((GetArrayItem(ID, 1)),2)+ inttohex((GetArrayItem(ID, 2)),2)); + LogPrint ('End read JEDEC ID'); + SPIExitProgMode (); +end + +{$ READ_UNIQUE_ID} +begin + UID:= CreateByteArray(8); + if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed'); + LogPrint ('Start read UNIQUE ID'); + + // read 64bits UNIQUE ID + SPIWrite (0, 5, $4B, $00, $00, $00, $00); + SPIRead(1, 8, UID); + + logprint('Read UID: ' + inttohex((GetArrayItem(UID, 0)),2)+ inttohex((GetArrayItem(UID, 1)),2)+ inttohex((GetArrayItem(UID, 2)),2)+ inttohex((GetArrayItem(UID, 3)),2) + + inttohex((GetArrayItem(UID, 4)),2)+ inttohex((GetArrayItem(UID, 5)),2)+ inttohex((GetArrayItem(UID, 6)),2)+ inttohex((GetArrayItem(UID, 7)),2)); + LogPrint ('End read UNIQUE ID'); + SPIExitProgMode (); +end + +{$ READ_SECURITY_REGISTER_1} +begin + if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed'); + LogPrint ('Start read security register #1'); + RegSize := 256; + // read register 1 + SPIWrite (0, 5, $48, $00, $10, $00, $00); + SPIReadToEditor (1, RegSize); + + LogPrint ('End read security register #1'); + SPIExitProgMode (); +end + +{$ READ_SECURITY_REGISTER_2} +begin + if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed'); + LogPrint ('Start read security register #2'); + RegSize := 256; + // read register 2 + SPIWrite (0, 5, $48, $00, $20, $00, $00); + SPIReadToEditor (1, RegSize); + + LogPrint ('End read security register #2'); + SPIExitProgMode (); +end + +{$ READ_SECURITY_REGISTER_3} +begin + if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed'); + LogPrint ('Start read security register #3'); + RegSize := 256; + // read register 3 + SPIWrite (0, 5, $48, $00, $30, $00, $00); + SPIReadToEditor (1, RegSize); + + LogPrint ('End read security register #3'); + SPIExitProgMode (); +end + +{$ ERASE_SECURITY_REGISTER_1} +begin + if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed'); + LogPrint ('Start Erase security register #1'); + // write enable + SPIWrite (1, 1, $06); + // erase register 1 + SPIWrite (1, 4, $44, $00, $10, $00); + + LogPrint ('End Erase security register #1'); + SPIExitProgMode (); +end + +{$ ERASE_SECURITY_REGISTER_2} +begin + if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed'); + LogPrint ('Start Erase security register #2'); + + // write enable + SPIWrite (1, 1, $06); + // erase register 2 + SPIWrite (1, 4, $44, $00, $20, $00); + + LogPrint ('End Erase security register #2'); + SPIExitProgMode (); +end + +{$ ERASE_SECURITY_REGISTER_3} +begin + if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed'); + LogPrint ('Start Erase security register #3'); + + // write enable + SPIWrite (1, 1, $06); + // erase register 3 + SPIWrite (1, 4, $44, $00, $30, $00); + + LogPrint ('End Erase security register #3'); + SPIExitProgMode (); +end + +{$ WRITE_SECURITY_REGISTER_1} +begin + if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed'); + LogPrint ('Start write security register #1'); + RegSize := 256; + sreg := 0; + + // write enable + SPIWrite (1, 1, $06); + + // write register 1 + SPIWrite (0, 4, $42, $00, $10, $00); + SPIWriteFromEditor(1, Regsize, 0); + + //Busy + repeat + SPIWrite(0, 1, $05); + SPIRead(1, 1, sreg); + until((sreg and 1) <> 1); + + // write disable + SPIWrite (1, 1, $04); + LogPrint ('End write security register #1'); + SPIExitProgMode (); +end + +{$ WRITE_SECURITY_REGISTER_2} +begin + if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed'); + LogPrint ('Start write security register #2'); + RegSize := 256; + sreg := 0; + + // write enable + SPIWrite (1, 1, $06); + + // write register 2 + SPIWrite (0, 4, $42, $00, $20, $00); + SPIWriteFromEditor(1, Regsize, 0); + + //Busy + repeat + SPIWrite(0, 1, $05); + SPIRead(1, 1, sreg); + until((sreg and 1) <> 1); + + // write disable + SPIWrite (1, 1, $04); + LogPrint ('End write security register #2'); + SPIExitProgMode (); +end + +{$ WRITE_SECURITY_REGISTER_3} +begin + if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed'); + LogPrint ('Start write security register #3'); + RegSize := 256; + sreg := 0; + + // write enable + SPIWrite (1, 1, $06); + + // write register 3 + SPIWrite (0, 4, $42, $00, $30, $00); + SPIWriteFromEditor(1, Regsize, 0); + + //Busy + repeat + SPIWrite(0, 1, $05); + SPIRead(1, 1, sreg); + until((sreg and 1) <> 1); + + // write disable + SPIWrite (1, 1, $04); + LogPrint ('End write security register #3'); + SPIExitProgMode (); +end + diff --git a/AsProgrammer/scripts/w25q32FV_64FV_128FV_read_SFDP.pas b/AsProgrammer/scripts/w25q32FV_64FV_128FV_read_SFDP.pas new file mode 100644 index 0000000..0797026 --- /dev/null +++ b/AsProgrammer/scripts/w25q32FV_64FV_128FV_read_SFDP.pas @@ -0,0 +1,55 @@ +// designed for WINBOND W25Q32FV/JV W25Q64FV/JV W25Q128FV/JV (not BV serie) +// READ the 3 Serial Flash Discoverable Parameter (SFDP) REGISTERS +// note: W25Q32FV have only one SFDP register +// script can be adapted for other brand and models by changing 'RegSize' value in each section +{$ READ_JEDEC_ID} +begin + ID:= CreateByteArray(3); + if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed'); + LogPrint ('Start read JEDEC ID'); + + // read ID to test installation + SPIWrite (0, 1, $9F); + SPIRead(1, 3, ID); + + logprint('Read ID: ' + inttohex((GetArrayItem(ID, 0)),2)+ inttohex((GetArrayItem(ID, 1)),2)+ inttohex((GetArrayItem(ID, 2)),2)); + LogPrint ('End read JEDEC ID'); + SPIExitProgMode (); +end + +{$ Read_SFDP_Register_1} +begin + if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed'); + LogPrint ('Start read SFDP Register #1'); + RegSize := 256; + // read register 1 + SPIWrite (0, 5, $5A, $00, $10, $00, $00); + SPIReadToEditor (1, RegSize); + LogPrint ('End read SFDP Register #1'); + SPIExitProgMode (); +end + + +{$ Read_SFDP_Register_2} +begin + if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed'); + LogPrint ('Start read SFDP Register #2'); + RegSize := 256; + // read register 2 + SPIWrite (0, 5, $5A, $00, $20, $00, $00); + SPIReadToEditor (1, RegSize); + LogPrint ('End read SFDP Register #2'); + SPIExitProgMode (); +end + +{$ Read_SFDP_Register_3} +begin + if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed'); + LogPrint ('Start read SFDP Register #3'); + RegSize := 256; + // read register 3 + SPIWrite (0, 5, $5A, $00, $30, $00, $00); + SPIReadToEditor (1, RegSize); + LogPrint ('End read SFDP Register #3'); + SPIExitProgMode (); +end diff --git a/AsProgrammer/settings.xml b/AsProgrammer/settings.xml new file mode 100644 index 0000000..6e7b86e --- /dev/null +++ b/AsProgrammer/settings.xml @@ -0,0 +1,6 @@ + +