Отправлено Саня 04 марта 2005 г. 10:53 В ответ на: один маленький вопросик по At25256 (+) отправлено =L.A.= 04 марта 2005 г. 10:28

//***********************************************************
//* Read - процедура чтения микросхемы 25256 **
//***********************************************************
Proc Read {

Init;
print("");
print(" Чтение микросхемы 25С256.");
print("");
CS = 0;
WriteOpCode(OPREAD);WriteOpCode(0);WriteOpCode(0);
while(FDPTR != END_ADR) {
FDATA = GetByte;
FDPTR++;PBPos++;
}
CS = 1;
PC = 0x00;
print(" Чтение завершено. %d байт прочитано.",FDPTR);
}

//******************************************************************
//* GetByteFrom25 - процедура получения байта из микросхемы 25256 **
//******************************************************************
Proc GetByte {

var Counter,Temp;
Counter = 8; Temp = 0; SOOUT = 1;
while(Counter != 0) {
Temp = Temp << 1;
SCK = 0;Temp.0 = SOIN;SCK = 1;
Counter--;
}
return(Temp);
}