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

Перейти к навигации Перейти к поиску
Внимание: Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы войдёте или создадите учётную запись, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.

Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.

Текущая версия Ваш текст
Строка 1: Строка 1:
'''PICK''' (взять, читается «пик») — стандартное слово [[Каллисто]]. Продублировать u-ное сверху значение.
'''PICK''' (взять) — стандартное слово [[Каллисто]]. Продублировать n-ное сверху значение.
[[Файл:dSDepthPickRot.png|thumb|right|264px|Пример работы слова PICK]]
  PICK          ( xn ... x1 x0 n -- xn ... x1 x0 xn )
  PICK          ( xu ... x1 x0 u -- xu ... x1 x0 xu ) Дублировать u-ное сверху.
 
Удаляет u. Копирует элемент [[Стек данных|стека]] с номером u (считая от нуля, само число u при этом не считается) и записывает его наверх [[Стек данных|стека]].
Удаляет n. Копирует элемент [[Стек данных|стека]] с номером n (считая от нуля, само число n при этом не считается) и записывает его наверх [[Стек данных|стека]].


== Ввод слова PICK ==
== Ввод слова PICK ==
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите четыре клавиши [[Клавиша 6|{{Серая клавиша|6}}]] [[Клавиша 7|{{Серая клавиша|7}}]] [[Клавиша С/П|{{Чёрная клавиша|С/П}}]] [[Клавиша 9|{{Серая клавиша|9}}]]
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите четыре клавиши [[Клавиша 6|{{Серая клавиша|6}}]] [[Клавиша 7|{{Серая клавиша|7}}]] [[Клавиша С/П|{{Чёрная клавиша|С/П}}]] [[Клавиша 9|{{Серая клавиша|9}}]]
== Детали реализации ==
Верхний элемент стека имеет номер нуль, так что 0 PICK равносильно [[↑ (Каллисто)|↑]], а 1 PICK равносильно [[OVER]].


== PICK в стандарте ANS Forth ==
== PICK в стандарте ANS Forth ==
<PRE>
  6.2.2030  PICK                                                        CORE EXT
  6.2.2030  PICK                                                        CORE EXT
             ( xu ... x1 x0 u -- xu ... x1 x0 xu )
             ( xu ... x1 x0 u -- xu ... x1 x0 xu )
Строка 16: Строка 18:
  A.6.2.2030  PICK
  A.6.2.2030  PICK
  0 PICK эквивалентно DUP, и 1 PICK эквивалентно OVER.
  0 PICK эквивалентно DUP, и 1 PICK эквивалентно OVER.
</PRE>


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


В [[Каллисто]] слово PICK совместимо с версией Форта-83 и последующими. В программах, написанных для Форта-79 и более ранних версий, слово PICK надо заменять на последовательность [[1−]] PICK
== PICK в предыдущем стандарте Forth-83 (англ.) ==
 
=== PICK в предыдущем стандарте Forth-83 (англ.) ===
       PICK        +n -- 16b                    83
       PICK        +n -- 16b                    83
           16b is a copy of the +nth stack value, not counting +n
           16b is a copy of the +nth stack value, not counting +n
Строка 30: Строка 27:
                   1 PICK is equivalent to OVER
                   1 PICK is equivalent to OVER


=== PICK в стандарте Forth-79 (англ.) ===
 
== PICK в стандарте Forth-79 (англ.) ==
  PICK          n1 -- n2                      240
  PICK          n1 -- n2                      240
     Return the contents of the n1-th stack value,  not counting n1
     Return the contents of the n1-th stack value,  not counting n1
Строка 36: Строка 34:
           2 PICK  is equivalent to OVER.  {1..n}
           2 PICK  is equivalent to OVER.  {1..n}


== Реализация ==
Верхний элемент стека имеет номер нуль, так что 0 PICK равносильно [[Слово ↑|↑]], а 1 PICK равносильно [[OVER]].
<pre>
1862 ;              ∗∗ Операции со стеком параметров ∗∗
1863 ;
1864 ;#PICK
1865 ; PICK            ( xu .. x1 x0 u −− xu .. x1 x0 xu )  Дублировать u−ное сверху.
1866 LPICK:          .DB    4
1867                .TEXT  "PICK"
1868                .DW    LLEV
1869 PICK:          .DW    JPICK                  ; Копирует элемент стека с номером u и записывает его наверх стека, 0 PICK это DUP
1870 JPICK:          PKRM03 KX>=09                  ; Проверить на неверное значение
1871                RM3 + M5 KRM5 PKM03            ; Косвенная адресация с R5 использует прединкремент
1872                KGOTO9
</pre>


=== Реализация в SP-Forth 4.20 ===
== История ==
<pre>
В Форте-83 действие слова PICK подверглось кардинальному изменению.
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>
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
В [[Каллисто]] слово PICK совместимо с версией Форта-83 и последующими. В программах, написанных для Форта-79 и более ранних версий, слово PICK надо заменять на последовательность 1− 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.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 ''(англ.)''
* Слово [http://www.forth200x.org/documents/html3/core/PICK.html PICK] и [http://www.forth200x.org/documents/html3/rationale.html#rat:core:PICK комментарий к нему] в черновике Forth 200x ''(англ.)''




{{нет иллюстраций}}
{{заготовка}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Стековые манипуляции Каллисто]]
[[Категория:Стековые манипуляции Каллисто]]
[[Категория:Стандартные слова]]
[[Категория:Описание бета-версии Каллисто]]
[[Категория:1994 CORE EXT]]
[[Категория:2012 CORE EXT]]
Пожалуйста, учтите, что любой ваш вклад в проект «ПМК вики» может быть отредактирован или удалён другими участниками. Если вы не хотите, чтобы кто-либо изменял ваши тексты, не помещайте их сюда.
Вы также подтверждаете, что являетесь автором вносимых дополнений, или скопировали их из источника, допускающего свободное распространение и изменение своего содержимого (см. Pmkwiki:Авторские права). НЕ РАЗМЕЩАЙТЕ БЕЗ РАЗРЕШЕНИЯ ОХРАНЯЕМЫЕ АВТОРСКИМ ПРАВОМ МАТЕРИАЛЫ!

В целях защиты вики от автоматического спама в правках просим вас решить следующую каптчу:

Отменить Справка по редактированию (в новом окне)

Шаблоны, используемые на этой странице:

Источник — https://pmk.the-hacker.ru/PICK