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

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * // BV4502 - I2C Relay** NOTE default address on this is 0x62 // This is a library of words inteded for this device it is an I2C // device. The user should set the device address // using the word 4502-default. // This will load as a stand alone file or can be used as a library // providing the parent file includes the files in the REQUIRES // section // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// 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 // #URL-Lib "http://pin1.org/forthlib/flb/I2C/bvsys.flb"

// CONSTANTS: // device variable is in bvsys.lib


Full Contents of File

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
// BV4502 - I2C Relay** NOTE default address on this is 0x62
// This is a library of words inteded for this device it is an I2C
// device. The user should set the device address
// using the word 4502-default.
// This will load as a stand alone file or can be used as a library
// providing the parent file includes the files in the REQUIRES
// section
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// 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
// #URL-Lib "http://pin1.org/forthlib/flb/I2C/bvsys.flb"

// CONSTANTS:
// device variable is in bvsys.lib

// These are simple commands following the device commands.
// NOTE: Relay commands 0=on, 1=off
: a1 ( -- 0|1 )   device  s  1  sb  sb  p  ;    // turns relay on/off Relay A
: a2 ( -- 0|1 )   device  s  2  sb  sb  p  ;    // turns relay on/off Relat B

// alternet method of addressing
// relay number is 1 or 2, on-off is 0 or 1
: relay { number on-off -- }
        device  s 
        number  sb
        on-off  sb
        p
;       

: 4502-default&62  bv-init  i2cfull  ;