Adding missed file.

This commit is contained in:
Brad Nelson
2021-02-13 06:55:20 -08:00
parent cb11ec1fc8
commit 13ca4f7f7a

View File

@ -0,0 +1,15 @@
( Lazy loaded Bluetooth Serial Terminal )
: bterm r|
vocabulary bterm bterm definitions
also bluetooth also internals
SerialBT.new constant bt
z" forth" 0 bt SerialBT.begin .
esp_bt_dev_get_address hex 6 dump cr
: bt-type bt SerialBT.write drop ;
: bt-key
begin bt SerialBT.available until 0 >r rp@ 1 bt SerialBT.readBytes drop r> ;
: bt-on ['] bt-type is type ['] bt-key is key ;
: bt-off ['] arduino-type is type ['] arduino-key is key ;
only forth definitions
| evaluate ;