Etepic

@ DEVICE PIC16F84A, XT_OSC
@ DEVICE PIC16F84A, WDT_OFF
@ DEVICE PIC16F84A, PWRT_OFF
@ DEVICE PIC16F84A, PROTECT_OFF

PORTA=0
PORTB=0
TRISA=%00000000
TRISB=%00000000
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 3
DEFINE LCD_RWREG PORTB
DEFINE LCD_RWBIT 2
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 1
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
ON INTERRUPT GoTo KESME
OPTION_REG=%10000101   
INTCON=%10100000 
TMR0=0
SN VAR BYTE
DAK VAR BYTE
SAAT VAR BYTE
SAYAC VAR BYTE
CLEAR
PAUSE 200
LCDOUT $FE,1
LOW PORTB.2
SN=0
DAK=0
SAAT=20
SAYAC=60
BASLA:
      LCDOUT $FE,$84,DEC2 SAAT,":",DEC2  DAK,":",DEC2 SN
      IF SAAT=0 AND DAK=0 AND SN=0 THEN
         LCDOUT $FE,$C0,"SARJ TAMAMLANDI"
      ELSE
         LCDOUT $FE,$C0," SARJ  EDILIYOR "
      ENDIF   
      GOTO BASLA
DISABLE
KESME:
      SAYAC=SAYAC-1
      IF SAYAC=0 then
        SAYAC=60
        SN=SN-1
        IF SN=255 THEN
          SN=59
          DAK=DAK-1
          IF DAK=255 THEN
            DAK=59
            SAAT=SAAT-1
            IF SAAT=255 THEN
              SAAT=0
              INTCON=0
              LCDOUT $FE,1
              HIGH PORTA.0:SN=0:DAK=0
            ENDIF
          ENDIF
        ENDIF     
      ENDIF
INTCON.2=0
RESUME
ENABLE
END