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

 
;*****************************************************************
;*Faire clignoter la LED 0 sur le PortB a la frequence de 0,5 Hz *
;*****************************************************************

; fichier 5_led1cl.asm

; Le clignotement est visible a l'oeil nu periode de 200 ms
; 
;
; Device = 16F84		; Utilisation du circuit 16F84
; Horloge =  XT		; Déclaration et config du Circuit

; Equivalence registres
;***********************

PORTB		equ		0x0006	; Adresse du portb
TRISB		equ		0x0086	; Adresse du registre de direction du porta
STATUS		equ		0x0003	; Le bit 5 permet d'acceder à la Banque 1 ou 0 
					; ce qui donne acces au TRIS ou au PORT 


;* Reservation memoire *
;***********************

; Les registres occupent la RAM jusqu'en OBh

COMPT		equ		0Ch
COMPT1		equ		0Dh

;***************
;Initialisation*
;***************

		org		00h		; Apres le reset le PC pointe l'adresse 00


		goto		debut		; On saute les 5 premiers octets car à l'adresse
						; 04 on a l'adresse d'interruption
						; On prend l'habitude de ne pas ecrire sur ce segment
						; en sautant simplement jusqu'apres ce segment


		org		05h


debut		
		clrf		PORTB		; Mise a zero des latches de sorties
		bsf		STATUS,05	; Selection de Bank 1 pour l'accès au TRIS
		movlw		00h		;
		movwf		TRISB		; Declaration du portb en sortie

		bcf		STATUS,05	; Selection de Bank 0 pour l'accès au PORT

;*********************
;Programme principal *
;*********************


		clrf		PORTB		; Extinction de toutes les LEDS
boucle
		bsf		PORTB,0		; On allume la LED 1
		call		tempo
		bcf		PORTB,0		; On eteind la LED 1
		call		tempo
		goto		boucle		; recopie permanente


;******************
; SOUS PROGRAMME  *
;******************

; SP tempo de 100 ms *
;********************

tempo

		movlw		0x00C8		; chargement de COMPT1 DE 200
		movwf		COMPT1		; 
delai1
		movlw		0x00A6		; chargement de COMPT 
		movwf		COMPT
delai
		decfsz		COMPT,1		; Le temps de decompter 166 valeurs 
		goto		delai		; calcul du temps : 1 instruction =Tquartz/4=1µs =1 cycle
						; l'instruction goto est de 2 cycles
						; 2 instructions = 3 µs repeter 166 fois t=498 µs

		
		decfsz		COMPT1,1	; ON execute la boucle 200 fois  
		goto		delai1		; calcul du temps : 500µs*200=100ms
		
		return


		end

DEBUT DE PAGE

1-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 Genie Electronique