《匠人手记》推荐网上购书渠道： EDN网（ednchina）购书入口   >>> 互动出版网（china-pub）购书入口   >>> 当当网（dangdang）购书入口   >>> 淘宝网（taobao）购书入口   >>> 更多购书渠道……   >>>

设为首页｜加入收藏｜联系匠人｜管理入口｜21IC首页｜21IC博客｜21IC社区｜侃单片机｜回复的贴｜参与的贴

[加入团队] [加入Q群] [广告赞助] [交换连接] [代理工具] [免责声明]      匠人的原创栏目：[匠人公告] [匠人文集] [匠人笔记] [写书近况]

天气预报 百宝日历 百宝专栏 首页 相册 标签 电脑应用(65) 供需信息(22) 写书近况(82) 匠人文集(115) 硬件技术(171) 匠人公告(86) 与非门专栏(545) 匠人笔记(115) 团队撰写(96) 汽车电子(52) 编程技巧(465) 程序宝典(476) 网络酷文(472) 开发工具(19) 资料宝藏(274) 项目管理(11) 藏经宝阁(42) 趣味设计(5) 社区热贴(2) 比尔盖茨熊专栏(0)  百宝信息 载入中... 百宝流量 （2006-07-01开始） 匠人手记

匠人DIY：旋转时钟系列、天梯 之 从零开始玩PIC  匠人原创：浅谈“鲁棒性”、戏说“看门狗”  匠人原创：焊了一块51学习板 、上海书城暗访记 、  匠人笔记：渐明渐暗动态流水灯效果（C源程序）  社区动态：《匠人手记》义拍赈灾活动圆满结束   网络酷文：MISRA2004概览（C编程规范）    匠人手记：购书攻略、勘误表、书友会、书友Q群  书友近况：网络——互动的力量、精致兰花大高帽！ PIC:又一个读写I2C程序 程序匠人 发表于 2005-6-2 21:01:00  阅读全文 | 回复(0) | 引用通告 | 编辑  TITLE " TWO WIRE/I2C BUS INTERFACE WITH PIC16C5x " ;  LIST P=16C54 ; ;***************************************************************************** ;**  Two wire/I2C Bus READ/WRITE Sample Routines of Microchip's ;**  24Cxx / 85Cxx serial CMOS EEPROM interfacing to a ;**  PIC16C54 8-bit CMOS single chip microcomputer ;**  Revsied Version 2.0 (4/2/92). ;** ;**     Part use = PIC16C54-XT/JW                                           ;**  Note:  1) All timings are based on a reference crystal frequency of 2MHz ;**            which is equivalent to an instruction cycle time of 2 usec. ;**         2) Address and literal values are read in octal unless otherwise ;**            specified. ;***************************************************************************** ; ;----------------------------------------------------------------------------- ;       Files Assignment ;----------------------------------------------------------------------------- ; PC      EQU     2               ; Program counter STAT    EQU     3               ; PIC status byte FSR     EQU     4               ; File Select Register RA      EQU     5               ; Port A use to select device address RB      EQU     6               ; RB7 = SDA, RB6 = SCL ; STATUS  EQU     08              ; Status register FLAG    EQU     09              ; Common flag bits register EEPROM  EQU     0A              ; Bit buffer ERCODE  EQU     0B              ; Error code (to indicate bus status) ADDR    EQU     10              ; Address register DATAI   EQU     11              ; Stored data input register DATAO   EQU     12              ; Stored data output register SLAVE   EQU     13              ; Device address (1010xxx0) TXBUF   EQU     14              ; TX buffer RXBUF   EQU     15              ; RX buffer COUNT   EQU     16              ; Bit counter ; TIMER0  EQU     18              ; Delay timer0 TIMER1  EQU     19              ; Delay timer1 ; ; ;----------------------------------------------------------------------------- ;                     Bit Assignments ;----------------------------------------------------------------------------- ; ; Status bits ; Z       EQU     2 C       EQU     0 ; ; FLAG Bits ; ERROR   EQU     0               ; Error flag ; ; EEPROM Bits ; DI      EQU     7               ; EEPROM input DO      EQU     6               ; EEPROM output ; ; I2C Device Bits ; SDA     EQU     7               ; RB7, data in/out SCL     EQU     6               ; RB6, serial clock ; ;END FILES/BITS EQUATE  PAGE ; ;----------------------------------------------------------------------------- ;       Two wire/I2C - CPU communication error status table and subroutine ;----------------------------------------------------------------------------- ;  input  :     W-reg   = error code ;  output :     ERCODE  = error code ;           FLAG(ERROR) = 1 ; ;         code          error status mode ;       -------         ------------------------------------------------------ ;           1   :       SCL locked low by device (bus is still busy) ;           2   :       SDA locked low by device (bus is still busy) ;           3   :       No acknowledge from device (no handshake) ;           4   :       SDA bus not released for master to generate STOP bit ;----------------------------------------------------------------------------- ; ;Subroutine to identify the status of the serial clock (SCL) and serial data ;(SDA) condition according to the error status table. Codes generated are ;useful for bus/device diagnosis. ; ERR  BTFSS   FLAG,ERROR      ; Remain as first error encountered  MOVWF   ERCODE          ; Save error code  BSF     FLAG,ERROR      ; Set error flag  RETLW   0 ; ;----------------------------------------------------------------------------- ;       START bus communication routine ;----------------------------------------------------------------------------- ;       input   : none ;       output  : initialize bus communication ;----------------------------------------------------------------------------- ; ;Generate START bit (SCL is high while SDA goes from high to low transition) ;and check status of the serial clock. BSTART  MOVLW   B'00111111'     ; Put SCL, SDA line in output state  TRIS    RB ;***************************************************************************  bsf     RB,SDA          ;make sure sda is high ;***************************************************************************  BSF     RB,SCL          ; Set clock high  MOVLW   1               ; Ready error status code 1  BTFSS   RB,SCL          ; Locked?  CALL    ERR             ; SCL locked low by device  BCF     RB,SDA          ; SDA goes low during SCL high  NOP                     ; Timing adjustment  NOP  NOP  BCF     RB,SCL          ; Start clock train  RETLW   0 ; ;END SUB  PAGE ; ;----------------------------------------------------------------------------- ;       STOP bus communication routine ;----------------------------------------------------------------------------- ;       Input   :       None ;       Output  :       Bus communication, STOP condition ;----------------------------------------------------------------------------- ; ;Generate STOP bit (SDA goes from low to high during SCL high state) ;and check bus conditions. ; BSTOP ;****************************************************************************  MOVLW   B'00111111'     ; Put SCL, SDA line in output state  TRIS    RB ;****************************************************************************  BCF     RB,SDA          ; Return SDA to low  BSF     RB,SCL          ; Set SCL high  nop  nop  nop  MOVLW   1               ; Ready error code 1  BTFSS   RB,SCL          ; High?  CALL    ERR             ; No, SCL locked low by device  BSF     RB,SDA          ; SDA goes from low to high during SCL high  MOVLW   4               ; Ready error code 4  BTFSS   RB,SDA          ; High?  CALL    ERR             ; No, SDA bus not release for STOP  RETLW   0 ; ;END SUB ; ;----------------------------------------------------------------------------- ;       Serial data send from PIC to serial EEPROM, bit-by-bit subroutine ;----------------------------------------------------------------------------- ;       Input   :       None ;       Output  :       To (DI) of serial EEPROM device ;----------------------------------------------------------------------------- ; BITIN  MOVLW   B'10111111'     ; Force SDA line as input  TRIS    RB  BSF     RB,SDA          ; Set SDA for input  BCF     EEPROM,DI  BSF     RB,SCL          ; Clock high  MOVLW   1  BTFSC   RB,SCL          ; Skip if SCL  is high  GOTO    BIT1  BTFSS   FLAG,ERROR      ; Remain as first error encountered  MOVWF   ERCODE          ; Save error code  BSF     FLAG,ERROR      ; Set error flag BIT1  BTFSC   RB,SDA          ; Read SDA pin  BSF     EEPROM,DI       ; DI = 1  NOP                     ; Delay  BCF     RB,SCL          ; Return SCL to low      RETLW   0 ; ;END SUB  PAGE ; ;----------------------------------------------------------------------------- ;       Serial data receive from serial EEPROM to PIC, bit-by-bit subroutine ;----------------------------------------------------------------------------- ;       Input   :       EEPROM file ;       Output  :       From (DO) of serial EEPROM device to PIC ;----------------------------------------------------------------------------- ; BITOUT  MOVLW   B'00111111'     ; Set SDA, SCL as outputs  TRIS    RB  BTFSS   EEPROM,DO  GOTO    BIT0  BSF     RB,SDA          ; Output bit 0  MOVLW   2  BTFSC   RB,SDA          ; Check for error code 2  GOTO    CLK1  BTFSS   FLAG,ERROR      ; Remain as first error encountered  MOVWF   ERCODE          ; Save error code  BSF     FLAG,ERROR      ; Set error flag  GOTO    CLK1            ; SDA locked low by device ; BIT0  BCF     RB,SDA          ; Output bit 0  NOP                     ; Delay  NOP  NOP CLK1  BSF     RB,SCL  MOVLW   1               ; Error code 1  BTFSC   RB,SCL          ; SCL locked low?  GOTO    BIT2            ; No.  BTFSS   FLAG,ERROR      ; Yes.  MOVWF   ERCODE          ; Save error code  BSF     FLAG,ERROR      ; Set error flag BIT2  NOP  NOP  BCF     RB,SCL          ; Return SCL to low  RETLW   0 ; ;END SUB  PAGE ; ; ;----------------------------------------------------------------------------- ;       RECEIVE         DATA    subroutine ;----------------------------------------------------------------------------- ;       Input   :       None ;       Output  :       RXBUF = Receive 8-bit data ;----------------------------------------------------------------------------- ; RX  MOVLW   .8              ; 8 bits of data  MOVWF   COUNT  CLRF    RXBUF ; RXLP  RLF     RXBUF           ; Shift data to buffer  SKPC  BCF     RXBUF,0         ; carry ---> f(0)  SKPNC  BSF     RXBUF,0  CALL    BITIN  BTFSC   EEPROM,DI  BSF     RXBUF,0         ; Input bit =1  DECFSZ  COUNT           ; 8 bits?  GOTO    RXLP  BSF     EEPROM,DO       ; Set acknowledge bit = 1  CALL    BITOUT          ; to STOP further input  RETLW   0 ; ;END SUB ; ;----------------------------------------------------------------------------- ;       TRANSMIT        DATA    subroutine ;----------------------------------------------------------------------------- ;       Input   :       TXBUF ;       Output  :       Data X'mitted to EEPROM device ;----------------------------------------------------------------------------- ; TX  MOVLW   .8  MOVWF   COUNT ; TXLP  BCF     EEPROM,DO       ; Shift data bit out.  BTFSC   TXBUF,7         ; If shifted bit = 0, data bit = 0  BSF     EEPROM,DO       ; Otherwise data bit = 1  CALL    BITOUT          ; Serial data out  RLF     TXBUF           ; Rotate TXBUF left  SKPC                    ; f(6) ---> f(7)  BCF     TXBUF,0         ; f(7) ---> carry  SKPNC                   ; carry ---> f(0)  BSF     TXBUF,0  DECFSZ  COUNT           ; 8 bits done?  GOTO    TXLP            ; No.  CALL    BITIN           ; Read acknowledge bit  MOVLW   3  BTFSC   EEPROM,DI       ; Check for acknowledgement  CALL    ERR             ; No acknowledge from device  RETLW   0 ; ;END SUB  PAGE ; ;----------------------------------------------------------------------------- ;       BYTE-WRITE, write one byte to EEPROM device ;----------------------------------------------------------------------------- ;       Input   :       DATAO= data to be written ;                       ADDR    = destination address ;                       SLAVE   = device address (1010xxx0) ;       Output  :       Data written to EEPROM device ;----------------------------------------------------------------------------- ;  ORG     080             ; The location for BYTE-WRITE routine can be ;                               ; assigned anywhere between (377-777) octal. WRBYTE  MOVF    SLAVE,W         ; Get SLAVE address  MOVWF   TXBUF           ; to TX buffer  CALL    BSTART          ; Generate START bit  CALL    TX              ; Output SLAVE address  MOVF    ADDR,W          ; Get WORD address  MOVWF   TXBUF           ; into buffer  CALL    TX              ; Output WORD address  MOVF    DATAO,W         ; Move DATA  MOVWF   TXBUF           ; into buffer  CALL    TX              ; Output DATA and detect acknowledgement  CALL    BSTOP           ; Generate STOP bit  goto    wrt_end ; ; ; ;----------------------------------------------------------------------------- ;       BYTE-READ, read one byte from serial EEPROM device ;----------------------------------------------------------------------------- ;       Input   :       ADDR    = source address ;                       SLAVE   = device address (1010xxx0) ;       Output  :       DATAI   = data read from serial EEPROM ;----------------------------------------------------------------------------- ;  ORG     0C0             ; The location for BYTE-READ routine can be ;                               ; assigned anywhere between (377-777) octal. RDBYTE  MOVF    SLAVE,W         ; Move SLAVE address  MOVWF   TXBUF           ; into buffer (R/W = 0)  CALL    BSTART          ; Generate START bit  CALL    TX              ; Output SLAVE address. Check ACK.  MOVF    ADDR,W          ; Get WORD address  MOVWF   TXBUF  CALL    TX              ; Output WORD address. Check ACK.  CALL    BSTART          ; START READ (if only one device is  MOVF    SLAVE,W         ; connected to the I2C bus)  MOVWF   TXBUF  BSF     TXBUF,0         ; Specify READ mode (R/W = 1)  CALL    TX              ; Output SLAVE address  CALL    RX              ; READ in data and acknowledge  CALL    BSTOP           ; Generate STOP bit  MOVF    RXBUF,W         ; Save data from buffer  MOVWF   DATAI           ; to DATAI file.  goto    rd_end ; ;Test program to read and write ramdom start  movlw   0AE             ;set A2=A1=A0=1  movwf   SLAVE           ;       /  movlw   2               ;set r/w loc. = 2  movwf   ADDR            ;       /  movlw   55              ;write 55 to SEEPROM  movwf   DATAO           ;       /  goto    WRBYTE          ;write a byte wrt_end  call    delay           ;wait for write     ;operation (internal)  goto    RDBYTE          ;read back data rd_end  movlw   55              ;test if read  xorwf   DATAI,W         ;correct?  btfss   STAT,Z          ;yes then skip wrong    goto    wrong correct  goto    correct ; ;At 2.0Mhz, delay = approx. 3mS. delay  clrf    1F              ;clear last location dly1  nop  nop  nop  decfsz  1F              ;reduce count  goto    dly1            ;loop  retlw   0 ;  org     0x1FF  goto    start ;  END 看《匠人手记》，与匠人同行！北航出版，正在热卖！ 上一篇：PIC：BCD码处理程序 下一篇：PIC:RS232通讯程序 发表评论： 昵称： 密码： (游客无须输入密码) 主页： 标题： 载入中... 芯片专题 器件专题 软件专题 硬件专题 综合专题 项目专题 原创专题 EMC Freescale PIC MSP430  AVR ARM 器件检测 LCD LED 按键 触摸键 E2PROM 电池 电机 电阻 电容 电感 指令系统 软件算法 编程规范 滤波算法 串行通讯 PCB设计 I2C PWM 红外遥控 充电技术 中断 ADC  新手入门 项目管理 电磁兼容 低功耗 汽车电子 电子秤 电磁炉 电动车 报警器 匠人手记 匠人夜话 网络心路 一周热点串烧 从零开始玩PIC DIY旋转时钟 广告5号位 [投放] 学习板、开发板、编程器、下载器、仿真器（查看详情……）

站内搜索 日志标题日志内容 站外搜索 百度  google mp3  歌词  图片  FLASH  知道  文档 新闻  词典  地图  mp3  软件  天网  雅虎  爱问  搜狗  讯雷  网讯  华军  天空  21IC器件搜索 货源价格资料 百宝箱分站 《匠人的百宝箱》21IC站 《匠人的百宝箱》21IC笔记团队 《匠人的百宝箱》MCUBLOG站 《匠人的百宝箱》MCUBLOG笔记团队 《匠人的百宝箱》EDN站 《匠人手记》EDN书友会 《匠人的百宝箱》与非网站 《匠人的百宝箱》新浪站 《匠人的百宝箱》百度站 《匠人的百宝箱》网易126站 《匠人的百宝箱》网易163站 《匠人的百宝箱》互动出版网站 广告4号位 [投放]

新鲜货色	匠人手记	近期动态
载入中...	《匠人手记》购书全攻略   书友近况：淘书手记、答疑与讨论：什么是散转程序   《匠人手记》新书艳照  EDN《匠人手记》签名售书优惠活动开始报名啦！  欢迎加入《匠人手记》EDN书友会  欢迎加入《匠人手记》书友会Q群  《匠人手记》终稿目录  《匠人手记》封面，请大家先睹为快  上周六收到了北航寄来的《匠人手记》清样，让大家先睹为快	《匠人的百宝箱》21IC笔记团队  社区动态：《匠人手记》义拍活动，得款直接捐献灾区  浅谈A/D  太阳能应用图片集粹1  Keil C动态内存管理机制分析及改进  一种触摸实现方式  modelsim仿真UART接收功能  关于射频表无法用红外改写时间的问题  一定要珍惜的十种人  PADS2007安装问题解决方案
匠人原创	粉丝评论	往日酷贴
匠人原创：心灵的震撼——写在512地震之后  社区动态：《戒色》新片发布会(网友聚会恶搞系列)  匠人文集：两粒电子的爱情、出书的那些日子……    匠人夜话：论21ic的论坛文化、续。性格决定命运   选狼还是选狮子、狮子的结局…  《匠人夜话》27：七年之痒—写在升任21icbbs站长之际  匠人自制低成本电容式触控板  匠人漫画：人生，就是一场永无止境的攀登  一阶滤波算法之深入研究	载入中... 载入中...	网络酷文：博客，改变的不仅仅是图书   网络酷文：C语言宏定义技巧、C语言 条件编译详解   21IC上海2008-04聚会报名进行中。。。   两分钟让你明白什么是ERP！[转]   神奇的Duff's Device 算法   实用一线通讯电路及软件设计方法   程序员的“七年之痒”   史上最短但最精彩的武侠小说   网络无厘头文学《缺钙水浒》（爆笑）  你的博客还能持续多久（转贴）  电动车无刷电机控制器软件设计要点（作者:谢渊斌）

大千八卦	友情连接
新浪新闻： 新浪财经： AK58新闻： 新浪股票： 新浪股票： 证券之星： 行情数据 分时走时图 K线分析 新闻资讯 代码查询 BBS论坛 个股资料	[更多酷站连接]     [欢迎交换连接] [百宝箱之与非门分舵] [电脑圈圈的家当] [IC921的博客] [柔月阁] [八楼的呼吸] [hotpower 的水潭] [xwj的文君阁] [所长的BLOG] [阿摆手记] [电子伙伴] [unaided的笔记] [小飞的笔记] [单片机开发联盟] [网址之家] [好东西网址大全] [美萍中文精选] [数字电视之家] [SMARTCODE电子书斋] [软件开发之窗] [Armoric的笔记] [我爱研发网] [infernal的笔记] [雄鹰的空中加油站] [SunK] [逍遥电子] [ningpanda的博客] [C-Design] [一网见天下] [海边淘沙] [嵌入式365] [水牛的仓库] [股剩是怎样炼成的] [PIC论坛] [ICC AVR开发网] [中国高校自动化网]

!!! 《匠人的百宝箱》 !!!