ATMEGA32 BASCOM – kod przełącznika bistabilnego na przekaźnik (portd.2, portd.4)

 Config Pind.4 = Output                                     
 reset Portd.4   
 Config Pind.2 = Input  
 reset Pind.4

dim a as bit
dim b as bit
a=0
portd.4=a
do


if pind.2=1 then  <-- sprawdza czy jest nacisniete
 waitms 100
  if pind.2=1 then <-- jeszcze raz sprawdza
   b=not a           <-- zmienia stan zmiennej przypisywanej do wyjscie przekaznikowego na przeciwny
   a=b
   portd.4=a
    do   <-- czeka aż puścisz klawisz
    loop until pind.2=0 <-- jak bedzie zero ma wyskoczyc z petli ( nie pamietam czy ma byc tak) 
  end if
end if
loop

Config Debounce = 30
Config Portd = Output
Ddrd = Ddrd And &H0E
Portd = Portd Or &H70
Do
Debounce Pind.4 , 0 , Przekaznik1 , Sub
Debounce Pind.5 , 0 , Przekaznik2 , Sub
Debounce Pind.6 , 0 , Przekaznik3 , Sub
Loop

Przekaznik1:
   Toggle Portd.1
Return
Przekaznik2:
   Toggle Portd.2
Return
Przekaznik3:
   Toggle Portd.3
Return