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

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  
// BV4237
// This is an unusual device in that it has 3 I2C devices on the PCB
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  


// 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 
&90 constant temperature
&d0 constant rt-clock

Full Contents of File

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
// BV4237
// This is an unusual device in that it has 3 I2C devices on the PCB
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// 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
&90  constant  temperature
&d0  constant  rt-clock

// ============== ADC Section =========================================
: a1 ( -- 0|1 )   device  s  1  sb  sb  p  ;    // disable / enable ADC
: a2 { start -- v }   device  s  2  sb    // reads adc at start adr
                start  2  *  sb
                device  1+  rs
                rn  &100  *  rl  +  p
;
: a2x ( -- 5v )   device  s  2  sb  0  sb  // prints all 5 adc values
                device  1+  rs
                cr
                4  for
                        rn  &100  *  rn  +  .
                next       
                rn  &100  *  rl  +  .  p
;
: a3 ( delay -- )   device  s  3  sb  sb  p  ;  // set acquisition delay default 10
: a4 ( 0|1 -- )   device  s  4  sb  sb  p  ;  // result justification 1=right
: a5 ( 0|1 -- )   device  s  5  sb  sb  p  ;  // ref voltage source 0=Vdd
: a6 ( 0-2 -- )   device  s  6  sb  sb  p  ;  // conversion clock speed default 0
                     

// ============= Digital section ======================================
: a11 ( 0-7 -- )   device  s  &11  sb  sb  p  ;  // cannel 0
: a12 ( 0-8 -- )   device  s  &12  sb  sb  p  ;  // cannel 1
: a13 ( 0-8 -- )   device  s  &13  sb  sb  p  ;  // cannel 2
: a14 ( 0-8 -- )   device  s  &14  sb  sb  p  ;  // cannel 3
: a15 ( 0-8 -- )   device  s  &15  sb  sb  p  ;  // cannel 4
: a16 ( 0-8 -- )   device  s  &16  sb  sb  p  ;  // cannel 5
: a17 ( 0-8 -- )   device  s  &17  sb  sb  p  ;  // cannel 6
: a18 ( 0-8 -- )   device  s  &18  sb  sb  p  ;  // cannel 7
: a19 ( byet -- )   device  s  &19  sb  sb  p  ;  // all chanels


: 4237-default&62  bv-init  i2cfull  ;

: adc-all ( -- )   // prints out all adc channels continuously
        4237-default  0=  if  ."  4237  cant  start  "  abort  then
        begin
                key?  if  abort  then
                a2x
                500  ms
        again
;

: jj
        4237-default  0=  if  ."  4237  cant  start  "  abort  then
        255  a19
        7  a11
;
       
// ================ Temperature Section =============================
// This is a standard MCP9802 Temperature device, assumes set to 9
// bit resolution, returns temp as an integer value, if dec=0x80 then
// +0.5 else +0
// I.e if temp=20 and dec=0x80 then temp=20.5
: get-temp ( -- temp, dec )
        temperature  s  0  sb  temperature  1+  rs  rn  rl  p
;
: temp. ( -- )
        get-temp
        swap  .  [char]  .  emit
        &80  =  if  48  else  53  then  // 0 or 5
        emit
;
         
// =============== RTC Section =======================================
// not well formatted but it gives the idea
// Starts the clock after a power down
: rtc-pd ( -- )
        rt-clock  s  &0c  sb  0  sb  p 
;
// Read time
: rtc.
        rt-clock  s  1  sb  rt-clock  1+  rs  rn  rn  rl  p
        ph.  ."  :"  ph.  ."  :"  ph.
;
// Set time enter hex values
: rt-settime { hrs mins secs -- }
        rt-clock  s  0  sb  // start address
        0  sb  secs  sb  mins  sb  hrs  sb  p 
;
// Set date
: rt-setdate { date month year dow -- }
        rt-clock  s  4  sb  // start address
        dow  sb  date  sb  month  sb  year  sb  p
;