TIC1	equ	$1010	*TIC1 se situe a l'@ 1010 (voir la doc)
TFLG1	equ	$1023	*TFLG1 se situe a l'@ 1023 (voir la doc)
TCTL2	equ	$1021	*TCTL2 se situe a l'@ 1021 (voir la doc)
TMSK1	equ	$1022	*

	org	$2050
front1	rmb	2
front2	rmb	2
period	rmb	2
ED1ba	fcb	$10
N	rmb	1

	org	$00E8	*
	jmp	issprog	*

	org	$2100

	sei		*debut d'interruptions interdites

	lds	#$0200	*#########################

	ldab	ED1ba	*active fronts descendants
	stab	TCTL2	*de PA2

	ldaa	TFLG1	*enregistrement fronts actifs de IC1F
	anda	#$04	*
	staa	TFLG1	*

	ldaa	#$04	*autorise interruptions de IC1i
	staa	TMSK1	*
	cli		*fin d'interruptions interdites

	ldab	#2	*
	stab	N	*N=(2)10

boucle	tst	N	*boucle de test
	bne	boucle	*de N

	clr	TMSK1	*toute interruption possible

	ldd	TIC1	*
	std	front2	*TIC1 represente le front 2

	subd	front1	*on soustrait le front 1
	std	period	*on obtient la periode

	rts		*retour au programme



issprog	ldaa	TFLG1	*enregistrement fronts actifs de IC1F
	anda	#$04	*
	staa	TFLG1	*

	dec	N	*decrementer N
	beq	sortie	*sortie du programme si N=0

	ldx	TIC1	*
	stx	front1	*TIC1 represente le front 1

sortie	rti