;TEMPO 1ms exactement avec un Qx=16.000MHz
;attention: sous reserve de ralentissement par les interruptions...

.def	i1=r20
.def	i2=r21

tp1ms:	push	r20
	push	r21

	ldi	i1,16
bcl2:	ldi	i2,248	
bcl3:	dec	i2
	brne	bcl3

	nop		;pour ajuster exactement la duree
	nop
	nop
	dec	i1
	brne	bcl2

	nop
	pop	r20
	pop	r21
	ret

;----------------------------------------------------------------------
;tempo 10ms

.def n=r16

tp10ms:	push	r16
	ldi	n,10

bcl4:	rcall	tp1ms
	dec	n
	brne	bcl4

	pop	r16
	ret

;----------------------------------------------------------------------
;tempo 100ms

.def n=r16

tp100ms:	push	r16
	ldi	n,100

bcl5:	rcall	tp1ms
	dec	n
	brne	bcl5

	pop	r16
	ret

;----------------------------------------------------------------------
;tempo a * 100ms
;a qui contient le nb de fois 100ms est affecte
.def n=r16

tx100ms:	push	r16

	ldi	n,100
bcl6:	rcall	tp1ms
	dec	n
	brne	bcl6
	pop	r16
	dec	a
	brne	tx100ms
	ret