$regfile "m8def.dat"
Dim Lock As Word

Config Int0 = Falling
On Int0 Int0_isr

Enable Interrupts



'main loop
Do



If Lock > 0 Then Decr Lock
If Lock = 0 Then
 Enable Int0
End If

Loop
End

Int0_isr
Disable Int0
Lock = 10000
'do some stuff
Return

Dim Lock As Word                                            'ilosc cykli do ponownego wcisniecia
Dim Turn_off As Bit                                         'flaga ustawiana by zadziałało po puszczeniu

Config PORTC.5 = Output : Set PORTC.5                       'dowolny port na przykład podświetlanie LCD
Led Alias PORTC.5                                           '+ z procesora, dioda do masy

Config PORTD.2 = Input : Set PORTD.2                        'przycisk na wejściu INTx
Switch Alias PIND.2

Config INT0 = Low Level                                     'important "LOW LEVEL"
On INT0 Int0_isr
Enable Interrupts

'*** START ***
Do

If Switch = 0 Then                                          'jesli wcisnieto przycisk
 If Lock = 0 Then                                           'a zmienna już wyzerowana
    Lock = 10000                                            'to zablokuj poprzez wpis do zmiennej
    Turn_off = 1                                            'ustaw flage by po puszczeniu przycisku zadziałało
 End If
Else
 If Lock > 0 Then Decr Lock                                 'jesli blokada to zdejmuj po jednej
 If Lock = 0 Then                                           'jesli blokada równa zero
  If Turn_off = 1 Then                                      'a byl wcisniety przycisk
     Turn_off = 0                                           'to skasuj flage
       Reset Led                                            'zgas diode
       Enable INT0                                          'dopiero zezwalaj na przerwanie(inaczej ten kod by sie nie wykonal)
       'Display Off                                          'ewentualne wyłaczenie/czyszczenie LCD
       Config Powermode = Powerdown                         'idź spac
   End If
  End If
End If

Loop
End
'*** KONIEC ***

Int0_isr:
Disable INT0                                                'wylacz to przerwanie
Set Led                                                     'wlacz diode
'Display On                                                  'wlacz LCD
Lock = 10000                                                'zablokuj automatyczne przejscie znow
Return

$regfile = "m328pdef.dat"
$crystal = 16000000

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.1 , Rs = Portd.0       ', Wr = Portc.3
Config Lcd = 20 * 4
Cursor Off
Cls

Dim Lock As Word , Count As Byte , Flag As Byte
Lcd "Counter:"

Config Portd.2 = Input : Set Portd.2
Switch Alias Pind.2

Config Int0 = Falling
On Int0 Int0_isr
Enable Interrupts
Flag = 1
'*** START ***
Do

If Switch = 1 Then
 If Lock > 0 Then Decr Lock
 If Lock = 0 Then
   Eifr.0 = 1
   Enable Int0
 End If
End If

 If Flag = 1 Then
    Flag = 0
     Locate 1 , 9 : Lcd Count
 End If

Loop
End
'*** END ***

Int0_isr:
Disable Int0
Eifr.0 = 1

If Flag = 0 Then
 Incr Count
 Flag = 1
End If
Lock = 65535
Return