Редактирование: SP@

'''SP@''' (считать SP, читается «эс-пи извлечь») — стандартное слово [[Каллисто]].

Записывает в [[Стек данных|стек]] адрес вершины [[Стек данных|стека]], до исполнения команды [[SP@]]

== Ввод слова SP@ ==
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите четыре клавиши [[Клавиша 1|{{Серая клавиша|1}}]] [[Клавиша 6|{{Серая клавиша|6}}]] &nbsp; [[Клавиша P|{{Синяя клавиша|P}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]]

Эти нажатия оставляют клавиатуру в [[Режим NUM|режиме NUM]].

== SP@ в предыдущем стандарте Forth-83 (англ.) ==
      SP@          -- addr                       79         "s-p-fetch"
           addr is the address of the top of the stack just before SP@
           was executed.

== SP@ в стандарте Forth-79 (англ.) ==
 SP@            -- addr                       214        "s-p-fetch"
     Return  the address of the top of the stack,  just before  SP@
     was executed.

== SP@ в fig-FORTH Release 1 glossary, май 1979 (англ.) ==
 SP@            --- addr
        A computer dependent proceedure to return the address of the stack
        position to the top of the stack, as it was before SP@ was executed.
            (e.g.  1  2  SP@  @  .   .   .     would
            type 2  2   1)

== Реализация ==
Слово SP@ в ФОРТ-ЕС и FORTH ИТЭФ также было [[примитив]]ом. Вот его описание и определение из ФОРТ-ЕС:
<PRE>
SP@     +   ->А АДРЕС ТЕКУЩЕЙ ВЕРШИНЫ СТЕКА ДАННЫХ              20

                     Экран номер 20
( 31.03.86    SP@ SP! RP@ RP! 2/ 2* 2@ 2! DEPTH )

CODE SP@ ( ->A) RW1 RSTACK LR, RW1 RFORTH SR, PUSHRW1 B,
</PRE>

Определение SP@ из FORTH ИТЭФ:
<PRE>
   ENDA:    PUSH AX
            NEXT
            ...
            HEAD     203Q,'SP',300Q,SPAT                  ; SP@
            MOV  AX, SP
            JMP  ENDA
</PRE>

== Ссылки ==
* См. слова [[!SP]] и [[S0]]
* [https://en.wikipedia.org/wiki/Stack_register Stack register в английской Википедии] ''(англ.)''
* [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\09.FUNKZIONIROWANIE%20FORT-SISTEMY ФУНКЦИОНИРОВАНИЕ ФОРТ-СИСТЕМЫ] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»]
* [http://www.forth.com/starting-forth/sf9/sf9.html Under the Hood] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)''


{{нет иллюстраций}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Слова Каллисто без стековых диаграмм]]
@@ Строка 1: / Строка 1: @@
-'''SP@''' (считать SP, читается «эс-пи извлечь») — фортовское слово [[Каллисто]].
+'''SP@''' (считать SP, читается «эс-пи извлечь») — стандартное слово [[Каллисто]].
- SP@            ( −− a )                             Считать SP. Адрес текущей вершины стека данных.
 Записывает в [[Стек данных|стек]] адрес вершины [[Стек данных|стека]], до исполнения команды [[SP@]]
@@ Строка 8: / Строка 8: @@
 Эти нажатия оставляют клавиатуру в [[Режим NUM|режиме NUM]].
-== История ==
+== SP@ в предыдущем стандарте Forth-83 (англ.) ==
-Это слово иногда называлось 'S (две литеры), но во всех стандартах, начиная с fig-Форта, получило устойчивое имя SP@ — под которым и вошло в [[Каллисто]].
-Слово SP@ отсутствует в действующем стандарте ANS Forth и его нет в черновиках Форта-2012.
-=== SP@ в предыдущем стандарте Forth-83 (англ.) ===
        SP@          -- addr                       79         "s-p-fetch"
             addr is the address of the top of the stack just before SP@
             was executed.
-=== SP@ в стандарте Forth-79 (англ.) ===
+== SP@ в стандарте Forth-79 (англ.) ==
   SP@            -- addr                       214        "s-p-fetch"
       Return  the address of the top of the stack,  just before  SP@
       was executed.
-=== SP@ в fig-FORTH Release 1 glossary, май 1979 (англ.) ===
+== SP@ в fig-FORTH Release 1 glossary, май 1979 (англ.) ==
   SP@            --- addr
          A computer dependent proceedure to return the address of the stack
@@ Строка 31: / Строка 26: @@
 == Реализация ==
-<pre>
+Слово SP@ в ФОРТ-ЕС и FORTH ИТЭФ также было [[примитив]]ом. Вот его описание и определение из ФОРТ-ЕС:
-; ∗∗∗ Стек ∗∗∗
-;
-;#SPFetch
-; SP@              ( −− a )                             Считать SP. Адрес текущей вершины стека данных.
-LSPAT:          .DB     3
-                 .TEXT   "SP@"
-                 .DW     LTG
-SPAT:           .DW     JSPAT                   ; Положить на стек адрес вершины стека, до исполнения команды SP@
-JSPAT:          RM3
-SPAT0:          1 EE 4 + KM3  KGOTO9
-</pre>
-Реализация из SP-Forth 4.20:
-<pre>
-CODE SP@ ( -> A )
-     LEA EBP, -4 [EBP]
-     MOV [EBP], EAX
-     MOV EAX, EBP
-     RET
-END-CODE
-</pre>
-=== Советская реализация ===
-Слово SP@ пришло в [[Каллисто]] из ФОРТ-ЕС и FORTH ИТЭФ, где также было [[примитив]]ом. Вот описание и определение SP@ из ФОРТ-ЕС:
 <PRE>
 SP@     +   ->А АДРЕС ТЕКУЩЕЙ ВЕРШИНЫ СТЕКА ДАННЫХ              20
@@ Строка 75: / Строка 47: @@
 == Ссылки ==
-* {{Исходник|SPFetch|SP@}}
 * См. слова [[!SP]] и [[S0]]
 * [https://en.wikipedia.org/wiki/Stack_register Stack register в английской Википедии] ''(англ.)''
@@ Строка 85: / Строка 56: @@
 {{заготовка}}
 [[Категория:Слова Каллисто]]
-[[Категория:Фортовские слова]]
 [[Категория:Примитивы]]
+[[Категория:Слова Каллисто без стековых диаграмм]]