16f877 ile şifreli kilit LCD hatası.

[oddt]

Arkadaşlar öncelikle forum, paylaşımlar ve üyeleri gerçekten çok kaliteli. Emeği geçen herkese tüm faydalananlar ve şahsım adına teşekkür ederim. Elektronik bilgim çok fazla değil oğlumla beraber vakit buldukça uğraşıyorum. Oğlum öğrenci lise elektronik bölümünde. Devremiz çalışıyor fakat role çekmesine rağmen role çıkışlarına akım gelmiyor.Diyot kondansator transistor ve ilgili elemanlar değerinde ve problemsiz.Kısa devre yada lehim hatalarına karşı 10larca defa kontrol ettim bir sıkıntı yok.Role 8 pinli.12v.Çıkışlara yada diğer ayaklara çekmesine rağmen akım ulaşmıyor.Roleyi değiştirip denedim yine aynı.Burada roleye ortak uçtan + verirsem diğer uçların tepkisi ne olur.Rolenin mantığı çıkıştan verilen + yı anahtarlamakmıdır.Bir rolenin prensibini öğrenememişsin devre senin neyine diyen arkadaşlarım ne deseniz haklısınız.. İkinci bir hususta LCD sorunu.Aşagıdaki gibi çıkıyor karakterler. Trimpot diyot vb elemanlar pcb deki şekilde uygulandı lehimleme tekrar tekrar yapıldı ama cevap vermiyor.Sadece şifre gir yazıyorken İki karakter yüksek kontrastlı gibi belli belirsiz çıkıyor.Diğerleri dik çizgi halinde.Devrenin diğer tüm işlevleri sorunsuz çalışıyor.Lütfen değerli bilgilerinizi bizimle paylaşın içinden çıkamıyoruz.

Arkadaşlar asm yi de ekledim. Program yada programlama hatasıda olabilir diye.Programlayıcım usburn-branner8 config ayarları hexte mevcut olduğu için ayarlara dokunmadım bazı arkadaşlar wdt yi kapatmamı söylemişlerdi.Kapatım ama değişiklik olmadı.Diğer config ayarlarındanda kaynaklanabileceği söyleniyor. PIC16f877 10 mhz kristal kullanıyorum config de oscillator HS. Kristal için ayarın XT olmasımı gerekiyor. Programcı ve derleyici arkadaş hata yapmış olamaz ama ben yinede bilgi mahiyetinde çözüme ulaşmak için yazdım.

Datasheet :
https://i.kontrolkalemi.com/4/JHD162A-SERIES.pdf

 

[korkmaz_design]

ilk gördüm hataları yazayım

ledleri takmamışsınız onların yerine jumper takmışsınız ya jumperi sökün led takın yada kablo ile jumper led arasına köprü bağlayın ve buton bağlanacak yerlerede jumper bağlamışsınız onlarada aynı işlemi yapın

rölenin çalışma mantığı ise bobini enerjilendiği zaman açık olan kontağı kapanır-kapalı olan kontağı acılır yani yer değiştirir bobinin enerjisi kesildiğinde eski haline döner

lcd hatası ise porgramda lcd olarak tek satır lcd olarak yazılmış olabilir siz yanılmıyorsam 2x16 lcd kullanmışsınız buna bakın ve lcd bağlantınızı kontrol edin ters bağlama gibi lcd nin kodu ile google arama yapın ve pin bağlatılarını bulun

 

[cenk_unur]

Arkadaşım Röle ile yaşadığın sonunu tam olarak anlamadım ama bu devrede röle anahtarlama için kullanılmış. Yani röle kontakları ile ister 12 volt ister 220volt kontrol edebilirsin.
Rölenin çalışma mantığı kısaca: Açık ve kapalı kontakları bulunan bir buton gibi düşün butona bastığın zaman açık kontaklar kapanır, kapalı kontaklar açılır. Butona basma işini rölede bobin yapar. Bobine enerji geldiğinde kontaklar konum değiştiri. Bobine verdiğin enerji ile kontaklar birbirinden tamamen yalıtımlıdır hiç bir elektriksel bağ yoktu.
Sizin devrede çalıştırıcağınız sistemin beslemesini rölenin Com ucuna bağlıyacaksınız sistemin çalışma durumuna göre rölenin NC NO ucundan çıkış alıp sisteme vericeksin.

LCD sorununa gelince bazı lcd ler 4mhz dışındaki kristallerde sorun yaratıyor. Devrenizde kullandığınız kristali değiştirip bir deneyin.

 

[oddt]

Ledleri ve boş jumperları belirttiğiniz gibi yaptım bir değişiklik yok.Lcd tanımlamasında sorun olduğunu sanmıyorum bu çalışmayı daha önce yapıp çalıştıran arkadaşlar var.Role olayını anladım sayenizde.Asm dosyasını ekliyorum programcı arkadaşlar belki kontrol etmek isterler.

	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

 

[oddt]

Arkadaşlar sorun çözülmüştür. Malzemeleri net üzerinden sipariş vermiştik. Lcd yi Tek satır göndermişler. Tek karakterin tam ortada çıkması 2 nci satırın olmadığını anlamama neden oldu. Tecrübesizliğin bu kadarı dedirtecek kadar komik bir olay ben hala gülüyorum kendime. Hexte tanımlanan lcd 2 satır.Direnc isimli bir firma (Net adresini yazmıyorum) 2x16 lcd yi yollayıp bunu iade alacaklar. Alaka gösterip paylaşımda bulunan arkadaşlara teşekkür ediyorum.

 

[locei_16]

Arkadaşlar öncelikle forum, paylaşımlar ve üyeleri gerçekten çok kaliteli. Emeği geçen herkese tüm faydalananlar ve şahsım adına teşekkür ederim. Elektronik bilgim çok fazla değil oğlumla beraber vakit buldukça uğraşıyorum. Oğlum öğrenci lise elektronik bölümünde. Devremiz çalışıyor fakat role çekmesine rağmen role çıkışlarına akım gelmiyor.Diyot kondansator transistor ve ilgili elemanlar değerinde ve problemsiz.Kısa devre yada lehim hatalarına karşı 10larca defa kontrol ettim bir sıkıntı yok.Role 8 pinli.12v.Çıkışlara yada diğer ayaklara çekmesine rağmen akım ulaşmıyor.Roleyi değiştirip denedim yine aynı.Burada roleye ortak uçtan + verirsem diğer uçların tepkisi ne olur.Rolenin mantığı çıkıştan verilen + yı anahtarlamakmıdır.Bir rolenin prensibini öğrenememişsin devre senin neyine diyen arkadaşlarım ne deseniz haklısınız.. İkinci bir hususta LCD sorunu.Aşagıdaki gibi çıkıyor karakterler. Trimpot diyot vb elemanlar pcb deki şekilde uygulandı lehimleme tekrar tekrar yapıldı ama cevap vermiyor.Sadece şifre gir yazıyorken İki karakter yüksek kontrastlı gibi belli belirsiz çıkıyor.Diğerleri dik çizgi halinde.Devrenin diğer tüm işlevleri sorunsuz çalışıyor.Lütfen değerli bilgilerinizi bizimle paylaşın içinden çıkamıyoruz.

Arkadaşlar asm yi de ekledim. Program yada programlama hatasıda olabilir diye.Programlayıcım usburn-branner8 config ayarları hexte mevcut olduğu için ayarlara dokunmadım bazı arkadaşlar wdt yi kapatmamı söylemişlerdi.Kapatım ama değişiklik olmadı.Diğer config ayarlarındanda kaynaklanabileceği söyleniyor. PIC16f877 10 mhz kristal kullanıyorum config de oscillator HS. Kristal için ayarın XT olmasımı gerekiyor. Programcı ve derleyici arkadaş hata yapmış olamaz ama ben yinede bilgi mahiyetinde çözüme ulaşmak için yazdım.


Datasheet :
https://i.kontrolkalemi.com/4/JHD162A-SERIES.pdf

hocam bu devrenın baskı devresını not defterı yada yazıcıdan alabılecegım formatta acılen bana yollayabılırmısın?

 

[locei_16]

Arkadaşlar sorun çözülmüştür. Malzemeleri net üzerinden sipariş vermiştik. Lcd yi Tek satır göndermişler. Tek karakterin tam ortada çıkması 2 nci satırın olmadığını anlamama neden oldu. Tecrübesizliğin bu kadarı dedirtecek kadar komik bir olay ben hala gülüyorum kendime. Hexte tanımlanan lcd 2 satır.Direnc isimli bir firma (Net adresini yazmıyorum) 2x16 lcd yi yollayıp bunu iade alacaklar. Alaka gösterip paylaşımda bulunan arkadaşlara teşekkür ediyorum.

hocam bana biran once yardımcı olursan sevırım.bu devreyı bıran once yapmam gerekıyor bana pdf uzantılı yada ares uzantılı baskı devre semasını verırsen sevırım

 

[mert_13]

slm oddt ii bir çalışma yapmısın bu arada bu devrenin hex codlarını bende var bulmadınsa bana cevap yazarsın

 

[locei_16]

slm oddt ii bir çalışma yapmısın bu arada bu devrenin hex codlarını bende var bulmadınsa bana cevap yazarsın

hex codlarını verirsen cok sevınırım.ayrıca devrenin çalısmasıyla ilgili bana yardımıc olursan cok iyi olur.okulda bu projeyi verdiler.devrey yaptık ama devre nasıl calısıyor pek bilmiyorum yardımcı olursa cok sevınırım.ayrıca bu programa bı ek daha yapabılırmısın?su sekılde:şifreyi 3 kere hatalı gırdıgınde tel ıle polisi arıyacak.biz su sekilde dusunduk.sıfre 3 kere hatalı gırıldıgınde tel ıle polisi aramak yerine bos bı cıkısa bagladıgımız ledin yanmasını ıstıyoruz.şimdiden tesekkurler.hayırlı gunler.

 

[locei_16]

sayın arkdaslar bana yardımcı olursanız sevınırım.3 kez sıfre hatalı gırılınce bır led ekleyerek o ledın yanmasını ıstıyorum bu programı nasıl yapabılırım?lutfen yardım