Şimdi Ara

900 Adet Hazır Pic Devresi ve şemaları

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir Kullanıcı, 2 Masaüstü Kullanıcı
33
Cevap
4
Favori
10.688
Tıklama
Tüm Forumlar >> Donanım / Hardware >> Elektronik ve Mekanik >> Elektronik >> 900 Adet Hazır Pic Devresi ve şemaları
Sayfaya Git:
Sayfa:
Giriş
Mesaj
  • Binbaşı
    1461 Mesaj
    Eline, emeğine sağlık dostum.
    |
    |
    _____________________________

    AMD Ryzen 5 2600 - MSI B450 Gaming Plus - GSkill FlareX 2x8GB DDR4 3200Mhz - Zotac GTX1070 AMP! Edition - Western Digital 1TB 7200RPM -
    OCZ Vertex 460 120GB - Samsung 850 EVO 250GB -
    Logitech G103 - G402 - G930 - Corsair Carbide 500R - Corsair VS650
  • Yarbay
    2531 Mesaj
    Şu an ilgilenmiyorum ama zamanı gelince lazım olacak
    |
    |
    _____________________________
  • Yüzbaşı
    334 Mesaj
    teşekkürler emeğine sağlık kardeşim..
    |
    |
    _____________________________

    "BİLGİ PAYLAŞTIKÇA ÇOĞALIR"
  • Er
    6 Mesaj
    vcd den cıkma lcd var 21 pin var üstünde ve hiçbir yazı yok nasıl bağlantı oluştura bilirim şema olarak gönderebilirmisin[http://imageshack.us/photo/my-images/11/20111130014851.jpg]http://imageshack.us/photo/my-images/97/20111130014901.jpg/http://imageshack.us/photo/my-images/338/20111130014920.jpg/http://imageshack.us/photo/my-images/696/20111130014930.jpg/

    abi bunlarda resimleri
    _____________________________




  • Yüzbaşı
    746 Mesaj
    tesekkurler
    |
    |
    _____________________________
    Opel Astra 1.3 cdti Hb Sport 2012
    Skoda Octavia Elegance 2002
    Ford Taunus GTS 2.0 1993(emektar)
  • Çavuş
    69 Mesaj
    mükemmelsin teşekkürler
    |
    |
    _____________________________
  • Teğmen
    132 Mesaj
    ben de teşekkür ederim şimdi indiriyorum
    |
    |
    _____________________________
    Mutlaka bir iyilik yapmışsındır; Yoksa niye iftira atsınlar !
  • Yüzbaşı
    577 Mesaj
    İki partta da aynı dosyalar var. 900 tane değil 230 tane ayrıca.
    |
    |
    _____________________________
  • Yarbay
    2047 Mesaj
    güzel paylaşım
    |
    |
    _____________________________
  • Binbaşı
    1056 Mesaj
    Açık kaynak mı acaba? İndiriyorum da sabredemedim :D
    Emeğinize sağlık
    iyi forumlar...
    |
    |
    _____________________________
  • Binbaşı
    1056 Mesaj
    quote:

    Orijinalden alıntı: tekno007

    vcd den cıkma lcd var 21 pin var üstünde ve hiçbir yazı yok nasıl bağlantı oluştura bilirim şema olarak gönderebilirmisin[http://imageshack.us/photo/my-images/11/20111130014851.jpg]http://imageshack.us/photo/my-images/97/20111130014901.jpg/http://imageshack.us/photo/my-images/338/20111130014920.jpg/http://imageshack.us/photo/my-images/696/20111130014930.jpg/

    abi bunlarda resimleri

    Ne alaka?
    |
    |
    _____________________________




  • Binbaşı
    1056 Mesaj
    Kodlar karışık açık kod olan da var olmayan da. dilini bilmiyorum da basic değildi. Şifreli kilit:
     
    LIST P=16F877
    INCLUDE "P16F877.INC"
    __CONFIG _CP_OFF &_WDT_OFF &_PWRTE_ON &_HS_OSC &_BODEN_OFF &_LVP_OFF &_CPD_OFF &_WRT_ENABLE_OFF
    KOD1 EQU H'0020'
    KOD2 EQU H'0021'
    KOD3 EQU H'0022'
    KOD4 EQU H'0023'
    KOD5 EQU H'0024'
    KOD6 EQU H'0025'
    KOD7 EQU H'0026'
    KOD8 EQU H'0027'
    KOD9 EQU H'0028'
    KOD10 EQU H'0029'
    MSB EQU H'002A'
    KONT EQU H'002B'
    SAYAC EQU H'002C'
    BINKOD EQU H'002D'
    YAZKOD EQU H'002E'
    SAYI EQU H'002F'
    LSB EQU H'0030'
    SAYAC2 EQU H'0031'
    SAYAC3 EQU H'0032'
    SONUC EQU H'0033'
    SAYAC4 EQU H'0034'
    SAYAC1 EQU H'0035'
    EADRES EQU H'0036'
    SAYAC5 EQU H'0037'
    ORG H'0000'
    GOTO BASLA
    BASLA
    BCF STATUS,6
    BSF STATUS,5
    CLRF TRISB
    CLRF TRISC
    CLRF TRISD
    MOVLW H'FF'
    MOVWF TRISA
    MOVLW H'06'
    MOVWF ADCON1
    BCF STATUS,5
    CLRF PORTB
    CLRF PORTC
    CLRF PORTD
    CLRF SAYI
    MOVLW .150
    MOVWF KOD1
    MOVWF KOD2
    MOVWF KOD3
    MOVWF KOD4
    MOVWF KOD5
    MOVWF KOD6
    MOVWF KOD7
    MOVWF KOD8
    MOVWF KOD9
    MOVWF KOD10
    CLRF KONT
    CLRF BINKOD
    CLRF YAZKOD
    CLRF SAYAC
    CLRF SAYAC1
    CLRF SAYAC2
    CLRF SAYAC3
    CLRF SAYAC4
    CLRF SONUC
    CLRF MSB
    CLRF LSB
    CALL TEMIZLE
    GOTO KONTROL
    ;*************************
    COKBEKLE
    MOVLW .15
    MOVWF SAYAC5
    CBDL
    MOVLW .255
    MOVWF LSB
    DL_111
    MOVLW .255
    MOVWF MSB
    DL_222
    DECFSZ MSB,F
    GOTO DL_222
    DECFSZ LSB,F
    GOTO DL_111
    DL_333
    DECFSZ SAYAC5,F
    GOTO CBDL
    RETURN
    ;-------------------------
    BEKLE
    MOVLW .255
    MOVWF LSB
    MOVLW .255
    MOVWF SAYAC5
    DL1
    MOVLW .255
    MOVWF MSB
    DL2
    DECFSZ MSB,F
    GOTO DL2
    DECFSZ LSB,F
    GOTO DL1
    DL3
    DECFSZ SAYAC5,F
    GOTO DL3
    RETURN
    ;*************************
    KONTROL
    MOVLW .0
    MOVWF EADRES
    CALL EEOKU
    MOVWF MSB
    MOVLW .255 ;H'FF'
    SUBWF MSB,W
    BTFSS STATUS,Z
    GOTO KONTROL2
    GOTO YENI ;yazılmamışsa yeni yaz
    ;---------------------------
    KONTROL2
    MOVLW .0
    SUBWF MSB,W
    BTFSS STATUS,Z
    GOTO ANA ;şifre yazılmışsa ana programa git
    GOTO YENI ;yazılmamışsa yeni yaz
    ;**************************
    YENI
    CLRF PORTB
    CLRF MSB
    CLRF KONT
    BSF PORTB,7
    CALL TEMIZLE
    CALL GIRYAZI
    CALL SATIR2
    MOVLW H'F'
    CALL KOMUTYAZ
    ;----------------------------------
    TARA1
    CALL BUTARA ;butonları tara
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C ;butondan değer girilmemişse
    GOTO TARA1 ;tekrar tara
    CALL IMLEC ;Sayıyı lcd göster
    MOVLW .0 ;değer girilmişse eeprom "0"a yaz
    MOVWF EADRES
    CALL EEYAZ
    MOVLW .1
    MOVWF KONT ;kontura 1basamak yükle
    GOTO TARA2
    ;---------------------
    TARA2
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ;"#"onayla
    GOTO ANA1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA2
    CALL IMLEC
    MOVLW .1
    MOVWF EADRES
    CALL EEYAZ
    CLRF KONT
    MOVLW .2
    MOVWF KONT
    GOTO TARA3
    ;-------------------------
    TARA3
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ;"#"onayla
    GOTO ANA1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA3
    CALL IMLEC
    MOVLW .2
    MOVWF EADRES
    CALL EEYAZ
    CLRF KONT
    MOVLW .3
    MOVWF KONT
    GOTO TARA4
    ;------------------------
    TARA4
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ;"#"onayla
    GOTO ANA1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA4
    CALL IMLEC
    MOVLW .3
    MOVWF EADRES
    CALL EEYAZ
    CLRF KONT
    MOVLW .4
    MOVWF KONT
    GOTO TARA5
    ;--------------------------
    TARA5
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ;"#"onayla
    GOTO ANA1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA5
    CALL IMLEC
    MOVLW .4
    MOVWF EADRES
    CALL EEYAZ
    CLRF KONT
    MOVLW .5
    MOVWF KONT
    GOTO TARA6
    ;---------------------
    TARA6
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ;"#"onayla
    GOTO ANA1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA6
    CALL IMLEC
    MOVLW .5
    MOVWF EADRES
    CALL EEYAZ
    CLRF KONT
    MOVLW .6
    MOVWF KONT
    GOTO TARA7
    ;-------------------------
    TARA7
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ;"#"onayla
    GOTO ANA1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA7
    CALL IMLEC
    MOVLW .6
    MOVWF EADRES
    CALL EEYAZ
    CLRF KONT
    MOVLW .7
    MOVWF KONT
    GOTO TARA8
    ;------------------------
    TARA8
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ;"#"onayla
    GOTO ANA1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA8
    CALL IMLEC
    MOVLW .7
    MOVWF EADRES
    CALL EEYAZ
    CLRF KONT
    MOVLW .8
    MOVWF KONT
    GOTO TARA9
    ;--------------------------
    TARA9
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ;"#"onayla
    GOTO ANA1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA9
    CALL IMLEC
    MOVLW .8
    MOVWF EADRES
    CALL EEYAZ
    CLRF KONT
    MOVLW .9
    MOVWF KONT
    GOTO TARA10
    ;--------------------------
    TARA10
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ;"#"onayla
    GOTO ANA1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA10
    CALL IMLEC
    MOVLW .9
    MOVWF EADRES
    CALL EEYAZ
    CLRF KONT
    MOVLW .10
    MOVWF KONT
    TEKRAR
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ;"#"onayla
    GOTO ANA1
    GOTO TEKRAR
    ;---------------------------
    ANA1
    CALL TEMIZLE
    MOVF KONT,W ;konturu eeprom11e yaz
    MOVWF SAYI
    MOVLW .11
    MOVWF EADRES
    CALL EEYAZ
    CALL SDEGISTI
    CALL COKBEKLE
    CALL TEMIZLE
    GOTO ANA
    ;*****************************
    ANA
    CALL TEMIZLE
    ANA_LCD
    CALL AEKRANI
    ANA_DNG
    MOVLW B'00001100'
    MOVWF PORTB
    BTFSS PORTA,3 ;"*" ı test et
    GOTO GIRIS
    BTFSS PORTA,4
    GOTO FORMATLA
    GOTO ANA_DNG
    ;*****************************
    FORMATLA
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    BSF PORTB,1
    BCF PORTB,2
    BTFSC PORTA,1 ;5 Rakamı
    GOTO ANA
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    BSF PORTB,2
    BCF PORTB,1
    BTFSS PORTA,4
    GOTO KODGIR
    GOTO ANA
    ;*********************************************
    KODGIR
    MOVLW B'01101110'
    MOVWF PORTB
    CALL ZAMAN_0
    KILIT
    CLRF YAZKOD
    ;---------------------------
    BYD
    MOVLW .3
    SUBWF SAYAC4,W
    BTFSS STATUS,Z
    CALL ZAMANSAY
    MOVLW .255
    SUBWF SONUC,W
    BTFSC STATUS,Z
    GOTO ANA
    BSF PORTB,2
    BSF PORTB,3
    BCF PORTB,1
    BTFSS PORTA,0 ;"1"rakamı
    GOTO ARTTIR
    BSF PORTB,1
    DEVAM
    BSF PORTB,1
    BCF PORTB,2
    BTFSS PORTA,3 ;"0"rakamı
    GOTO AZALT
    BSF PORTB,2
    DEVAM2
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ;"#"onayla
    GOTO TESTET
    BSF PORTB,3
    GOTO BYD
    ;---------------------------
    TESTET
    CALL BEKLE ;kontak sışramasını önle
    BTFSS PORTA,3
    GOTO TESTET
    MOVLW .45
    SUBWF YAZKOD,W
    BTFSS STATUS,Z
    GOTO KILIT
    GOTO BYDZ_0
    ;---------------------------
    BYDZ_0
    CALL ZAMAN_0
    BYD2
    MOVLW .3
    SUBWF SAYAC4,W
    BTFSS STATUS,Z
    CALL ZAMANSAY
    MOVLW .255
    SUBWF SONUC,W
    BTFSC STATUS,Z
    GOTO ANA
    BSF PORTB,2
    BSF PORTB,3
    BCF PORTB,1
    BTFSS PORTA,0 ;"1"rakamı
    GOTO ARTTIR2
    BSF PORTB,1
    DEVAM3
    BSF PORTB,1
    BCF PORTB,2
    BTFSS PORTA,3 ;"0"rakamı
    GOTO AZALT2
    BSF PORTB,2
    DEVAM4
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ;"#"onayla
    GOTO TEST2
    BSF PORTB,3
    GOTO BYD2
    ;---------------------------
    TEST2
    CALL BEKLE ;kontak sışramasını önle
    BTFSS PORTA,3
    GOTO TEST2
    MOVLW .35
    SUBWF YAZKOD,W
    BTFSS STATUS,Z
    GOTO KILIT
    BSF PORTB,3
    GOTO YENI
    ;---------------------------
    ANADON
    CALL BEKLE
    BTFSS PORTA,3
    GOTO ANADON
    GOTO ANA
    ;****************************************************
    ARTTIR
    CALL BEKLE ;kontak sışramasını önle
    BTFSS PORTA,0
    GOTO ARTTIR
    INCF YAZKOD,F
    GOTO DEVAM
    ;---------------------------
    AZALT
    CALL BEKLE ;kontak sışramasını önle
    BTFSS PORTA,3
    GOTO AZALT
    DECF YAZKOD,F
    GOTO DEVAM2
    ;***************************
    ARTTIR2
    CALL BEKLE ;kontak sışramasını önle
    BTFSS PORTA,0
    GOTO ARTTIR2
    INCF YAZKOD,F
    GOTO DEVAM3
    ;---------------------------
    AZALT2
    CALL BEKLE ;kontak sışramasını önle
    BTFSS PORTA,3
    GOTO AZALT2
    DECF YAZKOD,F
    GOTO DEVAM4
    ;*****************************
    GIRIS
    BSF PORTB,6
    CALL TEMIZLE
    BTFSS PORTA,3
    GOTO GIRIS
    ;----------------------
    CALL EKRANAYAZ
    CALL SATIR2
    MOVLW H'F'
    CALL KOMUTYAZ
    ;----------------------
    CLRF KONT
    MOVLW .11
    MOVWF EADRES
    CALL EEOKU
    MOVWF KONT
    CALL ZAMAN_0
    GOTO TARA11
    ;----------------------
    TARA11
    CALL ZAMANSAY
    MOVLW .255
    SUBWF SONUC,W
    BTFSC STATUS,Z
    GOTO ANA
    BSF PORTB,1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C ;butondan değer girilmemişse
    GOTO TARA11 ;tekrar tara
    CALL IMLEC
    MOVF SAYI,W ;girilmişse
    MOVWF KOD1 ;kod1'e yaz
    MOVLW .1
    SUBWF KONT,W
    BTFSS STATUS,C ;basamak sayısını test et
    CALL SIFIRSAYI ;fazla yazıldıysa sıfırla
    CALL ZAMAN_0 ;eksikse diğerinin yazılmasına izin ver
    TARA22
    CALL ZAMANSAY
    MOVLW .255
    SUBWF SONUC,W
    BTFSC STATUS,Z
    GOTO ANA
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ; "#"i test et
    GOTO INCELE
    BSF PORTB,3
    BCF PORTB,1
    BTFSS PORTA,3 ; "*"ı test et
    GOTO VAZGEC
    BSF PORTB,1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA22
    CALL IMLEC
    MOVF SAYI,W
    MOVWF KOD2
    MOVLW .2
    SUBWF KONT,W
    BTFSS STATUS,C
    CALL SIFIRSAYI
    CALL ZAMAN_0
    TARA33
    CALL ZAMANSAY
    MOVLW .255
    SUBWF SONUC,W
    BTFSC STATUS,Z
    GOTO ANA
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ; "#"i test et
    GOTO INCELE
    BSF PORTB,3
    BCF PORTB,1
    BTFSS PORTA,3 ; "*"ı test et
    GOTO VAZGEC
    BSF PORTB,1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA33
    CALL IMLEC
    MOVF SAYI,W
    MOVWF KOD3
    MOVLW .3
    SUBWF KONT,W
    BTFSS STATUS,C
    CALL SIFIRSAYI
    CALL ZAMAN_0
    TARA44
    CALL ZAMANSAY
    MOVLW .255
    SUBWF SONUC,W
    BTFSC STATUS,Z
    GOTO ANA
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ; "#"i test et
    GOTO INCELE
    BSF PORTB,3
    BCF PORTB,1
    BTFSS PORTA,3 ; "*"ı test et
    GOTO VAZGEC
    BSF PORTB,1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA44
    CALL IMLEC
    MOVF SAYI,W
    MOVWF KOD4
    MOVLW .4
    SUBWF KONT,W
    BTFSS STATUS,C
    CALL SIFIRSAYI
    CALL ZAMAN_0
    TARA55
    CALL ZAMANSAY
    MOVLW .255
    SUBWF SONUC,W
    BTFSC STATUS,Z
    GOTO ANA
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ; "#"i test et
    GOTO INCELE
    BSF PORTB,3
    BCF PORTB,1
    BTFSS PORTA,3 ; "*"ı test et
    GOTO VAZGEC
    BSF PORTB,1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA55
    CALL IMLEC
    MOVF SAYI,W
    MOVWF KOD5
    MOVLW .5
    SUBWF KONT,W
    BTFSS STATUS,C
    CALL SIFIRSAYI
    CALL ZAMAN_0
    TARA66
    CALL ZAMANSAY
    MOVLW .255
    SUBWF SONUC,W
    BTFSC STATUS,Z
    GOTO ANA
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ; "#"i test et
    GOTO INCELE
    BSF PORTB,3
    BCF PORTB,1
    BTFSS PORTA,3 ; "*"ı test et
    GOTO VAZGEC
    BSF PORTB,1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA66
    CALL IMLEC
    MOVF SAYI,W
    MOVWF KOD6
    MOVLW .6
    SUBWF KONT,W
    BTFSS STATUS,C
    CALL SIFIRSAYI
    CALL ZAMAN_0
    TARA77
    CALL ZAMANSAY
    MOVLW .255
    SUBWF SONUC,W
    BTFSC STATUS,Z
    GOTO ANA
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ; "#"i test et
    GOTO INCELE
    BSF PORTB,3
    BCF PORTB,1
    BTFSS PORTA,3 ; "*"ı test et
    GOTO VAZGEC
    BSF PORTB,1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA77
    CALL IMLEC
    MOVF SAYI,W
    MOVWF KOD7
    MOVLW .7
    SUBWF KONT,W
    BTFSS STATUS,C
    CALL SIFIRSAYI
    CALL ZAMAN_0
    TARA88
    CALL ZAMANSAY
    MOVLW .255
    SUBWF SONUC,W
    BTFSC STATUS,Z
    GOTO ANA
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ; "#"i test et
    GOTO INCELE
    BSF PORTB,3
    BCF PORTB,1
    BTFSS PORTA,3 ; "*"ı test et
    GOTO VAZGEC
    BSF PORTB,1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA88
    CALL IMLEC
    MOVF SAYI,W
    MOVWF KOD8
    MOVLW .8
    SUBWF KONT,W
    BTFSS STATUS,C
    CALL SIFIRSAYI
    CALL ZAMAN_0
    TARA99
    CALL ZAMANSAY
    MOVLW .255
    SUBWF SONUC,W
    BTFSC STATUS,Z
    GOTO ANA
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ; "#"i test et
    GOTO INCELE
    BSF PORTB,3
    BCF PORTB,1
    BTFSS PORTA,3 ; "*"ı test et
    GOTO VAZGEC
    BSF PORTB,1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA99
    CALL IMLEC
    MOVF SAYI,W
    MOVWF KOD9
    MOVLW .9
    SUBWF KONT,W
    BTFSS STATUS,C
    CALL SIFIRSAYI
    CALL ZAMAN_0
    TARA00
    CALL ZAMANSAY
    MOVLW .255
    SUBWF SONUC,W
    BTFSC STATUS,Z
    GOTO ANA
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ; "#"i test et
    GOTO INCELE
    BSF PORTB,3
    BCF PORTB,1
    BTFSS PORTA,3 ; "*"ı test et
    GOTO VAZGEC
    BSF PORTB,1
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO TARA00
    CALL IMLEC
    MOVF SAYI,W
    MOVWF KOD10
    MOVLW .10
    SUBWF KONT,W
    BTFSS STATUS,Z
    CALL SIFIRSAYI
    GOTO ONAY1
    ;*************************
    ONAY1
    CALL ZAMAN_0
    ONAY
    CALL ZAMANSAY
    MOVLW .255
    SUBWF SONUC,W
    BTFSC STATUS,Z
    GOTO ANA
    BSF PORTB,6
    BSF PORTB,1
    BSF PORTB,2
    BCF PORTB,3
    BTFSS PORTA,3 ; "#"i test et
    GOTO INCELE
    BSF PORTB,3
    BCF PORTB,1
    BTFSS PORTA,3 ; "*"ı test et
    GOTO VAZGEC
    CALL BUTARA
    MOVLW .1
    SUBWF SAYI,W
    BTFSS STATUS,C
    GOTO ONAY
    CALL IMLEC
    CALL SIFIRSAYI
    GOTO ONAY
    ;**************************
    SIFIRLA
    MOVLW .150
    MOVWF KOD1
    MOVWF KOD2
    MOVWF KOD3
    MOVWF KOD4
    MOVWF KOD5
    MOVWF KOD6
    MOVWF KOD7
    MOVWF KOD8
    MOVWF KOD9
    MOVWF KOD10
    GOTO ONAY1
    ;**************************
    SIFIRSAYI
    MOVLW .150
    MOVWF KOD1
    MOVWF KOD2
    MOVWF KOD3
    MOVWF KOD4
    MOVWF KOD5
    MOVWF KOD6
    MOVWF KOD7
    MOVWF KOD8
    MOVWF KOD9
    MOVWF KOD10
    RETURN
    ;*************************
    VAZGEC
    BCF PORTB,6
    BSF PORTB,1
    BSF PORTB,2
    BSF PORTB,3
    BCF PORTB,0
    CALL TEMIZLE
    VAZGEC_1
    CALL REKLAM
    CALL COKBEKLE
    VAZGEC_2
    BCF PORTB,6
    BSF PORTB,1
    BSF PORTB,2
    BSF PORTB,3
    BCF PORTB,0
    BTFSS PORTA,3
    GOTO VAZGEC_2
    KLT0
    MOVLW .150
    MOVWF KOD1
    MOVWF KOD2
    MOVWF KOD3
    MOVWF KOD4
    MOVWF KOD5
    MOVWF KOD6
    MOVWF KOD7
    MOVWF KOD8
    MOVWF KOD9
    MOVWF KOD10
    BCF PORTB,0 ;kontrol çıkışını 0 yap
    BSF PORTB,4 ;kilit uyarısı verme
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL BEKLE
    CALL TEMIZLE
    BCF PORTB,4 ;kilit uyarısı verme
    GOTO ANA
    ;***************************
    INCELE
    BTFSS PORTA,3 ; "#"i test et
    GOTO INCELE
    BCF PORTB,6
    ;-------------------------1
    INC1
    MOVLW .0
    MOVWF EADRES
    CALL EEOKU
    SUBWF KOD1,W ;kod1'le girilen sayıyı karşılaştır
    BTFSS STATUS,Z
    GOTO HATALI
    MOVLW .1
    SUBWF KONT,W ;Girilen basamak sayısı kadar incele
    BTFSS STATUS,Z
    GOTO INC2
    GOTO SDOGRU
    ;------------------------2
    INC2
    MOVLW .1
    MOVWF EADRES
    CALL EEOKU
    SUBWF KOD2,W
    BTFSS STATUS,Z
    GOTO HATALI
    MOVLW .2
    SUBWF KONT,W
    BTFSS STATUS,Z
    GOTO INC3
    GOTO SDOGRU
    ;-------------------------3
    INC3
    MOVLW .2
    MOVWF EADRES
    CALL EEOKU
    SUBWF KOD3,W
    BTFSS STATUS,Z
    GOTO HATALI
    MOVLW .3
    SUBWF KONT,W
    BTFSS STATUS,Z
    GOTO INC4
    GOTO SDOGRU
    ;-------------------------4
    INC4
    MOVLW .3
    MOVWF EADRES
    CALL EEOKU
    SUBWF KOD4,W
    BTFSS STATUS,Z
    GOTO HATALI
    MOVLW .4
    SUBWF KONT,W
    BTFSS STATUS,Z
    GOTO INC5
    GOTO SDOGRU
    ;-------------------------5
    INC5
    MOVLW .4
    MOVWF EADRES
    CALL EEOKU
    SUBWF KOD5,W
    BTFSS STATUS,Z
    GOTO HATALI
    MOVLW .5
    SUBWF KONT,W
    BTFSS STATUS,Z
    GOTO INC6
    GOTO SDOGRU
    ;;-------------------------6
    INC6
    MOVLW .5
    MOVWF EADRES
    CALL EEOKU
    SUBWF KOD6,W
    BTFSS STATUS,Z
    GOTO HATALI
    MOVLW .6
    SUBWF KONT,W
    BTFSS STATUS,Z
    GOTO INC7
    GOTO SDOGRU
    ;-------------------------7
    INC7
    MOVLW .6
    MOVWF EADRES
    CALL EEOKU
    SUBWF KOD7,W
    BTFSS STATUS,Z
    GOTO HATALI
    MOVLW .7
    SUBWF KONT,W
    BTFSS STATUS,Z
    GOTO INC8
    GOTO SDOGRU
    ;-------------------------8
    INC8
    MOVLW .7
    MOVWF EADRES
    CALL EEOKU
    SUBWF KOD8,W
    BTFSS STATUS,Z
    GOTO HATALI
    MOVLW .8
    SUBWF KONT,W
    BTFSS STATUS,Z
    GOTO INC9
    GOTO SDOGRU
    ;-------------------------9
    INC9
    MOVLW .8
    MOVWF EADRES
    CALL EEOKU
    SUBWF KOD9,W
    BTFSS STATUS,Z
    GOTO HATALI
    MOVLW .9
    SUBWF KONT,W
    BTFSS STATUS,Z
    GOTO INC10
    GOTO SDOGRU
    ;-------------------------10
    INC10
    MOVLW .9
    MOVWF EADRES
    CALL EEOKU
    SUBWF KOD10,W
    BTFSS STATUS,Z
    GOTO HATALI
    GOTO SDOGRU ;hepsi doğruysa
    ;**************************
    SDOGRU
    CALL TEMIZLE
    SDOGRU_1
    CALL DOGRUUU
    SDOGRU_2
    CLRF SAYAC4
    BCF PORTB,6 ;şifreyi yaz uyarısı ledi söndür
    BSF PORTB,0 ; çıkış [1]
    BTFSS PORTA,4 ;şifre değiş butonu test et
    GOTO YENI ;basılmışsa yeni yaz
    BSF PORTB,3
    BSF PORTB,2
    BCF PORTB,1
    BTFSS PORTA,3 ; "*"ı test et
    GOTO VAZGEC
    CALL BEKLE
    CALL BEKLE
    BTFSS PORTA,3 ; "*"ı test et
    GOTO VAZGEC
    CALL BEKLE
    CALL BEKLE
    BTFSS PORTA,3 ; "*"ı test et
    GOTO VAZGEC
    CALL BEKLE
    CALL BEKLE
    BTFSS PORTA,3 ; "*"ı test et
    GOTO VAZGEC
    CALL BEKLE
    CALL BEKLE
    BTFSS PORTA,5
    GOTO VAZGEC
    GOTO SDOGRU_2
    ;***************************
    HATALI
    CALL TEMIZLE
    CALL HATAAA
    BCF PORTB,6
    BSF PORTB,5 ;hata ikazı
    CALL COKBEKLE
    INCF SAYAC4,F
    MOVLW .3
    SUBWF SAYAC4,W
    BTFSC STATUS,Z
    GOTO KLTLCD
    BSF PORTB,5
    GOTO VAZGEC
    ;****************************
    KLTLCD
    CALL TEMIZLE
    KLTLCD_1
    CALL KLTLENDI
    CALL SATIR2
    CALL PUKKODU
    CALL SATIR1
    GOTO KILIT
    ZAMAN_0
    CLRF SAYAC
    CLRF SAYAC2
    MOVLW .200
    MOVWF SAYAC3
    CLRF SONUC
    RETURN
    ZAMANSAY
    MOVLW .1
    ADDWF SAYAC,F
    BTFSS STATUS,C
    RETURN
    CLRF SAYAC
    MOVLW .1
    ADDWF SAYAC2,F
    BTFSS STATUS,C
    RETURN
    CLRF SAYAC2
    MOVLW .1
    ADDWF SAYAC3,F
    BTFSS STATUS,C
    RETURN
    MOVLW .255
    MOVWF SONUC
    RETURN
    ;******************************************************
    EEOKU
    MOVF EADRES,W ;
    BSF STATUS,RP1 ;
    BCF STATUS,RP0 ;Bank 2
    MOVWF EEADR ;
    BSF STATUS,RP0 ;Bank 3
    BCF EECON1,EEPGD ;
    BSF EECON1,RD ;
    BCF STATUS,RP0 ;Bank 2
    MOVF EEDATA,W ;
    BCF STATUS,RP1 ;
    BCF STATUS,RP0 ;Bank 0
    RETURN
    ;******************************************************
    EEYAZ
    MOVF EADRES,W ;
    BSF STATUS,RP1 ;
    BCF STATUS,RP0 ;Bank 2
    MOVWF EEADR ;
    BCF STATUS,RP1 ;
    BCF STATUS,RP0 ;Bank 0
    MOVF SAYI,W ;
    BSF STATUS,RP1 ;
    BCF STATUS,RP0 ;Bank 2
    MOVWF EEDATA ;
    BSF STATUS,RP0 ;Bank 3
    BCF EECON1,EEPGD ;
    BSF EECON1,WREN ;
    BCF INTCON,GIE ;
    MOVLW 0x55 ;
    MOVWF EECON2 ;
    MOVLW 0xAA ;
    MOVWF EECON2 ;
    BSF EECON1,WR ;
    BSF INTCON,GIE ;
    BCF EECON1,WREN ;
    BTFSC EECON1,WR ;
    GOTO EEYAZSON ;
    GOTO EEYAZ
    EEYAZSON
    BCF STATUS,RP1 ;
    BCF STATUS,RP0 ;Bank 0
    RETURN
    ;*******************************************************
    BUTARA
    BSF PORTB,1
    BSF PORTB,2
    BSF PORTB,3
    CLRF SAYI
    ;-----------------------
    BCF PORTB,1 ; 1.süton aktif
    ;-----------------------
    BTFSC PORTA,0 ; "1"rakamını test et
    GOTO T1
    DO1
    CALL BEKLE ;kontak sışramasını önle
    BSF PORTB,4
    BTFSS PORTA,0
    GOTO DO1
    BCF PORTB,4
    MOVLW .1
    MOVWF SAYI
    BSF PORTB,1
    RETURN
    T1
    BTFSC PORTA,1 ; "4"rakamını test et
    GOTO T2
    DO2
    CALL BEKLE ;kontak sışramasını önle
    BSF PORTB,4
    BTFSS PORTA,1
    GOTO DO2
    BCF PORTB,4
    MOVLW .4
    MOVWF SAYI
    BSF PORTB,1
    RETURN
    T2
    BTFSC PORTA,2 ; "7"rakamını test et
    GOTO BUTARA2
    DO3
    CALL BEKLE ;kontak sışramasını önle
    BSF PORTB,4
    BTFSS PORTA,2
    GOTO DO3
    BCF PORTB,4
    MOVLW .7
    MOVWF SAYI
    BSF PORTB,1
    RETURN
    BUTARA2
    BSF PORTB,1 ; 1.süton pasif
    ;------------------------
    BCF PORTB,2 ; 2.süton aktif
    ;------------------------
    BTFSC PORTA,0 ; "2"rakamını test et
    GOTO T11
    DO4
    CALL BEKLE ;kontak sışramasını önle
    BSF PORTB,4
    BTFSS PORTA,0
    GOTO DO4
    BCF PORTB,4
    MOVLW .2
    MOVWF SAYI
    BSF PORTB,2
    RETURN
    T11
    BTFSC PORTA,1 ; "5"rakamını test et
    GOTO T22
    DO5
    CALL BEKLE ;kontak sışramasını önle
    BSF PORTB,4
    BTFSS PORTA,1
    GOTO DO5
    BCF PORTB,4
    MOVLW .5
    MOVWF SAYI
    BSF PORTB,2
    RETURN
    T22
    BTFSC PORTA,2 ; "8"rakamını test et
    GOTO T33
    DO6
    CALL BEKLE ;kontak sışramasını önle
    BSF PORTB,4
    BTFSS PORTA,2
    GOTO DO6
    BCF PORTB,4
    MOVLW .8
    MOVWF SAYI
    BSF PORTB,2
    RETURN
    T33
    BTFSC PORTA,3 ; "0"rakamını test et
    GOTO BUTARA3
    DO7
    CALL BEKLE ;kontak sışramasını önle
    BSF PORTB,4
    BTFSS PORTA,3
    GOTO DO7
    BCF PORTB,4
    MOVLW .10
    MOVWF SAYI
    BSF PORTB,2
    RETURN
    BUTARA3
    BSF PORTB,2
    ;-------------------------
    BCF PORTB,3 ;3.süton aktif
    ;-------------------------
    BTFSC PORTA,0
    GOTO T111
    DO8
    CALL BEKLE ;kontak sışramasını önle
    BSF PORTB,4
    BTFSS PORTA,0 ; "3"rakamını test et
    GOTO DO8
    BCF PORTB,4
    MOVLW .3
    MOVWF SAYI
    BSF PORTB,3
    RETURN
    T111
    BTFSC PORTA,1 ; "6"rakamını test et
    GOTO T222
    DO9
    CALL BEKLE ;kontak sışramasını önle
    BSF PORTB,4
    BTFSS PORTA,1
    GOTO DO9
    BCF PORTB,4
    MOVLW .6
    MOVWF SAYI
    BSF PORTB,3
    RETURN
    T222
    BTFSC PORTA,2 ; "9"rakamını test et
    GOTO TSON
    DO10
    CALL BEKLE ;kontak sışramasını önle
    BSF PORTB,4
    BTFSS PORTA,2
    GOTO DO10
    BCF PORTB,4
    MOVLW .9
    MOVWF SAYI
    BSF PORTB,3
    RETURN
    TSON
    BSF PORTB,3
    BSF PORTB,2
    BSF PORTB,1
    CLRF SAYI
    RETURN
    ;**********************************************************************************************************************
    SATIR2
    MOVLW H'C0'
    CALL KOMUTYAZ
    RETURN
    SATIR1
    MOVLW H'80'
    CALL KOMUTYAZ
    RETURN
    IMLEC
    MOVLW A'*'
    CALL VERIYAZ
    RETURN
    VERIYAZ
    BSF PORTC,1
    MOVWF PORTD
    BCF PORTC,0
    CALL GECIKME
    BSF PORTC,0
    RETURN
    TEMIZLE
    MOVLW H'0C'
    CALL KOMUTYAZ
    MOVLW H'01'
    CALL KOMUTYAZ
    MOVLW H'38'
    CALL KOMUTYAZ
    MOVLW H'0C'
    CALL KOMUTYAZ
    RETURN
    KOMUTYAZ
    BCF PORTC,1
    MOVWF PORTD
    BCF PORTC,0
    CALL GECIKME
    BSF PORTC,0
    RETURN
    EKRANAYAZ
    MOVLW A'S'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'F'
    CALL VERIYAZ
    MOVLW A'R'
    CALL VERIYAZ
    MOVLW A'E'
    CALL VERIYAZ
    MOVLW A'Y'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A' '
    CALL VERIYAZ
    MOVLW A'G'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'R'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'N'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'Z'
    CALL VERIYAZ
    RETURN
    DOGRUUU
    MOVLW A'S'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'F'
    CALL VERIYAZ
    MOVLW A'R'
    CALL VERIYAZ
    MOVLW A'E'
    CALL VERIYAZ
    MOVLW A' '
    CALL VERIYAZ
    MOVLW A'D'
    CALL VERIYAZ
    MOVLW A'O'
    CALL VERIYAZ
    MOVLW A'G'
    CALL VERIYAZ
    MOVLW A'R'
    CALL VERIYAZ
    MOVLW A'U'
    CALL VERIYAZ
    RETURN
    HATAAA
    MOVLW A'A'
    CALL VERIYAZ
    MOVLW A'A'
    CALL VERIYAZ
    MOVLW A'A'
    CALL VERIYAZ
    MOVLW A'A'
    CALL VERIYAZ
    MOVLW A'A'
    CALL VERIYAZ
    MOVLW A' '
    CALL VERIYAZ
    MOVLW A'Y'
    CALL VERIYAZ
    MOVLW A'A'
    CALL VERIYAZ
    MOVLW A'N'
    CALL VERIYAZ
    MOVLW A'L'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'S'
    CALL VERIYAZ
    MOVLW A'.'
    CALL VERIYAZ
    MOVLW A'.'
    CALL VERIYAZ
    MOVLW A'.'
    CALL VERIYAZ
    MOVLW A'!'
    CALL VERIYAZ
    RETURN
    GIRYAZI
    MOVLW A'Y'
    CALL VERIYAZ
    MOVLW A'E'
    CALL VERIYAZ
    MOVLW A'N'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A' '
    CALL VERIYAZ
    MOVLW A'S'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'F'
    CALL VERIYAZ
    MOVLW A'R'
    CALL VERIYAZ
    MOVLW A'Y'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A' '
    CALL VERIYAZ
    MOVLW A'G'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'R'
    CALL VERIYAZ
    MOVLW A' '
    CALL VERIYAZ
    RETURN
    REKLAM
    MOVLW A'W'
    CALL VERIYAZ
    MOVLW A'W'
    CALL VERIYAZ
    MOVLW A'W'
    CALL VERIYAZ
    MOVLW A'.'
    CALL VERIYAZ
    MOVLW A'P'
    CALL VERIYAZ
    MOVLW A'R'
    CALL VERIYAZ
    MOVLW A'O'
    CALL VERIYAZ
    MOVLW A'F'
    CALL VERIYAZ
    MOVLW A'A'
    CALL VERIYAZ
    MOVLW A'H'
    CALL VERIYAZ
    MOVLW A'M'
    CALL VERIYAZ
    MOVLW A'E'
    CALL VERIYAZ
    MOVLW A'T'
    CALL VERIYAZ
    MOVLW A'.'
    CALL VERIYAZ
    MOVLW A'C'
    CALL VERIYAZ
    MOVLW A'O'
    CALL VERIYAZ
    MOVLW A'M'
    CALL VERIYAZ
    MOVLW A'.'
    CALL VERIYAZ
    MOVLW A'T'
    CALL VERIYAZ
    MOVLW A'R'
    CALL VERIYAZ
    MOVLW A'.'
    CALL VERIYAZ
    MOVLW A'T'
    CALL VERIYAZ
    MOVLW A'C'
    CALL VERIYAZ
    RETURN
    AEKRANI
    MOVLW A'G'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'R'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'S'
    CALL VERIYAZ
    MOVLW A' '
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'C'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'N'
    CALL VERIYAZ
    MOVLW A' '
    CALL VERIYAZ
    MOVLW A'*'
    CALL VERIYAZ
    MOVLW A' '
    CALL VERIYAZ
    MOVLW A'B'
    CALL VERIYAZ
    MOVLW A'A'
    CALL VERIYAZ
    MOVLW A'S'
    CALL VERIYAZ
    RETURN
    SDEGISTI
    MOVLW A'S'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'F'
    CALL VERIYAZ
    MOVLW A'R'
    CALL VERIYAZ
    MOVLW A'E'
    CALL VERIYAZ
    MOVLW A' '
    CALL VERIYAZ
    MOVLW A'K'
    CALL VERIYAZ
    MOVLW A'A'
    CALL VERIYAZ
    MOVLW A'Y'
    CALL VERIYAZ
    MOVLW A'D'
    CALL VERIYAZ
    MOVLW A'E'
    CALL VERIYAZ
    MOVLW A'D'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'L'
    CALL VERIYAZ
    MOVLW A'D'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    RETURN
    PUKKODU
    MOVLW A'P'
    CALL VERIYAZ
    MOVLW A'U'
    CALL VERIYAZ
    MOVLW A'K'
    CALL VERIYAZ
    MOVLW A' '
    CALL VERIYAZ
    MOVLW A'K'
    CALL VERIYAZ
    MOVLW A'O'
    CALL VERIYAZ
    MOVLW A'D'
    CALL VERIYAZ
    MOVLW A'U'
    CALL VERIYAZ
    MOVLW A'N'
    CALL VERIYAZ
    MOVLW A'U'
    CALL VERIYAZ
    MOVLW A' '
    CALL VERIYAZ
    MOVLW A'G'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'R'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'N'
    CALL VERIYAZ
    RETURN
    KLTLENDI
    MOVLW A'S'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'F'
    CALL VERIYAZ
    MOVLW A'R'
    CALL VERIYAZ
    MOVLW A'E'
    CALL VERIYAZ
    MOVLW A' '
    CALL VERIYAZ
    MOVLW A'K'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'L'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    MOVLW A'T'
    CALL VERIYAZ
    MOVLW A'L'
    CALL VERIYAZ
    MOVLW A'E'
    CALL VERIYAZ
    MOVLW A'N'
    CALL VERIYAZ
    MOVLW A'D'
    CALL VERIYAZ
    MOVLW A'I'
    CALL VERIYAZ
    RETURN
    GECIKME
    MOVLW H'F'
    MOVWF SAYAC1
    DON1
    MOVLW H'FF'
    MOVWF SAYAC2
    DON2
    DECFSZ SAYAC2,F
    GOTO DON2
    DECFSZ SAYAC1,F
    GOTO DON1
    RETURN

    END


    iyi forumlar...
    |
    |
    _____________________________




  • Yüzbaşı
    656 Mesaj
    Eve gidince indirecegim.Tesekkurler



    < Bu ileti mobil sürüm kullanılarak atıldı >
    |
    |
    _____________________________
    ALIGN
HızlıCevap
Sayfaya Git:
Sayfa:
Reklamlar
Mobilya Takımları
Canlı Tv izle
SEO
haberler
üniversite
Bu sayfanın
Mobil sürümü
Mini Sürümü

BR2
0,766
1.2.165

Reklamlar
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.