delays.asm

The circuit is drawn for measurement of acceleration from –1000 mg until + 1000 mg. It can be place

;------------------------------------------------------------------------------------------------------
;Name		:Delays
;------------------------------------------------------------------------------------------------------
.cseg
.org		SegmentDelays
;------------------------------------------------------------------------------------------------------
WaitOneInterrupt:										;Return when next interrupt will finish
	wdr
	sbrs	ProgramFlagRegister,InterruptFlag
	rjmp	WaitOneInterrupt
	andi	ProgramFlagRegister,ClrInterruptFlag
	ret
;------------------------------------------------------------------------------------------------------
Delay100usec:											;General x100 usec subroutine
	ldi		DelayRegisterB,_100_USEC
Delay100usecInLoop:
	wdr
	dec		DelayRegisterB
	brne	Delay100usecInLoop
	ret
;------------------------------------------------------------------------------------------------------
Delaymsec:												;General x msec subroutine
	mov		DelayRegisterA,TempRegister
DelaymsecInLoop:
	rcall	Delay100usec
	dec		DelayRegisterA
	brne	DelaymsecInLoop
	ret
;------------------------------------------------------------------------------------------------------
Delaysec:												;General x sec subroutine
	mov		DelayRegisterC,TempRegisterB
DelaysecInLoop:
	rcall	Delaymsec
	dec		DelayRegisterC
	brne	DelaysecInLoop
	ret
;------------------------------------------------------------------------------------------------------