include "P16F690.inc"
is4sec equ 0x21
is255sec equ 0x22
is4milsec equ 0x23
is255milsec equ 0x24

org 0x0000

bsf STATUS, RP0 ;
clrf TRISC
bcf STATUS, RP0;

movlw 1
movwf PORTC
Main
bsf PORTC,1
call second
bcf PORTC,1
call second
goto Main

second
movlw 4
movwf is4sec
loop4sec
movlw 255
movwf is255sec
loop255sec
movlw 4
movwf is4milsec
loop4milsec
movlw 255
movwf is255milsec
loop255milsec
decfsz is255milsec
goto loop255milsec
decfsz is4milsec
goto loop4milsec
decfsz is255sec
goto loop255sec
decfsz is4sec
goto loop4sec
return

end