" kf532.tc" L  // кросс-компилятор
" ml605.lib" L  // набор библиотек для форт-процессора в плате ML605

// ******** вот тут начинается форт-процессор *********

: TESTF* S>F S>F F* F>S . ;

MAIN:   // your program will be start here

// systen initialization

  0 FDEPTH !
  10 BASE !
  INIT-COM

// работаем

CLS

5 5 TESTF*

BEGIN

?COM IF CLS COM@ DUP . 32 EMIT 1 + COM! COM-CNT @ . 50000000 0 DO LOOP THEN

AGAIN

END

// **************************************
// теперь продолжаем для PC

" COM8" TO ACTIVE-COM
PROGRAM

FORTH DEFINITIONS

" terminal.fpm" L