User`s manual

' .. continued
aa1 = CAN_TX_PRIORITY_BITS and
CAN_TX_FRAME_BIT and
CAN_TX_RTR_BIT
' prepare flags for CANSPIwrite function
CANSPIInitialize( 1,2,3,3,1,aa) ' initialize MCP2510
CANSPISetOperationMode(CAN_MODE_CONFIG,true)
' set configuration mode
ID = -1
CANSPISetMask(CAN_MASK_B1,id,CAN_CONFIG_XTD_MSG)
' bring all mask1 bits to ones
CANSPISetMask(CAN_MASK_B2,0,CAN_CONFIG_XTD_MSG)
' bring all mask2 bits to ones
CANSPISetFilter(CAN_FILTER_B1_F1,12111,CAN_CONFIG_XTD_MSG)
' set filter_b1_f1 id to 12111
CANSPISetOperationMode(CAN_MODE_NORMAL,true)
' get back to Normal mode
while true
zr = CANSPIRead(id , Data , len, aa2)
if (id = 12111) and zr then
portd = $AA
portB = data[0]
data[0] = data[0]+1
id = 3
delay_ms(10)
CANSPIWrite(id,data,1,aa1)
if lenn = 2 then
portd = data[1]
end if
end if
wend
end.
mikroBASIC
- Basic Compiler for Microchip PIC microcontrollers
132
mikroBASIC
MikroElektronika: Development tools - Books - Compilers
making it simple...
page