Re: [Flashforth-devel] NMEA input

[Mikael N. <mik...@fl...>]

I noticed some errors in my previous post /Mike

ram
create command 8 allot
create param1  8 allot
create param2  10 allot

: lcd-emit ( char -- ) ;
: lcd-xy   ( x y -- ) ;

: parse-gpgga
    tib dup tibsize accept 'source 2! 0 >in !
    [char] , parse command place \ $GPGGA
    [char] , parse param1 place
    [char] , parse param2 place
    \ etcetera
;
: lcd-display
    0 0 lcd-xy
    param1 c@+ type
    param2 c@+ type
;

: lcd-nmea
    4800 baud-set u0-
    ['] lcd-emit 'emit !  \ redirect to lcd
    begin
      parse-gpgga
      lcd-display
    again
;

\ For autostart
' lcd-nmea to turnkey