Code Body

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

// REQUIRES: // #URL-Lib "http://pin1.org/forthlib/flb/General/soft1.flb" // #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/General/strings.flb" sid=0 // // #currentSID sid=245

// CONSTANTS: integer device // global to hold current device address integer i2debug // if set to 1 then text accompanies commands

Full Contents of File

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
// I2-Terminal
// This is intended to be loaded as a stand alone file so that it can
// be used for debugging and the like. It still needs more work
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// REQUIRES:
// #URL-Lib "http://pin1.org/forthlib/flb/General/soft1.flb"
// #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/General/strings.flb" sid=0
//
// #currentSID sid=245

// CONSTANTS:
i n t e g e r d e v i c e // global to hold current device address
i n t e g e r i 2 d e b u g // if set to 1 then text accompanies commands

// A - process simply change the current address
// ( value --- )
: Aproc
1 + ?n u m b e r
i f
=> d e v i c e
e l s e
." E r r o r n u m b e r s h o u l d f o l l o w a d d r e s s t h u s A &7 0 "
t h e n
;

// S - process - The following each process the relevant I2C commands
// by extracting the number following and sending it to the I2C bus
// this command will ser address if number follows
// ( device-address --- )
: Sproc
d u p l e n g t h 1 >
i f
1 + ?n u m b e r d r o p => d e v i c e
t h e n
d e v i c e S // start command
i 2 d e b u g i f d e v i c e c r ." s t a r t a d d r e s s " p h . t h e n
;

// ( ---)
: Pproc
P // stop command
i 2 d e b u g i f c r ." S t o p " t h e n
;

// ( --- )
: RSproc
d e v i c e 1 + R S // restart
i 2 d e b u g i f c r ." r e -s t a r t a d d r e s s " d e v i c e 1 + p h . t h e n
;

// ( device-address --- reads... )
: Rproc
1 + ?n u m b e r
i f
d u p 1 =
i f
d r o p
R L // read last
i 2 d e b u g i f c r ." L a s t r e a d " . t h e n
e l s e
i 2 d e b u g
i f
1 - f o r c r ." r e a d " R N . n e x t
c r ." L a s t r e a d " R L .
e l s e
1 - f o r R N n e x t R L
t h e n
t h e n
e l s e
." E r r o r - s y n t a x R L n " c r
t h e n
;

// ============= Public interface for terminal ====================
// The string is a line of I2C commands, this takes the next token
// and if it is a number sends this directly to the i2c but, if not
// it will send it to the apropriate handler
: <0>i2-parse { string --- }
i n t: c o u n t a d r

b e g i n
b l s t r i n g c o u n t + t a b >r // parse next
=> a d r // save address
r > d u p 1 + +> c o u n t // for next time
w h i l e
a d r ?n u m b e r
i f
d u p S B // send byte
i 2 d e b u g i f c r ." s e n d b y t e " . e l s e d r o p t h e n
e l s e
a d r t o u p p e r c @
c a s e
[c h a r ] A o f a d r A p r o c e n d o f
[c h a r ] S o f a d r S p r o c e n d o f
[c h a r ] P o f P p r o c e n d o f
[c h a r ] R o f R S p r o c e n d o f
[c h a r ] G o f a d r R p r o c e n d o f
o t h e r w i s e ." u n r e c o g n i s e d c o m m a n d "
e n d c a s e
t h e n
r e p e a t
;

: i2-t-help
c r ." I 2 T e r m U s a g e "
c r ." E x a m p l e t o s e n d 2 b y t e s t o I 2 C "
c r ." w i t h a d d r e s s o f &4 2 "
c r ." s &4 2 2 5 5 p "
c r ." S [n n ] = s t a r t w i t h o p t i o n a l a d d r e s s "
c r ." n n = n u m b e r o n i t s o w n w i l l b e s e n t t o i 2 c "
c r ." A n n = c h a n g e t h e c u r r e n t a d d r e s s t o n n "
c r ." P = s e n d s t o p c o n d i t i o n "
c r ." R = r e s t a r t c o n d i t i o n u s e s a d d r e s s + 1 "
c r ." G n n = g e t s n u m b e r o f b y t e s f o r m i 2 c "
c r
c r ." E x a m p l e t o s e n d v a l u e 2 0 t h e n "
c r ." r e a d 5 b y t e s t o c u r r e n t a d d r e s s "
c r ." s 2 0 r g 5 p "
c r
;

// I2c terminal, finish with E
: <0>i2-term
c r ." E n d s e s s i o n w i t h E "
i 2 -t -h e l p
i 2 -i n i t
1 => i 2 d e b u g
b e g i n
c r ." C u r r e n t a d d r e s s s e t t o " d e v i c e p h .
c r ." >"
h e r e 8 0 a c c e p t // retuns number of chars
0 <>
i f
h e r e c @ [c h a r ] E = i f e s c a p e t h e n // terminates loop
h e r e i 2 -p a r s e
t h e n
a g a i n
;

// #currentSID sid=0