LIST	p=10F200
	    __CONFIG	0xFEB
STATUS	    equ	    03h
GPIO	    equ	    06h
OSCCAL	    equ	    05h	    
Reg_1	    equ	    10h
Reg_2	    equ	    11h
Reg_3	    equ	    12h
Reg_4	    equ	    13h
RegX	    equ	    14h
RegY	    equ	    15h	    
	    org 0
	    bcf		OSCCAL,0
	    MOVLW	b'00001000'
	    MOVWF	GPIO
	    TRIS	GPIO
	    MOVLW	b'00010000'
	    OPTION
metkaX	    MOVLW	.30
	    MOVWF	RegX
	    MOVLW	.10
	    MOVWF	RegY
	    BSF		GPIO,1
	    BSF		GPIO,0
	    call	delay100mS
	    BCF		GPIO,0
	    call	delay1900mS
	    decfsz	RegX,F
	    goto	$-5
	    BCF		GPIO,1
	    MOVLW	.30
	    MOVWF	RegX
	    decfsz	RegY,F
	    goto	$-6
	    goto	metkaX
delay100mS  movlw       .220
            movwf       Reg_1
            movlw       .130
            movwf       Reg_2
            decfsz      Reg_1,F
            goto        $-1
            decfsz      Reg_2,F
            goto        $-3
            nop
	    return
delay1900mS movlw       .123
            movwf       Reg_1
            movlw       .164
            movwf       Reg_2
            movlw       .10
            movwf       Reg_3
            decfsz      Reg_1,F
            goto        $-1
            decfsz      Reg_2,F
            goto        $-3
            decfsz      Reg_3,F
            goto        $-5
	    return
	    end