eeprom sifre

[zeyin]

secilen uc sayi arka arkaya girildikten sonra EEPROM bellegine 01h ,02h,03h adreslerine ardi ardina yazilmasi icin RA4 butonuna bagli  'yaz' butonuna basilacaktir.RA0 butonu ise enter tusu olarak kullanilacaktir.şifre girilip 'E' tusuna basilinca ,eger şifre dogruysa ,PORTB'nin 0.bit'ine bagli LED yanacaktir.şifre yanlissa 1. bit'ine bagli LED yanip/sonecektir.
 RA1    RA2    RA3    RA4   RA0
  1        2         3       yaz    E
RA1,RA2,RA3,RA4 ve RA5 butonlari kullaniliyor.ra1,ra2,ra3 butonlari sayi girmek icindir.ra4 girilen degerlerin yazilmasi ve ra0 ise enter butonudur.birkac gundur ugrastim.cozemedim.nasil yapilmali...teşekkürler...

[Göktuğ]

Ugrastıgın kodları buraya ekle. Gerekli duzenlemelerde yardımcı olunacaktır.

[zeyin]

kodlari su sekildedir

LIST			P=16F84
			INCLUDE		P16F84.INC
SAYAC		EQU			H'0D'
ADR1		EQU			H'0E'
ADR2		EQU			H'0F'
ADR3		EQU			H'0C'
DAT1		EQU			H'10'
DAT2		EQU			H'09'
DAT3		EQU			H'0F'
			BSF			STATUS,5
			CLRF		TRISB
			MOVLW		H'FF'
			MOVWF		TRISA
			BCF			STATUS,5
			CLRF		PORTB
BUT_OKU
			BTFSC		PORTA,1
			GOTO		A2
			CALL		GECIKME
			MOVLW		H'01'
			MOVWF		ADR1
			MOVLW		H'01'
			MOVWF		DAT1
			
A2
			BTFSC		PORTA,2
			GOTO		A3
			CALL		GECIKME
			MOVLW		H'02'
			MOVWF		ADR2
			MOVLW		H'02'
			MOVWF		DAT2
			
A3
			BTFSC		PORTA,3
			GOTO		A4
			CALL		GECIKME
			MOVLW		H'03'
			MOVWF		ADR3
			MOVLW		H'04'
			MOVWF		DAT3
			
A4			
			BTFSC		PORTA,4
			GOTO		A4
			CALL                         YAZDIR1
                                                CALL                         YAZDIR2
                                                CALL                         YAZDIR3   
		
			
A5
			BTFSC		PORTA,0
			GOTO		BUT_OKU
			CALL		OKU_GOSTER
			GOTO		BUT_OKU
OKU_GOSTER
			MOVWF		EEADR
			BSF			STATUS,5
			BSF			EECON1,0
			BCF			STATUS,5
			BSF			PORTB,1
			RETURN
YAZDIR1
			MOVF		ADR1,W
			MOVWF		EEADR
			MOVF		DAT1,W
			GOTO		SON
YAZDIR2
			MOVF		ADR2,W
			MOVWF		EEADR
			MOVF		DAT2,W
			GOTO		SON
YAZDIR3
			MOVF		ADR3,W
			MOVWF		EEADR
			MOVF		DAT3,W
SON
			MOVWF		EEDATA
			BSF			STATUS,5
			BCF			EECON1,EEIF
			BSF			EECON1,WREN
			BCF			INTCON,GIE
;---------------------------------yazma islemi icin gerekli olan kaliplar-------------------
			MOVLW		H'55'
			MOVWF		EECON2
			MOVLW		H'AA'
			MOVWF		EECON2
			BSF			EECON1,WR
BEKLE1
			BTFSS		EECON1,EEIF
			GOTO		BEKLE1
;------------------------------bayraklari	llk konumuna getir----------------------------------
			BCF			EECON1,EEIF
			BCF			EECON1,WREN
			BSF			INTCON,GIE
			BCF			STATUS,5
			RETURN
GECIKME
			MOVLW		H'55'
			MOVWF		SAYAC
BEKLE2
			DECFSZ		SAYAC
			GOTO		BEKLE2
			RETURN
			END