《匠人手记》推荐网上购书渠道:
互动出版网(china-pub)购书入口   >>>
当当网(dangdang)购书入口   >>>
卓越亚马逊网 购书入口   >>>
淘宝网(taobao)购书入口   >>>
更多购书渠道……   >>> 

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

天气预报
百宝日历
载入中...

百宝专栏

载入中...
最新货色

载入中...

粉丝评论

载入中...

载入中...



百宝信息

载入中...

百宝流量

(2006-07-01开始)


匠人手记

 匠人观点: 好记性不如烂笔头  
 黑色幽默:三鹿门——后世畅想

又一个网上找来的CAN程序
程序匠人 发表于 2006-7-28 19:32:00  阅读全文 | 回复(0) | 引用通告 | 编辑

 最简单的CAN测试程序,一个节点发,一个节点收,已经调试通过。 
 
  #i nclude <P18F248.INC>
;发送数据是08H

;*************LOCAL MACROS***************
CONFIGURE_MODE MACRO
  BSF CANCON,REQOP2
  ENDM
 
NORMAL_MODE  MACRO                                                                                                   
  BCF CANCON,REQOP2
  BCF CANCON,REQOP1
  BCF CANCON,REQOP0 
  BCF CANCON,ABAT
  ENDM
 

;******************复位矢量中断向量*************
  ORG 000h 
  NOP
  GOTO MAIN


;*****************主程序*************************
MAIN
  CALL CLR_BANK  ;CLEAR ALL BANK 0,1,2,15
 
;**********开始进入传输初始化的设定***************
SETUP
  MOVLB 0FH   ;BANK 15
  MOVLW B'11000000'  ;ENABLE ALL
  MOVWF INTCON   ;enable gie
  MOVLW B'00000000'  ;  MOVWF PIE3
  CALL SET_PORT  ;set  port
  CALL TXB0_IDENTIFIER  ;TXB0 FILTER
  CALL RXB0_FILTER0  ;RXB0 FILTER0
  CALL BAUD_RATE  ;50KB/S
  NORMAL_MODE   ;NORMAL MODE

  MOVLW 08h   ;发数据,现在是08H
  MOVWF TXB0D0
  BSF TXB0CON,TXREQ
  BTFSS PIR3,TXB0IF  ;判断是否发出去
  GOTO $-2
  BCF PIR3,TXB0IF

 
STOP
 
  NOP
  GOTO STOP
 
;******************RXB0 FILTER0****************
;RXB0_FILTER0
;  STANDARD FRAME
;PORTA 低五位作为ID的高五位
;*********************************************
RXB0_FILTER0
  CONFIGURE_MODE
  BCF  RXB0CON,RXM1
  BCF  RXB0CON,RXM0
  ;0,0 FILTER 有效
  ;0,1 ONLY STANDARD FRAME
  ;1,1 RECEIVE ALL
  ;1,0 ONLY EXTERN  FRAME
  MOVLW B'10101111'
  MOVWF RXF0SIDH
   MOVLW b'11100000'
  MOVWF RXF0SIDL
  MOVLW B'11111111'  ;识别位XXXXX000111
  MOVWF RXM0SIDH
  MOVLW B'11111111'  ;全部起作用
  MOVWF RXM0SIDL  ;进行屏蔽位设定,全部为11
  RETURN

     
;*********设置TXB0  IDENTIFIER***********************
;TXB0_IDENTIFIER
;***************************************************
TXB0_IDENTIFIER
  BCF  TXB0CON,TXPRI1
  BCF  TXB0CON,TXPRI0  ;high interrupt
  MOVLW B'10101111'
  MOVWF TXB0SIDH
  MOVLW B'11100000'     ;标志位是XXXXX000111
  MOVWF TXB0SIDL
  MOVLW B'00000001'
  MOVWF TXB0DLC   ;数据帧 6,txrtr是零 
  RETURN

;***********SET_PORT******************************
SET_PORT
 
  ;********PORTB********
  ;RB0 OUT
  ;RB1 OUT
  ;RB2 OUT TXCAN
  ;RB3 IN RXCAN
  ;RB4 IN
  ;RB5 IN
  ;RB6  ICD2
  ;RB7  ICD2
  CLRF LATB
  MOVLW B'00001000'
  MOVWF TRISB
  ;*******PORTC*********
  ;RC0 OUT  RC0-RC7 ALL OUT
  ;RC1 OUT
  ;RC7 OUT
  CLRF LATC
  MOVLW B'00000000'
  MOVWF TRISC
  RETURN

;**************BAUD RATE SET******************  
;  FOSC =4MHZ  
;   NOMINAL BIT TIME = 8 TQ
;  TQ=2*(BAUD RATE +1)/FOSC
;  SYN  =1 TQ,PRO=1TQ,PHE1=3TQ,PHE2=3TQ
;  BAUD RATE= 50KB/S
;  BAUD RATE PRESCALER=00100
;   fosc =4mhz MAX_baud rate=250kb/s
;  If fosc=16Mhz ,the max_band=1Mkb/s
;************************************************
BAUD_RATE      ;50KB/S
  CONFIGURE_MODE
  MOVLW B'00000100'  ;BAUD RATE SET
  MOVWF BRGCON1
  MOVLW B'10010000'
  MOVWF BRGCON2
  MOVLW B'00000010'
  MOVWF BRGCON3 
  RETURN

;**********CLEAR BANK************************
CLR_BANK
  LFSR FSR0,00H  ;BANK 0
NEXT CLRF POSTINC0
  BTFSS FSR0H,0
  GOTO NEXT
  LFSR FSR0,100H
NEXT1 CLRF POSTINC0  ;BANK1
  BTFSS FSR0H,1
  GOTO NEXT1
  LFSR FSR0,200H
NEXT2 CLRF POSTINC0  ;BANK 2
  BTFSS FSR0H,0
  GOTO NEXT2
  LFSR FSR0,0F00H
NEXT3 CLRF POSTINC0  ;BANK 15
  BTFSS FSR0L,7 
  GOTO NEXT3
  RETURN
    END


#i nclude <P18F248.INC>
; 接收数据
;*************LOCAL MACROS***************
CONFIGURE_MODE MACRO
  BSF CANCON,REQOP2
  ENDM
NORMAL_MODE  MACRO
  BCF CANCON,REQOP2
  BCF CANCON,REQOP1
  BCF CANCON,REQOP0 
  BCF CANCON,ABAT
  ENDM

;******************复位矢量中断向量*************
  ORG  000h 
  NOP
  GOTO  MAIN
  ORG  0008h
 
RXB0_INTERRUPT
  BCF  RXB0CON,RXFUL  ;必须清零,否则会溢出到RXB1D0
  BCF  PIR3,RXB0IF
  MOVFF  RXB0D0,PORTC ;接收到放到PORTC显示
 
  RETFIE

;*****************主程序*************************
MAIN
  CALL CLR_BANK  ;CLEAR ALL BANK 0,1,2,15
 
;**********开始进入传输初始化的设定***************
SETUP
  MOVLB 0FH   ;BANK 15
  MOVLW B'11000000'  ;ENABLE ALL
  MOVWF INTCON   ;enable gie
  MOVLW B'00000001'  ;ONLY ENABLE RXB0IE
  MOVWF PIE3
  CALL SET_PORT  ;set  port
  CALL RXB0_FILTER0  ;RXB0 FILTER0
  CALL BAUD_RATE  ;250KB/S
  NORMAL_MODE    ;NORMAL MODE
 
STOP
  NOP
  GOTO STOP
 
;******************RXB0 FILTER0****************
;RXB0_FILTER0
;  STANDARD FRAME
;*********************************************
RXB0_FILTER0
  CONFIGURE_MODE
  BCF  RXB0CON,RXM1
  BCF  RXB0CON,RXM0
  ;0,0 FILTER 有效
  ;0,1 ONLY STANDARD FRAME
  ;1,1 RECEIVE ALL
  ;1,0 ONLY EXTERN  FRAME
  MOVLW B'10101111'
  MOVWF RXF0SIDH;
   MOVLW b'11100000'
  MOVWF RXF0SIDL
  MOVLW B'11111111'  ;识别位XXXXX000111
  MOVWF RXM0SIDH
  MOVLW B'11111111'  ;全部起作用
  MOVWF RXM0SIDL  ;进行屏蔽位设定,全部为11
  RETURN


;***********SET_PORT******************************
SET_PORT
 
  ;********PORTB********
  ;RB0 OUT
  ;RB1 OUT
  ;RB2 OUT TXCAN
  ;RB3 IN RXCAN
  ;RB4 IN
  ;RB5 IN
  ;RB6  ICD2
  ;RB7  ICD2
  CLRF LATB
  MOVLW B'00001000'
  MOVWF TRISB
  ;*******PORTC*********
  ;RC0 OUT  RC0-RC7 ALL OUT
  ;RC1 OUT
  ;RC7 OUT
  CLRF LATC
  MOVLW B'00000000'
  MOVWF TRISC
  RETURN
;**************BAUD RATE SET******************  
;  FOSC =4MHZ  
;   NOMINAL BIT TIME = 8 TQ
;  TQ=2*(BAUD RATE +1)/FOSC
;  SYN  =1 TQ,PRO=1TQ,PHE1=3TQ,PHE2=3TQ
;  BAUD RATE= 50KB/S
;  BAUD RATE PRESCALER=00100
;   fosc =4mhz MAX_baud rate=250kb/s
;  If fosc=16Mhz ,the max_band=1Mkb/s
;************************************************
BAUD_RATE      ;50KB/S
  CONFIGURE_MODE
  MOVLW B'00000100'  ;BAUD RATE SET
  MOVWF BRGCON1
  MOVLW B'10010000'
  MOVWF BRGCON2
  MOVLW B'00000010'
  MOVWF BRGCON3 
  RETURN

;**********CLEAR BANK************************
CLR_BANK
  LFSR FSR0,00H  ;BANK 0
NEXT CLRF POSTINC0
  BTFSS FSR0H,0
  GOTO NEXT
  LFSR FSR0,100H
NEXT1 CLRF POSTINC0  ;BANK1
  BTFSS FSR0H,1
  GOTO NEXT1
  LFSR FSR0,200H
NEXT2 CLRF POSTINC0  ;BANK 2
  BTFSS FSR0H,0
  GOTO NEXT2
  LFSR FSR0,0F00H
NEXT3 CLRF POSTINC0  ;BANK 15
  BTFSS FSR0L,7 
  GOTO NEXT3
  RETURN
  
   END

 

看《匠人手记》,与匠人同行!北航出版,正在热卖!

发表评论:
载入中...

芯片专题

器件专题

软件专题

硬件专题

综合专题

项目专题

原创专题

器件检测
LCD LED
按键 触摸键
E2PROM
电池 电机
电阻 电容 电感

指令系统
软件算法
编程规范
滤波算法
串行通讯

PCB设计
I2C PWM
红外遥控
充电技术
中断 ADC 

匠人手记
匠人夜话
网络心路
一周热点串烧
从零开始玩PIC
DIY旋转时钟

广告5号位 [投放]


学习板、开发板、编程器、下载器、仿真器(查看详情……)

广告3号位 [投放]

站内搜索


站外搜索


百度  google
mp3  歌词 
图片  FLASH 
知道  文档
新闻  词典 
地图  mp3 
软件  天网 
雅虎  爱问 
搜狗  讯雷 
网讯  华军 
天空 

21IC器件搜索
百宝箱分站
  • 《匠人的百宝箱》21IC站
  • 《匠人的百宝箱》21IC笔记团队
  • 《匠人手记》21IC书友会
  • 《匠人的百宝箱》MCUBLOG站
  • 《匠人的百宝箱》MCUBLOG笔记团队
  • 《匠人的百宝箱》EDN站
  • 《匠人手记》EDN书友会
  • 《匠人的百宝箱》与非网站
  • 《匠人的百宝箱》新浪站
  • 《匠人的百宝箱》百度站
  • 《匠人的百宝箱》网易126站
  • 《匠人的百宝箱》网易163站
  • 《匠人的百宝箱》互动出版网站
  • 广告4号位 [投放]

     
     

    匠人原创

    往日酷贴

     
     
     

    大千八卦

    友情连接

    新浪新闻:
    新浪财经:
    AK58新闻:
    新浪股票:
    新浪股票:
    证券之星:

     [更多酷站连接]

     

     

    [欢迎交换连接]

    [百宝箱之与非门分舵]

    [电脑圈圈的家当]

    [IC921的博客]

    [柔月阁]

    [八楼的呼吸]

    [hotpower 的水潭]

    [xwj的文君阁]

    [所长的BLOG]

    [阿摆手记]

    [电子伙伴]

    [unaided的笔记]

    [小飞的笔记]

    [单片机开发联盟]

    [网址之家]

    [好东西网址大全]

    [美萍中文精选]

    [数字电视之家]

    [SMARTCODE电子书斋]

    [软件开发之窗]

    [Armoric]

    [我爱研发网]

    [infernal的笔记]

    [雄鹰的空中加油站]

    [SunK]

    [逍遥电子]

    [ningpanda的博客]

    [C-Design]

    [一网见天下]

    [海边淘沙]

    [嵌入式365]

    [水牛的仓库]

    [股剩是怎样炼成的]

    [PIC论坛]

    [ICC AVR开发网]

    [中国高校自动化网]

     

     

     

    MCU博客-中国电子工程师博客网 

    大学生电子网 

     

     

     

     

     

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