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

'''@''' (разыменовать, взять, читается «извлечь») — стандартное слово [[Каллисто]]. Замещает [[Единое адресное пространство|адрес]] в [[Стек данных|стеке]] его содержимым, cчитывая [[десятичное число]] или 16-битное целое со знаком.
 @              ( a -- x )                      Извлечь. Считать значение ячейки по адресу a.
[[Файл:CallistoBuildsDoes.png|thumb|right|264px|Пример работы слова @]]
Заносит в [[Стек данных|стек]] число x, хранящееся в [[Ячейка (Каллисто)|ячейке]] по [[Единое адресное пространство|адреcу]] a.

Если a указывает на байтовую память (диапазоны 0…9999 и 11000…18167), из [[Ячейка (Каллисто)|двухбайтовой ячейки]] по [[Единое адресное пространство|адресам]] a и a+1 (старший и младший байт соответственно) считывается 16-битное [[Шестнадцатеричный формат|двоичное]] целое со знаком x (x меняется от -32768 до 32767).

== Ввод слова @ ==
В [[Режим NUM|режиме NUM]] нажмите [[Клавиша ИП|чёрную клавишу {{Чёрная клавиша|ИП}}]]

== @ и F@ в стандарте ANS Forth ==
<PRE>
 6.1.0650   @                                  "fetch"                      CORE
            ( a-addr -- x )
            x - значение, сохраненное в a-addr.

        См.: 3.3.3.1 Выравнивание адреса.

 12.6.1.1472   F@                      "f-fetch"                        FLOATING
            ( f-addr -- ) ( F: -- r )  or  ( f-addr -- r )
            r - значение, сохраненное в f-addr.
</PRE>

== История ==
В 1968 году Чак Мур работал в Mohasco Industries, Inc ([https://en.wikipedia.org/wiki/Amsterdam_%28city%29,_New_York Amsterdam NY], ''англ.''). Первая версия интерпретатора, получившая название FORTH, заработала на миникомпьютере IBM 1130 с графическим дисплеем 2250 (16-битный процессор с ОЗУ 8К, дисководом, клавиатурой, принтером и ридером/панчером перфокарт). Первый FORTH знал слово @

=== @ в предыдущем стандарте Forth-83 (англ.) ===
      @            addr -- 16b                   79             "fetch"
           16b is the value at addr.

=== @ в стандарте Forth-79 (англ.) ===
 @              addr -- n                     199            "fetch"
     Leave on the stack the number contained at addr.

=== @ в fig-FORTH Release 1 glossary, май 1979 (англ.) ===
 @           addr  ---  n                       L0
        Leave the 16 bit contents of address.

== Реализация ==
Слово @ в ФОРТ-ЕС и FORTH ИТЭФ также было [[примитив]]ом. Вот описание и определение @ из ФОРТ-ЕС:
<PRE>
@       А->W ДАТЬ ЗНАЧЕНИЕ ПО АДРЕСУ А                          11

                     Экран номер 11
( 31.03.86      !  0!  @  С!  С@  , С, EXECUTE )

CODE @ ( А->W  РАЗЫМЕНОВАТЬ A)   RW2 PULL,  RW2 RMASK NR,
 RW1 0 (, RW2 RFORTH LH,  PUTRW1  B,   END-CODE
</PRE>
Вот определение @ из FORTH ИТЭФ:
<PRE>
            HEAD     201Q,,300Q,AT                        ; @
            POP  BX
            PUSH [BX]
            NEXT
</PRE>

== Ссылки ==
* {{Исходник|Fetch|@}}
* См. слова [[Слово !|!]], [[U@]], [[C@]], [[Слово ИП|ИП]] и [[Символ с кодом 64|символ @]]
* Слова [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0650 @ (fetch)] и [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.1.1472 F@ (f-fetch)] в стандарте ANS Forth ''(англ.)''
* Слова [http://forth-standard.org/standard/core/Fetch @ (fetch)] и [http://forth-standard.org/standard/float/FFetch F@ (f-fetch)] в черновике Forth 200x ''(англ.)''
* [http://www.forth.com/starting-forth/sf8/sf8.html Variables, Constants, and Arrays] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)''


{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Одноместные операции Каллисто]]
[[Категория:Работа с памятью Каллисто]]
@@ Строка 1: / Строка 1: @@
-'''@''' (разыменовать, взять, прочесть, читается «извлечь») — стандартное слово [[Каллисто]]. Замещает [[Единое адресное пространство|адрес]] в [[Стек данных|стеке]] его содержимым.
+'''@''' (разыменовать, взять, читается «извлечь») — стандартное слово [[Каллисто]]. Замещает [[Единое адресное пространство|адрес]] в [[Стек данных|стеке]] его содержимым, cчитывая [[десятичное число]] или 16-битное целое со знаком.
   @              ( a -- x )                      Извлечь. Считать значение ячейки по адресу a.
 [[Файл:CallistoBuildsDoes.png|thumb|right|264px|Пример работы слова @]]
 Заносит в [[Стек данных|стек]] число x, хранящееся в [[Ячейка (Каллисто)|ячейке]] по [[Единое адресное пространство|адреcу]] a.
+Если a указывает на байтовую память (диапазоны 0…9999 и 11000…18167), из [[Ячейка (Каллисто)|двухбайтовой ячейки]] по [[Единое адресное пространство|адресам]] a и a+1 (старший и младший байт соответственно) считывается 16-битное [[Шестнадцатеричный формат|двоичное]] целое со знаком x (x меняется от -32768 до 32767).
 == Ввод слова @ ==
@@ Строка 36: / Строка 38: @@
 == Реализация ==
-Слово @ универсальное. Оно позволяет считывать как [[десятичное число]], так 16-битное целое со знаком и даже обращаться к [[Регистры функций МК|регистрам функций]]. Хотя для последнего крайне рекомендуется использовать [[слово ИП]].
-Если a указывает на байтовую память (диапазоны 0…9999 и 11000…18167), из [[Ячейка (Каллисто)|двухбайтовой ячейки]] по [[Единое адресное пространство|адресам]] a и a+1 (старший и младший байт соответственно) считывается 16-битное [[Шестнадцатеричный формат|двоичное]] целое со знаком x (x меняется от -32768 до 32767).
-Если вам надо считать 16-битное целое без знака, используйте более быстрое слово [[U@]].
-<pre>
-;#Fetch
-; @                ( a −− x )                           Извлечь. Считать значение ячейки по адресу a.
-; Заместить адрес в стеке его содержимым, двухбайтовая ячейка содержит число со знаком.
-; Также может считать десятичный регистр, если адрес указывает на него.
-; Слово @ не предназначено для считывания регистров функций!
-LAT:            .DB     1
-                 .TEXT   "@"                     ; ( адрес −− целое)
-                 .DW     LTOGL
-AT:             .DW     JAT
-JAT:            PKRM03
-                 MA  1
-                 EE 4 −  FX>=0 AT1
-                 MA M5 1000 −  FX>=0 AT2         ; 1000 быстрее, чем 1 ВП 3
-                 KRMA 128 −  PX>=0 UAT0
-                 RME ∗ KRM5
-                 GOTO AT01
-AT2:            KRMA PKM03  KGOTO9
-AT1:            RMA KPRGM 128 −  PX>=0 UAT1
-                 RME ∗ RMA 1 + KPRGM
-AT01:           +
-                 32768 − PKM03  KGOTO9
-…
-UAT0:           KRMA RME ∗ KRM5 + PKM03 KGOTO9  ; Сюда есть переход из @
-UAT1:           RMA KPRGM RME ∗                 ; Сюда есть переход из @
-                 RMA 1 + KPRGM +
-                 PKM03 KGOTO9
-</pre>
-Реализация из SP-Forth 4.20:
-<pre>
-\ ================================================================
-\ Операции с памятью
-CODE @ ( a-addr -- x ) \ 94
-\ x - значение по адресу a-addr.
-     MOV EAX, [EAX]
-     RET
-END-CODE
-</pre>
-=== Советская реализация ===
 Слово @ в ФОРТ-ЕС и FORTH ИТЭФ также было [[примитив]]ом. Вот описание и определение @ из ФОРТ-ЕС:
 <PRE>
@@ Строка 113: / Строка 69: @@
 [[Категория:Одноместные операции Каллисто]]
 [[Категория:Работа с памятью Каллисто]]
-[[Категория:Стандартные слова]]
-[[Категория:1994 CORE]]
-[[Категория:2012 CORE]]