can any one check why is not working?
#INCLUDE <P16F877A.INC>
__CONFIG 0X3FF1
D1 EQU 0X20
D2 EQU 0X21
D3 EQU 0X23
ORG 0X00
GOTO MAIN
MAIN:
BSF STATUS,5
CLRF TRISD
BSF PORTD,7
CALL DELAY
BCF PORTD,7
MOVWF PORTD
CALL DELAY
GOTO MAIN
DELAY MOVLW D'120' ;PAUSE FOR ABOUT 10mS (u can change the 180, 100, 1 value to obtain different delay timing)
MOVWF D3
MOVLW D'70'
MOVWF D2
MOVLW D'80'
MOVWF D1
LOOP1 DECFSZ D1
GOTO LOOP1
LOOP2 DECFSZ D2
GOTO LOOP2
LOOP3 DECFSZ D3
GOTO LOOP3
RETURN
END ; directive 'end of program'