programmation de pic 16f876 pour un testeur de circuit logiques

Code :

---

program reception;
var data : byte;
begin
Usart_Init(9600); // initialisation
while true do
begin
if Usart_Data_Ready = 1 then // si données reçus
begin
data:=Usart_Read; // lecture des données
if data = 'A' then
begin
// traitement pour le circuit A
data := 0;
end;
if data = 'B' then
begin
// traitement pour le circuit B
data := 0;
end;
end;
end;
end.