ORG	1FFH
	GOTO   RST
	ORG    100H
RST:    CLRW;
        TRIS 6;
        MOVLW 003H;
	MOVWF 6;
	CALL DLY;
SFTL:   MOVLW 006H;
	MOVWF 10;
RED0:   RLF 6,1;
	CALL DLY;
	DECFSZ 10,1;
	GOTO RED0;
	MOVLW 006H;
	MOVWF 10;
RED01:  RRF 6,1;
	CALL DLY;
	DECFSZ 10,1;
	GOTO RED01;
	GOTO SFTL;
	ORG 000H;
DLY: 	MOVLW 0FFH;
        MOVWF 8;
DLY1:	MOVLW 0FFH;
	MOVWF 9;
	DECFSZ 9,1;
DLY2:   GOTO DLY2;
        DECFSZ 8,1;
        GOTO DLY1;
        DECFSZ 000H;
        GOTO
        RETLW
        END