Haberler:

Foruma Resim Yükleme ve Boyut Sınırlaması ( ! )  https://bit.ly/2GMFb8H

Ana Menü

1 Button ile 4 Led Kontrolü

Başlatan Eyt1, 19 Şubat 2016, 22:14:01

Eyt1

Arkadaşlar merhaba bu proje Pic basic pro ile yazılmıştır. buna bir button ile 5 led kontrolü nasıl eklerim.

RB0 :BUTTON


RC3
RC4
RC5
RC6
RC7  : İSE LED ÇIKIŞ OLACAK

http://s3.dosya.tc/server8/x5ajof/16F876_ILE.rar.html

  
DEFINE OSC 4
@ DEVICE pic16F876
@ DEVICE pic16F876, WDT_ON
@ DEVICE pic16F876, PWRT_ON
@ DEVICE pic16F876, PROTECT_OFF
@ DEVICE pic16F876, XT_OSC

TRISA=%00010111
TRISB=%00000000
TRISC=%00000111
PORTA=0
PORTB=0
PORTC=0
DEFINE LCD_DREG		PORTB	
DEFINE LCD_DBIT		4		
DEFINE LCD_RSREG	PORTB	
DEFINE LCD_RSBIT	2	
DEFINE LCD_EREG		PORTB	
DEFINE LCD_EBIT		3		
DEFINE LCD_BITS		4	
DEFINE LCD_LINES	2
ADCON1 = 7
ON INTERRUPT GoTo KESME  
OPTION_REG=%10000101   	 
INTCON=%10100000  		 
TMR0=0
    X       VAR     WORD
    E       VAR     BYTE
    AY      var     byte
    YIL     var     byte
    SN      VAR     BYTE
    DAK     VAR     BYTE
    SAAT    VAR     BYTE
    GUN     VAR     BYTE
    MEM     VAR     BYTE
    ONLAR   VAR     BYTE
    BIRLER  VAR     BYTE
    SAYAC   VAR     BYTE
    HAFTA   VAR     BYTE
    SAYI    VAR     BYTE
    ADR     VAR     BYTE
    SYC     VAR     BYTE
    AYR     VAR     BYTE
    ZYM     VAR     BYTE
    ZMN     VAR     BYTE
    SNY     VAR     BYTE
    SNS     VAR     BYTE
    KDS     VAR     BYTE
    AS      var     byte
    AD      var     byte
    KS      VAR     BYTE
    KD      VAR     BYTE
    KP      VAR     BIT
    RYM     VAR     BIT
    RAM     VAR     BIT
    GRS     VAR     BIT
    POZ     VAR     BIT
    PTESI   VAR     BIT
    SALI    VAR     BIT
    CARS    VAR     BIT
    PERS    VAR     BIT
    CUMA    VAR     BIT
    CTESI   VAR     BIT
    PAZAR   VAR     BIT
    
    MENU        VAR     PORTA.0
    YUKARI      VAR     PORTA.1
    ASAGI       VAR     PORTA.2
    SET         VAR     PORTA.4
    RTC_RST     var     PORTC.0
    RTC_CLK     var     PORTC.1
    RTC_DTA     var     PORTC.2
    
    SYMBOL ROLE=PORTA.3
    SYMBOL BUZER=PORTA.5
    SYMBOL LED=PORTB.1
    
    PAUSE 300
    HIGH LED    
    LCDOUT $FE,$40,0,1,2,18,10,4,0,0     'LCD 0. KARAKTER HAFIZASI ONAY ��ARET�
    LCDOUT $FE,$48,0,17,10,4,10,17,0,0   'LCD 1. KARAKTER HAFIZASI �ARPI ��ARET�
    LCDOUT $FE,$50,16,8,4,2,4,8,16,0     'LCD 2. KARAKTER HAFIZASI Y�N ��ARET�
    LCDOUT $FE,$58,14,17,16,16,17,14,4,0 'LCD 3. KARAKTER HAFIZASI � HARF�
    LCDOUT $FE,$60,4,0,14,4,4,4,14,0     'LCD 4. KARAKTER HAFIZASI � HARF�
    LCDOUT $FE,$68,10,0,14,17,17,17,14,0 'LCD 5. KARAKTER HAFIZASI � HARF�
    LCDOUT $FE,$70,14,0,15,16,19,17,15,0 'LCD 6. KARAKTER HAFIZASI � HARF� 
    LCDOUT $FE,$78,10,0,17,17,17,17,14,0 'LCD 7. KARAKTER HAFIZASI � HARF�
    LCDOUT $FE,1
GIRIS: 
    LCDOUT $FE,$81,"OTOMAT",4,"K ",3,4,3,"EK "
    LCDOUT $FE,$C4,"SULAYICI"
    PAUSE 1500
    LCDOUT $FE,1
    LCDOUT $FE,$84,"TASARIM"
    LCDOUT $FE,$C3,"FERHAT YOL"
    PAUSE 1500
    LCDOUT $FE,1
ZMN=0:SNY=0:KP=0
GOSUB BIPBIP

BASLANGIC:
READ $0,RYM
READ $1,PTESI
READ $2,SALI
READ $3,CARS
READ $4,PERS
READ $5,CUMA
READ $6,CTESI 
READ $7,PAZAR
READ $8,AS:IF AS>23 THEN AS=0
READ $9,AD:IF AD>59 THEN AD=0
READ $10,KS:IF KS>23 THEN KS=0
READ $11,KD:IF KD>59 THEN KD=0
read $12,KP:IF KP>1 THEN KP=0
IF SAAT>23 THEN SAAT=0
IF DAK>59 THEN DAK=0
IF SN>59 THEN SN=0
IF GUN>31 THEN GUN=1
IF AY>12 THEN AY=1
IF YIL>50 THEN YIL=1
IF HAFTA>7 THEN HAFTA=1
GOSUB ZAMAN_OKU:GOSUB ZAMAN_OKU
POZ=0 
IF KS<=SAAT and KD<=DAK THEN KP=0:WRITE $12,KP:PAUSE 1              
IF AS<=SAAT AND AD<=DAK AND saat<=KS AND DAK<=KD AND KP=1 THEN HIGH ROLE
ROLE=KP
BASLA:
    GOSUB EKRANAYAZ
    GOSUB ZAMAN_OKU
    IF RYM=1 THEN GOSUB ZAMANA_BAK
    
    IF ZMN>100 THEN
      ZMN=0:POZ=1:low ROLE
      GOSUB BIP:GOTO AYAR_MENUSU
    ENDIF
    
    IF MENU=1 OR YUKARI=1 OR ASAGI=1 OR SET=1 THEN
      SNS=0:SNY=0
      HIGH LED
    ENDIF
    
    IF SET=0 THEN ZMN=0
    IF SNY>15 THEN LOW LED
    
     IF ROLE<>KP THEN
        IF ROLE=1 THEN KP=1
        IF ROLE=0 THEN KP=0
       WRITE $12,KP
     ENDIF
        
    IF KS<=SAAT and KD<=DAK THEN low ROLE
GOTO BASLA
'---------------------------ALT PROGRAMLAR-------------------------------------
EKRANAYAZ:
ADR=$8B:GOSUB GUNE_BAK 
ADR=$C3:GOSUB AYABAK
LCDOUT $FE,$80,DEC2 SAAT,":",DEC2 DAK,":",DEC2 SN
LCDOUT $FE,$C0,DEC2 GUN,"/"
LCDOUT $FE,$C6,"/20",DEC2 YIL
IF RYM=1 THEN LCDOUT $FE,$CC,"P.ON"
IF RYM=0 THEN LCDOUT $FE,$CC,"P.OF"                
RETURN

AYABAK:
SELECT CASE AY
CASE 1
LCDOUT $FE,ADR,"OCA"
CASE 2
LCDOUT $FE,ADR,"SUB"
CASE 3
LCDOUT $FE,ADR,"MAR"
CASE 4
LCDOUT $FE,ADR,"NiS"
CASE 5
LCDOUT $FE,ADR,"MAY"
CASE 6
LCDOUT $FE,ADR,"HAZ"
CASE 7
LCDOUT $FE,ADR,"TEM"
CASE 8
LCDOUT $FE,ADR,"AGU"
CASE 9
LCDOUT $FE,ADR,"EYL"
CASE 10
LCDOUT $FE,ADR,"EKi"
CASE 11
LCDOUT $FE,ADR,"KAS"
CASE 12
LCDOUT $FE,ADR,"ARA"
END SELECT
RETURN

GUNE_BAK:
select case hafta
case 1 
LCDOUT $FE,ADR,"PAZAR"
case 2
LCDOUT $FE,ADR,"PTES",4           
case 3
LCDOUT $FE,ADR," SALI"                  
case 4
LCDOUT $FE,ADR," CARS"                     
case 5
LCDOUT $FE,ADR," PERS"
case 6
LCDOUT $FE,ADR," CUMA"
case 7      
LCDOUT $FE,ADR,"CTES",4
end select                     
RETURN

  
ZAMANA_BAK:
   IF HAFTA=1 AND PAZAR=1 AND AS=SAAT AND AD=DAK AND SN=0 THEN HIGH ROLE 
   IF HAFTA=2 AND PTESI=1 AND AS=SAAT AND AD=DAK AND SN=0 THEN HIGH ROLE
   IF HAFTA=3 AND SALI=1 AND AS=SAAT AND AD=DAK AND SN=0 THEN HIGH ROLE
   IF HAFTA=4 AND CARS=1 AND AS=SAAT AND AD=DAK AND SN=0 THEN HIGH ROLE
   IF HAFTA=5 AND PERS=1 AND AS=SAAT AND AD=DAK AND SN=0 THEN HIGH ROLE
   IF HAFTA=6 AND CUMA=1 AND AS=SAAT AND AD=DAK AND SN=0 THEN HIGH ROLE
   IF HAFTA=7 AND CTESI=1 AND AS=SAAT AND AD=DAK AND SN=0 THEN HIGH ROLE 
RETURN         

TEMIZLE:
LCDOUT $FE,1
RETURN
BIPBIP:
     HIGH buzer   
    PAUSE 50
      LOW buzer 
    PAUSE 100
     HIGH BUZER
    PAUSE 50
      LOW BUZER 
RETURN
BIP:
  HIGH BUZER
  FOR X=0 TO 1000
  NEXT X
  LOW BUZER
RETURN

KAYDET:
  lcdout $FE,1,"AYARLAR"
  LCDOUT $FE,$C0,"KAYDEDILDI..."
  GOSUB BIPBIP
  PAUSE 800
  AYR=0:SNS=0:SNY=0
  GOSUB TEMIZLE
GOTO BASLANGIC

AYARLANDI:
  lcdout $FE,1,"AYARLANDI..."  
  GOSUB BIP
  PAUSE 1000
AYAR_MENUSU:
  WHILE MENU=1:WEND
  GOSUB TEMIZLE
  HIGH LED
  AYR=0
ANA_MENU:
IF YUKARI=1 THEN 
  AYR=AYR+1
  gosub BIP
  WHILE YUKARI=1:WEND
  IF AYR>3 THEN AYR=0
ENDIF
IF ASAGI=1 THEN 
  AYR=AYR-1
  GOSUB BIP
  WHILE ASAGI=1:WEND
  IF AYR=255 THEN AYR=3
ENDIF
  GOSUB DURUM
GOTO ANA_MENU
DURUM:
SELECT CASE AYR
CASE 0
LCDOUT $FE,$81,"  ZAMAN AYARI  "
       IF MENU=1 THEN
       WHILE MENU=1:WEND
       GOSUB BIP
       GOTO SAATAYAR1
       ENDIF
CASE 1
LCDOUT $FE,$81,"SULAMA AYARLARI"
       IF MENU=1 THEN
       WHILE MENU=1:WEND
       GOSUB BIP
       GOTO MOTORAYAR
       ENDIF
CASE 2
LCDOUT $FE,$81," MANUEL SULAMA "
       IF MENU=1 THEN
       WHILE MENU=1:WEND
       GOSUB BIP
       GOTO MANUEL_KONT
       ENDIF
CASE 3
LCDOUT $FE,$81," MENUDEN ",3,"IKIS "
       IF MENU=1 THEN
       WHILE MENU=1:WEND
       LCDOUT $FE,1
       GOTO KAYDET
       ENDIF
END SELECT
RETURN
MANUEL_KONT
  GOSUB TEMIZLE
MANUELKONT:
  LCDOUT $FE,$80,"YUKARIYA BASINIZ"
  IF YUKARI=1 THEN 
    LCDOUT $FE,$C0,"POMPA ACIK  "
    HIGH ROLE
  ELSE
    LCDOUT $FE,$C0,"POMPA KAPALI"
    LOW ROLE 
  ENDIF
  IF MENU=1 THEN
    GOSUB BIP:GOTO AYAR_MENUSU
  ENDIF
GOTO MANUELKONT
 
MOTORAYAR:
  GOSUB TEMIZLE
  READ $0,RYM
MOTOAYAR:
  LCDOUT $FE,$82,"POMPA DURUMU"
  IF MENU=1 and RYM=1 THEN 
    WHILE MENU=1:WEND
    WRITE $0,RYM
    GOSUB BIP:syc=0
    GOTO M_ZAMANI
  ENDIF
  IF MENU=1 AND RYM=0 THEN
    WHILE MENU=1:WEND
    WRITE $0,RYM
    WRITE $12,KP
    GOSUB BIP:GOTO AYARLANDI
  ENDIF
  IF SET=1 THEN 
    gosub TEMIZLE:GOSUB BIP:GOTO ANA_MENU
  ENDIF
      IF YUKARI=1 THEN RYM=1
      IF ASAGI=1 THEN RYM=0
      IF RYM=1 THEN lcdout $FE,$C4," ACIK "
      IF RYM=0 THEN LCDOUT $FE,$C4,"KAPALI"
GOTO MOTOAYAR  
M_ZAMANI:
     GOSUB TEMIZLE
     READ $1,PTESI
     READ $2,SALI
     READ $3,CARS
     READ $4,PERS
     READ $5,CUMA
     READ $6,CTESI
     READ $7,PAZAR
M_ZAMAN:
     LCDOUT $FE,$81,"SULAMA G",7,"NLER",4 
  IF MENU=1 THEN
     GOSUB BIP 
     SYC=SYC+1
     WHILE MENU=1:WEND
  ENDIF
  IF SET=1 THEN
    GOSUB BIP 
    SYC=SYC-1
    IF SYC>7 THEN MOTORAYAR
    WHILE SET=1:WEND
  ENDIF
  GOSUB GUNEBAK

  IF SYC=7 THEN 
    SYC=0:KDS=0
    WRITE $1,PTESI
    WRITE $2,SALI
    WRITE $3,CARS
    WRITE $4,PERS
    WRITE $5,CUMA
    WRITE $6,CTESI
    WRITE $7,PAZAR
    GOTO M_CALISMA
  ENDIF
  GOTO M_ZAMAN
    
GUNEBAK:
SELECT CASE SYC
CASE 0
     IF YUKARI=1 THEN TOGGLE PTESI
     WHILE YUKARI=1:WEND 
     LCDOUT $FE,$C0,"PAZARTESi=",(1-PTESI)," "
CASE 1
     IF YUKARI=1 THEN TOGGLE SALI
     WHILE YUKARI=1:WEND 
     LCDOUT $FE,$C0,"SALI=",(1-SALI),"     "
CASE 2
     IF YUKARI=1 THEN TOGGLE CARS
     WHILE YUKARI=1:WEND
     LCDOUT $FE,$C0,"CARSAMBA=",(1-CARS)," "
CASE 3
     IF YUKARI=1 THEN TOGGLE PERS 
     WHILE YUKARI=1:WEND
     LCDOUT $FE,$C0,"PERSEMBE=",(1-PERS)," "
CASE 4
     IF YUKARI=1 THEN TOGGLE CUMA
     WHILE YUKARI=1:WEND
     LCDOUT $FE,$C0,"CUMA=",(1-CUMA),"     "
CASE 5
     IF YUKARI=1 THEN TOGGLE CTESI
     WHILE YUKARI=1:WEND
     LCDOUT $FE,$C0,"CUMARTESI=",(1-CTESI)," "
CASE 6 
     IF YUKARI=1 THEN TOGGLE PAZAR
     WHILE YUKARI=1:WEND
     LCDOUT $FE,$C0,"PAZAR=",(1-PAZAR),"     "
END SELECT
RETURN

M_CALISMA:
  GOSUB TEMIZLE 
  READ $8,AS
  READ $9,AD
  READ $10,KS
  READ $11,KD
ACILIS:
  lcdout $FE,$82,3,"ALISMA SAATi" 
  IF MENU=1 THEN 
    GOSUB BIP
    KDS=KDS+1
    WHILE MENU=1:WEND
  ENDIF
  IF SET=1 THEN 
    GOSUB BIP
    KDS=KDS-1
    WHILE SET=1:WEND
  ENDIF 
  IF KDS>4 THEN 
    SYC=6
    GOTO M_ZAMANI
  ENDIF
  GOSUB BAK3
  IF AS=255 THEN AS=23
  IF AS=24 THEN AS=0
  IF AD=255 THEN AD=59
  IF AD=60 THEN AD=0
  IF KDS>1 THEN
    GOSUB TEMIZLE 
    GOTO KAPANIS
  ENDIF
GOTO ACILIS

KAPANIS:
  LCDOUT $FE,$82,"KAPANIS SAATi"
  IF MENU=1 THEN 
    GOSUB BIP
    KDS=KDS+1
    WHILE MENU=1:WEND
  ENDIF
  IF SET=1 THEN 
    gosub BIP
    KDS=KDS-1
    WHILE SET=1:WEND
  ENDIF
  IF KDS<2 THEN
    KDS=1 
    GOTO ACILIS
  ENDIF 
  GOSUB BAK4
IF KS=255 THEN KS=23
IF KS=24 THEN KS=0
IF KD=255 THEN KD=59
IF KD=60 THEN KD=0
  IF KDS>3 THEN 
    KDS=0
    WRITE $8,AS
    WRITE $9,AD
    WRITE $10,KS
    WRITE $11,KD
    GOTO AYARLANDI
    ENDIF
GOTO KAPANIS

SAATAYAR1:
  GOSUB ZAMAN_OKU
  GOSUB TEMIZLE
  ZYM=0       
SAATAYAR:
  lcdout $FE,$83,"SAAT AYARI"
  LCDOUT $FE,$C5,DEC2 SAAT,":",dec2 DAK,":",dec2 SN
  IF MENU=1 THEN 
    ZYM=ZYM+1:GOSUB BIP
    WHILE MENU=1:WEND
  ENDIF
  IF SET=1 THEN 
    ZYM=ZYM-1:GOSUB BIP
    IF ZYM>0 THEN GOSUB BIP
      IF ZYM>2 THEN 
        GOSUB TEMIZLE:GOTO ANA_MENU
      ENDIF
    WHILE SET=1:WEND
  ENDIF
  IF ZYM>5 THEN ZYM=0
    GOSUB BAK1
  IF ZYM=2 THEN 
    GOSUB TEMIZLE
    GOTO TARIHAYAR
  ENDIF
GOTO SAATAYAR

TARIHAYAR:
  ADR=$C7:GOSUB AYABAK
  lcdout $FE,$83,"TARIH AYARI"
  LCDOUT $FE,$C4,DEC2 GUN,"/"  
  LCDOUT $FE,$CA,"/20",DEC2 YIL
  IF MENU=1 THEN 
    ZYM=ZYM+1  
    GOSUB BIP    
    WHILE MENU=1:WEND 
  ENDIF
IF GUN>31 THEN GUN=1
IF GUN<1 THEN GUN=31
IF AY>12 THEN AY=1
IF AY<1 THEN AY=12
IF YIL>50 THEN YIL=0

  IF SET=1 THEN 
    ZYM=ZYM-1
    GOSUB BIP
    WHILE SET=1:WEND
  ENDIF
  IF ZYM<2 THEN 
    LCDOUT $FE,1
    ZYM=1:GOTO SAATAYAR
  ENDIF         
  GOSUB BAK2
  IF ZYM=5 THEN GOTO GUN_AYARI
GOTO TARIHAYAR

GUN_AYARI:
  GOSUB TEMIZLE
GUNAYARI:
  LCDOUT $FE,$84,"G",7,"N AYARI"
  IF YUKARI=1 THEN
    WHILE YUKARI=1:WEND
    HAFTA=HAFTA+1
      IF HAFTA>7 THEN HAFTA=1
    ENDIF
  IF SET=1 THEN 
    GOSUB BIP
    WHILE SET=1:WEND
    ZYM=4:GOTO TARIHAYAR
  ENDIF
  IF ASAGI=1 THEN
    WHILE ASAGI=1:WEND
    HAFTA=HAFTA-1
      IF HAFTA=0 THEN HAFTA=7
  ENDIF
  IF HAFTA>7 THEN HAFTA=0
  ADR=$C1:GOSUB GUNE_BAK
  IF MENU=1 THEN
    WHILE MENU=1:WEND
    gosub ZAMAN_YAZ
    goto AYARLANDI   
  ENDIF

GOTO GUNAYARI

BAK1:
SELECT CASE ZYM
CASE 0
LCDOUT $FE,$C0,"SAAT"
IF YUKARI=1 THEN SAAT=SAAT+1
WHILE YUKARI=1:WEND
IF ASAGI=1 THEN SAAT=SAAT-1
WHILE ASAGI=1:WEND
IF SAAT>23 THEN SAAT=0
CASE 1
LCDOUT $FE,$C0,"DAK "
IF YUKARI=1 THEN DAK=DAK+1
WHILE YUKARI=1:WEND         
IF ASAGI=1 THEN DAK=DAK-1
WHILE ASAGI=1:WEND 
IF DAK>59 THEN DAK=0 
END SELECT
RETURN 

BAK2:
SELECT CASE ZYM
CASE 2
LCDOUT $FE,$C0,"GUN "
IF YUKARI=1 THEN GUN=GUN+1   
WHILE YUKARI=1:WEND            
IF ASAGI=1 THEN GUN=GUN-1    
WHILE ASAGI=1:WEND
CASE 3
LCDOUT $FE,$C0,"AY  "
IF YUKARI=1 THEN AY=AY+1   
WHILE YUKARI=1:WEND            
IF ASAGI=1 THEN AY=AY-1    
WHILE ASAGI=1:WEND 
CASE 4
LCDOUT $FE,$C0,"YIL "
IF YUKARI=1 THEN YIL=YIL+1   
WHILE YUKARI=1:WEND            
IF ASAGI=1 THEN YIL=YIL-1    
WHILE ASAGI=1:WEND                     
END SELECT
RETURN 

BAK3:
SELECT CASE KDS
CASE 0
LCDOUT $FE,$C5,2,DEC2 AS,":",DEC2 AD
IF YUKARI=1 THEN 
AS=AS+1
WHILE YUKARI=1:WEND
ENDIF
IF ASAGI=1 THEN 
AS=AS-1
WHILE ASAGI=1:WEND
ENDIF
CASE 1
LCDOUT $FE,$C5,DEC2 AS,":",2,DEC2 AD
IF YUKARI=1 THEN 
AD=AD+1
WHILE YUKARI=1:WEND
ENDIF
IF ASAGI=1 THEN 
AD=AD-1
WHILE ASAGI=1:WEND
ENDIF
END SELECT
RETURN

BAK4:
SELECT CASE KDS
CASE 2
LCDOUT $FE,$C5,2,DEC2 KS,":",DEC2 KD
IF YUKARI=1 THEN 
KS=KS+1
WHILE YUKARI=1:WEND
ENDIF
IF ASAGI=1 THEN 
KS=KS-1
WHILE ASAGI=1:WEND
ENDIF
CASE 3
LCDOUT $FE,$C5,DEC2 KS,":",2,DEC2 KD
IF YUKARI=1 THEN 
KD=KD+1
WHILE YUKARI=1:WEND
ENDIF
IF ASAGI=1 THEN 
KD=KD-1
WHILE ASAGI=1:WEND
ENDIF
END SELECT
RETURN

       

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ZAMAN_OKU:
    high RTC_RST:OUTPUT RTC_DTA
shiftout RTC_DTA, RTC_CLK, 0, [$BF]:INPUT RTC_DTA
SHIFTIN RTC_DTA, RTC_CLK, 1, [SN, DAK, SAAT,GUN , AY, HAFTA, YIL, MEM]  'OKU
         MEM=SN:GOSUB CEVIR:SN=SAYI
         MEM=DAK:GOSUB CEVIR:DAK=SAYI
         MEM=SAAT:GOSUB CEVIR:SAAT=SAYI
         MEM=GUN:GOSUB CEVIR:GUN=SAYI
         MEM=AY:GOSUB CEVIR:AY=SAYI
         MEM=YIL:GOSUB CEVIR:YIL=SAYI
         MEM=HAFTA:GOSUB CEVIR:HAFTA=SAYI
     low RTC_RST 
  return
ZAMAN_YAZ:
         MEM=sn:gosub TERSCEVIR:sn=SAYI
         MEM=DAK:gosub TERSCEVIR:DAK=SAYI
         MEM=SAAT:gosub TERSCEVIR:SAAT=SAYI
         MEM=GUN:gosub TERSCEVIR:GUN=SAYI
         MEM=AY:gosub TERSCEVIR:AY=SAYI
         MEM=YIL:gosub TERSCEVIR:YIL=SAYI
         MEM=HAFTA:GOSUB TERSCEVIR:HAFTA=SAYI
    high  RTC_RST
SHIFTOUT RTC_DTA, RTC_CLK, 0, [$8E, 0]    'WRT Protek a��ld�
     low RTC_RST:PAUSEUS 10 
    high RTC_RST          
SHIFTOUT RTC_DTA, RTC_CLK, 0, [$BE, SN, DAK, SAAT,GUN , AY, HAFTA, YIL, 128]  'YAZ
     low RTC_RST
 PAUSEUS 10
  return
CEVIR:
         ONLAR=MEM & %01110000
         ONLAR=ONLAR>>4
         BIRLER=MEM & %00001111
         SAYI=ONLAR*10+BIRLER
  return
TERSCEVIR:
         ONLAR=MEM DIG 1
         ONLAR=ONLAR<<4
         BIRLER=MEM DIG 0
         SAYI=ONLAR+BIRLER
  return
  
DISABLE
KESME:
IF POZ=1 THEN ATLA
IF SET=1 THEN
  ZMN=ZMN+1
  IF ZMN=200 THEN ZMN=0
ENDIF
SNS=SNS+1
IF SNS=55 THEN
SNS=0
SNY=SNY+1
IF SNY>16 THEN SNY=0
ENDIF
ATLA:
 
INTCON.2=0    
RESUME 
ENABLE
END
           

Eyt1