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 end6) Clignotement d'une seule LED2 sur le même port en sortie.
La durée d'extinction et d'allumage étant différente.
Giampiero D'AQUINO
Enseignant en Génie Electronique