Отправлено DSN 05 августа 2004 г. 20:18 В ответ на: попзже попробую не забыть на асме инициализацию CAN кинуть отправлено DSN 05 августа 2004 г. 17:23

;==_CAN_==
movlw 0x00 ;
movwf canadr3 ;
movlw B'00100000' ;
movwf canadr2 ;
movlw 0x00 ;
movwf canadr1 ;
movlw 0x00 ;
movwf canadr0 ;
;ставим направления ног
bcf TRISG,CANTX1 ;
bcf TRISG,CANTX2 ;
bsf TRISG,CANRX ;
InitCAN:
movlb 0x0f ;банк 15.
movlw B'10000000' ;режим инициализации.
movwf CANCON,1 ;регистр управления и статуса.
btfss CANSTAT,OPMODE2,1
bra InitCAN ;

clrf COMSTAT,1 ;очистака рег статуса.
;передатчик.
clrf TXB0CON,1 ;
clrf TXB1CON,1 ;
clrf TXB2CON,1 ;
clrf TXERRCNT,1 ;сброс ошибок передатчика.
;приемник.
movlw B'00000100' ;
movwf RXB0CON,1 ;
movlw B'00000000' ;
movwf RXB1CON,1 ;
clrf RXERRCNT,1 ;сброс ошибок приемника.
;Фильтры.
movlw 0x00 ;
movwf RXF0SIDH,1 ;
movwf RXF1SIDH,1 ;
movwf RXF2SIDH,1 ;
movwf RXF3SIDH,1 ;
movwf RXF4SIDH,1 ;
movwf RXF5SIDH,1 ;
movlw 0x00 ;
movwf RXF0SIDL,1 ;
movwf RXF1SIDL,1 ;
movwf RXF2SIDL,1 ;
movwf RXF3SIDL,1 ;
movwf RXF4SIDL,1 ;
movwf RXF5SIDL,1 ;
movlw 0x00 ;
movwf RXF0EIDH,1 ;
movwf RXF1EIDH,1 ;
movwf RXF2EIDH,1 ;
movwf RXF3EIDH,1 ;
movwf RXF4EIDH,1 ;
movwf RXF5EIDH,1 ;
movlw 0x00 ;
movwf RXF0EIDL,1 ;
movwf RXF1EIDL,1 ;
movwf RXF2EIDL,1 ;
movwf RXF3EIDL,1 ;
movwf RXF4EIDL,1 ;
movwf RXF5EIDL,1 ;
;маски.
movlw 0x00 ;
movwf RXM0SIDH,1 ;
movwf RXM1SIDH,1 ;
movlw 0x00 ;
movwf RXM0SIDL,1 ;
movwf RXM1SIDL,1 ;
movlw 0x00 ;
movwf RXM0EIDH,1 ;
movwf RXM1EIDH,1 ;
movlw 0x00 ;
movwf RXM0EIDL,1 ;
movwf RXM1EIDL,1 ;

;TQ=x16 настройка скорости обмена.
;Speed = Fosc/(BRG*2*SumTQ)
movlw 0x0A ;TQsinhro=1 / BRG = 20x2/ 102400bod
movwf BRGCON1,1 ;
movlw B'00100100' ;seg1=5TQ / seg = 5TQ
movwf BRGCON2,1 ;
movlw B'01000100' ;seg2=5TQ
movwf BRGCON3,1 ;

movlw B'01110000' ;
movwf CIOCON,1 ;

; bcf CANCON,REQOP2,1 ;Normal Work.
clrf CANCON,1 ;

movlb 0x00 ;банк 0.
;перрывания
clrf PIR3 ;Clear Flags
movlw B'00100011' ;ERR + RX1 + RX0
movwf PIE3 ;Set Interrupt
clrf IPR3 ;Low Priority