;**************************** ;*Allumer une LED sur PortB * ;**************************** ; fichier 1_led.asm ;A la mise sous tension la LED SUR RB s'allume ; ; 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 portb STATUS equ 0x0003 ; Le bit 5 permet d'acceder à la Banque 1 ou 0 ; ce qui donne acces au TRIS ou au PORT ; Equivalence DONNEES ; ******************* donnee equ 0x0062 ; Donnee en hexa a stocker en sortie on allume les LED D2, D6 et D7 ;*************** ;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 ; RAZ registre de direction pour que le portb soit en sortie. bcf STATUS,05 ; Selection de Bank 0 pour l'accès au PORT ;********************* ;Programme principal * ;********************* ; On active les sorties 1,5 et 6 sur le portb movlw donnee ; chargement dans le registre Work d'une valeur litterale movwf PORTB ; chargement du contenu de w dans le fichier PORTB fin goto fin end
2) Recopie d'un port en entrée sur sortie.
Giampiero D'AQUINO
Enseignant en Genie Electronique