DEVICE=16F84A
CONFIG XT_OSC,WDT_OFF,PWRTE_OFF,CP_OFF
XTAL=4
SYMBOL CLK=PORTA.0
DECLARE LCD_TYPE 0 'LCD tanimlaniyor
DECLARE LCD_DTPIN PORTB.4
DECLARE LCD_ENPIN PORTB.3
DECLARE LCD_RSPIN PORTB.2
DECLARE LCD_INTERFACE 4
DECLARE LCD_LINES 2
DIM DEVIR AS WORD 'degiskenler atanir
DIM SAYAC AS WORD
DIM SAYI AS BYTE
DIM DEGISIM AS BYTE
OPTION_REG=%01010101
INTCON=%10110000
ON INTERRUPT GOTO KESME
PRINT $FE , 128
TRISA=%11111111 'PORTA nin tamami giris yapildi
TRISB=%00000001 'PORTB nin B0 hariç tamami cikis yapildi
PORTB=0
PORTA=0
DEVIR=0
SAYAC=0
DEGISIM=0
ANA_DONGU:
IF DEGISIM=1 THEN
PRINT $FE , 1
PRINT $FE , 2
PRINT DEC DEVIR," DEVIR/DAK"
DEGISIM=0
ENDIF
GOTO ANA_DONGU
DISABLE
END
KESME:
IF INTCON.1=1 THEN 'Dis kesme olusmus ise program
SAYAC=SAYAC+1 'if in içine dallanir
INTCON.1=0
ENDIF
IF INTCON.2=1 THEN 'ic kesme olusmus ise program
SAYI=SAYI+1 'if in içine dallanir
IF SAYI=60 THEN
DEVIR=SAYAC/25*60
SAYAC=0
DEGISIM=1
ENDIF
INTCON.2=0
ENDIF
RESUME
END