STM8 eForth dependencies of MBTEST

MBCRC

#require UARTISR
#require CRC16
#require WIPE

NVM
  : mbslv ( -- c )
    rxbuf C@
  ;

  : mbfc ( -- c )
    rxbuf 1+ C@
  ;

  : mbp1 ( -- n )
    rxbuf 2+ @
  ;

  : mbp2 ( -- n )
    rxbuf 4 + @
  ;

  : MBCRC ( a1 a0 -- crc-le )
    \ -1 ( CRC seed ) OVER rxbuf ( a1 -1 a1 a0 ) DO
    -1 ROT ROT ( -1 a1 a0 ) DO
      I C@ CRC16
    LOOP
    ( CRC16 ) EXG ( CRC-LE )
  ;

RAM