	LIST P=12F629, R=DEC
	INCLUDE<P12F629.INC> 
	errorlevel -302

	__CONFIG _PWRTE_ON & _WDT_OFF & _MCLRE_OFF & _INTRC_OSC_NOCLKOUT


count1	equ	0x30
count2	equ	0x31
count3	equ	0x32

#DEFINE	LED	GPIO,0	

				
;********************************************************
				
	org	0x00

	MOVLW	0X07		; komparator off
	MOVWF	CMCON

	BSF	STATUS,RP0		;banka1
	
	CALL	3FFh		; kalibrace vnitrniho oscilatoru
	MOVWF	OSCCAL

	MOVLW	B'11111110'
	MOVWF	TRISIO

	BCF	STATUS,RP0		;banka0
;;***************** PROGRAM ********************************
START	CALL	PAUSE
	BSF	LED
	CALL	PAUSE
	BCF	LED
	GOTO	START

;**********************************
PAUSE	RETURN
	movlw	0x03		;06	PRO CCA 1 S PRI 4MHz
	movwf	count3
r3	movlw	0xF0		;F0
	movwf	count1
r1	movlw	0xF0		;F0
	movwf	count2
r2	decfsz	count2,f
	goto	r2
	decfsz	count1,f
	goto	r1
	decfsz	count3,f
	goto	r3

	retURN	
;*************61 uS*******************




	END