*-----------------------------------------------------------------
* fonction input capture du timer
* entrée:	signal périodique sur IC1 (PA2)
* sortie: 	affichage à l'écran de la durée de la période en cycles PORTB
*-----------------------------------------------------------------
PORTB		equ	$04
*------------------------------- Main Timer ---------------------------------
TCTL2		equ	$21			*  0     0   EDG1B EDG1A EDG2B EDG2A EDG3B EDG3A
TFLG1		equ	$23			*OC1F OC2F OC3F OC4F OC5F IC1F IC2F IC3F
TIC1		equ	$10
*zone des variables
PREMIER		rmb	2
*Programme
					org	$FE00
					lds	#$01FF												*pile en RAM
					ldx	#$1000

					ldaa	#%00100000
					staa	TCTL2,X,#%00100000	
BOUCLE		bset	TFLG1,X,#%00000100					*; 0-->iC1F	
*attente du  1er front
B1				brclr	TFLG1,X,#%00000100 B1	
*front montant detecte
					ldd	TIC1,X		
					std	PREMIER		
					bset	TFLG1,X,#%00000100					*; 0-->iC1F
*attente du 2eme front
B2				brclr	TFLG1,X,#%00000100 B2
*determination periode
					ldd	TIC1,X		
					subd	PREMIER											*; D - (PREMIER) --> D
					std PORTB,x
					bra	BOUCLE		

					end