;***************************************************************
;						PROGRAM NÉV
;***************************************************************
;Program: PIC16F628A
;
;LÁBKIOSZTÁS
;Lábszám	Port		Funkció
; 1			RA2
; 2			RA3
; 3			RA4
; 4			RA5/MCLR
; 5			VSS 0V
; 6			RB0/INT
; 7			RB1			
; 8			RB2
; 9			RB3
;10			RB4
;11			RB5
;12			RB6
;13			RB7			
;14			VDD 5V
;15			OSC2
;16			OSC1
;17			RA0
;18			RA1

;***************************************************************
;===============================================================
;PROCESSOR TIPUSMEGADÁSA
;===============================================================
 LIST P=16F628A 
 #INCLUDE "P16F628A.INC" 
;===============================================================
;KONFIGURÁCIÓS SZÓ
;===============================================================
 __CONFIG _XT_OSC&_CP_OFF&_WDT_OFF&_LVP_OFF 
;===============================================================
;BANKHIBAJELZÉS ELNYOMÁSA A FORDÍTÓBAN 
;===============================================================
 errorlevel -302 			
 errorlevel -305 			
;===============================================================
;VÁLTOZÓK DEKLARÁLÁSA
;===============================================================
	CBLOCK 0x20 		
	SAVEW	
	SAVES
	SAVEP
	ENDC
;===============================================================
;DEFINÍCIÓK
;===============================================================
;BEMENETEK
;#DEFINE 	JUMPER1		PORTA,2	;lépéstipus

;===============================================================
;MAKRÓK
;===============================================================
;===============================================================
;PROGRAM VEKTOR
;===============================================================
	ORG	0 
	GOTO START

;===============================================================
;MEGSZAKÍTÁSI VEKTOR
;===============================================================
	ORG	4               	
;	MOVWF	SAVEW			;Mentések
;	SWAPF	STATUS, W 	
;	CLRF	STATUS		
;	MOVWF	SAVES	
;	MOVF	PCLATH, W
;	MOVWF	SAVEP
;	CLRF	PCLATH	

;	MOVF	SAVEP, W		;Visszaállítás
;	MOVWF	PCLATH
;	SWAPF	SAVES, W	
;	MOVWF	STATUS 
;	SWAPF	SAVEW, F	
;	SWAPF	SAVEW, W
	RETFIE


;===============================================================
;ALAPBEÁLLÍTÁSOK
;===============================================================
START
	CLRF	TEKERCS
	CLRF	PORTA			;komparátor kikapcsolás
	MOVLW	0x07
	MOVWF 	CMCON 		
				
	BANKSEL	TRISA
	MOVLW	B'00001100' 	;1=Bemenet
	MOVWF	TRISA 			;PORT BEÁLLÍTÁSA
	MOVLW	B'00001111' 	;
	MOVWF	TRISB			;PORT BEÁLLÍTÁSA
;===============================================================
PROGRAM

	GOTO	PROGRAM
	END