Софт для програматора с интерфейсом LPT (Delphi)

[pet-rovich]

Хотелось бы разобраться с написанием софта через LPT, для более лучшего его понимания. Изучил статью http://www.programmersforum.ru/showt...606#post381606 спасибо автору. Думаю что эта статья была бы полезна многим новичкам. Но если великие гуру посчитают эту тему ненужной, то хотя бы ткните ссылочкой где можно этому научится. Если всё таки тема приживётся, то я думаю начать лучше с микросхемы памяти 24с02, для которой возмём простенькое железо с PonyProg

[pet-rovich]

Да.... А в ответ тишина. Вот и я уже месяц гуглю и не чего вразумительного найти не могу. Складывается впечатление что это тайна военная какая то.

[s-andriano]

Ну так вопросов нет - отвечать не на что.

[raxp]

разобраться с написанием софта через LPT

Уточните не для телепатов:
- вы хотите написать софт для его последующей прошивки через LPT программатор?
- или же вы хотите написать софт, представляющий собой прошивальщик через LPT для работы с некоторым чипом?

Судя по ремарке про EEPROM, вы хотите написать прошивальщик? Открываете документацию на 24с02 и находите сигнатуры и временные диаграммы, т.е. как работать с его архитектурой на низком уровне, какой сигнал когда и сколько дергать. И так для каждого чипа. Ферштеен?

[pet-rovich]

Сообщение от raxp

Уточните не для телепатов:
- вы хотите написать софт для его последующей прошивки через LPT программатор?
- или же вы хотите написать софт, представляющий собой прошивальщик через LPT для работы с некоторым чипом?

Судя по ремарке про EEPROM, вы хотите написать прошивальщик? Открываете документацию на 24с02 и находите сигнатуры и временные диаграммы, т.е. как работать с его архитектурой на низком уровне, какой сигнал когда и сколько дергать. И так для каждого чипа. Ферштеен?

Вы правы прошивальщик... но я думал что софт т.е (программа) для програматора будет понятно. Ну вобщем что мне не понятно: Из того что я накопал
scl в "0". Этой процедурой сопровождаются все информационные биты и биты R/W и экнолидж),
где A0,A1,A2 это сигналы на входах ЕЕПРОМ A0,A1,A2.
Например A0,A1,A2 подсоеденены к земле, тогда слэйв адрес будет ( 1 0 1 0 0 0 ),
а если A0,A1,A2 подсоединены к "+5 В", тогда адрес равен ( 1 0 1 0 1 1 1 ),
Но если я посылаю команду "0" а тут надо три "0" подрят то как это прописать ведь если пин уже в состоянии''0'' то как scl указать что их три подряд он же будет в сплошном "0" находиться? ну или тоже самое с "1".

[raxp]

...три раза подряд или все-таки импульс длительностью нуля в три такта? Смотрите диаграммы.

[pet-rovich]

А можно маленький фрагмент кода... как сгенерировать импульс допустим на 2pin пусть это шина scl и в тоже время привязать к нему посланный код через pin3 шина sda 1010000 вот не пойму как это сделать.

[Smitt&Wesson]

Может это Вам поможет.

[pet-rovich]

Кажется с импульсом разобрался, вот только не понял в какой момент отправлять а в какой считывать ACK после SLAVE ADRES, WORD ADDRESS, READ DATA BYTE

[pet-rovich]

Вот что написал но что то не считывает
procedure TForm1.SlaveAdres;
begin;
Out32(888,1); // 1
sleep(1);
Out32(888,0);
sleep(1);
Out32(888,1);
sleep(1);
Out32(888,3); // 0
sleep(1);
Out32(888,2);
sleep(1);
Out32(888,3);
sleep(1);
Out32(888,1); // 1
sleep(1);
Out32(888,0);
sleep(1);
Out32(888,1);
sleep(1);
Out32(888,3); // 0
sleep(1);
Out32(888,2);
sleep(1);
Out32(888,3);
sleep(1);
Out32(888,3); // 0
sleep(1);
Out32(888,2);
sleep(1);
Out32(888,3);
sleep(1);
Out32(888,3); // 0
sleep(1);
Out32(888,2);
sleep(1);
Out32(888,3);
sleep(1);
Out32(888,3); // 0
sleep(1);
Out32(888,2);
sleep(1);
Out32(888,3);
sleep(1);
end;

procedure TForm1.Acknoledge; // отправить ACK
begin
Out32(888,3);
sleep(1);
Out32(888,1);
sleep(1);
Out32(888,3);
sleep(1);
end;

procedure TForm1.Stop;
begin
Out32(888,3); // sda scl в 0
sleep(1);
Out32(888,2); // scl в 1
sleep(1);
Out32(888,0); // sda scl в 1
end;

procedure TForm1.R_W_0;
begin
Out32(888,3);
sleep(1);
Out32(888,2);
sleep(1);
Out32(888,3);
sleep(1);
end;

procedure TForm1.R_W_1;
begin
Out32(888,1);
sleep(1);
Out32(888,0);
sleep(1);
Out32(888,1);
sleep(1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
start;
SlaveAdres;
R_W_0;
Acknoledge;
WORDADDRESS;
Acknoledge;
start;
SlaveAdres;
R_W_1;
Acknoledge;
READ_DATA_BYTE;
AcknoledgeM;
Stop;
Edit1.Text:= inttostr(Ackno);
edit2.Text:= inttostr(b7) + inttostr(b6) + inttostr(b5) + inttostr(b4) + inttostr(b3) + inttostr(b2);


end;

procedure TForm1.WORDADDRESS; // отправить
begin;
Out32(888,3); // 0
sleep(1);
Out32(888,2);
sleep(1);
Out32(888,3);
sleep(1);
Out32(888,3); // 0
sleep(1);
Out32(888,2);
sleep(1);
Out32(888,3);
sleep(1);
Out32(888,3); // 0
sleep(1);
Out32(888,2);
sleep(1);
Out32(888,3);
sleep(1);
Out32(888,3); // 0
sleep(1);
Out32(888,2);
sleep(1);
Out32(888,3);
sleep(1);
Out32(888,1); // 1
sleep(1);
Out32(888,0);
sleep(1);
Out32(888,1);
sleep(1);
Out32(888,3); // 0
sleep(1);
Out32(888,2);
sleep(1);
Out32(888,3);
sleep(1);
Out32(888,1); // 1
sleep(1);
Out32(888,0);
sleep(1);
Out32(888,1);
sleep(1);
Out32(888,1); // 1
sleep(1);
Out32(888,0);
sleep(1);
Out32(888,1);
sleep(1);
end;

procedure TForm1.READ_DATA_BYTE; // считываем
begin
sleep(1);
Out32(888,0);
sleep(1);
b7:= Dec_Bin(inp32(889))[4];
Out32(888,1);
sleep(1);
sleep(1);
Out32(888,0);
sleep(1);
b6:= Dec_Bin(inp32(889))[4];
Out32(888,1);
sleep(1);
sleep(1);
Out32(888,0);
sleep(1);
b5:= Dec_Bin(inp32(889))[4];
Out32(888,1);
sleep(1);
sleep(1);
Out32(888,0);
sleep(1);
b4:= Dec_Bin(inp32(889))[4];
Out32(888,1);
sleep(1);
sleep(1);
Out32(888,0);
sleep(1);
b3:= Dec_Bin(inp32(889))[4];
Out32(888,1);
sleep(1);
sleep(1);
Out32(888,0);
sleep(1);
b2:= Dec_Bin(inp32(889))[4];
Out32(888,1);
sleep(1);
sleep(1);
Out32(888,0);
sleep(1);
b1:= Dec_Bin(inp32(889))[4];
Out32(888,1);
sleep(1);
sleep(1);
Out32(888,0);
sleep(1);
b0:= Dec_Bin(inp32(889))[4];
Out32(888,1);
sleep(1);

end;
procedure TForm1.AcknoledgeM; // пинемаем ACK
begin
sleep(1);
Out32(888,0);
sleep(1);
ackno:= Dec_Bin(inp32(889))[4];
Out32(888,1);
sleep(1);
end;
end.