---

Jednoduchý program napsaný v jazyce MicroPascal, který bude rozsvětcovat LED diody podle stisknutí tlačítka

Ukázka kódu ve videu:

Popis: Práce s AT89S52

program blikacka;
{ Jednoduchý program, který využívá vnitřní přerušovač na 12MHz }
var
  A : byte;

procedure Timer0ISR(); org 0x000B;
begin
  if TestBit(P1,0)=1 then//pokud zmackneme tlacitko(přivedeme 1) na PORT1 pin 0, nebo můžeme použít funkci Button
     a := 1//tak změň stav proměnné a
  else
     a := 0;

  Delay_ms(25);
end;

begin
  TMOD := %00000001;//nastavení módů a registrů
  TCON := %00110000;
  IE := %10000010;
  IP := %00000010;

  P0 := %00000000;//Nastavení základní funkce portů
  P1 := %11111111;
  P2 := %00000000;
  P3 := %11111111;
  
  while true do begin
    
    if(a = 1)then//Pokud je nastavená proměnná a=1 tak přiveď na PORT2 na všechny piny 1 
      P2 := %11111111;
    else//jinak na všechny piny 0
      P2 := %00000000;
          
  end;
end.

Videa: