;******************************************************************************
;                           FREQUENCY
;                           Author : By Auf Technology!
;                           Version: 1.0                  
;******************************************************************************
;
	LIST	P=16F628A
	INCLUDE P16F628A.INC
	ERRORLEVEL      -302
	__CONFIG _CP_OFF & _WDT_OFF & _XT_OSC & _PWRTE_OFF & _BODEN_OFF& _LVP_OFF & _CPD_OFF
;	__config  _XT_OSC & _PWRTE_ON & _WDT_OFF & _LVP_OFF
;
	CBLOCK 0X20
	 VDEL,
	ENDC
;
	org	0
	goto	start			
;
DELAY	movlw	0xF9
	movwf	VDEL
Delay1	nop
	decfsz	VDEL,F
	goto	Delay1
	decfsz	250,F
	goto	DELAY
	return
;
start	bcf	STATUS,5
	bcf	STATUS,RP1
	clrf	PORTA
	clrf	PORTB
	clrf	VDEL
	bsf	STATUS,5
	movlw	b'00000000'
	movwf	TRISA
	movlw	b'00000000'
	movwf	TRISB
	bcf	STATUS,5
	MOVLW	7
	MOVWF	CMCON
main	call	DELAY
	call	DELAY
	movlw	b'00000110'
	movwf	PORTA
	call	DELAY
	call	DELAY
	movlw	b'00000000'
	movwf	PORTA
	goto	main
;
	end