PIC 12F628 ou 12F675

Code :

---

program test;

{ Declarations section }

begin
{ Main program }
TRISIO:=$04;
GPIO:=0;
while true do
begin
if GPIO.2=0 then GPIO.0:=1 else GPIO.0:=0;
if GPIO.2=1 then GPIO.1:=1 else GPIO.1:=0;

end;
end.

Code :

---

program test;
begin
TRISIO:=$04;
GPIO:=0;
cmcon:=7;
ANSEL :=0;
while true do
begin
if GPIO.2=0 then GPIO.0:=1 else GPIO.0:=0;
if GPIO.2=1 then GPIO.1:=1 else GPIO.1:=0;
end;
end.