Datasheet

dat[5] := 0;
end;
if (dat[4] <> 0) then // upon completed valid message receive
begin
dat[4] := 0; // data[4] is set to 0xFF
j := dat[3];
for i := 1 to dat[3] do // show data on PORTB
PORTB := dat[i-1];
dat[0] := dat[0]+1; // increment received dat[0]
Delay_ms(1);
RS485Slave_Send(dat,1); // and send it back to master
end;
end;
end.
348
MIKROELEKTRONIKA - SOFTWARE AND HARDWARE SOLUTIONS FOR EMBEDDED WORLD
Libraries
mikroPASCAL PRO for AVR
CHAPTER 6