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

'''PICK''' (взять, читается «пик») — стандартное слово [[Каллисто]]. Продублировать u-ное сверху значение.
 PICK           ( xu ... x1 x0 u -- xu ... x1 x0 xu )  Дублировать u-ное сверху.
Удаляет u. Копирует элемент [[Стек данных|стека]] с номером u (считая от нуля, само число u при этом не считается) и записывает его наверх [[Стек данных|стека]].

== Ввод слова PICK ==
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите четыре клавиши [[Клавиша 6|{{Серая клавиша|6}}]] [[Клавиша 7|{{Серая клавиша|7}}]] [[Клавиша С/П|{{Чёрная клавиша|С/П}}]] [[Клавиша 9|{{Серая клавиша|9}}]]

== Детали реализации ==
Верхний элемент стека имеет номер нуль, так что 0 PICK равносильно [[Слово ↑|↑]], а 1 PICK равносильно [[OVER]].

== PICK в стандарте ANS Forth ==
<PRE>
 6.2.2030   PICK                                                        CORE EXT
            ( xu ... x1 x0 u -- xu ... x1 x0 xu )
            Удаляет u. Копирует xu на вершину стека. Неопределенная ситуация 
            существует, если до выполнения PICK на стеке меньше u+2 элементов.

 A.6.2.2030   PICK
 0 PICK эквивалентно DUP, и 1 PICK эквивалентно OVER.
</PRE>

== История ==
В Форте-83 действие слова PICK подверглось кардинальному изменению. Следуя стандарту Форт−83 отсчёт начинается сверху и верхний элемент имеет номер 0, то есть 0 PICK это [[Слово ↑|↑]]

В [[Каллисто]] слово PICK совместимо с версией Форта-83 и последующими. В программах, написанных для Форта-79 и более ранних версий, слово PICK надо заменять на последовательность [[1−]] PICK

=== PICK в предыдущем стандарте Forth-83 (англ.) ===
      PICK         +n -- 16b                     83
           16b is a copy of the +nth stack value, not counting +n
           itself.  {0..the number of elements on stack-1}
                   0 PICK is equivalent to DUP
                   1 PICK is equivalent to OVER

=== PICK в стандарте Forth-79 (англ.) ===
 PICK           n1 -- n2                      240
     Return the contents of the n1-th stack value,  not counting n1
     itself.  An error condition results for n less than one.
          2 PICK  is equivalent to OVER.  {1..n}

== Реализация ==
Слово PICK в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение:
<PRE>
PICK         WN,..,,W0,+N->WN,...,W0,WN ПРОДУБЛИРОВАТЬ          12
             N-E СВЕРХУ ЗНАЧЕНИЕ

                     Экран номер 12
( 31.03.86    ROLL  PICK  2DUP 2DROP  2SWAP  2OVER  2ROT )

CODE PICK ( WN,,..,W0,+N->WN,...,W0,WN)
    RW2 PULL,   RW2 RW2 AR, ERCONDB BM,
    RW1 2 (, RW2 RSTACK LH,   PUTRW1 B,   END-CODE
</PRE>
В FORTH ИТЭФ слово PICK также было [[примитив]]ом, вот его определение:
<PRE>
            ** Операции со стеком параметров **

            HEAD     204Q,'PIC',313Q,PICK                 ; PICK
            POP  BX
	    CMP  BX,  0
            JLE  $GO
            DEC  BX
            SAL  BX, 1
            ADD  BX, SP
            PUSH SS:[BX]
   $GO:     NEXT
</PRE>

== Ссылки ==
* {{Исходник|PICK|PICK}}
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.2.2030 PICK] и [http://forth.sourceforge.net/standard/dpans/dpansa6.htm#A.6.2.2030 комментарий к нему] в стандарте ANS Forth ''(англ.)''
* Слово [http://forth-standard.org/standard/core/PICK PICK] и [http://forth-standard.org/standard/rationale#rat:core:PICK комментарий к нему] в черновике Forth 200x ''(англ.)''


{{нет иллюстраций}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Стековые манипуляции Каллисто]]
@@ Строка 1: / Строка 1: @@
 '''PICK''' (взять, читается «пик») — стандартное слово [[Каллисто]]. Продублировать u-ное сверху значение.
-[[Файл:dSDepthPickRot.png|thumb|right|264px|Пример работы слова PICK]]
   PICK           ( xu ... x1 x0 u -- xu ... x1 x0 xu )  Дублировать u-ное сверху.
 Удаляет u. Копирует элемент [[Стек данных|стека]] с номером u (считая от нуля, само число u при этом не считается) и записывает его наверх [[Стек данных|стека]].
@@ Строка 6: / Строка 5: @@
 == Ввод слова PICK ==
 В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите четыре клавиши [[Клавиша 6|{{Серая клавиша|6}}]] [[Клавиша 7|{{Серая клавиша|7}}]] [[Клавиша С/П|{{Чёрная клавиша|С/П}}]] [[Клавиша 9|{{Серая клавиша|9}}]]
+== Детали реализации ==
+Верхний элемент стека имеет номер нуль, так что 0 PICK равносильно [[Слово ↑|↑]], а 1 PICK равносильно [[OVER]].
 == PICK в стандарте ANS Forth ==
@@ Строка 19: / Строка 21: @@
 == История ==
-В Форте-83 действие слова PICK подверглось кардинальному изменению. Следуя стандарту Форт−83 (и последующим) отсчёт начинается сверху и верхний элемент имеет номер 0, то есть 0 PICK это [[Слово ↑|↑]]
+В Форте-83 действие слова PICK подверглось кардинальному изменению. Следуя стандарту Форт−83 отсчёт начинается сверху и верхний элемент имеет номер 0, то есть 0 PICK это [[Слово ↑|↑]]
 В [[Каллисто]] слово PICK совместимо с версией Форта-83 и последующими. В программах, написанных для Форта-79 и более ранних версий, слово PICK надо заменять на последовательность [[1−]] PICK
@@ Строка 37: / Строка 39: @@
 == Реализация ==
-Верхний элемент стека имеет номер нуль, так что 0 PICK равносильно [[Слово ↑|↑]], а 1 PICK равносильно [[OVER]].
-<pre>
-;               ∗∗ Операции со стеком параметров ∗∗
-;
-;#PICK
-; PICK             ( xu .. x1 x0 u −− xu .. x1 x0 xu )  Дублировать u−ное сверху.
-LPICK:          .DB     4
-                 .TEXT   "PICK"
-                 .DW     LLEV
-PICK:           .DW     JPICK                   ; Копирует элемент стека с номером u и записывает его наверх стека, 0 PICK это DUP
-JPICK:          PKRM03 KX>=09                   ; Проверить на неверное значение
-                 RM3 + M5 KRM5 PKM03             ; Косвенная адресация с R5 использует прединкремент
-                 KGOTO9
-</pre>
-=== Реализация в SP-Forth 4.20 ===
-<pre>
-CODE PICK ( xu ... x1 x0 u -- xu ... x1 x0 xu ) \ 94 CORE EXT
-\ Убрать u. Копировать xu на вершину стека. Неопределенная ситуация
-\ возникает, если перед выполнением PICK на стеке меньше,
-\ чем u+2 элементов.
-        MOV     EAX, [EBP] [EAX*4]
-     RET
-END-CODE
-</pre>
-=== Советская реализация ===
 Слово PICK в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение:
 <PRE>
@@ Строка 97: / Строка 72: @@
+{{нет иллюстраций}}
 {{заготовка}}
 [[Категория:Слова Каллисто]]
 [[Категория:Примитивы]]
 [[Категория:Стековые манипуляции Каллисто]]
-[[Категория:Стандартные слова]]
-[[Категория:1994 CORE EXT]]
-[[Категория:2012 CORE EXT]]