;=====================================================================================
;	ENCABEZADOS
;=====================================================================================
	list p=16f88, r=dec		;especificaciones del micro
#include <p16f88.inc>		; inclusion de archivos y registros

__CONFIG _CONFIG1, _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_OFF & _MCLR_OFF & _LVP_OFF & _INTRC_IO

cblock H'70'
	d1
	d2
    d3
	endc

      ; Reset Vector
RST   code  0x00
      goto  Start

PGM   code
Start
      bsf	STATUS, RP0
      movlw 	b'00000011'
      movwf 	TRISA
      clrf  	TRISB
      movlw	0x60
      movwf	OSCCON
      clrf	ANSEL
      BANKSEL	PORTA
      clrf	PORTA
      bsf   PORTA, 4
      bsf   PORTA, 3
loop
      movlw b'1001111'
      bcf   PORTA, 4
      movwf PORTB
      call  Delay
      bsf   PORTA, 4
      movlw b'0111111'
      bcf   PORTA, 3
      movwf PORTB
      call  Delay
      bsf   PORTA, 3
      goto  loop

Delay
			;49993 cycles
	movlw	0x0E
	movwf	d1
	movlw	0x28
	movwf	d2
Delay_0
	decfsz	d1, f
	goto	$+2
	decfsz	d2, f
	goto	Delay_0

			;3 cycles
	goto	$+1
	nop

			;4 cycles (including call)
	return

      END