Code Body

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

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * // BV4505 - IASI Keypad Default address 'b' // This will load as a stand alone file or can be used as a library // providing the parent file includes the files in the REQUIRES // section // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// HISTORY: // Nov 2008 *Preliminary

// 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/General/strings.flb" // #URL-lib "http://pin1.org/forthlib/flb/IASI2/IASI2-b.flb"

// CONSTANTS: integer i-keypad-adr // set this before using

Full Contents of File

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
// BV4505 - IASI Keypad Default address 'b'
// This will load as a stand alone file or can be used as a library
// providing the parent file includes the files in the REQUIRES
// section
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// 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/General/strings.flb"
// #URL-lib "http://pin1.org/forthlib/flb/IASI2/IASI2-b.flb"

// HISTORY:
// Nov 2008 *Preliminary

// CONSTANTS:
i n t e g e r i -k e y p a d -a d r // set this before using

// ---------------------------------------------------------------
// changes address of keypad
: i-key-adr ( adr -- )
=> i -k e y p a d -a d r
;

// ---------------------------------------------------------------
// Initialise device to an address, reports back number of devices
// connected
: i-init-key ( adr -- x )
i -k e y -a d r
i -c o n n e c t
;

// ---------------------------------------------------------------
// reports number of keys in buffer
: i-key? ( -- num )
i -c b u f f // clear buffer
i -k e y p a d -a d r e m i t 1 [c h a r ] b e m i t 1 c r 1 i -s e n d
i -g n
0 = i f
." d e v i c e e r r o r " a b o r t
t h e n
;

// ---------------------------------------------------------------
// gets value of key
// note blocks here until key pressed
: i-key ( -- val )
b e g i n
i -k e y ?
u n t i l
i -k e y p a d -a d r e m i t 1 [c h a r ] g e m i t 1 c r 1 i -s e n d
i -g n d r o p
;

// ---------------------------------------------------------------
// returns 1 if key down otherwise returns 0
: i-keydown? ( -- 0|1)
i -k e y p a d -a d r e m i t 1 [c h a r ] d e m i t 1 c r 1 i -s e n d
i -b u f f e r c @
4 8 -
;

// ---------------------------------------------------------------
// returns -1 if no key down but returns the key value if key
// down
: i-keydownk? ( -- keyval|-1 )
i -k e y d o w n ?
i f
i -k e y
e l s e
-1
t h e n
;

// ---------------------------------------------------------------
// clears key buffer
: i-keyclear
i -k e y p a d -a d r e m i t 1 [c h a r ] c e m i t 1 c r 1 i -s e n d
;