《匠人手记》推荐网上购书渠道： 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读写1-wire EEPROM DS2430的范例程序.asm 程序匠人 发表于 2005-6-3 21:41:00  阅读全文 | 回复(0) | 引用通告 | 编辑 ;-------------------------------------------------------------------- ; ; 1-wire device access ;DS2430 ;memory function ;write scratchpad ;read scratchpad ; ;read memory : ; resource occupy by ICD2 ; PROM 0x1f00 - 0x1fff ; RAM  0x70,0xf0,0x170,0x1e5~0x1f0 ;-------------------------------------------------------------------- ;  master      action ;  0xf0 + start addr(8)  =>  scratchpad(8) -->  master ;  none           =>  scratchpad(9) -->  master ;  none            => scartchpad(a) -->  master ;   ;  none            => scratchpad(0x1f)-->  master[wrap around] ;  reset pulse           =>    stop sending data ; ;  0xf0+reset pulse      =>  EEPROM(0x00-0x1F) --> scratchpad(0x00-0x1F) ; copy scratchpad ;  master ;  0x55 + 0xa5  =>  scratchpad(000-0x1f) --> EEPROM(0x00-0x1F) ;  held hi for 10ms  ;     0xf0 + reset pulse => copy whole from EEPROM to SCRATCHPAD ;        use timer as a delay timer ; ;  author : Rex Chen ;  date : May,8th ;  ver  : 1.81 ;    list p=16F877A ＃i nclude p16f877a.inc  __CONFIG _CPD_OFF & _CP_ALL & _DEBUG_ON & _BODEN_OFF & _LVP_OFF & _PWRTE_OFF & _WDT_OFF & _XT_OSC     #define OneWireDHi bsf PORTC,Bit2 #define OneWireDLo bcf PORTC,Bit2       #define CARRY  STATUS,C #define ZERO  STATUS,Z Bit0  equ H'0000' Bit1  equ H'0001' Bit2  equ H'0002' Bit3  equ H'0003' Bit4  equ H'0004' Bit5  equ H'0005' Bit6  equ H'0006' Bit7  equ H'0007' ;variable defination  cblock  0x20  ; RAM area 0x20- 0x7f  SYSFLAG  TxB      ; Command buffer been send  TxBuffer    ; data buffer been send  RxB      ; Command buffer been received  TempB     ; Temp Byte to roll the data  LoopCounter  Addr     ; address to access BQ2430A  PBDir     ; port C direction log file   PADir     ; port A direction log file  Temp  ErrCode     ;  W_SAVE  STATUS_SAVE  TxBuf:8     ; Tx Temp buffer  Offset  endc       ;;  cblock 0xa0  SARS1  SARS2  SARS3  endc     cblock 0x100  HateSARS1  HateSARS2  HateSARS3  HateSARS4  endc    cblock 0x190  SARSIsAPig0  SARSIsAPig1  SARSIsAPig2  SARSIsAPig3  SARSIsAPig4  SARSIsAPig5  endc      ;---------------- SYSFLAG ---------------------------------- fTxHi  equ  H'0000' fTxLo  equ  H'0001' fRxMode  equ  H'0002' ;; ;; ;; there are 4 memory block ;; 1. EEPROM & 2. memory scratchpad ;; 3. application register ;; 4.register scratchpad ;; aliase ;; ;; memory function ;; write memory scratch ;; read memory scratch ;; copy memory scratch to EEPROM ;; read EEPROM to memory scratch ;; WScratch equ  H'0F'  ; 0x0f + Addr + data + data + .+ reset pulse         ; // [Master --> ScratchPad ] RScratch equ  H'AA'  ; 0xaa + Addr + R + R +.. + reset pulse         ; // [ScratchPad --> Master ] CPScratch equ  H'55'  ; 0x55 + 0xa5 + hi 10ms   // [ScratchPad --> EEPROM ] REEROM  equ  H'F0'  ; 0xf0 + Addr +R +R + reset pulse         ; // [EEPROM(addr) --> ScratchPad]         ; 0xf0 + reset pulse  // [EEPROM --> ScratchPad] ;; application register , application register is OTP, there are 7 bytes ;; pay attention when you use application register , it's a 64 bit OTP WApR  equ  H'99'  ; 0x99 + Addr + data + data .. + reset pulse         ; [Master  --> Application Reg] RStatus  equ  H'66'  ; 0x66 + 0x00 + status + reset pulse RApR  equ  H'C3'  ; 0xc3 + addr + data + .. + reset pulse         ; application register --> master  ( locked)         ; register scratchpad  --> master  ( not lock) LockAp  equ  H'5A'  ; 0x5A + 0xa5         ; [ register scratchpad --> application register]         ; 0x5A + reset pulse cancel copy command         ; a OTP type do once only               AppLocked equ  B'11111100' ; application locked, the value is data in the status                   ;; ROM function command// implement skip rom only SkipROM  equ  H'CC' ;access memory directly SerachROM equ  H'f0' ;read a bit , read the complement of the bit,write bit MatchROM equ  H'55' ;0x55 + 64 bit rom bit   ReadROM  equ  H'33' ;[family code & serial number & CRC ==> master ]      org   H'00'    nop    goto main     ;;ISR  **    org  H'04'    goto isr    isr     movwf W_SAVE    ;; W_SAVE=W    swapf STATUS,W   ;;    movwf STATUS_SAVE   ;; STATUS_SAVE=STATUS[3:0]& STATUS[7:4]    btfss PIR1,TMR1IF   ;; TMR1IF    goto exit_int_source_check           ;; timer 1 service              nop    nop    nop    nop                       exit_int_source_check     ;; restore STATUS & W before exit from    swapf STATUS_SAVE,W  ;; W=STATUS_SAVE=STATUS[3:0]& STATUS[7:4]    movwf STATUS         swapf W_SAVE,F   ;; restore W    swapf W_SAVE,W              retfie ;; ISR   &&&    main                call init   call init_int_en   movlw H'21'   movwf FSR   movlw H'3c'   movwf INDF     ; ;-----------------------------------------------   ;---------  read test --------------------------   ;----------------------------------------------- ;  movlw H'00' ;  banksel Addr ;  movwf Addr  ;  call RdDS2430    ;  movlw H'01' ;  banksel Addr ;  movwf Addr  ;  call RdDS2430 ;   ;  movlw H'02' ;  banksel Addr ;  movwf Addr  ;  call RdDS2430 ;------------------------------------------------   ;  banksel Offset ;  clrf Offset  ;  pagesel VendorTable  ;  call VendorTable ;  movwf Temp ;   ;      movlw H'00'   banksel Addr   movwf Addr     movlw H'34'   banksel TxBuffer   movwf TxBuffer   call WrDS2430      movlw H'01'   banksel Addr   movwf Addr   movlw H'35'     banksel TxBuffer   movwf TxBuffer   call WrDS2430        movlw H'02'   banksel Addr   movwf Addr   movlw H'36'   banksel TxBuffer   movwf TxBuffer   call WrDS2430           ;-------- read address 0 --------------------------     movlw H'00'   movwf Addr    call RdDS2430      goto $      ;---------------------------------------------- ; template to init before write ; to DS2430 ;-----------------------------------------------   ;  movlw H'00' ;  movwf Addr   ;  movlw H'3C' ;  movwf TxBuffer      ;--------------------------------------------- ; write DS2430 one byte ; input ; Addr = starting address to write ; TxB  = data to save ; output = ; ErrCode = 0 -> write ok ;   = 1 -> write fail ;-----------------------------------------------  WrDS2430     call WrScratchPAD   call CP2EE   return ;------------------------------------------------ ; template to init before read ; to DS2430 ;-------------------------------------------------   ;   movlw H'00' ;  movwf Addr    ;------------------------------------------------- ; read DS2430 one byte ; input ; Addr = starting address to read ; output ; RxB  = data to read ;-------------------------------------------------- RdDS2430   call REE2ScratchPAD     call HostRdScratchPAD   return   ;;---------  host read scratch pad ---------------------------- ;; save desired data into RxB ;; ;;--------------------------------------------------------------    HostRdScratchPAD   call  DS2430AInitState   banksel TxB   movlw SkipROM   movwf TxB     call  TxBYTE    ; SkipROM      movlw RScratch   ; read scratch PAD Command   movwf TxB   call TxBYTE      movf Addr,W    ; starting address to read   movwf TxB   call TxBYTE        call R2430A    ; read desired scratch pad into RxB   call    RstPulse    return       ;-------------- write memory scratch scratch pad ------------------------ ; write one byte into scratch PAD ; input ; Addr   = starting address to write ; TxBuffer = data to save ; output  ; ErrCode = 0 -> write ok ;   = 1 -> write fail ;--------------------------------------------------------------------------- WrScratchPAD   call DS2430AInitState   movlw SkipROM    ; 0xCC   movwf TxB   call  TxBYTE    ; SkipROM      movlw WScratch   ; write memory scratch pad, 0x0f   movwf TxB   call TxBYTE      movf Addr,W    ; starting address of memory scratch pad   movwf TxB     ; TxBYTE use TxB   call TxBYTE      movf TxBuffer,W   ;   movwf TxB   call TxBYTE       call RstPulse   ; reset pulse   call delay500us   ; wait presence pulse       return      ;---------- CP2EE ---copy whole scratch pad to EE ---------------------- ;  write memory scratch ;  verify memory scratch ;  copy memory scratch to EE ;---------------------------------------------------------------------- CP2EE   call  DS2430AInitState ; 0x55 + 0xa5 + hi 10ms // [ScratchPad -> EEPROM ]     banksel TxB   movlw SkipROM   movwf TxB     call  TxBYTE    ; SkipROM   movlw CPScratch   ; 0x55   movwf TxB   call TxBYTE   movlw H'a5'   movwf TxB   call TxBYTE   call ForceHi    ; min 10ms refter to datasheet   return ;--------- REE2ScratchPAD --- copy whole EE to ScrathPAD ---------------- ;  copy EE to whole memory scatch ;  read memory scratch ;format I:  0xf0 + Addr +R +R + reset pulse, copy byte by byte ;format II:  0xf0 + Addr + reset pulse, copy whole ;------------------------------------------------------------------------ REE2ScratchPAD   call  DS2430AInitState   banksel TxB   movlw SkipROM   movwf TxB     call  TxBYTE    ; SkipROM   movlw REEROM    ;; Read from EE into ScratchPAD   movwf TxB   call TxBYTE    ;;   call    RstPulse   ;; copy all   return    ;----------R2430A ---- Host read the scratch PAD ------------------------ ; Read 2430A Scratch PAD ; LSB first ;   save the result in RxB ;------------------------------------------------------------------------ R2430A               ; returns byte in RxB   movlw .8   movwf LoopCounter         clrf RxB RLoop   call  SetLo   ;         nop   call  SetHi   ; it will pull up by resistor   nop      ; delay to sample reliable bit   nop   nop   nop   nop   nop   nop   nop   nop   nop   nop           nop         nop         nop         nop                 banksel PORTB         movf PORTB,W         movwf Temp         btfss Temp,Bit2   goto gLo   bsf  CARRY   goto rol gLo     bcf  CARRY rol     banksel RxB         rrf  RxB,F         call delay60us  ; tdrv + trelease         banksel LoopCounter         decfsz LoopCounter,F         goto RLoop         movf RxB,W   ; save the result in W         return     ;---------------------------------------------------------- ; strong pull up ; ;---------------------------------------------------------- ForceHi   bsf  PBDir,Bit2   movf PBDir,W   ;; input   banksel TRISB   movwf TRISB   ;; set input, pull by external resistor   call delay100ms   bcf  PBDir,Bit2  ;; output   movf PBDir,W   movwf TRISB         return ;------------------------------------------------------------- ; reset pulse ; ;-------------------------------------------------------------- RstPulse   call SetHi    call SetLo   call delay500us   call    SetHi   ;Pull up by resistor   return ;--------------------------------------------------------------- ; reset pulse followed presence pulse ;  ;--------------------------------------------------------------- DS2430AInitState         call SetHi         call SetLo         call delay500us   ; reset pulse   call SetHi   call delay500us   ; presence pulse, pull up by resistor   return ;-----------------------------------------------------------------------     init  movlw H'3f'  movwf PBDir   ; 0x00111111  banksel TRISB  movwf TRISB   ; force all portC as input  ; movlw b'00000000'  ; GP2 pull-up,GP4 output ; movwf WPU    ; connect the D of DS2430A to Port A ;-------------------------------------------------------------------- ;  toggle from bank0 to bank1 ;   option register ;   7:  1: port A pull-up OFF, 0:port A pull-up ON ;   6:  1: rising INT , 0:fall INT ;   5:  1: T0CKI to TMR0, 0: internal cycle to TMR0 ; 4:  1: Hi to Lo count 0: Lo to Hi count ; 3:  1: Precale to WDT 0: Prescale to TMR0 ;   2:0 prescale value ;---------------------------------------------------------------------    movlw b'11000010'  ;; pull-up ON,rising INT, internal cycle to TMR0,Lo to Hi count,Pre to TMR0,1:8  movwf OPTION_REG  ;; ,prescal over 8  banksel INTCON  clrf INTCON  clrf PORTB  movlw 0x07   ;; comparator off  movwf CMCON   ;; comparator off   clrf TMR0 ;;-------------------------------------------------------- ;; 7: X ;; 6:    1: Timer1 on if T1G\ ;; 5:4   : 11:/8,10:/4,01:/2,00:/1 ;;  3 :   1 LP for timer 1 on, 0: LP for timer1 of ;;  2 :   1 do not sync external , 0 sync external clock ;; 1 :   1: clock source external , 0: clock source internal   ;; 0 :   1: enable timer 1 ,0: disable timer 1 ;;---------------------------------------------------------   ; movlw b'00000000'  ;x,no gate control,over 8,LP osc to timer1 off,x,internal clock,stop timer ; movwf T1CON  movlw b'00111000'  movwf T1CON  clrf PIR1   return   ;;-------------------------  ;; init interrup enable, ;;------------------------- init_int_en    banksel INTCON  bsf INTCON,GIE   ;; GIE=1  bcf INTCON,PEIE   ;;  bcf INTCON,T0IE   ;; T0IE=1  bcf INTCON,INTE   ;; GP2 interrupt enable ; bcf INTCON,RAIE   ;; disable GPIO port change interrupt ;------------------------------------------------ ; clear int flag ;------------------------------------------------   bcf INTCON,T0IF  bcf INTCON,INTF ; bcf INTCON,RAIF   bcf PIR1,TMR1IF   ; movlw H'00' ; movwf INTCON   banksel PIE1  bcf PIE1,EEIE  bcf PIE1,ADIE  bcf PIE1,CMIE  bsf PIE1,TMR1IE   ; enable Timer 1, timer 1 use as delay  return      ;-------------------------------------------- ; Tx BYTE to 2430A ; LSB first, MSB last ;-------------------------------------------- TxBYTE  movlw .8     movwf LoopCounter     bcf  CARRY RollTxB  banksel TxB  rrf  TxB,F  btfss CARRY  goto LoBit  call TxHi  goto bloop LoBit   call TxLo bloop   banksel LoopCounter  decfsz LoopCounter,F  goto RollTxB     return ;;--------------------------------------------------------- TxLo:  call SetLo  call delay60us   ; min 60 us     call SetHi     nop       ; recovery time min 1us     nop       return ;----------------------------------------------------------- ; tx hi ;----------------------------------------------------------- TxHi:  call SetLo    ;1us<tlow1<15us  nop  call SetHi     call delay60us     nop     nop       ;recovery time min 1us  return ;;--------------------------------------------------------------------------- ;;  toggle the RC0 as input and the bus was pulled up by externl resistor ;;  application default PCDir.Bit0 to output ;;--------------------------------------------------------------------------- SetHi:   bsf  PBDir,Bit2   movf PBDir,w ;  bsf  bank1   banksel TRISB   movwf TRISB   return ;;---------------------------------------------------------------------------- ;;  clear register file RC0 ;;---------------------------------------------------------------------------- SetLo:   banksel PORTB   bcf  PORTB,Bit2  ; data lo   bcf  PBDir,Bit2  ; direction out   movf PBDir,W   banksel TRISB   movwf TRISB                return         ;--------------------------- ; fix delay 60 us ; 0xffff - 8 = 0xfff7 ;--------------------------- delay60us  banksel PIR1  bcf  PIR1,TMR1IF  movlw H'EE'  movwf TMR1L  movlw H'FF'  movwf TMR1H  bsf  T1CON,TMR1ON  btfss PIR1,TMR1IF  goto $-1  bcf  T1CON,TMR1ON  bcf  PIR1,TMR1IF  return  ;--------------------------- ; fix delay 500 us ; 0xffff - 0x3e = 0xffc1 ;--------------------------- delay500us  banksel PIR1  bcf  PIR1,TMR1IF   movlw H'C0'  movwf TMR1L  movlw H'FF'  movwf TMR1H  bsf  T1CON,TMR1ON  btfss PIR1,TMR1IF  goto $-1  bcf  T1CON,TMR1ON  bcf  PIR1,TMR1IF   return    ;--------------------------- ; fix delay 100 ms ; 0xffff - 30d4 = 0xcf26 ;--------------------------- delay100ms  banksel PIR1  bcf  PIR1,TMR1IF  movlw H'26'  movwf TMR1L  movlw H'CF'  movwf TMR1H  bsf  T1CON,TMR1ON  btfss PIR1,TMR1IF  goto $-1  bcf  T1CON,TMR1ON  bcf  PIR1,TMR1IF   return       org  H'800' VendorTable  movf Offset,W  ; Save offset in Temp  andlw H'ff'  addwf PCL,f   ; PCL = PCL+Offset     dt  "MiCallChip",0   end    看《匠人手记》，与匠人同行！北航出版，正在热卖！ 上一篇：一些实用的单片机c程序 下一篇：以組合语言完成读写24LCxx系列的EEPROM的实例.asm 发表评论： 昵称： 密码： (游客无须输入密码) 主页： 标题： 载入中... 芯片专题 器件专题 软件专题 硬件专题 综合专题 项目专题 原创专题 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开发网] [中国高校自动化网]

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