LIST P=16F877

 #INCLUDE "P16F877.INC"

 __CONFIG _RC_OSC&_CP_OFF&_WDT_OFF&_LVP_OFF



	ORG	0



START
	NOP
	BCF STATUS, RP1
	BSF STATUS, RP0
	MOVLW 0x00
	MOVWF TRISD
	BCF STATUS, RP0
	MOVLW 0x01
	MOVWF PORTD
MAIN	
	MOVLW 0x02
	MOVWF PORTD
	CALL FELSEC
	MOVLW 0x01
	MOVWF PORTD
	CALL FELSEC
	GOTO MAIN
FELSEC
	CALL DELAY
	CALL DELAY
	CALL DELAY
	CALL DELAY
	CALL DELAY
	CALL DELAY
	CALL DELAY
	CALL DELAY
	CALL DELAY
	CALL DELAY
	CALL DELAY
	CALL DELAY
	CALL DELAY
	RETURN
DELAY
	MOVLW 0x01
	ADDLW 0x01
	BTFSS STATUS, C
	GOTO $-2
	RETURN	
	END