Проблема с 24C16->I2C->PIC16F630 need help!

[qazim]

Можеть это поможеть http://col2000.free.fr/copieur/cop_indx.htm

[realid]

Исхитрился, допаял
Теперь читает FF FF FF FF ....,
но только не то, что надо

Верной дорогой идЁте товарищ

[tolyanv8]

Кстати, теперь к тому же результату приводят эксперименты с
программным включением/выключением внутренних подтяжек,
одна из причин глюков была ошибка в коде, которую сейчас я устранил

[tolyanv8]

Даже на внутренних подтяжках

#define 	SCL_PIN	PORTA,0x4  	; SCL 
#define 	SDA_PIN	PORTA,0x5  	; SDA
#define	        SDA_SET   TRISA,0x5	; SDA - ввод/вывод
#define	        SCL_SET   TRISA,0x4	; SCL - ввод/вывод
#define	        SDA_PULL   WPUA,0x5	; SDA - pull
#define	        SCL_PULL   WPUA,0x4	; SCL - pull
-------------------//---------------------
i2c_init
		bsf     STATUS,RP0 ;bank1
                bcf     SDA_SET ;SDA - сначала на вывод данных
		bcf     SCL_SET ;SCL - тоже
		bcf     STATUS,RP0        ; set file register bank to 0
                bcf	SCL_PIN ;SCL - низкий уровень
		bsf     SDA_PIN
		call	i2c_wait
		bsf	SCL_PIN ;SCL - высокий уровень
		bcf     SDA_PIN ;инициируем нисходящий фронт
		call	i2c_wait
		bcf	SCL_PIN ;SCL - низкий уровень
		return;

i2c_close
		bsf     STATUS,RP0 ;bank1
                bcf     SDA_SET ;SDA - сначала на вывод данных
		bcf     SCL_SET ;SCL - тоже
		bcf     STATUS,RP0        ;bank 0
		bcf     SDA_PIN
		bsf	SCL_PIN
		call	i2c_wait
		bsf     SDA_PIN ;инициируем восходящий фронт
		return;

i2c_wait
		movlw	0x03
		movwf	i2c_count
wait		nop
		decfsz	i2c_count,1
		goto	wait
		return;
-------------------//---------------------
i2c_send_byte
		bsf     STATUS,RP0 ;bank1
		bcf     SDA_SET ; SDA - вывод 
		bcf     SCL_SET ;SCL - на вывод
		bcf     STATUS,RP0        ;bank 0
		bcf	SCL_PIN  ; SCL - 0
		call	i2c_wait
		movlw	0x08
		movwf	i2c_tmp
send_bit
		bcf     STATUS,RP0        ;bank 0
		btfsc	i2c_byte,7	; бит данных - 0?
		bsf	SDA_PIN	; нет,выводим 1 на SDA

		bsf     STATUS,RP0 ;bank1
		bsf     SCL_SET ;SCL - на вход!!!
		bcf	OPTION_REG,NOT_RAPU ; этой командой переводим SCL в режим "мягкой" 1
		bsf	SCL_PULL

get_scl_write	btfss	SCL_PIN ; и ожидаем, пока ведомое устройство не попустит :)
		goto	get_scl_write
		; попустило :)))
		call	i2c_wait ; ждем-ссс

		rlf	i2c_byte,1	; сдвигаем влево байт данных
		bsf     STATUS,RP0 ;bank1
		bcf     SCL_SET ;SCL - на выход
		bcf     STATUS,RP0        ;bank 0
		bcf	SCL_PIN	; выводим 0 на SCL 
		bcf	SDA_PIN	; выводим 0 на SDA 

		call	i2c_wait

		decfsz	i2c_tmp,1	; конец цикла ?
		goto	send_bit	; нет - переход

		bsf     STATUS,RP0 ;bank1
		bsf     SDA_SET	; SDA - ввод
		bsf     SCL_SET ;SCL - на вход!!!
		bcf	OPTION_REG,NOT_RAPU ; этой командой переводим SDA! в режим "мягкой" 1
		bsf	SDA_PULL ;!!!
		bsf	SCL_PULL
		bcf     STATUS,RP0        ;bank 0
get_scl_ack	btfss	SCL_PIN ;	ожидаем подтверждения SCL!!!
		goto	get_scl_ack

get_ack		btfsc	SDA_PIN	; читаем  АСК, и идем дальше 
		nop
  ;		goto	get_ack	; или что нить делаем... (т.е. ожидаем подтверждения ACK :)
		call	i2c_wait
		bsf     STATUS,RP0 ;bank1
		bcf     SCL_SET ;SCL - на выход
		bcf     STATUS,RP0        ;bank 0
		bcf	SCL_PIN	; выводим 0 на SCL 
		bcf	SDA_PIN	; выводим 0 на SDA 
		call	i2c_wait
		return;

;*************************************************  *********************
; I2c_read
; считывание 8 бит с шины
;
i2c_read_byte
		bsf     STATUS,RP0 ;bank1
		bsf	SDA_SET  ;SDA - на ввод
		bcf     SCL_SET  ;SCL - на вывод
		bcf	OPTION_REG,NOT_RAPU ; этой командой переводим SDA в режим "мягкой" 1
		bsf	SDA_PULL ;!!!
		bcf     STATUS,RP0 ;bank 0
		bcf	SCL_PIN  ;SCL - на 0
		call	i2c_wait
		movlw	0x08
		movwf	i2c_tmp
read_bit	rlf	i2c_byte,1	; сдвигаем байт влево
		bcf	i2c_byte,0	; устанавливаем бит в 0

		bsf     STATUS,RP0 ;bank1
		bsf     SCL_SET ;SCL - на вход!!!
		bcf	OPTION_REG,NOT_RAPU ; этой командой переводим SCL в режим "мягкой" 1
		bsf	SCL_PULL

		bcf     STATUS,RP0        ;bank 0
get_scl		btfss	SCL_PIN		; и ожидаем, пока ведомое устройство не попустит :)
		goto	get_scl
		; попустило  - идем дальше ;)))
		call	i2c_wait

		btfsc	SDA_PIN		; SDA - 0?
		bsf	i2c_byte,0	; нет - устанавливаем бит в 1

		call	i2c_wait

		bsf     STATUS,RP0 ;bank1
		bcf     SCL_SET ;SCL - на выход
		bcf     STATUS,RP0        ;bank 0
		bcf	SCL_PIN	; выводим 0 на SCL 
		call	i2c_wait
		decfsz	i2c_tmp,1		; конец цикла ?
		goto	read_bit		; нет - переход
		return;

send_ack
		bsf     STATUS,RP0 ;bank1
		bcf	SDA_SET		; SDA - вывод для АСК 
		bcf     STATUS,RP0 ;bank 0
		bcf	SDA_PIN		; выдаем АСК
		bsf     STATUS,RP0 ;bank1
		bsf     SCL_SET  ;SCL - на ввод!!!
		bcf	OPTION_REG,NOT_RAPU ; этой командой переводим SCL в режим "мягкой" 1
		bsf	SCL_PULL
		bcf     STATUS,RP0        ;bank 0
get_ack_scl	btfss	SCL_PIN
		goto	get_ack_scl ;опять ждем :)))
		call	i2c_wait
		bsf     STATUS,RP0 ;bank1
		bcf     SCL_SET ;SCL - на выход
		bcf     STATUS,RP0        ;bank 0
		bcf	SCL_PIN	; выводим 0 на SCL 
		call	i2c_wait
		return;

[picavr]

Ну братцы... люди для вас уже всё давно написали...

AN554 от Микрочипа... лень вам поискать ....

Прикрепленный файл: 7237468.RAR

[tolyanv8]

Сорри, просто не знал про него (хотя нарыл много другой доки
Прошу не судить строго и не бить больно (все-таки первый более-менее серьезный проект
Кстати приведенный код по-моему не использует внутренние
PULL-UPы, главное - что докопался сам!
(и до PULL-UP-ов тоже
В любом случае спасибо за информацию !!!