;************************
;*	VöriJani  BIGYÓJA.  *
;************************

	LIST P= 16F627
	#INCLUDE "P16F627.INC"

	ERRORLEVEL 0, -302

	__CONFIG _CP_OFF&_WDT_OFF&_LVP_OFF&_INTRC_OSC_NOCLKOUT

	CBLOCK 0X70
		W_TEMP
		STATUS_TEMP
	ENDC
	
	
	ORG 0x00
	GOTO MAIN

	ORG 0x04
	
	MOVWF W_TEMP
	SWAPF STATUS,W
	MOVWF STATUS_TEMP
	BTFSC INTCON,INTF
	GOTO MEGSZ_RB0		
	RETFIE
	
MEGSZ_RB0		
	
	BCF INTCON,INTF
	BSF PORTA,1	
	GOTO MEGSZKILEP
		
MAIN 
	
	MOVLW 0x07
	MOVWF CMCON
	CLRF PORTA
	
	BANKSEL TRISA
	MOVLW 0x00
	MOVWF TRISA 
	MOVLW 0x01
	MOVWF TRISB
	MOVLW B'11000000'
	MOVWF OPTION_REG
	
	BANKSEL PORTA
	BSF INTCON,INTE
	BSF INTCON,GIE
	
LOOP
	NOP
	GOTO LOOP
	
MEGSZKILEP
	
	SWAPF STATUS_TEMP,W
	MOVWF STATUS
	SWAPF W_TEMP,F
	SWAPF W_TEMP,W
	RETFIE
	
	END