PIC16F84A İle Çalışan Asm Programını PIC16F628A Çalıştırma ?

[santo@hope]

PIC16F84A İle çalışan bir 7 segment displaylı bass koruma rölesini (ASM) PIC16F628A çalıştıramadım yardımlarınızı bekliyorum arkadaşlar...

[onurinci]

16F628A 'nın Ram bölgesi başlama adresi F84'de göre farklıdır.(0020) den başlar.
birde bunda comparator pinleri mevcuttur.CMCON registerinin 7'inci bitini kapatmak gerekir.tabi bu PORTA'yı giriş olarak kullandığında geçerli.
size sigorta listesinide ekledim set olarak , internal osc ayarlı yani kristal takmanıza gerek yok,ve MCLR pini ile uğraşmanıza gerek yok boştada bıraksanız olur.

      List      p=16F628A#include <p16F628A.inc> __CONFIG  _CP_OFF & _CP_OFF & _PWRTE_ON & _WDT_OFF & _LVP_OFF & _MCLRE_OFF & _INTRC_OSC_NOCLKOUT & _BODEN_OFF     	Errorlevel,-302     	CBLOCK         h'0020'SAYAC            SAYAC_1SAYI        ENDC   	MOVLW	H'7'			; Comparator pin disable 	MOVWF	CMCON			; Comparator pin disable         CLRF	PORTB	CLRF	PORTA	BSF	STATUS,5	CLRF	TRISB	CLRF	PORTA	BCF	STATUS,5	MOVLW	b'01101111';9	MOVWF	PORTB					CALL    GECIKME		MOVLW	b'00000000';,,,,,,,,,,boşluk	MOVWF	PORTB	CALL    GECIKME		MOVLW	b'01111111';8	MOVWF	PORTB					CALL    GECIKME			MOVLW	b'00000000';,,,,,,,,,,boşluk	MOVWF	PORTB					CALL    GECIKME	MOVLW	b'00000111';7	MOVWF	PORTB					CALL    GECIKME			MOVLW	b'00000000';,,,,,,,,,,boşluk	MOVWF	PORTB					CALL    GECIKME	MOVLW	b'01111101';6	MOVWF	PORTB					CALL    GECIKME			MOVLW	b'00000000';,,,,,,,,,,boşluk	MOVWF	PORTB					CALL    GECIKME	MOVLW	b'01101101';5	MOVWF	PORTB					CALL    GECIKME		MOVLW	b'00000000';,,,,,,,,,,boşluk	MOVWF	PORTB					CALL    GECIKME	MOVLW	b'01100110';4	MOVWF	PORTB					CALL    GECIKME			MOVLW	b'00000000';,,,,,,,,,,boşluk	MOVWF	PORTB					CALL    GECIKME	 			MOVLW	b'01001111';3	MOVWF	PORTB					CALL    GECIKME		MOVLW	b'00000000';,,,,,,,,,,boşluk	MOVWF	PORTB					CALL    GECIKME	MOVLW	b'01011011';2	MOVWF	PORTB					CALL    GECIKME			MOVLW	b'00000000';,,,,,,,,,,boşluk	MOVWF	PORTB					CALL    GECIKME				MOVLW   b'00000110';1	MOVWF	PORTB					CALL    GECIKME		MOVLW	b'00000000';,,,,,,,,,,boşluk	MOVWF	PORTB					CALL    GECIKME	MOVLW   b'00111111';0	MOVWF	PORTB					CALL    GECIKME	CALL    GECIKME	CALL    GECIKME	CALL    GECIKME	CALL    GECIKME	MOVLW	b'00000000';,,,,,,,,,,boşluk	MOVWF	PORTB					CALL    GECIKME	 	CALL    GECIKME	CALL    GECIKME	CALL    GECIKME			GEL		;,,,,,,,,,,,,,,,,,,,HOPERLÖR- open YAZISI,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,		MOVLW	b'11110110';H	MOVWF	PORTB	CALL    GECIK					MOVLW	b'10111111';O	MOVWF	PORTB	CALL    GECIK	MOVLW	b'11110011';p	MOVWF	PORTB	CALL    GECIK		MOVLW	b'11111001';E	MOVWF	PORTB	CALL    GECIK				        MOVLW	b'11010000';R	MOVWF	PORTB	CALL    GECIK						MOVLW	b'10111000';L	MOVWF	PORTB	CALL    GECIK									MOVLW	b'10111111';O	MOVWF	PORTB	CALL    GECIK		MOVLW	b'11010000';R	MOVWF	PORTB	CALL    GECIK	MOVLW	b'11000000';-	MOVWF	PORTB	CALL    GECIK	MOVLW	b'11000000';-	MOVWF	PORTB	CALL    GECIK						MOVLW	b'10111111';O	MOVWF	PORTB	CALL    GECIK		MOVLW	b'11110011';p	MOVWF	PORTB	CALL    GECIK	MOVLW	b'11111001';E	MOVWF	PORTB	CALL    GECIK	MOVLW	b'10110111';n	MOVWF	PORTB	CALL    GECIK		MOVLW	b'10000000';,,,,,,,,,,boşluk	MOVWF	PORTB					CALL    GECIKME			;;,,,,,,,,,,,,,,,,,,,,,YÜRÜYEN LEDLER,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,		MOVLW	b'00000001'	MOVWF	PORTA					CALL    GECIKME						MOVLW	b'10000001';ÜST	MOVWF	PORTB	CALL    GECIK		MOVLW	b'00000010'	MOVWF	PORTA					CALL    GECIKME		MOVLW	b'11000000';-EKSİ	MOVWF	PORTB	CALL    GECIK		MOVLW	b'00000100'	MOVWF	PORTA					CALL    GECIKME		MOVLW	b'10001000';ALT	MOVWF	PORTB	CALL    GECIK	MOVLW	b'00001000'	MOVWF	PORTA					CALL    GECIKME	MOVLW	b'10001000';ALT	MOVWF	PORTB	CALL    GECIK		MOVLW	b'00000100'	MOVWF	PORTA					CALL    GECIKME	MOVLW	b'11000000';-EKSİ	MOVWF	PORTB	CALL    GECIK	MOVLW	b'00000010'	MOVWF	PORTA					CALL    GECIKME		MOVLW	b'10000001';ÜST	MOVWF	PORTB	CALL    GECIK		MOVLW	b'00000001'	MOVWF	PORTA					CALL    GECIKME		MOVLW	b'00000000';KAYBOL	MOVWF	PORTA					CALL    GECIKME	GOTO GELGECIK                  MOVLW  H'FF'         MOVWF  SAYACDONGU11             	 MOVLW  H'FF'     	 MOVWF  SAYAC_1DONGU22         DECFSZ SAYAC_1,F    	 GOTO   DONGU22	 DECFSZ SAYAC,F         GOTO   DONGU11       	GECIKME                  MOVLW  H'FF'         MOVWF  SAYACDONGU1             	 MOVLW  H'FF'     	 MOVWF  SAYAC_1DONGU2         DECFSZ SAYAC_1,F    	 GOTO   DONGU2	 DECFSZ SAYAC,F         GOTO   DONGU1         RETURN	 END

[santo@hope]

PIC 16F628A& 7 SEGMENT DISPLAY BASS KORUMA RÖLESİ

Cevap için teşekkürler hocam...