Редактирование: ⟩MARK

'''&gt;MARK''' (отметить) — фортовское слово [[Каллисто]]. Начать компиляцию адреса перехода вперёд.
 >MARK          ( −− a )                             Отметить текущий адрес для ссылки вперёд.
Слово &gt;MARK резервирует место в [[Словарь|словаре]] под адрес ссылки вперёд в [[Шитый код|шитом коде]] и оставляет [[Единое адресное пространство|адрес]] этого зарезервированного места на [[Стек данных|стеке]]. Адрес назначения ссылки неопределён, пока слово [[⟩RESOLVE|&gt;RESOLVE]] не разместит в зарезервированном месте правильный адрес перехода, завершив создание ссылки.

Обычно &gt;MARK и [[⟩RESOLVE|&gt;RESOLVE]] используются в паре для компиляции адреса переходо-в вперёд: [[BRANCH]] и [[?BRANCH]].

== Ввод слова &gt;MARK ==
В [[Режим NUM|режиме NUM]] последовательно нажмите клавиши [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]] &nbsp; [[Клавиша Р-ГРД-Г|{{Чёрная клавиша|Р-ГРД-Г}}]] [[Клавиша ÷|{{Серая клавиша|÷}}]] {{ШГ←}} [[Клавиша ×|{{Серая клавиша|×}}]] [[Клавиша 9|{{Серая клавиша|9}}]]

Для возврата в [[режим NUM]] нажмите [[Клавиша P|синюю клавишу {{Синяя клавиша|P}}]].

== AHEAD в стандарте ANS Forth ==
Слово AHEAD в Форте ANS начинает компиляцию безусловного перехода вперёд.
<PRE>
15.6.2.0702   AHEAD                                                   TOOLS EXT
        Интерпретация: Семантика интерпретации для этого слова не определена.

        Компиляция: ( C: -- orig )
            Помещает адрес ячейки новой неразрешенной ссылки вперед orig на 
            стек потока управления. Добавляет семантику времени-выполнения, 
            данную ниже к текущему определению. Семантика не завершена, пока 
            orig не разрешена (например, с помощью THEN).

        Время-выполнения: ( -- )
            Продолжает выполнение с адреса ячейки, определенного разрешением 
            orig.
</PRE>

== История ==
=== &gt;MARK в предыдущем стандарте Forth-83 (англ.) ===
      >MARK        -- addr                       C,83    "forward-mark"
           Used at the source of a forward branch.  Typically used
           after either BRANCH or ?BRANCH .  Compiles space in the
           dictionary for a branch address which will later be resolved
           by >RESOLVE .

== Реализация ==
<pre>
3629 ;#FwdMARK
3630 ; >MARK            ( −− a )                             Отметить текущий адрес для ссылки вперёд.
3631 LGMARK:         .DB     5
3632                 .TEXT   ">MARK"
3633                 .DW     LBTICK
3634 GMARK:          .DW CALL, HERE, ZERO, BRAN,RCOMMA
</pre>

=== Реализация в SP-Forth 4.20 ===
<pre>
: AHEAD  \ 94 TOOLS EXT
\ Интерпретация: семантика неопределена.
\ Компиляция: ( C: -- orig )
\ Положить место неразрешенной ссылки вперед orig на стек управления.
\ Добавить семантику времени выполнения, данную ниже, к текущему определению.
\ Семантика незавершена до тех пор, пока orig не разрешится (например,
\ по THEN).
\ Время выполнения: ( -- )
\ Продолжить выполнение с позиции, заданной разрешением orig.
  HERE BRANCH, >MARK 2
; IMMEDIATE
…

: >MARK ( -> A )
  DP @ DUP TO :-SET 4 - 
;
</pre>

=== Советская реализация ===
Описание и определение слова &gt;MARK в ядре ФОРТ-ЕС:
<PRE>
>MARK   К ->А ОТМЕТИТЬ ТЕКУЩИЙ АДРЕС ДЛЯ ССЫЛКИ ВПЕРЕД          19

                     Экран номер 19
( 31.03.86   СРАВНЕНИЯ И РАЗРЕШЕНИЯ В ШИТОМ КОДЕ)

: >MARK ( ->A) HERE 0 , ;
</PRE>

== Ссылки ==
* {{Исходник|FwdMARK|&gt;MARK}}
* См. слова [[⟨MARK|&lt;MARK]], [[⟨RESOLVE|&lt;RESOLVE]] и [[⟩RESOLVE|&gt;RESOLVE]]
* См. также слова [[BRANCH]] и [[?BRANCH]]
* Слово [http://forth.sourceforge.net/standard/dpans/dpans15.htm#15.6.2.0702 AHEAD] в стандарте ANS Forth ''(англ.)''
* Слово [http://forth-standard.org/standard/tools/AHEAD AHEAD] в черновике Forth 200x ''(англ.)''


{{нет иллюстраций}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Слова высокого уровня]]
[[Категория:Реализация структур управления Каллисто]]
[[Категория:Фортовские слова]]