;该汇编程序实现CAN总线通讯发送缓冲器0向接收缓冲器0发送数据的自测试模式， 单片机 采用P18F458，其中接收采用中断方式，发送采用查询方式，本例的c51程序请打开 http://www.51hei.com/mcu/555.html ，流程和这个一样的。
LIST P=18F458
INCLUDE "P18F458.INC"
CAN_FLAG EQU 0X20 ;定义标志寄存器
ORG 0X00
GOTO MAIN
ORG 0X18
GOTO CAN_INTSERVE ;转向中断服务子程序
ORG 0X30
;*********初始化子程序***************
INITIAL
BCF TRISB，2
BSF TRISB，3 ;设置CANRX/RB3为输入
;CANTX/RB2为输出
;设置CAN的波特率为125K，在Fosc=4M时，Tbit=8us，假设BRP=01h，则
;TQ=[2*（1+BRP）]/Fosc=2*（1+1）/4=1us。
;NOMINAL BIT RATE=8TQ，SJW=1，Sync_Seg=1TQ，Prog _Seg=1TQ，Phase_Seg1=3TQ，Phase_Seg2=3TQ
MOV LW 0X80
MOV WF CANCON ;请求进入CAN配置模式REQOP=100
WAIT
BTFSS CANSTAT，OPMODE2 ;等待进入CAN配置模式OPMODE=100
GOTO WAIT
MOV LW 0X01
MOV WF BRGCON1 ;设置SJW和BRP，SJW=1TQ，BRP=01H
MOV LW 0X90
MOV WF BRGCON2 ;设置Phase_Seg1=3TQ和Prog _Seg=1TQ
MOV LW 0X42
MOV WF BRGCON3 ;设置Phase_Seg2=3TQ
;设置发送邮箱0标识符号和发送的数据
MOV LW 0XFF
MOV WF BSR ;TXB0D0到TXB0D7的地址在F60h以内，需
;要指定BSR
MOV LW 0X08
MOV WF TXB0DLC ;设置数据长度为8个字节
MOV LW 0X00
MOV WF TXB0D0
MOV LW 0X01
MOV WF TXB0D1
MOV LW 0X02
MOV WF TXB0D2
MOV LW 0X03
MOV WF TXB0D3
MOV LW 0X04
MOV WF TXB0D4
MOV LW 0X05
MOV WF TXB0D5
MOV LW 0X06
MOV WF TXB0D6
MOV LW 0X07
MOV WF TXB0D7 ;写发送缓冲器数据区的数据
MOV LW 0XFF
MOV WF TXB0SIDH
MOV LW 0XE0
MOV WF TXB0SIDL ;设置发送缓冲器0的标准标识符，本程序采用
;标准识符
;设置接收邮箱0的标识符和初始化数据
MOV LW 0XFF
MOV WF RXB0SIDH
MOV LW 0XE0
MOV WF RXB0SIDL ;设置接收缓冲器0的标识符
MOV LW 0XFF
MOV WF RXF0SIDH
MOV LW 0XE0
MOV WF RXF0SIDL ;初始化接收滤波器0
MOV LW 0X00
MOV WF RXM0SIDH
MOV LW 0X00
MOV WF RXM0SIDL ;初始化接收屏蔽
MOV LW 0X20
MOV WF RXB0CON ;仅仅接收标准标识符的有效信息，FILHIT0=0
;表示RXB0采用fiLTEr0
MOV LW 0X08
MOV WF RXB0DLC ;设置接收缓冲器0的数据区长度
MOV LW 0X00
MOV WF RXB0D0
MOV WF RXB0D1
MOV WF RXB0D2
MOV WF RXB0D3
MOV WF RXB0D4
MOV WF RXB0D5
MOV WF RXB0D6
MOV WF RXB0D7 ;初始化接收缓冲器0的数据区数据
;初始化CAN模块的I/O控制寄存器
MOV LW 0X00
MOV WF CIOCON
;使CAN进入某种工作模式模式
MOV LW 0X00
MOV WF CANCON ;=0X40，进入自测试模式;
;=0x00，正常操作模式
WAIT1
MOV F CANSTAT
ANDLW 0XE0
SUBLW 0X00
BTFSS STATUS，Z ;等待进入CAN正常操作模式OPMODE=000
;或测试模式OPMODE=010
GOTO WAIT1
;初始化CAN的中断
MOV LW 0X00
MOV WF PIR3 ;清所有中断标志
BSF PIE3，RXB0IE ;使能接收缓冲器0的接收中断
MOV LW 0X01
MOV WF IPR3 ;接收缓冲器0的接收中断为最高优先级
RETURN
;*********接收缓冲器0接收中断服务程序***********
CAN_INTSERVE
BTFSS PIR3，RXB0IF
GOTO ERR_EXIT
BSF CAN_FLAG，0
BCF PIR3，RXB0IF ;清接收中断标志
BCF RXB0CON，RXFUL ;打开接收缓冲器来接收新信息
ERR_EXIT
RETFIE
;****************PIC 单片机 CAN总线通讯汇编程序主程序******************
;****************此程序首发于 http://www.51hei.com/ 单片机 网 转载请保留
MAIN NOP
CLRF INTCON ;禁止所有中断
CALL INITIAL ;初始化
BSF INTCON，GIE
BSF INTCON，PEIE ;使能中断
MOV LW 0X03
MOV WF TXB0CON ;发送优先级为最高优先级，TXPRI=11
LOOP
BSF TXB0CON，TXREQ ;请求发送，TXREQ=1
WAITE2
BTFSS PIR3，TXB0IF ;等待发送完成
GOTO WAITE2
BCF PIR3，TXB0IF
WAITE3
BTFSS CAN_FLAG，0 ;等待接收数据
GOTO WAITE3
BCF CAN_FLAG，0 ;清接收到标志
BCF TXB0CON，TXREQ ;禁止发送
INCF RXB0D0，0
MOV WF TXB0D0
INCF RXB0D1，0
MOV WF TXB0D1
INCF RXB0D2，0
MOV WF TXB0D2
INCF RXB0D3，0
MOV WF TXB0D3
INCF RXB0D4，0
MOV WF TXB0D4
INCF RXB0D5，0
MOV WF TXB0D5
INCF RXB0D6，0
MOV WF TXB0D6
INCF RXB0D7，0
MOV WF TXB0D7 ;用接收数据加1来更新发送数据
GOTO LOOP
RETURN
END
本文关键字：单片机 PIC单片机，单片机-工控设备 - PIC单片机
