Отправлено Titanic 07 октября 2003 г. 14:11

program Water52;
{ $BOOTRST $07000} {Reset Jump to $07000}
{$NOSHADOW}
{ $W+ Warnings} {Warnings off}
Device = mega128, VCC=5;
Import SysTick,TWImaster;
From System Import Random;
Define
ProcClock = 4000000; {Hertz}
SysTick = 10; {msec}
StackSize = $0064, iData;
FrameSize = $0064, iData;
TWIpresc = 32;
Implementation
{$IDATA}
Const
TWIslv : byte = $68;
……
{ Main Program }
{$IDATA}
begin
InitAll;
EnableInts;
…

> if TWIstat(TWIslv)
> then
> LCDOutString($C0,'ОК');
> else
> LCDOutString($C0,'Ошибка!');
> endif;
…

repeat
…
endloop;
end Water52.

===========


при попытке узнать TWIstat(TWIslv) проц виснет. Что я делаю не так?

• Пишеш на Паскале :-) — PeterD   (07.10.2003 15:24, пустое)
  • Ну, да. А это что-то меняет? Ж) — Titanic   (07.10.2003 18:59, пустое)