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_1
SAYI
        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 GEL

GECIK         
         MOVLW  H'FF'
         MOVWF  SAYAC
DONGU11            
 	 MOVLW  H'FF'
     	 MOVWF  SAYAC_1
DONGU22
         DECFSZ SAYAC_1,F
    	 GOTO   DONGU22
	 DECFSZ SAYAC,F
         GOTO   DONGU11
       	
GECIKME         
         MOVLW  H'FF'
         MOVWF  SAYAC
DONGU1            
 	 MOVLW  H'FF'
     	 MOVWF  SAYAC_1
DONGU2
         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...