CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 05 01:29:34

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

BUS I2C POUR PIC16XXX

Information sur la source

Note :

8,00 / 10

Catégorie :Les PIC Niveau :Débutant Date de création :08/06/2003 Date de mise à jour :08/06/2003 22:14:15 Vu / téléchargé :13 834 / 856

Auteur : tranquilos

Ecrire un message privé

Commentaire sur cette source (1)

Ajouter un commentaire et/ou une note

Description

Que dire de plus, que vous trouverez ici les principales commandes I2C.
Il vous suffit ensuite en fonction du composant avec lequel vous communiquez, de les assember dans le bon ordre.

Source

;
; Routines I2C V1.0
;
; O.R 04/2003
;-----------------------------------------------------------------------------------------
;
;
; Cette routine nécessite :
; - Les deux macros : SDA_IN et SDA_OUT
; - Les variables : I2C_flag, I2C_DATA, I
; - Le fichier : Q4mhz.asm
;
;
I2C_INIT:
SDA_OUT ;SDA en sortie
bsf SDA ;SDA a 1
bsf SCL ;SCL a 1
return
I2C_START: ;SDA_OUT
;SDA=1 SCL=1
bsf SCL ;SCL a 1
bsf SDA ;SDA a 1
bcf SDA ;SDA a 0
return
I2C_STOP: ;SDA_OUT
;SDA=X SCL=0
bcf SDA ;SDA a 0
bsf SCL ;SCL a 1
bsf SDA ;SDA a 1
return
I2C_SLAVE_ACK: ;SDA_OUT
;SDA=X SCL=0
bcf SCL ;SCL a 0
SDA_IN ;SDA en entrée
CALL Tempo_11us
bsf SCL ;SCL a 1
CALL Tempo_11us
btfsc SDA ;Si 1 ecriture d'un flag d'erreur
call NO_ACK
bcf SCL ;SCL a 0
CALL Tempo_11us
SDA_OUT ;SDA en sortie
return
I2C_MASTER_ACK: ;SDA_IN
;SDA=X SCL=0
bcf SCL ;SCL a 0
SDA_OUT ;SDA en sortie
bcf SDA ;SDA a 0
bsf SCL ;SCL a 1
CALL Tempo_11us
bcf SCL ;SCL a 0
CALL Tempo_11us
bsf SDA ;SDA a 1
return
I2C_MASTER_NACK: ;SDA_IN
;SDA=X SCL=0
bcf SCL ;SCL a 0
SDA_OUT ;SDA en sortie
bsf SDA ;SDA a 1
bsf SCL ;SCL a 1
CALL Tempo_11us
bcf SCL ;SCL a 0
CALL Tempo_11us
bcf SDA ;SDA a 0
return
I2C_SEND_BYTE:
movwf I2C_DATA ;w contient les data a envoyer
movlw d'8'
movwf I
Next_data_s:
decf I,f
bcf SCL ;SCL a 0
CALL Tempo_11us
rlf I2C_DATA,f ;Rotation a gauche bit(I) dans la carry
btfsc carry ;Si I=1
bsf SDA ;SDA a 1
btfss carry ;Si I=0
bcf SDA ;SDA a 0
bsf SCL ;SCL a 1
CALL Tempo_11us
incf I,f
decfsz I,f ;Si I!=0
goto Next_data_s
bcf SCL ;SCL a 0
CALL Tempo_11us
call I2C_SLAVE_ACK
return
I2C_RECEIVE_BYTE:
movlw d'8'
movwf I
clrf I2C_DATA
SDA_IN ;SDA en entrée
Next_data_r:
decf I,f
bcf SCL ;SCL a 0
CALL Tempo_11us
bsf SCL ;SCL a 1
CALL Tempo_11us
btfsc SDA ;Si SDA=1
bsf carry
btfss SDA ;Si SDA=0
bcf carry
rlf I2C_DATA,f ;décallage à gauche et met la carry dans le LSB
incf I,f
decfsz I,f ;Si I!=0
goto Next_data_r
bcf SCL ;SCL a 0
CALL Tempo_11us
call I2C_MASTER_ACK
return
I2C_RECEIVE_BYTE_LAST:
movlw d'8'
movwf I
SDA_IN ;SDA en entrée
Next_data_rl:
decf I,f
bcf SCL ;SCL a 0
CALL Tempo_11us
bsf SCL ;SCL a 1
CALL Tempo_11us
btfsc SDA ;Si SDA=1
bsf carry
btfss SDA ;Si SDA=0
bcf carry
rlf I2C_DATA,f ;décallage à gauche et met la carry dans le LSB
incf I,f
decfsz I,f ;Si I!=0
goto Next_data_rl
bcf SCL ;SCL a 0
CALL Tempo_11us
call I2C_MASTER_NACK
return
;-----------------------------------------------------------------------------------------
; I2C_flag
; 0: NO_ACK
; 1:
; 2:
; 3:
; 4:
; 5:
; 6:
; 7:
;
NO_ACK:
bsf I2C_flag,0 ;Pas d'ack de l'esclave -> problème de comm
return

;
;			Routines I2C                            	V1.0
;
;									O.R	04/2003
;-----------------------------------------------------------------------------------------
;
;
;	Cette routine nécessite :
;		- Les deux macros 	: SDA_IN et SDA_OUT
;		- Les variables   	: I2C_flag, I2C_DATA, I
;		- Le fichier	  	: Q4mhz.asm
;
;


I2C_INIT:
	SDA_OUT			;SDA en sortie
	bsf	SDA		;SDA a 1
	bsf	SCL		;SCL a 1

	return

I2C_START:			;SDA_OUT
				;SDA=1 SCL=1
	bsf	SCL		;SCL a 1
	bsf	SDA		;SDA a 1
	bcf	SDA		;SDA a 0		

	return

I2C_STOP:			;SDA_OUT
				;SDA=X SCL=0
	bcf	SDA		;SDA a 0
	bsf	SCL		;SCL a 1
	bsf	SDA		;SDA a 1		

	return

I2C_SLAVE_ACK:			;SDA_OUT
				;SDA=X SCL=0
	bcf	SCL		;SCL a 0
	SDA_IN			;SDA en entrée
	CALL	Tempo_11us
	bsf	SCL		;SCL a 1
	CALL	Tempo_11us
	btfsc	SDA		;Si 1 ecriture d'un flag d'erreur
	call	NO_ACK
	bcf	SCL		;SCL a 0
	CALL	Tempo_11us

	SDA_OUT			;SDA en sortie

	return

I2C_MASTER_ACK:			;SDA_IN 
				;SDA=X SCL=0
	bcf	SCL		;SCL a 0
	SDA_OUT			;SDA en sortie
	bcf	SDA		;SDA a 0 
	bsf	SCL		;SCL a 1
	CALL	Tempo_11us
	bcf	SCL		;SCL a 0
	CALL	Tempo_11us
	bsf	SDA		;SDA a 1

	return

I2C_MASTER_NACK:		;SDA_IN 
				;SDA=X SCL=0
	bcf	SCL		;SCL a 0
	SDA_OUT			;SDA en sortie
	bsf	SDA		;SDA a 1 
	bsf	SCL		;SCL a 1
	CALL	Tempo_11us
	bcf	SCL		;SCL a 0
	CALL	Tempo_11us
	bcf	SDA		;SDA a 0 
	
	return

I2C_SEND_BYTE:
	movwf	I2C_DATA	;w contient les data a envoyer
	movlw	d'8'
	movwf	I
Next_data_s:
	decf	I,f
	bcf	SCL		;SCL a 0
	CALL	Tempo_11us
	rlf	I2C_DATA,f	;Rotation a gauche bit(I) dans la carry
	btfsc	carry		;Si I=1
	bsf	SDA		;SDA a 1
	btfss	carry		;Si I=0
	bcf	SDA		;SDA a 0
	bsf	SCL		;SCL a 1 
	CALL	Tempo_11us
	incf	I,f
	decfsz	I,f		;Si I!=0
	goto	Next_data_s

	bcf	SCL	;SCL a 0
	CALL	Tempo_11us

	call	I2C_SLAVE_ACK

	return

I2C_RECEIVE_BYTE:
	movlw	d'8'
	movwf	I
	clrf	I2C_DATA
	SDA_IN			;SDA en entrée
Next_data_r:
	decf	I,f
	bcf	SCL		;SCL a 0
	CALL	Tempo_11us
	bsf	SCL		;SCL a 1
	CALL	Tempo_11us
	btfsc	SDA		;Si SDA=1
 	bsf	carry     
	btfss	SDA		;Si SDA=0
	bcf	carry      

	rlf	I2C_DATA,f	;décallage à gauche et met la carry dans le LSB 

	incf	I,f
	decfsz	I,f		;Si I!=0
	goto	Next_data_r

	bcf	SCL	;SCL a 0
	CALL	Tempo_11us

	call	I2C_MASTER_ACK

	return

I2C_RECEIVE_BYTE_LAST:
	movlw	d'8'
	movwf	I
	SDA_IN			;SDA en entrée
Next_data_rl:
	decf	I,f
	bcf	SCL		;SCL a 0
	CALL	Tempo_11us
	bsf	SCL		;SCL a 1
	CALL	Tempo_11us
	btfsc	SDA		;Si SDA=1
 	bsf	carry     
	btfss	SDA		;Si SDA=0
	bcf	carry      

	rlf	I2C_DATA,f	;décallage à gauche et met la carry dans le LSB 

	incf	I,f
	decfsz	I,f		;Si I!=0
	goto	Next_data_rl

	bcf	SCL	;SCL a 0
	CALL	Tempo_11us

	call	I2C_MASTER_NACK

	return


;-----------------------------------------------------------------------------------------
;	I2C_flag
;		0: NO_ACK
;		1:	
;		2:
;		3:
;		4:
;		5:
;		6:
;		7:
;


NO_ACK:
	bsf	I2C_flag,0	;Pas d'ack de l'esclave -> problème de comm

	return

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

i2c.asm 3 041 octets
main_i2c.txt 457 octets
q4mhz.asm 3 695 octets

Télécharger le zip

Sources du même auteur

AFFICHEUR LCD 2X16 EN MODE 4BIT POUR PIC 16XXX

AFFICHEUR LCD 2X16 EN MODE 8BIT POUR PIC 16XXX

Toutes les sources de tranquilos

Sources de la même categorie

MODULATION DE LARGEUR D'IMPULSION (PWM) par Eneur

MOTEUR-RUN -:- PILOTAGE MOTEUR PAS À PAS AVEC RAMPES par bermudos

REGPROG -:- ENREGISTRER UNE SÉQUENCE DANS UN PIC par bermudos

[PIC] FIRMWARE ALTERNATIF POUR LA CARTE PROTO DE POB TECHNOL... par korpus

SAUT AVEC TROIS IMPULSIONS par ariane2005

Toutes les sources de la catégorie Les PIC

Commentaires et avis

Commentaire de Bigonoff le 08/10/2003 22:07:11

Salut
------

Petite remarque : en I²C, on ne peut JAMAIS imposer un niveau haut sur SCL ou sur SDA.
Ce programme ne respecte donc pas la norme, sauf si électronique externe (mais ce n'est pas précisé).
Tu devrais revoir tes routines ;)

A+
Bigonoff

Ajouter un commentaire

Nos sponsors

Derniers Blogs

CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT) par FREMYCOMPANY

MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ? par ROMELARD Fabrice

Y'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENT par Aleks

[HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL par Pierrick CATRO-BROUILLET

IIS7 - COMPRESSION GZIP par cyril

Forum

RE : ALGORITHME EXPONENTIEL par BruNews

ALGORITHME EXPONENTIEL par smirnov1985

SYSTèME D'IMMOBILISATION INVISIBLE POUR VOITURE par king2br

RE : PROGRAMMATION DU PIC16F877 LCD EN MIKRO C par ilsab

ANNULATION D'ECHO ACOUSTIQUE par samenp

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Cherche referenceur astucieux
Budget : 1 500€
Recherche expert advisor sous mql4 hedging
Budget : 200€
Creation boutique en ligne iphone- android - Republication.
Budget : 4 000€

Logiciels

Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning
Academy System (17.1.3.0)
ACADEMY SYSTEM (17.1.3.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
COLLECTOR PLUS (3.00B)
COLLECTOR PLUS (3.00B)

COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par : - L...

Cliquez pour télécharger COLLECTOR PLUS
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
LettresFaciles 2011 (8.0.0.1)
LETTRESFACILES 2011 (8.0.0.1)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011