(*
SLdt  241023          Disclaimer: none. Sue me.

Ansprechen von AVR-UPDI per PC: auslesen des SIB
  Anschluss Rx --- UPDI, Tx -- R ---<|--- UPDI
                               1k   Si-D

free pascal
*)

// nur Auszug:

SerSetParams(com_handle, 115200, 8, evenParity, 2, com_flags); 

c_tmp:= char($FE);
com_status:= SerWrite(com_handle, c_tmp, 1);
c_tmp:= char($55);
com_status:= SerWrite(com_handle, c_tmp, 1);
c_tmp:= char($E5);
com_status:= SerWrite(com_handle, c_tmp, 1);

sleep(500);
while not keypressed do begin
  com_status:= SerRead(com_handle, c_tmp, 20);
  if com_status > 0 then begin
    writeln(c_tmp[1..com_status]);
  end;	
end;