Code Body

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

// Example of using the BV4219 as a terminal, this will also // respond to some VT100 escape codes // Go word is 'term'

// 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=102 // #URL-lib "http://pin1.org/forthlib/flb/I2C/bv4219.flb" sid=103

// CONSTANTS: // set this to the device address &42 constant dev_address

Full Contents of File

// Example of using the BV4219 as a terminal, this will also
// respond to some VT100 escape codes
// Go word is 'term'

// 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=102
// #URL-lib "http://pin1.org/forthlib/flb/I2C/bv4219.flb" sid=103

// CONSTANTS:
// set this to the device address
&4 2 c o n s t a n t d e v _a d d r e s s

// utilities
: getnum ( from-key -- number, non-num )
v $: b u f 1 6
i n t #: b c o u n t 0
b e g i n
k e y d u p 4 8 5 7 b e t w e e n
w h i l e
%@ b u f b c o u n t + c !
1 +> b c o u n t
r e p e a t
0 %@ b u f b c o u n t + c ! // terminating 0
%@ b u f ?n u m b e r d r o p // the -1
;
// VT100 escape code interpretation
: vt100
i n t: p 1 p 2 p 3 p 4
k e y [c h a r ] [ <> i f d r o p e s c a p e t h e n
g e t n u m => p 1 => p 2 // is ; or command
p 2 [c h a r ] ; = i f g e t n u m => p 3 => p 4 t h e n
p 4 [c h a r ] H = i f p 1 p 3 a 2 5 t h e n
p 2 [c h a r ] A = i f a 2 8 p 1 - 0 m a x a 8 t h e n // cursor up
p 2 [c h a r ] J = i f p 1 2 = i f a 5 t h e n t h e n // cls
;

// check for correct address and if device is present
: device?
d e v _a d d r e s s 4 2 1 9 -i n i t
i f
4 0 0 0 0 0 i 2 s p e e d ; // set fast speed
e l s e
." C a n 't i n i t i a l i s e d e v i c e "
a b o r t
t h e n
;

: term
i n t: c u r r _p o s
d e v i c e ? 5 0 m s
a 5 5 0 m s // clear screen
b e g i n
k e y
d u p 2 7 = i f
d r o p v t 1 0 0
e l s e
d u p 3 = i f a b o r t t h e n // finish
d u p 1 3 = i f // cr
a 2 8 7 =
i f
0 0 a 2 5
e l s e
a 2 8 1 + 0 a 2 5
t h e n
t h e n
d u p 8 = i f // bs
a 2 7 1 - 6 / 1- 0 max => curr_pos
a 2 8 c u r r _p o s a 2 5 5 0 m s
3 2 a 2 0 5 0 m s // space
a 2 8 c u r r _p o s a 2 5 5 0 m s
t h e n
a 2 0
t h e n
a g a i n
;