Code Body

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

// HISTORY: // Mar 2008 * replaced [char] : hold with 58 hold, limitation of BVT

// CONSTANTS: // the following constants are for setting the baud rate of UART1 // it will default to 9600, a higher baud rate will not necessarily // make the device go faster &E0010000 constant U1DLL &E0010004 constant U1DLM &E001000C constant U1LCR

Full Contents of File

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
// IASI interface
// This is the IASI kibrary for use with all IASI devices, these
// are normally BV41xx numbered devices.
// NOTE when using these words the IASI device needs
// by default a CR (13 emit1) sending to terminate
// a command, this tells the IASI to go off and process
// the command.
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// HISTORY:
// Mar 2008 * replaced [char] : hold with 58 hold, limitation of BVT

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

// CONSTANTS:
// the following constants are for setting the baud rate of UART1
// it will default to 9600, a higher baud rate will not necessarily
// make the device go faster
&E 0 0 1 0 0 0 0 c o n s t a n t U 1 D L L
&E 0 0 1 0 0 0 4 c o n s t a n t U 1 D L M
&E 0 0 1 0 0 0 C c o n s t a n t U 1 L C R

// *******************************************************
// History:
// Feb 2007 Removed sign from iu. to stop & being
// sent to the UART1
// March 2007 Updated FOR, NEXT loops for ANSI ver 0.7 code
// removed until0
// Nov 2007 Use of #Library
// *******************************************************

// Communication set up for UART1
// set baud rate with 1 stop and 8 data
// no parity
: baud1 { rate --- }
r a t e 1 6 * 1 0 / // multiply rate by 1.6
P C L K s w a p / // divide by PCLK
5 + 1 0 / // round up and div by 10
2 5 6 u /mod
&8 3 U 1 L C R ! // 1 stop 8 bits
U 1 D L M ! // high divisor
U 1 D L L ! // low devisor
&3 U 1 L C R ! // DLAB=0, 1 stop 8 data
;

// returns baud rate for device 1
// ( --- rate )
: baud1@
&8 3 U 1 L C R ! // access to U1DLM,LL
U 1 D L M @ // high divisor
2 5 6 *
U 1 D L L @ // low devisor
+
&3 U 1 L C R ! // DLAB=0, 1 stop 8 data
// now calculate from these, baud rate
1 6 * p c l k s w a p u /mod swap drop
;

// used for terminating a command, typical use is
// after sending command, example i.' BT"fred"' cr1
: cr1 1 3 e m i t 1 ;

// gets a key form UART1 and will time out
// if no key is available. This saves complex
// code using key1? and prevents system
// crashing, set for time out of 50ms.
// It also has another purpose in that it will wait for a
// device to respond to a command
// meant for ASCII, return 0 if not valid
// ( --- r-val )
: i-in
0
5 0
f o r
k e y 1 ?
i f
d r o p
k e y 1
l e a v e
t h e n
1 m s
n e x t
;

// prints contents of uart1 buffer if any
// i-buff-dot
// ( --- )
: i-buff.
b e g i n
i -i n
d u p
i f
e m i t
-1 // dont quit loop
t h e n
0 = u n t i l
;

// clear buffer contents, does not use
// i-in as this simply needs clearing
// ( --- )
: i-cbuff
b e g i n
k e y 1 ? i f k e y 1 d r o p t h e n
k e y 1 ?
0 = u n t i l
;

// Send string to IASI device using UART1
// addr is the address of a 0 terminated string
// max string length 255 chars
: stype1 { addr --- }
a d d r 2 5 5 + // end
a d d r // start
d o
i c @ 0 =
i f
l e a v e
e l s e
i c @ e m i t 1
t h e n
n e x t
;

// This is the same as u. but uses emit1 and
// stype1 to print to UART1
// prints n as ASCII
// ( n --- )
: iu.<# #s #> s t y p e 1 ;

// This is exactly the same as s" except that
// it uses ' to make it easier for sending
// string commands to IASI devices
// ( -- )
: ,'
i n t: a d d r 1 l e n
3 9 w o r d d u p => a d d r 1 // parse until '
l e n g t h => l e n // length
a d d r 1 h e r e l e n m o v e // ad1, ad2, len -- to dic
l e n a l l o t // move pointer
0 c , // add string terminator
a l i g n
1 >i n +! // only needed when using '
;

// specifically for sending text to IASI devices
// uses ' instead of " to make it easier for string commands
// ( -- )
// us in the form i.' BT"Fred"'
: I.'
['] l i t , // compile LIT
h e r e // address for type
1 6 + , // offset past STYPE + BRANCH + branch-address
['] s t y p e 1 , // compile type
['] b r a n c h , // branch round string
h e r e // leave address to store fwd br to
0 , // to be resolved after string
,' // compile string to dic
h e r e s w a p ! // resolve branch
; i m m e d i a t e

// simply sends 4 cr to device to establish baud rate
// ( --- )
: i-autobaud
4 f o r
c r 1 1 0 0 m s
n e x t
1 0 0 m s
i -c b u f f // clear buffer
;

// ---------- command line words for debugging ------ //
//
// detect configuration
// x = 0 if no response
// 241 if inverted
// 76 if not inverted
// ( --- x)
: i-det
i -a u t o b a u d
c r 1 // send cr and see what comes back
i -i n // get first char
i -c b u f f // clear buffer
;

// detects if device is in inverted mode or not
// as i-det, but this has print out
: i-det.
i -d e t
d u p 2 1 4 = i f ." I n v e r t e d m o d e " c r t h e n
d u p 7 6 = i f ." N o n -i n v e r t e d m o d e " c r t h e n
d u p 0 = i f ." N o r e s p o n s e " c r t h e n
d r o p
;
// initialises a device that has been configured
// for autobaud, reports success
: i-init
i -c b u f f // clear buffer
5 f o r
i . // try 5 times
i -d e t // this does work
d u p 2 1 4 =
i f
." D e v i c e i n i t i a l i s e d , i n v e r t e d m o d e "
l e a v e
t h e n
7 6 =
i f
." D e v i c e i n i t i a l i s e d , n o n -i n v e r t e d m o d e "
l e a v e
t h e n
n e x t
;

// Software factory reset
: i-zf
." W a i t "
i -c b u f f // just in case
i -a u t o b a u d
i .' :0 0 z f ' c r 1 // factory defaults, type 1
4 6 e m i t // wait..
5 0 0 m s
i -a u t o b a u d
i .' z f ' c r 1 // factory defaults, type 2
4 6 e m i t // wait..
5 0 0 m s
i -a u t o b a u d
;
// device configure
// n = factory configuration 0 to 5
// can use i-zc before this if required
// use: 3 i-config
// ( n --- )
: i-config
i .' Z C '
&3 0 + e m i t 1 // convert stack value to ascii
i .' -r '
c r 1
5 0 0 m s
i -a u t o b a u d
c r ." D e v i c e r e p o r t s " i -d e t .
;

// -- multiple display addressing ---
// emits ":xx" to form the address
// numerical addresses only
// ( address ---)
: i-address
<# # # 5 8 h o l d #> s t y p e 1 // :addr
;

// This will set a device, using config slot 5
// to give null response at 9600 baud. It is a
// safe option. Supply address for device, must be
// in range 1-99. TEST with i-init, should return
// no response
// NOTE commands will still return values, there is simply
// no prompt.
// ( address --- )
: i-multi
." W a i t ."
i .' Z A ' // set address
<# # # #>
s t y p e 1 // send as ASCII
c r 1 1 0 0 m s // terminate address command
i .' Z B 0 ' c r 1 1 0 0 m s // baud rate 9600
i .' Z D 0 ' c r 1 1 0 0 m s // no error reporting
i .' Z C 5 -w n n n n n n n ' c r 1 // set no response
4 6 e m i t
5 0 0 m s // device needs to reset
5 f o r // wait for response
i -d e t
0 > i f l e a v e t h e n
n e x t
1 0 0 m s
i .' Z C 5 -r ' c r 1 // set it
;

// used for interfacing with device, see i-send
// and i-get, this word is not used on its own
// it gets and sends to UART1 the text in the TIB
// which is the text following the word
: (i-ipb)
i -c b u f f // clear ipb
1 3 w o r d // get i/p from stream
s t y p e 1 // send word to uart1
c r 1 // get IASI to process it
;

// utility for sending and receiving from UART2
// sends text following word, must all be on 1 line
// use: I-SEND bt"hello"
// must be a space following the D of send
// ( --- )
: i-send
(i-ipb)
i -b u f f . // print result
c r
;

// for input devices will get the response
// from the command and return it on
// the stack. This expects 2 bytes
// use: i-get2 va*
// ( --- val)
: i-get2
(i-ipb) // get and send command following word
i -i n 2 5 6 *
i -i n +
;