;In the Name of Allah
;1ms Delay Subroutine
	;***1st Part: Making 1ms Delay***
	.ORG 0
DELAY:	LDI R19,4
	LDI R18,249
BEG1:	LDI R17,4
BEG2:	LDI R16,249
LOOP4:	DEC R16
	BREQ LOOP3
	RJMP LOOP4
LOOP3:	DEC R17
	BREQ LOOP2
	RJMP BEG2
	;***2nd Part: Repeating the First Part 1000 times Resulting in 1s Delay ***
LOOP2:	DEC R18
	BREQ LOOP1
	RJMP BEG1
LOOP1:	DEC R19
	BREQ END
	LDI R18,250
	RJMP BEG1
END:	RET