|
program main;
// PIC12F629
var i: byte;
procedure interrupt; // Процыдура прирываний
begin
i:= 1;
end;
begin
GPIO := 00; // инициализировать порты GPIO
CMCON := 7; // отключить компораторы
TRISIO := 0; // все GPIO выходы
TRISIO.GP1 :=1; // GP1 как вход
{ !!!! неизвестный мне код !!!!!! }
i:=0; GPIO.GP2:=0;
while TRUE do
begin
if i=1 then begin
GPIO.GP2:=1; Delay_ms(500); GPIO.GP2:=0;
i:=0;
end;
end;
end.
По нажатию кнопки загорается светодиод, а именно прерывание нужно - потому, что в теле программы будет другой алгоритм.
|