CAN 的调试程序，供参考，交流
#INCLUDE; 接收数据程序;***********RAM DEFINE*******************
CBLOCK10H
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_MODEMACRO
BCF CANCON,REQOP2
BCF CANCON,REQOP1
BCF CANCON,REQOP0
BCF CANCON,ABAT
ENDM
LOOPBACK_MODEMACRO
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
;******************复位矢量中断向量*************
ORG000h
NOP
GOTO MAIN
ORG0008h
GOTO INTSER
INTSER
;**************利用查表来调查中断源*************
MOVWF W_TEMP
MOVFF CANCON,TEMP_CANCON ;保护寄存器
MOVFF CANSTAT,TEMP_CANSTAT;
MOVF TEMP_CANSTAT,W
ANDLW b'00001110'
ADDWF PCL,F
BRAnointerrupt;
BRAerrorinterrupt
BRAtxb2interrupt
BRAtxb1interrupt
BRAtxb0interrupt
BRArxb1interrupt
BRARXB0_INTERRUPT
;*********txb0 中断********
txb0interrupt
BCFPIR3,TXB0IF
MOVLW 0FFH
MOVWF 20H
GOTO ACCESSBUFFERS
RETFIE
txb1interrupt
BCFPIR3,TXB1IF
GOTO ACCESSBUFFERS
RETFIE
txb2interrupt
BCFPIR3,TXB2IF
GOTO ACCESSBUFFERS
RETFIE
RXB0_INTERRUPT
BCFRXB0CON,RXFUL;必须清零,否则会溢出到RXB1D0
BCFPIR3,RXB0IF
MOVFF RXB0D0,PORTC
GOTO ACCESSBUFFERS
RETFIE
rxb1interrupt
BCFRXB1CON,RXFUL;必须清零,否则会溢出到RXB1D0
BCFPIR3,RXB1IF
MOVFF RXB1D0,PORTC
GOTO ACCESSBUFFERS
RETFIE
nointerrupt
BCFINTCON,TMR0IF
MOVF PORTB,W
XORLW B'00000001'
MOVWF PORTB
MOVF W_TEMP,W
retfie
errorinterrupt
BCFPIR3,ERRIF
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;接收缓冲器
MOVLW B'11000000';ENABLE ALL
MOVWF INTCON ;enable gie
MOVLW B'00000001';ONLY ENABLE RXB0IE
MOVWF PIE3
CALL SET_PORT;setport
CALL TXB0_IDENTIFIER ;TXB0 FILTER
CALL RXB0_FILTER0 ;RXB0 FILTER0
CALL BAUD_RATE;50KB/S
NORMAL_MODE ;NORMAL MODE
STOP
NOP
GOTO STOP
;******************RXB0 FILTER0****************
;RXB0_FILTER0
; ;*********************************************
RXB0_FILTER0
CONFIGURE_MODE
BSFRXB0CON,RXM1
BSFRXB0CON,RXM0
;0,0 FILTER 有效
;0,1 ONLY STANDARD FRAME
;1,1 RECEIVE ALL
;1,0 ONLY EXTERNFRAME
MOVLW B'10101111'
MOVWF RXF0SIDH ;进行过滤器的设定，只能再配置位模式进行
MOVLW b'11100000'
MOVWF RXF0SIDL
MOVLW B'11111111';识别位XXXXX000111
MOVWF RXM0SIDH
MOVLW B'11111111';全部起作用
MOVWF RXM0SIDL;进行屏蔽位设定，全部为11
RETURN
;*********设置TXB0IDENTIFIER***********************
;TXB0_IDENTIFIER
;***************************************************
TXB0_IDENTIFIER
BCFTXB0CON,TXPRI1
BCFTXB0CON,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
;RB6ICD2
;RB7ICD2
CLRF LATB
MOVLW B'00001000'
MOVWF TRISB
;*******PORTC*********
;RC0 OUTRC0-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*******************
CBLOCK10H
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
;******************复位矢量中断向量*************
ORG000h
NOP
GOTO MAIN
ORG0008h
GOTO INTSER
INTSER
;**************利用查表来调查中断源*************
MOVWF W_TEMP
MOVFF CANCON,TEMP_CANCON ;保护寄存器
MOVFF CANSTAT,TEMP_CANSTAT;
MOVF TEMP_CANSTAT,W
ANDLW b'00001110'
ADDWF PCL,F
BRAnointerrupt;
BRAerrorinterrupt
BRAtxb2interrupt
BRAtxb1interrupt
BRAtxb0interrupt
BRArxb1interrupt
BRARXB0_INTERRUPT
;*********txb0 中断********
txb0interrupt
BCFPIR3,TXB0IF
MOVLW 0FFH
MOVWF 20H
GOTO ACCESSBUFFERS
RETFIE
txb1interrupt
BCFPIR3,TXB1IF
GOTO ACCESSBUFFERS
RETFIE
txb2interrupt
BCFPIR3,TXB2IF
GOTO ACCESSBUFFERS
RETFIE
RXB0_INTERRUPT
BCFRXB0CON,RXFUL;必须清零,否则会溢出到RXB1D0
BCFPIR3,RXB0IF
MOVFF RXB0D0,PORTC
;GOTO AA
;NOP
AAGOTO ACCESSBUFFERS
RETFIE
rxb1interrupt
BCFRXB1CON,RXFUL;必须清零,否则会溢出到RXB1D0
BCFPIR3,RXB1IF
MOVFF RXB1D0,PORTC
GOTO ACCESSBUFFERS
RETFIE
nointerrupt
; BCFINTCON,TMR0IF
; MOVF PORTB,W
; XORLW B'00000001'
; MOVWF PORTB
; MOVF W_TEMP,W
retfie
errorinterrupt
BCFPIR3,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;接收缓冲器30H——37H
MOVLW B'11000000';ENABLE ALL
MOVWF INTCON ;enable gie
MOVLW B'00000000';ONLY ENABLE RXB0IE
MOVWF PIE3
CALL SET_PORT;setport
CALL TXB0_IDENTIFIER ;TXB0 FILTER
CALL RXB0_FILTER0 ;RXB0 FILTER0
CALL BAUD_RATE;250KB/S
NORMAL_MODE ;NORMAL MODE
;**********接收********************
;///////////1219///////////////////////////////
;//1219 ,判断是否有远程帧，然后跳到发送程序
MOVLB 0FH
MOVLW B'00000001'
MOVWF 30H
CHECK
BTFSS RXB0DLC,RXRTR;判断是否有远程帧
GOTO $-2
BCFRXB0DLC,RXRTR
BCF_RXFUL0 ;很重要，要不就只能接收一次
INCF 30H,F
MOVFF 30H,TXB0D0
MOVFF 30H,PORTC
BSF_TXREQ0
BTFSS _TXB0IF
GOTO $-2
BCF_TXB0IF
GOTO CHECK
STOP
NOP
GOTO STOP
;******************RXB0 FILTER0****************
;RXB0_FILTER0
;STANDARD FRAME
;PORTA 低五位作为ID的高五位
;*********************************************
RXB0_FILTER0
CONFIGURE_MODE
BCFRXB0CON,RXM1
BCFRXB0CON,RXM0
;0,0 FILTER 有效
;0,1 ONLY STANDARD FRAME
;1,1 RECEIVE ALL
;1,0 ONLY EXTERNFRAME
MOVLW B'10101111'
MOVWF RXF0SIDH ;进行过滤器的设定，只能再配置位模式进行
MOVLW b'11100000'
MOVWF RXF0SIDL
MOVLW B'11111111';识别位XXXXX000111
MOVWF RXM0SIDH
MOVLW B'11111111';全部起作用
MOVWF RXM0SIDL;进行屏蔽位设定，全部为11
RETURN
;*********设置TXB0IDENTIFIER***********************
;TXB0_IDENTIFIER
;***************************************************
TXB0_IDENTIFIER
BCFTXB0CON,TXPRI1
BCFTXB0CON,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
;RB6ICD2
;RB7ICD2
CLRF LATB
MOVLW B'00001000'
MOVWF TRISB
;*******PORTC*********
;RC0 OUTRC0-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*******************
CBLOCK10H
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_MODEMACRO
BCF CANCON,REQOP2
BCF CANCON,REQOP1
BCF CANCON,REQOP0
BCF CANCON,ABAT
ENDM
LOOPBACK_MODEMACRO
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
;******************复位矢量中断向量*************
ORG000h
NOP
GOTO MAIN
ORG0008h
GOTO INTSER
INTSER
;**************利用查表来调查中断源*************
MOVWF W_TEMP
MOVFF CANCON,TEMP_CANCON ;保护寄存器
MOVFF CANSTAT,TEMP_CANSTAT;
MOVF TEMP_CANSTAT,W
ANDLW b'00001110'
ADDWF PCL,F
BRAnointerrupt;
BRAerrorinterrupt
BRAtxb2interrupt
BRAtxb1interrupt
BRAtxb0interrupt
BRArxb1interrupt
BRARXB0_INTERRUPT
;*********txb0 中断********
txb0interrupt
BCFPIR3,TXB0IF
MOVLW 0FFH
MOVWF 20H
GOTO ACCESSBUFFERS
RETFIE
txb1interrupt
BCFPIR3,TXB1IF
GOTO ACCESSBUFFERS
RETFIE
txb2interrupt
BCFPIR3,TXB2IF
GOTO ACCESSBUFFERS
RETFIE
RXB0_INTERRUPT
BCFRXB0CON,RXFUL;必须清零,否则会溢出到RXB1D0
BCFPIR3,RXB0IF
MOVFF RXB0D0,PORTC
;GOTO AA
;NOP
AAGOTO ACCESSBUFFERS
RETFIE
rxb1interrupt
BCFRXB1CON,RXFUL;必须清零,否则会溢出到RXB1D0
BCFPIR3,RXB1IF
MOVFF RXB1D0,PORTC
GOTO ACCESSBUFFERS
RETFIE
nointerrupt
BCFINTCON,TMR0IF
MOVF PORTB,W
XORLW B'00000001'
MOVWF PORTB
MOVF W_TEMP,W
retfie
errorinterrupt
BCFPIR3,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;setport
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
AABBBSF_TXREQ0 循环发送远程帧， 要是在TXB0DLC里面改成数据帧，可以发送数据
BTFSS _TXB0IF
GOTO $-2
BCF_TXB0IF
CALL DELAY521MS
GOTO AABB
;******************RXB0 FILTER0****************
;RXB0_FILTER0
;STANDARD FRAME
;*********************************************
RXB0_FILTER0
CONFIGURE_MODE
BCFRXB0CON,RXM1
BCFRXB0CON,RXM0
;0,0 FILTER 有效
;0,1 ONLY STANDARD FRAME
;1,1 RECEIVE ALL
;1,0 ONLY EXTERNFRAME
MOVLW B'10101111'
MOVWF RXF0SIDH ;进行过滤器的设定，只能再配置位模式进行
MOVLW b'11100000'
MOVWF RXF0SIDL
MOVLW B'11111111';识别位XXXXX000111
MOVWF RXM0SIDH
MOVLW B'11111111';全部起作用
MOVWF RXM0SIDL;进行屏蔽位设定，全部为11
RETURN
;*********设置TXB0IDENTIFIER***********************
;TXB0_IDENTIFIER
;***************************************************
TXB0_IDENTIFIER
BCFTXB0CON,TXPRI1
BCFTXB0CON,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
;RB6ICD2
;RB7ICD2
CLRF LATB
MOVLW B'00001000'
MOVWF TRISB
;*******PORTC*********
;RC0 OUTRC0-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
页:
[1]