Code Body

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

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * // BV4103 LCD. This device is the same form a software point // of view as the BV4108, the BV103 is a BV4108 with an LCD // already attached. // LCD are slow devixces and so expect to see delays in the // software. This particular library expects the set up to have // an ACK value of 6 and the configuration slot to be YNNNNNN // if setup is used this will set the device to that // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// HISTORY: // Feb 2008 - created new library

// CONSTANTS: // Integers integer address // holds device address

Full Contents of File

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
// BV4103 LCD. This device is the same form a software point
// of view as the BV4108, the BV103 is a BV4108 with an LCD
// already attached.
// LCD are slow devixces and so expect to see delays in the
// software. This particular library expects the set up to have
// an ACK value of 6 and the configuration slot to be YNNNNNN
// if setup is used this will set the device to that
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// REQUIRED:
// #URL-lib "http://pin1.org/forthlib/flb/General/soft1.flb"
// #URL-lib "http://pin1.org/forthlib/flb/IASI/IASI-L-a.flb"
//

// HISTORY:
// Feb 2008 - created new library

// CONSTANTS:
// Integers
i n t e g e r a d d r e s s // holds device address

: ack? ( -- t|f )
i -c b u f f // clear buffer
a d d r e s s i -a d d r e s s c r 1 // just send cr
i -i n 6 =
;

// This is a helper for setting up the diplay to have its own
// address. The address should be a number from 1 to 99. Baud
// should be a number between 0 and 5, 0=9600
: setup { addr baud -- }
i -z f // factory reset
c r ." T h e d i s p l a y n o w n e e d s t o b e r e s e t b y p o w e r c y c l i n g (off and on) "
c r ." p r e s s a n y k e y w h e n d o n e "
k e y d r o p
c r ." W a i t .."
i -d e t 2 1 4 <> a b o r t " T h e r e i s a p r o b l e m: d e v i c e n o t s e t , t r y a g a i n "
s " Z K 6 " s t y p e 1 c r 1 2 0 0 m s i -c b u f f // ack to 6
s " Z A " s t y p e 1 a d d r <# # # #> s t y p e 1 c r 1 3 0 m s i -c b u f f // set address
s " Z B " s t y p e 1 b a u d i u . c r 1 6 0 0 m s i -c b u f f // set baud rate
s " Z C 6 -w y n n n n n n " s t y p e 1 c r 1 1 0 0 0 m s // set config, slot 6
i -d e t d u p . 2 1 4 <> a b o r t " C a n t r e s e t a f t e r c h a n g i n g c o n f i g "
s " Z C 6 -r " s t y p e 1 c r 1 // fix it
a d d r => a d d r e s s
a c k ?
i f
c r ." s e t u p s u c e s s "
e l s e
c r ." p o s s i b l e p r o b l e m w i t h s e t u p "
c r ." r e c y c l e p o w e r a n d s e e i f A C K ? r e t u r n s -1 "
t h e n
;

// ------- Basic commands -----------------
// send cr1 and wait for ack, add an extra potential dealy because LCD's
// are slow devices
: wfa ( -- )
c r 1 // send terminator
-1 // for error
5 0 f o r
i -i n 6 = i f d r o p 0 l e a v e t h e n
n e x t
a b o r t " e r r o r "
;

// sends address if set up, otherwise reports
: ad ( -- )
a d d r e s s d u p 0 = a b o r t " A d d r e s s h a s n o t b e e n s e t u p "
i -a d d r e s s ; // send colon adress first

// ---- Basic commands
: ba ( ascii -- ) a d s " B A " s t y p e 1 i u . w f a ; // send ascii
: bli ( 0|1 -- ) a d s " B L " s t y p e 1 i u . w f a ; // back light
: bm ( command -- ) a d s " B M " s t y p e 1 i u . w f a ; // send command
: bn ( #l -- ) a d s " B N " s t y p e 1 i u . w f a ; // number of lines
: bp ( v -- ) a d s " B P " s t y p e 1 i u . w f a ; // move cursor
: br ( #c -- ) a d s " B R " s t y p e 1 i u . w f a ; // number of characters
: bt ( string -- ) a d s " B T " s t y p e 1 3 4 e m i t 1 s t y p e 1 3 4 e m i t 1 w f a ; // string
: bx ( v -- ) a d s " B X " s t y p e 1 i u . w f a ; // contarst
//
: dh ( -- ) a d s " D H " s t y p e 1 w f a ; // home and clear
: dl ( v -- ) a d s " D L " s t y p e 1 i u . w f a ; // shift left
: dr ( v -- ) a d s " D R " s t y p e 1 i u . w f a ; // shift right
//
// ----- Derived commands
: c-off &0 c b m ; // cursor off
: c-blk &0 d b m ; // block type cursor
: c-nrm &0 e b m ; // normal type cursor
//
// Prints numer
: pnum ( num -- )
a d s " B T " s t y p e 1 3 4 e m i t 1 <# #s #> s t y p e 1 3 4 e m i t 1 w f a ; // prints number
: pnum2 ( num -- )
a d s " B T " s t y p e 1 3 4 e m i t 1 <# # # #> s t y p e 1 3 4 e m i t 1 w f a ; // 2 places
: pnum4 ( num -- )
a d s " B T " s t y p e 1 3 4 e m i t 1 <# # # # # #> s t y p e 1 3 4 e m i t 1 w f a ; // 4 places