LIST	P=PIC12f629
 #INCLUDE "P12f629.INC"
 __CONFIG _INTRC_OSC_NOCLKOUT&_CP_OFF& _WDT_OFF
 
	CBLOCK	0x20
	T1
	T2
	ENDC
	ORG	0
	
START

		
VISSZA
		BSF		STATUS,RP0
		MOVLW 	b'00000001'
		MOVWF	GPIO
		MOVLW	B'00000000'
	 	MOVWF	GPIO
		BCF		STATUS,RP0

	
    	MOVLW	b'00000000'
		MOVWF	GPIO
		CALL	DELAY
		MOVLW 	b'00010000'	
		MOVWF	GPIO 
		CALL	DELAY    
	    MOVLW 	b'00110000'                   
		MOVWF	GPIO
		CALL	DELAY
		MOVLW	b'00111100'	
		MOVWF	GPIO
		BTFSC   GPIO,0	    ;,0	''''''''''''''''                         
		CALL	DELAY
		GOTO	VISSZA
		
DELAY:	MOVLW	d'150'
		MOVWF	T1
DEL:	MOVLW	d'255'
		MOVWF	T2	
DEL1:	NOP
		NOP
		NOP
		NOP
		NOP
		NOP
		NOP
		DECFSZ	T2,f
		GOTO	DEL1
		DECFSZ	T1,f
		GOTO	DEL
		RETURN	
	
 	END