'resitev problema iz Programa 4

Config Portb = Output
Config Portd.0 = Input

Dim Ledica As Bit
Dim Tipka As Bit


$regfile = "m8515.dat"
'$regfile = "attiny2313.dat"

Do

   Portb = 255
   Debounce Pind.0 , 0 , Ukaz , Sub
   Debounce Pind.0 , 1 , Ukaz1 , Sub

Loop
End

'Subrutine

Ukaz:
   Portb.0 = Ledica
   Ledica = Not Ledica
   Wait 1
Return


Ukaz1:
   Portb.1 = Ledica
   Ledica = Not Ledica
   Wait 1
Return