Code Body

To use this file copy and paste this: // #URL-lib "http://pin1.org/forthlib/flb/I2C/bvsys.flb" into BV Terminal 3 or here to download.

// REQUIRES: // #URL-lib "http://pin1.org/forthlib/flb/General/soft1.flb" sid=0 // #URL-lib "http://pin1.org/forthlib/flb/General/pinsel.flb" sid=101 // #URL-Lib "http://pin1.org/forthlib/flb/I2C/i2c.flb" sid=103

// CONSTANTS: // This variable is used to hold the I2C address of the device // it is a variable so that it can be changed outside this // library, the downside is that it MUST be initialised before // using the library integer device

Full Contents of File

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
// BVSYS -
// All of the I2C devices 'BV'xx share a set of common system
// commands for changing the device address, inspecting the
// EEPROM etc. This library contains those commands rather
// than repeating them in each of the individual libraries.
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// REQUIRES:
// #URL-lib "http://pin1.org/forthlib/flb/General/soft1.flb" sid=0
// #URL-lib "http://pin1.org/forthlib/flb/General/pinsel.flb" sid=101
// #URL-Lib "http://pin1.org/forthlib/flb/I2C/i2c.flb" sid=103

// CONSTANTS:
// This variable is used to hold the I2C address of the device
// it is a variable so that it can be changed outside this
// library, the downside is that it MUST be initialised before
// using the library
i n t e g e r d e v i c e

// ============== system =====================================
// a55 will test if device is working and return t/f
: a55 ( -- t/f ) d e v i c e s &5 5 s b d e v i c e 1 + r s r n 1 = r n 2 = a n d r l 3 = a n d p ;

// read eeprom
// # number of bytes to read and
// from is starting address of eeprom
: a90 ( #, from -- values )
d e v i c e s &9 0 s b s b d e v i c e 1 + r s
1 - f o r r n n e x t
r l p ;

// write all of the byts that are on the stack to eerpm
// starting at address start. Note start has to be last value on stack
: a91 ( [ .. ] start -- )
d e v i c e s &9 1 s b s b
d e p t h f o r s b n e x t
p ;

: a93 ( -- x ) d e v i c e s &9 3 s b d e v i c e 1 + r s r l p ; // end of eerpom
: a94 ( -- ) d e v i c e s &9 4 s b p ; // sleep
: a95 ( -- ) d e v i c e s &9 5 s b p ; // reset
: a96 ( -- ) d e v i c e s &9 6 s b &5 5 s b &a a s b p ; // restore factory defaults
// imediately sets new i2c address to eeprom
: a99 ( new -- ) d e v i c e s &9 9 s b d u p s b &5 5 s b &a a s b d e v i c e s b => d e v i c e p ;
: aa0 ( -- ver. ) d e v i c e s &a 0 s b d e v i c e 1 + r s
r n . ." ." r l e m i t p ;

// use this first to establish i2C address if device and
// to initialise i2c system with default speed, if sucess
// the device will return -1
: bv-init ( device -- -1|0 ) => d e v i c e i 2 -i n i t a 5 5 ;
: i2cslow ( -- ) 1 0 0 0 0 0 i 2 s p e e d ; // sets i2c to slow speed
: i2cfull ( -- ) 4 0 0 0 0 0 i 2 s p e e d ; // sets i2c to full speed