Программирование spi, i2c, microwire флэшек UsbAsp'ом

fsem

Шушпанчик, у ATmega8/8A/8L сигнатура одинаковая - 1Е9307,так что в ручном выборе ставь ATmega8, а в поиске софт всё равно отобразит как ATmega8 . А почему младший байт фьюзов FF?

TTAV134

Шушпанчик писал(а):

Хаба хаба форумчане.

Помогите вернуть USBasp к жизни.

Залил в него прошивку с этого топика, как второй программатор у меня TL866, фьюзики выставил как на картинке. Драйвера из того же архива. В диспетчере устройств все видится, Вот только читается теперь в лучшем случае токо нули, хоть эта программа, хоть SinaProg.
Откатился на оффициальную прошивку, и та же фигня сохранилась....

ЧЯДНТ?

hello,
Download the version 2.0.0.14 from first page of this forum, older version 1.4x have to much bugs, flash USBASP with included mega8_2.0 firmware. That is all.
Здравствуй
Загрузите версию 2.0.0.14 с первой страницы этого форума. Старая версия 1.4x содержала много ошибок, USBASP с прошивкой mega8_2.0. Вот и все.

Шушпанчик

Сорри за не внимательность, залил прошивку 2.0.0.14. На прошиваемой микрухе обнаружил оторвавшуюся ножку. Теперь как поциэнта подцепил Arduino UNO с прошивкой Blink. Так можно контроллировать работоспособность каждого элемента.

fsem писал(а):

А почему младший байт фьюзов FF?

Не могу знать, на новом поциэнте они так же FF

Шушпанчик писал(а):

у ATmega8/8A/8L сигнатура одинаковая - 1Е9307,так что в ручном выборе ставь ATmega8

У меня в списке вообще нет Атмег :(

Походу лучше в программный код лезть и смотреть под отладчиком что же там не так. (Или еще рано? Или еще не все траблы устранил?

TTAV134

hello,
Asprogrammer is not design to program Atm.. processors
Аспрограммер не предназначен для программирования процессоров Atm ..

Шушпанчик

TTAV134 писал(а):

hello,
Asprogrammer is not design to program Atm.. processors
Аспрограммер не предназначен для программирования процессоров Atm ..

А вот теперь я понял где изначально ошибся. Я полез на гитхаб и скачал и последний релиз и исходники. А там только версия 1.4х, я даже внимания на это не обратил. Начал изучать ее работу, сделал отслеживание втыкания USB устройства, процедурки для работы с программаторами преобразовал в классы (наследованные от одного общего абстрактного класса), код уже вполне рабочий для CH341, и я добрался до USBasp, и начал клепать поддержку TL866...

Где можно скачать исходники 2-й версии? Как связаться с разработчиками, для внесения предложений и своего программного кода?

anakost

Шушпанчик писал(а):

Где можно скачать исходники 2-й версии? Как связаться с разработчиками, для внесения предложений и своего программного кода?

На первой странице темы в первом сообщении есть ссылка на "Тестовая версия 2.0.0a14". Это сообщение от автора, если внизу сообщения вы нажмете кнопочку "PM" вы сможете отправить ему сообщение через личку.

TTAV134

Шушпанчик писал(а):

TTAV134 писал(а):

hello,
Asprogrammer is not design to program Atm.. processors
Аспрограммер не предназначен для программирования процессоров Atm ..

А вот теперь я понял где изначально ошибся. Я полез на гитхаб и скачал и последний релиз и исходники. А там только версия 1.4х, я даже внимания на это не обратил. Начал изучать ее работу, сделал отслеживание втыкания USB устройства, процедурки для работы с программаторами преобразовал в классы (наследованные от одного общего абстрактного класса), код уже вполне рабочий для CH341, и я добрался до USBasp, и начал клепать поддержку TL866...

Где можно скачать исходники 2-й версии? Как связаться с разработчиками, для внесения предложений и своего программного кода?

Go back to GitHub, there is 2 branches, one Master (v1.4x), one test (v2.0.0.14)

I myself have developed versions with enhancements and new features, such as buffer filling, a better search/replace form, automatic detection of i2c, 93cxx, 95xx / 25xx components, the addition of new components ...
I submitted a first version to the author for evaluation and comments. So, for the moment, my code is not public and I'm still working on it. Originally, I do not intend to fork, but to contribute to the project.

Я сам разработал версии с улучшениями и новыми функциями, такими как заполнение буфера, улучшенная форма поиска, автоматическое определение компонентов i2c, 93cxx, 95xx / 25xx, добавление новых компоненты ...
Я представил первую версию автору для оценки и комментариев. Итак, на данный момент мой код не является общедоступным, и я все еще работаю над этим. Изначально я не собираюсь раскошелиться, но внести свой вклад в проект.

some screenshots:

Вложение:

ps1.png [ 46.22 Кб | Просмотров: 1678 ]

Вложение:

ps3.png [ 71.25 Кб | Просмотров: 1678 ]

Вложение:

ps5.png [ 27.64 Кб | Просмотров: 1678 ]

Шушпанчик

Маленькая шпаргалочка. Фьюзики для TL866, и подключение USBasp к микрухам 25-й серии.

fsem

download/file.php?id=40404
Отцепите 3 и 7 ноги от восьмой(+Vcc) и подтяните к (+Vcc) через резисторы!! 2k2---10k(222---103). Зачем? См. шиты на новые разработки этой серии.
В схеме прогера USBasp на ISP - 10, пин 4 - TxD, пин 6 - RxD. А вы их заземлили.

pupu6oi325

fsem писал(а):

m31 писал(а):

Winbond w25n01GV - 1 гигабит SPI NAND флеш. Не могу найти за приемлемую цену программатор, который бы с ней работал. На сколько реально прописать ее в данный прогер ? Скорость работы не критична.

Есть такой прогер. И за очень приемлемую цену.

Добрый день! прошу прощения что не по теме топика. Попалась такая флешка и как раз есть Postal3. Только вот при чтении первые 256 байт повторяются циклично почти во всём дампе (флешка с заведомо хорошим содержимым). Конфиг выставлен как на скрине. Существует возможность поправить это?

fsem

pupu6oi325 писал(а):

fsem писал(а):

m31 писал(а):

Winbond w25n01GV - 1 гигабит SPI NAND флеш. /quote]
Есть такой прогер. И за очень приемлемую цену.

Существует возможность поправить это?

Вот здесь задайте вопрос: https://monitor.net.ru/forum/threads/317755/page-265

kalala

Hello
Possible help with scrip
GD25Q128B
I read and write OTP

spuller

kalala No OTP GD25Q128B - only SECURITY REGISTERS.Try use or modify next script

kalala

spuller писал(а):

kalala No OTP GD25Q128B - only SECURITY REGISTERS.Try use or modify next script

kalala

Thank you my friend
Write LB0

TTAV134

kalala писал(а):

Hello
Possible help with scrip
GD25Q128B
I read and write OTP

hello,
May be late, but the following scripts can be useful for others.

First script for W25Q128FV, can READ/ERASE/PROGRAM each Security register, tested, working with Asprogrammer v2.

Код:

{$ READ_JEDEC_ID_W25Q128FV}
begin
  ID:= CreateByteArray(3);
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start read W25Q128FV 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 W25Q128FV ID');
  SPIExitProgMode ();
end

{$ READ_SECURITY_REGISTER_1_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start read W25Q128FV security register #1');
  RegSize := 256;
  // read register 1
  SPIWrite (0, 5, $48, $00, $10, $00, $00);
  SPIReadToEditor (1, RegSize);

  LogPrint ('End read W25Q128FV security register #1');
  SPIExitProgMode ();
end

{$ READ_SECURITY_REGISTER_2_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start read W25Q128FV security register #2');
  RegSize := 256;
  // read register 2
  SPIWrite (0, 5, $48, $00, $20, $00, $00);
  SPIReadToEditor (1, RegSize);

  LogPrint ('End read W25Q128FV security register #2');
  SPIExitProgMode ();
end

{$ READ_SECURITY_REGISTER_3_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start read W25Q128FV security register #3');
  RegSize := 256;
  // read register 3
  SPIWrite (0, 5, $48, $00, $30, $00, $00);
  SPIReadToEditor (1, RegSize);

  LogPrint ('End read W25Q128FV security register #3');
  SPIExitProgMode ();
end

{$ ERASE_SECURITY_REGISTER_1_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start Erase W25Q128FV security register #1');
  // write enable
  SPIWrite (1, 1, $06);
  // erase register 1
  SPIWrite (1, 4, $44, $00, $10, $00);

  LogPrint ('End Erase W25Q128FV security register #1');
  SPIExitProgMode ();
end

{$ ERASE_SECURITY_REGISTER_2_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start Erase W25Q128FV security register #2');

  // write enable
  SPIWrite (1, 1, $06);
  // erase register 2
  SPIWrite (1, 4, $44, $00, $20, $00);

  LogPrint ('End Erase W25Q128FV security register #2');
  SPIExitProgMode ();
end

{$ ERASE_SECURITY_REGISTER_3_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start Erase W25Q128FV security register #3');

  // write enable
  SPIWrite (1, 1, $06);
  // erase register 3
  SPIWrite (1, 4, $44, $00, $30, $00);

  LogPrint ('End Erase W25Q128FV security register #3');
  SPIExitProgMode ();
end

{$ WRITE_SECURITY_REGISTER_1_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start write W25Q128FV 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 W25Q128FV security register #1');
  SPIExitProgMode ();
end

{$ WRITE_SECURITY_REGISTER_2_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start write W25Q128FV 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 W25Q128FV security register #2');
  SPIExitProgMode ();
end

{$ WRITE_SECURITY_REGISTER_3_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start write W25Q128FV 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 W25Q128FV security register #3');
  SPIExitProgMode ();
end

Second script for GD25Q128, can READ/ERASE/PROGRAM each Security register, based on previous script. (not tested)

Код:

{$ READ_JEDEC_ID_GD25Q128}
begin
  ID:= CreateByteArray(3);
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start read GD25Q128 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 GD25Q128 ID');
  SPIExitProgMode ();
end

{$ READ_SECURITY_REGISTER_1_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start read GD25Q128 security register #1');
  RegSize :=1024;
  // read register 1
  SPIWrite (0, 5, $48, $00, $10, $00, $00);
  SPIReadToEditor (1, RegSize);

  LogPrint ('End read GD25Q128 security register #1');
  SPIExitProgMode ();
end

{$ READ_SECURITY_REGISTER_2_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start read GD25Q128 security register #2');
  RegSize :=1024;
  // read register 2
  SPIWrite (0, 5, $48, $00, $20, $00, $00);
  SPIReadToEditor (1, RegSize);

  LogPrint ('End read GD25Q128 security register #2');
  SPIExitProgMode ();
end

{$ READ_SECURITY_REGISTER_3_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start read GD25Q128 security register #3');
  RegSize :=1024;
  // read register 3
  SPIWrite (0, 5, $48, $00, $30, $00, $00);
  SPIReadToEditor (1, RegSize);

  LogPrint ('End read GD25Q128 security register #3');
  SPIExitProgMode ();
end

{$ ERASE_SECURITY_REGISTER_1_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start Erase GD25Q128 security register #1');
  // write enable
  SPIWrite (1, 1, $06);
  // erase register 1
  SPIWrite (1, 4, $44, $00, $10, $00);

  LogPrint ('End Erase GD25Q128 security register #1');
  SPIExitProgMode ();
end

{$ ERASE_SECURITY_REGISTER_2_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start Erase GD25Q128 security register #2');

  // write enable
  SPIWrite (1, 1, $06);
  // erase register 2
  SPIWrite (1, 4, $44, $00, $20, $00);

  LogPrint ('End Erase GD25Q128 security register #2');
  SPIExitProgMode ();
end

{$ ERASE_SECURITY_REGISTER_3_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start Erase GD25Q128 security register #3');

  // write enable
  SPIWrite (1, 1, $06);
  // erase register 3
  SPIWrite (1, 4, $44, $00, $30, $00);

  LogPrint ('End Erase GD25Q128 security register #3');
  SPIExitProgMode ();
end

{$ WRITE_SECURITY_REGISTER_1_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start write GD25Q128 security register #1');
  RegSize :=1024;
  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 GD25Q128 security register #1');
  SPIExitProgMode ();
end

{$ WRITE_SECURITY_REGISTER_2_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start write GD25Q128 security register #2');
  RegSize :=1024;
  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 GD25Q128 security register #2');
  SPIExitProgMode ();
end

{$ WRITE_SECURITY_REGISTER_3_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start write GD25Q128 security register #3');
  RegSize :=1024;
  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 GD25Q128 security register #3');
  SPIExitProgMode ();
end

third script for reading SFDR registers, tested on a W25Q128 with Asprogrammer v2.
SFDP: Serial Flash Discoverable Parameter

kalala

TTAV134 писал(а):

kalala писал(а):

Hello
Possible help with scrip
GD25Q128B
I read and write OTP

hello,
May be late, but the following scripts can be useful for others.

First script for W25Q128FV, can READ/ERASE/PROGRAM each Security register, tested, working with Asprogrammer v2.

Код:

{$ READ_JEDEC_ID_W25Q128FV}
begin
  ID:= CreateByteArray(3);
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start read W25Q128FV 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 W25Q128FV ID');
  SPIExitProgMode ();
end

{$ READ_SECURITY_REGISTER_1_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start read W25Q128FV security register #1');
  RegSize := 256;
  // read register 1
  SPIWrite (0, 5, $48, $00, $10, $00, $00);
  SPIReadToEditor (1, RegSize);

  LogPrint ('End read W25Q128FV security register #1');
  SPIExitProgMode ();
end

{$ READ_SECURITY_REGISTER_2_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start read W25Q128FV security register #2');
  RegSize := 256;
  // read register 2
  SPIWrite (0, 5, $48, $00, $20, $00, $00);
  SPIReadToEditor (1, RegSize);

  LogPrint ('End read W25Q128FV security register #2');
  SPIExitProgMode ();
end

{$ READ_SECURITY_REGISTER_3_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start read W25Q128FV security register #3');
  RegSize := 256;
  // read register 3
  SPIWrite (0, 5, $48, $00, $30, $00, $00);
  SPIReadToEditor (1, RegSize);

  LogPrint ('End read W25Q128FV security register #3');
  SPIExitProgMode ();
end

{$ ERASE_SECURITY_REGISTER_1_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start Erase W25Q128FV security register #1');
  // write enable
  SPIWrite (1, 1, $06);
  // erase register 1
  SPIWrite (1, 4, $44, $00, $10, $00);

  LogPrint ('End Erase W25Q128FV security register #1');
  SPIExitProgMode ();
end

{$ ERASE_SECURITY_REGISTER_2_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start Erase W25Q128FV security register #2');

  // write enable
  SPIWrite (1, 1, $06);
  // erase register 2
  SPIWrite (1, 4, $44, $00, $20, $00);

  LogPrint ('End Erase W25Q128FV security register #2');
  SPIExitProgMode ();
end

{$ ERASE_SECURITY_REGISTER_3_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start Erase W25Q128FV security register #3');

  // write enable
  SPIWrite (1, 1, $06);
  // erase register 3
  SPIWrite (1, 4, $44, $00, $30, $00);

  LogPrint ('End Erase W25Q128FV security register #3');
  SPIExitProgMode ();
end

{$ WRITE_SECURITY_REGISTER_1_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start write W25Q128FV 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 W25Q128FV security register #1');
  SPIExitProgMode ();
end

{$ WRITE_SECURITY_REGISTER_2_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start write W25Q128FV 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 W25Q128FV security register #2');
  SPIExitProgMode ();
end

{$ WRITE_SECURITY_REGISTER_3_W25Q128FV}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start write W25Q128FV 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 W25Q128FV security register #3');
  SPIExitProgMode ();
end

Second script for GD25Q128, can READ/ERASE/PROGRAM each Security register, based on previous script. (not tested)

Код:

{$ READ_JEDEC_ID_GD25Q128}
begin
  ID:= CreateByteArray(3);
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start read GD25Q128 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 GD25Q128 ID');
  SPIExitProgMode ();
end

{$ READ_SECURITY_REGISTER_1_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start read GD25Q128 security register #1');
  RegSize :=1024;
  // read register 1
  SPIWrite (0, 5, $48, $00, $10, $00, $00);
  SPIReadToEditor (1, RegSize);

  LogPrint ('End read GD25Q128 security register #1');
  SPIExitProgMode ();
end

{$ READ_SECURITY_REGISTER_2_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start read GD25Q128 security register #2');
  RegSize :=1024;
  // read register 2
  SPIWrite (0, 5, $48, $00, $20, $00, $00);
  SPIReadToEditor (1, RegSize);

  LogPrint ('End read GD25Q128 security register #2');
  SPIExitProgMode ();
end

{$ READ_SECURITY_REGISTER_3_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start read GD25Q128 security register #3');
  RegSize :=1024;
  // read register 3
  SPIWrite (0, 5, $48, $00, $30, $00, $00);
  SPIReadToEditor (1, RegSize);

  LogPrint ('End read GD25Q128 security register #3');
  SPIExitProgMode ();
end

{$ ERASE_SECURITY_REGISTER_1_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start Erase GD25Q128 security register #1');
  // write enable
  SPIWrite (1, 1, $06);
  // erase register 1
  SPIWrite (1, 4, $44, $00, $10, $00);

  LogPrint ('End Erase GD25Q128 security register #1');
  SPIExitProgMode ();
end

{$ ERASE_SECURITY_REGISTER_2_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start Erase GD25Q128 security register #2');

  // write enable
  SPIWrite (1, 1, $06);
  // erase register 2
  SPIWrite (1, 4, $44, $00, $20, $00);

  LogPrint ('End Erase GD25Q128 security register #2');
  SPIExitProgMode ();
end

{$ ERASE_SECURITY_REGISTER_3_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start Erase GD25Q128 security register #3');

  // write enable
  SPIWrite (1, 1, $06);
  // erase register 3
  SPIWrite (1, 4, $44, $00, $30, $00);

  LogPrint ('End Erase GD25Q128 security register #3');
  SPIExitProgMode ();
end

{$ WRITE_SECURITY_REGISTER_1_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start write GD25Q128 security register #1');
  RegSize :=1024;
  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 GD25Q128 security register #1');
  SPIExitProgMode ();
end

{$ WRITE_SECURITY_REGISTER_2_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start write GD25Q128 security register #2');
  RegSize :=1024;
  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 GD25Q128 security register #2');
  SPIExitProgMode ();
end

{$ WRITE_SECURITY_REGISTER_3_GD25Q128}
begin
  if not SPIEnterProgMode(_SPI_SPEED_MAX) then LogPrint('Error setting SPI speed');
  LogPrint ('Start write GD25Q128 security register #3');
  RegSize :=1024;
  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 GD25Q128 security register #3');
  SPIExitProgMode ();
end

third script for reading SFDR registers, tested on a W25Q128 with Asprogrammer v2.
SFDP: Serial Flash Discoverable Parameter

Большое спасибо за помощь The experiment was successful 10/10 Можно добавить GD25Q64

TTAV134

kalala писал(а):

Большое спасибо за помощь The experiment was successful 10/10 Можно добавить GD25Q64

No need to create another script, GD25Q64 and GD25Q128 have the same Security Register sizes(1024) and numbers(3)

Нет необходимости создавать другой скрипт, GD25Q64 и GD25Q128 имеют одинаковые размеры регистра безопасности (1024) и номера (3)

kalala

TTAV134 писал(а):

kalala писал(а):

Большое спасибо за помощь The experiment was successful 10/10 Можно добавить GD25Q64

No need to create another script, GD25Q64 and GD25Q128 have the same Security Register sizes(1024) and numbers(3)

Нет необходимости создавать другой скрипт, GD25Q64 и GD25Q128 имеют одинаковые размеры регистра безопасности (1024) и номера (3)

благодарю за разъяснение

Loco

TTAV134 писал(а):

Шушпанчик писал(а):

TTAV134 писал(а):

hello,
Asprogrammer is not design to program Atm.. processors
Аспрограммер не предназначен для программирования процессоров Atm ..

А вот теперь я понял где изначально ошибся. Я полез на гитхаб и скачал и последний релиз и исходники. А там только версия 1.4х, я даже внимания на это не обратил. Начал изучать ее работу, сделал отслеживание втыкания USB устройства, процедурки для работы с программаторами преобразовал в классы (наследованные от одного общего абстрактного класса), код уже вполне рабочий для CH341, и я добрался до USBasp, и начал клепать поддержку TL866...

Где можно скачать исходники 2-й версии? Как связаться с разработчиками, для внесения предложений и своего программного кода?

Go back to GitHub, there is 2 branches, one Master (v1.4x), one test (v2.0.0.14)

I myself have developed versions with enhancements and new features, such as buffer filling, a better search/replace form, automatic detection of i2c, 93cxx, 95xx / 25xx components, the addition of new components ...
I submitted a first version to the author for evaluation and comments. So, for the moment, my code is not public and I'm still working on it. Originally, I do not intend to fork, but to contribute to the project.

Я сам разработал версии с улучшениями и новыми функциями, такими как заполнение буфера, улучшенная форма поиска, автоматическое определение компонентов i2c, 93cxx, 95xx / 25xx, добавление новых компоненты ...
Я представил первую версию автору для оценки и комментариев. Итак, на данный момент мой код не является общедоступным, и я все еще работаю над этим. Изначально я не собираюсь раскошелиться, но внести свой вклад в проект.

автоматическое определение компонентов i2c, 93cxx, 95xx, как это реализуется?

TTAV134

Q: автоматическое определение компонентов i2c, 93cxx, 95xx, как это реализуется?
R: I can not summarize algorithms that represent hundreds of lines of code and weeks of hard work in a few words.

As far as i know, there are no hidden registers in the components.
Except for some i2c components the method consist to write some datas in bottom or top of the memory to determine the size/pagesize by multiples iterations.
Of course the content of the memory is saved before detect and restored after.

exemple for 95 eeproms:
1- 95 eeproms are sharing opcodes with flash25 family but have no Jedec ID, if component react like a Flash 25 but have no ID, then --> eeprom
2- determine the pagesize by writing datas in multiples iterations
3- with the given pagesize, determine the memory size in multiples iterations
once you have the family (eeprom 95) , pagesize and memory size it is easy to scan the chiplist to find one or more match.

The actual v2.1.0.7 version supports:
- KB901x
- 93C06 to 93C86 (16 bits)
- i2c from 24c01 to 24c2048 (ST M24M02), (25LC515, 25LC1025, AT24RF08 with adapter modification see schemeI2C.gif)
- AT45DBxx family with and without registers (+ old B series without ID) + real page size detection
- EEprom (25/95)
- flash 25 (512 Mbits to 2Gbits still in development)
- ATmega AVR from 64kbits to 2Mbits (Atmega8..Atmega2560) with intel, .hex files import/export.

TTAV134

version 2.1.0.8:

changes:
Chip size combobox, minor bug fix.
ATmega read ID in AVR FUSES form, major bug fixed.
Status registers access for Flash, EEprom, and 45DBxx
Shorter chip list in chiplist.xml (duplicates removal)

do not hesitate to comment.

version 2.1.0.8 link:

Вложение:

link.rar [175 байт]
Скачиваний: 160

SantagenS

TTAV134 писал(а):

version 2.1.0.8:

changes:
Chip size combobox, minor bug fix.
ATmega read ID in AVR FUSES form, major bug fixed.
Status registers access for Flash, EEprom, and 45DBxx
Shorter chip list in chiplist.xml (duplicates removal)

do not hesitate to comment.

link:

Вложение:

link.rar

removed full screen?
no link github or project?
alpha version or not?

удалён полноэкранный режим?
ссылочка на гитхаб или на релизы есть?
это полноценная версия или ещё альфа?

TTAV134

SantagenS писал(а):

removed full screen?
no link github or project?
alpha version or not?

удалён полноэкранный режим?
ссылочка на гитхаб или на релизы есть?
это полноценная версия или ещё альфа?

removed full screen? Yes, does this create a problem? the width is fixed but the height is adjustable
no link github or project? not Yet
alpha version or not? in perpetual developpement

SantagenS

TTAV134 писал(а):

removed full screen? Yes, is it a problem?

not
but I would like to change at least the height of the window (edit hex\text)
Was the mode removed due to font problems or other reasons?

Easyelectronics.ru

Программирование spi, i2c, microwire флэшек UsbAsp'ом

Кто сейчас на конференции