Mikroelektronika MIKROE-350 データシート

' CANSPI module connections
dim CanSpi_CS as sbit at PORTB.B0

CanSpi_CS_Direction 

as sbit at DDRB.B0

CanSpi_Rst 

as sbit at PORTB.B2

CanSpi_Rst_Direction 

as sbit at DDRB.B2

' End CANSPI module connections

main:

PORTC = 0                  ' clear PORTC

DDRC = 255              ' set PORTC as output

Can_Init_Flags = 0      '

Can_Send_Flags = 0      ' clear flags
Can_Rcv_Flags  = 0     '

Can_Send_Flags = _CANSPI_TX_PRIORITY_0 and ' form value to be used

_CANSPI_TX_XTD_FRAME and '  with CANSPIWrite

_CANSPI_TX_NO_RTR_FRAME

Can_Init_Flags = _CANSPI_CONFIG_SAMPLE_THRICE and      ' Form value

to be used

_CANSPI_CONFIG_PHSEG2_PRG_ON and           '

with CANSPIInit

_CANSPI_CONFIG_XTD_MSG and
_CANSPI_CONFIG_DBL_BUFFER_ON and
_CANSPI_CONFIG_VALID_XTD_MSG and

_CANSPI_CONFIG_LINE_FILTER_OFF

SPI1_Init()                                                                 '

initialize SPI1 module
Spi_Rd_Ptr = @SPI1_Read                                          
' Pass pointer to SPI Read sub function of used SPI module
CANSPIInitialize(1,3,3,3,1,Can_Init_Flags)                         

' initialize external CANSPI module

CANSPISetOperationMode(_CANSPI_MODE_CONFIG,0xFF)                   
' set CONFIGURATION mode
CANSPISetMask(_CANSPI_MASK_B1,-1,_CANSPI_CONFIG_XTD_MSG)            

' set all mask1 bits to ones
CANSPISetMask(_CANSPI_MASK_B2,-1,_CANSPI_CONFIG_XTD_MSG)            

' set all mask2 bits to ones
CANSPISetFilter(_CANSPI_FILTER_B2_F3,12111,_CANSPI_CONFIG_XTD_MSG)   

' set id of filter B1_F1 to 3
CANSPISetOperationMode(_CANSPI_MODE_NORMAL,0xFF)                   
' set NORMAL mode

Tx_ID = 3                                  ' set tx ID

187

- SOFTWARE AND HARDWARE SOLUTIONS FOR EMBEDDED WORLD

CHAPTER 6