list p=12f675
#include <p12f675.inc>
__CONFIG   _CP_ON & _CPD_OFF & _BODEN_OFF & _MCLRE_ON & _WDT_OFF & _PWRTE_OFF & _INTRC_OSC_NOCLKOUT  ; la palabra de confguracion

PDel0	equ		0X20
PDel1	equ		0X21


reset org 0x00
	  goto inicio

inicio

	bsf STATUS, RP0         ; Bank 1
  	movlw B'00000000'   
  	movwf TRISIO           
    movlw	b'00000000'
	movwf	ANSEL			;deshabilta el conversor
    bcf STATUS, RP0         ; Bank 0
    clrf GPIO
    movlw 0x07
    movwf CMCON             



main
	bsf GPIO, 1
	call demora
	bcf GPIO, 1
	call demora
	goto main


demora  movlw     .239      ; 1 set numero de repeticion  (B)
        movwf     PDel0     ; 1 |
PLoop1  movlw     .232      ; 1 set numero de repeticion  (A)
        movwf     PDel1     ; 1 |
PLoop2  clrwdt              ; 1 clear watchdog
PDelL1  goto PDelL2         ; 2 ciclos delay
PDelL2  goto PDelL3         ; 2 ciclos delay
PDelL3  clrwdt              ; 1 ciclo delay
        decfsz    PDel1, 1  ; 1 + (1) es el tiempo 0  ? (A)
        goto      PLoop2    ; 2 no, loop
        decfsz    PDel0,  1 ; 1 + (1) es el tiempo 0  ? (B)
        goto      PLoop1    ; 2 no, loop
PDelL4  goto PDelL5         ; 2 ciclos delay
PDelL5  goto PDelL6         ; 2 ciclos delay
PDelL6  goto PDelL7         ; 2 ciclos delay
PDelL7  clrwdt              ; 1 ciclo delay
        return              ; 2+2 Fin.

end