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

'''&gt;RESOLVE''' (разрешить) — стандартное слово [[Каллисто]].

Разрешить ссылку вперёд в адресе a.

Слово &gt;RESOLVE ( A ---&gt; ) снимает адрес, занесённый словом [[⟩MARK|&gt;MARK]], со [[Стек данных|стека]] и вписывает в него ссылку на текущую вершину [[Словарь|словаря]] в соответствии с принятой реализацией переходов в шитом коде, согласованной с реализацией [[BRANCH]] и [[?BRANCH]]

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

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

== &gt;RESOLVE в предыдущем стандарте Forth-83 (англ.) ==
      >RESOLVE     addr --                       C,83 "forward-resolve"
           Used at the destination of a forward branch.  Calculates the
           branch address (to the current location in the dictionary)
           using addr and places this branch address into the space
           left by >MARK .

== Реализация ==
Определение слова &gt;RESOLVE в ядре ФОРТ-ЕС:
<PRE>
                     Экран номер 19
( 31.03.86   CPАBHEHИЯ И РАЗРЕШЕНИЯ В ШИТОМ КОДЕ)

: >RESOLVE ( A->) HERE SWAP ! ;
</PRE>


{{нет иллюстраций}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Слова высокого уровня]]
[[Категория:Реализация структур управления Каллисто]]
[[Категория:Слова Каллисто без стековых диаграмм]]
@@ Строка 1: / Строка 1: @@
-'''&gt;RESOLVE''' (разрешить) — фортовское слово [[Каллисто]]. Завершить компиляцию перехода вперёд.
+'''&gt;RESOLVE''' (разрешить) — стандартное слово [[Каллисто]].
- >RESOLVE       ( a −− )                             Разрешить ссылку вперёд в адресе a.
-Слово &gt;RESOLVE снимает со [[Стек данных|стека]] [[Единое адресное пространство|адрес]], занесённый туда словом [[⟩MARK|&gt;MARK]], и вписывает по этому адресу ссылку на текущую вершину [[Словарь|словаря]] в соответствии с требованиями [[BRANCH]] и [[?BRANCH]].
+Разрешить ссылку вперёд в адресе a.
+Слово &gt;RESOLVE ( A ---&gt; ) снимает адрес, занесённый словом [[⟩MARK|&gt;MARK]], со [[Стек данных|стека]] и вписывает в него ссылку на текущую вершину [[Словарь|словаря]] в соответствии с принятой реализацией переходов в шитом коде, согласованной с реализацией [[BRANCH]] и [[?BRANCH]]
 == Ввод слова &gt;RESOLVE ==
@@ Строка 17: / Строка 18: @@
 == Реализация ==
-<pre>
+Определение слова &gt;RESOLVE в ядре ФОРТ-ЕС:
-;#FwdRESOLVE
-; >RESOLVE         ( a −− )                             Разрешить ссылку вперёд в адресе a.
-LGRESOLVE:      .DB     8
-                 .TEXT   ">RESOLVE"
-                 .DW     LGMARK
-GRESOLVE:       .DW CALL
-RGRESOLVE:      .DW HERE, LITP
-                 .DB 39,17                       ; 10001
-                 .DW SUB, SWAP, STORE, EXIT
-</pre>
-=== Реализации в SP-Forth 4.20 ===
-<pre>
-: >RESOLVE1 ( A -> )
-  HERE OVER - 4 -
-  SWAP !
-;
-: >RESOLVE ( A, N -- )
-  DUP 1 = IF   DROP >RESOLVE1
-          ELSE 2 <> IF -2007 THROW THEN \ ABORT" Conditionals not paired"
-               >RESOLVE1
-          THEN
-;
-</pre>
-<pre>
-: TC>RESOLVE1 ( A -> )
-  DUP
-    DP @ DUP TO :-SET
-    OVER - 4 -
-    SWAP !
-\   J_OPT? IF ." R=" BASE @ HEX LAST-HERE U. DP @ U. BASE ! THEN
- RESOLVE_OPT
-;
-: TC>RESOLVE ( A, N -- )
-  DUP 1 = IF   DROP TC>RESOLVE1
-          ELSE 2 <> IF -2007 THROW THEN \ ABORT" Conditionals not paired"
-               TC>RESOLVE1
-          THEN
-;
-</pre>
-<pre>
-: >ORESOLVE1 ( A -> )
-  ?SET
-  DUP
-    DP @ DUP TO :-SET
-    OVER - 4 -
-    SWAP !
-  RESOLVE_OPT
-;
-: >ORESOLVE ( A, N -- )
-  DUP 1 = IF   DROP >ORESOLVE1
-          ELSE 2 <> IF -2007 THROW THEN \ ABORT" Conditionals not paired"
-               >ORESOLVE1
-          THEN
-;
-</pre>
-=== Советская реализация ===
-Описание и определение слова &gt;RESOLVE в ядре ФОРТ-ЕС:
 <PRE>
->RESOLVE К А-> РАЗРЕШИТЬ ССЫЛКУ ВПЕРЕД В АДРЕСЕ А               19
                       Экран номер 19
-( 31.03.86   СРАВНЕНИЯ И РАЗРЕШЕНИЯ В ШИТОМ КОДЕ)
+( 31.03.86   CPАBHEHИЯ И РАЗРЕШЕНИЯ В ШИТОМ КОДЕ)
 : >RESOLVE ( A->) HERE SWAP ! ;
 </PRE>
-== Ссылки ==
-* {{Исходник|FwdRESOLVE|&gt;RESOLVE}}
-* См. слова [[⟨MARK|&lt;MARK]], [[⟨RESOLVE|&lt;RESOLVE]] и [[⟩MARK|&gt;MARK]]
-* См. также слова [[BRANCH]] и [[?BRANCH]]
@@ Строка 101: / Строка 32: @@
 [[Категория:Слова высокого уровня]]
 [[Категория:Реализация структур управления Каллисто]]
-[[Категория:Фортовские слова]]
+[[Категория:Слова Каллисто без стековых диаграмм]]