#include <p12F683.inc>
__config (_INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_OFF & _MCLRE_OFF & _CP_OFF & _IESO_OFF & _FCMEN_OFF)
cblock 0x20
Delay1 ;
Delay2 ;
endc

org 0 ;
Start:

;----------Frekvencia beállítása Bank 1-be-----------
bsf STATUS,RP0 ;Bank 1
movlw 0x70
movwf OSCCON ; 8 Mhz belső frekvencia

;----------Kimenet, Bemenet beállítása Bank 1-be-----------


	BSF	STATUS,RP0	;Bank 1

    movlw   B'00000111'                ; KIMENET 0 kivéve a 4.bit GP3 
                                       ; BEMENET 1     
	MOVWF   TRISIO               ;
;	clrf    TRISIO ;
	clrf    ANSEL ; az összes port digitális I/O
	banksel CMCON0
	movlw b'00000111'
	movwf CMCON0    ;
	clrf ADCON0
;----------Bank 0-------BCF----


BCF	STATUS,RP0	;Bank 0
CLRF	GPIO	;
MainLoop:


movlw B'00111111'
movwf GPIO


call Delay ; Call Delay Subroutine
clrf GPIO ; Clear GP2 Output To Low kimenet
call Delay ; Call Delay Subroutine
nop ; No Operation
goto MainLoop ; Goto MainLoop
Delay:
movlw 0x1
movwf Delay2
DelayLoop1:
movlw 0x1
movwf Delay1
DelayLoop2:
decfsz Delay1,f ; Decrease Delay1, If zero skip the next instruction
goto DelayLoop2 ; Not zero goto DelayLoop2
decfsz Delay2,f ; Decrease Delay2, If zero skip the next instruction
goto DelayLoop1 ; Not zero goto DelayLoop1
return ; Return to the Caller
end