ComX/COM1/Com1key_.f
: Com1key? ( -- c1 ) \ get a key from serial port, don't wait long
Com1key-flg? 0=
if Com1key-val 1 Com1Hndl read-file \ -- len flag
abort" Failed to read serial port" \ -- len
to Com1key-flg?
then Com1key-flg? ;
: Com1key? ( -- c1 ) \ get a key from serial port, don't wait long
Com1key-flg? 0=
if Com1key-val 1 Com1Hndl read-file \ -- len flag
abort" Failed to read serial port" \ -- len
to Com1key-flg?
then Com1key-flg? ;