[an error occurred while processing this directive]
|
TByte($CC); //Skip ROM
TByte($4E); //Write Scratchpad
TByte(Usr1);
TByte(Usr2);
TReset;
TByte($CC); //Skip ROM
TByte($48); //Copy Scratchpad
Sleep(20);
TReset;
TByte($CC); //Skip ROM
TByte($B8); //Recall EEPROM
TReset;
TByte($CC); //Skip ROM
TByte($BE); //Read Scratchpad
TByte($FF);
TByte($FF);
Usr1:=TByte($FF);
Usr2:=TByte($FF);
E-mail: info@telesys.ru