5) Clignotement d'une seule LED sur un port en sortie à l'aide d'une tempo par boucles imbriquées.

Même pgm principal qu'en 4.

*fichier led1clig.asc
* Clignotement d'une seule led sur le portb
* Le temps de clignotement est de 1 s

*Equivalences registres
 
portb		equ		$1004

*Début du programme implantation en EEPROM
 
		org		$F800

********************
*   Configuration        
********************
* L'initialisation de la pile est obligatoire lors de l'utilisation d'un 
sous programme.
 
start		lds		#$00ff


********************
*Programme principal  
********************

*Allumer la led 1 sur le portb.
 
debut		ldaa		#$01
		staa		portb

* Attente de 197ms
 
		bsr		tempo

* Eteindre la led 1 sur le portb.
 
		ldaa		#$00
		staa		portb

* Attente de 197ms
 
		bsr		tempo
		bra		debut

********************
*  Sous Programmes 
********************

*  SP Tempo 
*****************


*temporisation de 1s

* chargement du compteur du nombre de boucle a effectuer
 
tempo		ldaa		#10

* Chargement de la valeur permettant de faire une tempo de 0,1s
 
t1s		ldx		#33333

*tempo basée sur le nombre de boucle à effectuer
 
t100ms		dex		
		bne		t100ms

* fin de la boucle de 100ms

* décomptage du nombre de boucle
 
		deca
		bne		t1s
		rts



***************************
* Vecteurs d'interruptions
***************************
*vecteur de reset 
 
		org	$fffe
rstvect		fdb	start
		end

DEBUT DE PAGE

6) Clignotement d'une seule LED2 sur le même port en sortie.

La durée d'extinction et d'allumage étant différente.

SOMMAIRE


Giampiero D'AQUINO
Enseignant en Génie Electronique