list p=12f683 
#include "p12f683.inc"
__CONFIG   _FCMEN_OFF & _IESO_OFF & _BOD_ON & _CPD_OFF & _CP_OFF & _MCLRE_OFF & _PWRTE_ON & _WDT_ON & _INTOSCIO
delcntrl equ 16
snout equ 20
org 0x00
goto sverstk
sverstk
	movlw b'11111011'
	bsf status rp0
	movlw trisio
	movlw 0x00
	bcf status rp0
kagovo
	call ryl
	bsf GPIO,GP2
    movlw D'200'
	movlw delcntrl
	decfsz delcntrl,1 snout,1
	goto kagovo
	bcf GPIO,GP2
	
ryl
	nop
	nop
	nop
	nop
	nop
	goto kagovo
	return	
end.