#INCLUDE "P12F675.INC"
__CONFIG _CP_OFF & _CPD_OFF & _BODEN_OFF & _MCLRE_OFF & _WDT_OFF & _PWRTE_OFF & _INTRC_OSC_NOCLKOUT
;----------------------------------------
TRES	EQU	20H
CUATRO	EQU	21H
CINCO	EQU	22EH
PDel0	EQU	23H
PDel1	EQU	24H
;----------------------------------------
		BSF		STATUS, RP0
		CLRF	ANSEL
		MOVLW	B'00000000'
		MOVWF	TRISIO
		BCF		STATUS, RP0	
		bsf     STATUS,RP0      ;Bank 1
		call	3FFh		;Get the cal value
		movwf	OSCCAL		;Calibrate
		bcf 	STATUS, RP0 ;Bank 0	
			
;----------------------------------------		
INI		CLRF	TRES
		BSF		GPIO, GP0
		CALL	RET		
		BCF		GPIO, GP0
		CALL	RET
		GOTO	INI
;-------------------------------------		
RET		MOVLW	.255
		MOVWF	TRES
CARGA	MOVLW	.255
		MOVWF	CUATRO
DESCU	DECFSZ	CUATRO, 1
		GOTO	DESCU
		DECFSZ	TRES, 1
		GOTO	CARGA
		RETURN
		
ORG     0x3ff
		retlw 0x80			
		END