---------------EQUATES----------------------
MCOUNT EQU 0X0C
NCOUNT EQU 0X1D
--------------------------------------------------
;---------------------------------------DELAY--------------------------------------------------
DELAY MOVLW 0XFF ;0.2S DELAY
MOVWF MCOUNT ;MOVING CONTENTS OF WORKING REGISTER TO MCOUNT
GET_N MOVLW 0XFF ;LOAD WORKING REGISTER WITH VALUE
MOVWF NCOUNT ;MOVING CONTENTS OF WORKING REGISTER TO NCOUNT
DEC_N DECFSZ NCOUNT,F ;DECREMENT NCOUNT AND SKIP IF ZERO
GOTO DEC_N
DECFSZ MCOUNT,F ;DECREMENT MCOUNT AND SKIP IF ZERO
GOTO GET_N
RETURN