// Контекст Fotrh процесса
struct NPcb {
   pp    csd;                // указатель на начало стека SD
   pp    csr;                // указатель на начало стека SR
   pp    csc;                // указатель на начало стека SC
   pb    here;                // указатель начала свободной области словаря
   pp    latest;               // указатель на аоследнее скомпилированное слово
}

NPcb gpcb;
uint[20] kdf;         // Сюда будем компилировать код
ubyte* here;

void initForth() {
   NPcb npcb = gpcb;
   const sizeSt = 10;                   // По 10 CELL на каждый стек
   uint[sizeSt] stSD, stSR, stSL;        // Память под стеки
   npcb.csd = cast(pp)&stSD[sizeSt-1];      // Запомнить начало SP в контексте
   // npcb.csr = cast(pp)stSR[sizeSt-1]; ---> Совмещен со стеком D
   npcb.csc = cast(pp)&stSL[sizeSt-1];      // Запомнить начало SL в контексте
   npcb.here = cast(ubyte*)&kdf;         //
   gpcb = npcb;
   asm {
      align 4;
      // Сохраним регистры D
      push EBP; push EBX;   push EAX; push ECX;   push EDX;
      // --------------------
      // В ESI запомним указатель на доп стек SL
      lea EAX, npcb.csc.offsetof[npcb];
      mov ESI,  DS:[EAX];
      // Из контекста возьмем указатель на стек данных ...
      lea EAX, npcb.csd.offsetof[npcb];
      mov EAX,  DS:[EAX];
      call SP_set; // ... и инициализируем его
      mov EAX, ESI;   call LP_set; // Стек дополнительный для Форк
      
      // Работа, загрузка, компиляция и т.д.
      call t4;
      
      // ----------------------
      // Восстановим регистры D
      pop EDX; pop ECX; pop EAX; pop EBX;   pop EBP;
   }
}

void testOpenFort() {
   writeln(toCON("Проверим работу с уже инициализированной Fort"));
   NPcb npcb = gpcb;   // Возможность работы с PCB (контекст) переменными в ASM
   asm {
      align 4;
      // Сохраним регистры D
      push EBP; push EBX;   push EAX; push ECX;   push EDX;
      // --------------------
      // Найдем посл функцию по Latest и выполним её
      // LATEST @ @ EXECUTE
      call h_LATEST; call h_getFromAdr; call h_getFromAdr;   call f_EXECUTE;
      // ----------------------
      // Восстановим регистры D
      pop EDX; pop ECX; pop EAX; pop EBX;   pop EBP;
   }
}

void main() {
   // Инициализируем Forth, грузим файлы библиотек, компилим код (если надо)
   initForth();
   // Операторы D программы
   writeln(toCON("Просто программа на D"));
   // Работа с готовой Fort, а именно выполнить слово по LATEST
   testOpenFort();
}

void t5() {
      asm {
             call SP_dup;             
             call h_LATEST;
             .....
             и т.д.
      }
}