can 的调试程序.txt

单片机开发源代码集锦 31例

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= 250KB/S
; BAUD RATE PRESCALER=00000
; fosc =4mhz MAX_baud rate=250kb/s
; If fosc=16Mhz ,the max_band=1Mkb/s
;01.05,使用600米长的总线，发现接受不到数据。估计是波特率太高，换低的波特率
;********************************************* 
;BAUD_RATE ;250KB/S
; CONFIGURE_MODE 
; MOVLW B'00000000' ;BAUD RATE SET
; MOVWF BRGCON1
; MOVLW B'10010000'
; MOVWF BRGCON2
; MOVLW B'00000010'
; MOVWF BRGCON3 
; 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 结束


#INCLUDE 
;发送远程帧，然后接收

;***********RAM DEFINE*******************
CBLOCK 10H
TEMP_CANCON ; 
TEMP_CANSTAT;
W_TEMP 
DELAY2 ; DELAY 延时
DELAY1 ; DELAY 
COUNT ; 查表
RX_COUNT ; 接收的字节数

_PORTA ; PORTA缓冲器
ENDC
;*************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
LOOPBACK_MODE MACRO 
BCF CANCON,REQOP2 
BSF CANCON,REQOP1
BCF CANCON,REQOP0 
BCF CANCON,ABAT
ENDM
DIS_ALL_TX MACRO
BSF CANCON,ABAT
ENDM
ENABLE_ALL_TX MACRO
BCF CANCON,ABAT
ENDM 
;**************DIFINE*********************** 
#DEFINE _TXREQ0 TXB0CON,TXREQ 
#DEFINE _TXB0IF PIR3,TXB0IF 
#DEFINE _RXFUL0 RXB0CON,RXFUL
#DEFINE _RXFUL1 RXB1CON,RXFUL
;******************复位矢量中断向量*************
ORG 000h 
NOP
GOTO MAIN
ORG 0008h
GOTO INTSER
INTSER
;**************利用查表来调查中断源*************

MOVWF W_TEMP
MOVFF CANCON,TEMP_CANCON ;保护寄存器
MOVFF CANSTAT,TEMP_CANSTAT;
MOVF TEMP_CANSTAT,W
ANDLW b'00001110'
ADDWF PCL,F
BRA nointerrupt; 
BRA errorinterrupt
BRA txb2interrupt
BRA txb1interrupt
BRA txb0interrupt
BRA rxb1interrupt
BRA RXB0_INTERRUPT 
;*********txb0 中断******** 
txb0interrupt
BCF PIR3,TXB0IF
MOVLW 0FFH
MOVWF 20H
GOTO ACCESSBUFFERS
RETFIE
txb1interrupt
BCF PIR3,TXB1IF
GOTO ACCESSBUFFERS
RETFIE
txb2interrupt
BCF PIR3,TXB2IF
GOTO ACCESSBUFFERS
RETFIE
RXB0_INTERRUPT
BCF RXB0CON,RXFUL ;必须清零,否则会溢出到RXB1D0
BCF PIR3,RXB0IF 
MOVFF RXB0D0,PORTC
; GOTO AA
; NOP 
AA GOTO ACCESSBUFFERS
RETFIE
rxb1interrupt
BCF RXB1CON,RXFUL ;必须清零,否则会溢出到RXB1D0
BCF PIR3,RXB1IF 
MOVFF RXB1D0,PORTC
GOTO ACCESSBUFFERS
RETFIE
nointerrupt
BCF INTCON,TMR0IF
MOVF PORTB,W
XORLW B'00000001'
MOVWF PORTB


MOVF W_TEMP,W
retfie
errorinterrupt
BCF PIR3,ERRIF
; MOVLW 0FFH
; MOVWF 22H
; GOTO MOVE
retfie
ACCESSBUFFERS
MOVF TEMP_CANCON,W
ANDLW B'11110001'
MOVWF TEMP_CANCON
MOVF TEMP_CANSTAT,W
ANDLW B'00001110'
IORWF TEMP_CANCON
MOVFF TEMP_CANCON,CANCON
MOVF CANCON,W
ANDLW B'11110001'
IORWF TEMP_CANCON 
RETFIE
;*****************主程序*************************
MAIN
CALL CLR_BANK ;CLEAR ALL BANK 0,1,2,15

;**********开始进入传输初始化的设定***************
SETUP
MOVLB 0FH ;BANK 15
LFSR FSR0,40H ;接收缓冲器 LFSR FSR1,RXB0D0 ;接收寄存器
MOVLW B'11000000' ;ENABLE ALL 
MOVWF INTCON ;enable gie
MOVLW B'00000001' ;ONLY ENABLE RXB0IE
MOVWF PIE3
CALL SET_PORT ;set port
CALL TXB0_IDENTIFIER ;TXB0 FILTER
CALL RXB0_FILTER0 ;RXB0 FILTER0
CALL BAUD_RATE ;250KB/S
NORMAL_MODE ;NORMAL MODE 

; LOOPBACK_MODE

MOVLW 0FH

MOVWF TXB0D0


AABB BSF _TXREQ0 循环发送远程帧， 要是在TXB0DLC里面改成数据帧，可以发送数据
BTFSS _TXB0IF
GOTO $-2
BCF _TXB0IF
CALL DELAY521MS
GOTO AABB


;******************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 


;*********设置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'01000001' 
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= 250KB/S
; BAUD RATE PRESCALER=00000
; fosc =4mhz MAX_baud rate=250kb/s
; If fosc=16Mhz ,the max_band=1Mkb/s
;01.05,使用600米长的总线，发现接受不到数据。估计是波特率太高，换低的波特率
;********************************************* 
;BAUD_RATE ;250KB/S
; CONFIGURE_MODE 
; MOVLW B'00000000' ;BAUD RATE SET
; MOVWF BRGCON1
; MOVLW B'10010000'
; MOVWF BRGCON2
; MOVLW B'00000010'
; MOVWF BRGCON3 
; 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


DELAY521MS
MOVLW d'255'
MOVWF DELAY1
LOOPA MOVLW d'255'
MOVWF DELAY2
LOOPB 
nop
nop
nop
nop
nop
nop
nop
DECFSZ DELAY2
GOTO LOOPB
DECFSZ DELAY1
GOTO LOOPA
RETURN




END 




发表于:2004-02-06 10:25:39 

lisewen
普通会员 

注册日期：2003-12-02
发贴数量：69 你有C语言的CAN程序吗？汇编我有点看不懂，谢谢了！ 

或者你能告诉我CAN的初始化步骤吗？谢谢大哥了！我也正在搞CAN可就是通不了，救命。 

发表于:2004-02-06 11:09:13 

baizhongyou
高级会员 

注册日期：2003-07-15
发贴数量：317 关于CAN 初始化 

不好意思，我刚开始学习PIC，还没有学习C语言。CAN的初始化重要包括下面几个方面。我说寄存器吧。RXB0SIDH，RXB0SIDL，RXB0MIDH，RXB0MIDL。这是接收过滤器。TXB0SIDH，TXB0SIDL，TXB0DLC，这是发送标志位。还有波特率寄存器。操作模式为 正常模式。基本就这些。要是不明白下次再说。




发表于:2004-02-06 19:20:25 

mechwu
高级会员 
注册日期：2003-07-12
发贴数量：353 使用600米长的总线，波特率能有多高？線材電容有影響嗎？一米電容多大？ 



換我來請教您啦，呵呵

謝謝啦


发表于:2004-02-06 19:55:48 

baizhongyou
高级会员 

注册日期：2003-07-15
发贴数量：317 关于总线长度与波特率 

你太客气了，我应该感谢你才对。我这只是初步的程序，还没有完善。关于总线长度与波特率可以参考下面

速率 KB/S 1000 500 250 125 100 50 20 10 5 

最大距离M 40 130 270 530 620 1300 3300 6700 10000

关于总线电容，还没有考虑，我现在做实验主要是使用双绞线。

上面两列是上下一一对应的关系，发完帖子以后就串行了，