DEVICE=16F84A
CONFIG XT_OSC , WDT_OFF , PWRTE_OFF
XTAL = 4
DECLARE LCD_TYPE 0
DECLARE LCD_DTPIN PORTB.4
DECLARE LCD_ENPIN PORTB.3
DECLARE LCD_RSPIN PORTB.2
DECLARE LCD_INTERFACE 4
DECLARE LCD_LINES 2
Dim SAAT as BYTE
Dim DSAAT as BYTE
Dim DAKIKA as BYTE
Dim SANIYE as BYTE
Dim PIK as BYTE
Dim DEGISIM as BYTE
'--------------------------------------------------------------------------
PRINT $FE , 1 : DELAYMS 30
'--------------------------------------------------------------------------
MAIN:
SAAT=0
SANIYE=0
DAKIKA=0
PIK=0
OPTION_REG = %01010101
INTCON=%10100000
ON INTERRUPT GOTO PIKINT
'--------------------------------------------------------------------------
ANA_DONGU:
KONTROL:
IF DEGISIM=1 THEN
PRINT $FE , 1
DSAAT=SAAT
PRINT " ",
PRINT DEC DSAAT,":" , DEC DAKIKA, ":", DEC SANIYE,
DEGISIM=0
ENDIF
GOTO ANA_DONGU
DISABLE
PIKINT:
PIK=PIK+1
IF PIK<61 THEN goto PIEXIT
PIK=0
SANIYE=SANIYE+1
IF SANIYE >= 60 THEN
SANIYE=0
DAKIKA=DAKIKA+1
IF DAKIKA >= 60 THEN
DAKIKA=0
SAAT=SAAT+1
IF SAAT >= 24 THEN
SAAT=0
E NDIF
ENDIF
ENDIF
DEGISIM=1
PIEXIT:
INTCON.2=0
RESUME
END