Текущая версия |
Ваш текст |
Строка 1: |
Строка 1: |
| '''DROP''' (сбросить, читается «дроп») — стандартное слово [[Каллисто]]. Снять со [[Стек данных|стека]] верхний элемент. | | '''DROP''' — стандартное слово [[Каллисто]]. |
| DROP ( x −− ) Убрать. Удалить верхний элемент стека.
| |
| Удаляет число x из [[Стек данных|стека]].
| |
|
| |
|
| == Ввод слова DROP ==
| | Удаляет верхний элемент [[Стек данных|стека]]. |
| В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите четыре клавиши [[Клавиша K|{{Синяя клавиша|K}}]] [[Клавиша ×|{{Серая клавиша|×}}]] [[Клавиша 5|{{Серая клавиша|5}}]] [[Клавиша 6|{{Серая клавиша|6}}]]
| |
|
| |
|
| == DROP и FDROP в стандарте ANS Forth == | | Также слово DROP осуществляет переход от двойной точности к обычной. |
| <PRE>
| | |
| | |
| | == DROP в стандарте ANS Forth == |
| 6.1.1260 DROP CORE | | 6.1.1260 DROP CORE |
| ( x -- ) | | ( x -- ) |
| Удаляет x из стека. | | Удаляет x из стека. |
|
| |
|
| | |
| | == FDROP в стандарте ANS Forth == |
| 12.6.1.1500 FDROP "f-drop" FLOATING | | 12.6.1.1500 FDROP "f-drop" FLOATING |
| ( F: r -- ) or ( r -- ) | | ( F: r -- ) or ( r -- ) |
| Удаляет r со стека с плавающей точкой. | | Удаляет r со стека с плавающей точкой. |
| </PRE>
| |
|
| |
| == История ==
| |
| В Форте слово DROP — одно из самых древних и устоявшихся. Входит под именем DROP во все стандарты Форта, включая fig-Форт и Форт-79.
| |
|
| |
|
| Впервые оно появилось в 1964 году под именем ; в программе CURVE, написанной Чак Муром на Алголе для Burroughs B5500 ([https://ru.wikipedia.org/wiki/%D0%9D%D0%B0%D1%86%D0%B8%D0%BE%D0%BD%D0%B0%D0%BB%D1%8C%D0%BD%D0%B0%D1%8F_%D1%83%D1%81%D0%BA%D0%BE%D1%80%D0%B8%D1%82%D0%B5%D0%BB%D1%8C%D0%BD%D0%B0%D1%8F_%D0%BB%D0%B0%D0%B1%D0%BE%D1%80%D0%B0%D1%82%D0%BE%D1%80%D0%B8%D1%8F_SLAC Национальная ускорительная лаборатория SLAC], [https://ru.wikipedia.org/wiki/%D0%A1%D1%82%D1%8D%D0%BD%D1%84%D0%BE%D1%80%D0%B4%D1%81%D0%BA%D0%B8%D0%B9_%D1%83%D0%BD%D0%B8%D0%B2%D0%B5%D1%80%D1%81%D0%B8%D1%82%D0%B5%D1%82 Стэнфордский университет]).
| |
|
| |
|
| В Форте FSP88M слово DROP было известно под именем DR
| | == DROP в предыдущем стандарте Forth-83 (англ.) == |
| | |
| === DROP в предыдущем стандарте Forth-83 (англ.) ===
| |
| DROP 16b -- 79 | | DROP 16b -- 79 |
| 16b is removed from the stack. | | 16b is removed from the stack. |
|
| |
|
| === DROP в стандарте Forth-79 (англ.) ===
| | |
| | == DROP в стандарте Forth-79 (англ.) == |
| DROP n -- 233 | | DROP n -- 233 |
| Drop the top number from the stack. | | Drop the top number from the stack. |
|
| |
|
| === DROP в fig-FORTH Release 1 glossary, май 1979 (англ.) ===
| | |
| | == DROP в fig-FORTH Release 1 glossary, май 1979 (англ.) == |
| DROP n --- L0 | | DROP n --- L0 |
| Drop the number from the stack. | | Drop the number from the stack. |
|
| |
|
| == Реализация ==
| |
| В [[Каллисто]] стек содержит [[Десятичное число|десятичные числа]] — достаточно вместительные, чтобы популярные в ранних версиях Форта числа двойной длины не использовались. Когда их приходится использовать для совместимости с Фортом, слово DROP осуществляет простейший переход от двойной точности к обычной — действие, обратное действию [[S⟩D|S>D]].
| |
|
| |
| Более точная реализация D>S должна проверять верхний элемент на отрицательность (32768 и больше), а также включать умножение на 65536.
| |
| <pre>
| |
| 1954 ;#DROP
| |
| 1955 ; DROP ( x −− ) Убрать. Удалить верхний элемент стека.
| |
| 1956 LDROP: .DB 4
| |
| 1957 .TEXT "DROP" ; ( x −− )
| |
| 1958 .DW LDDROP
| |
| 1959 DROP: .DW JDROP ; JDROP: 1 RM3 + M3 KGOTO9
| |
| …
| |
| 2052 JDROP: 1 ; Да, это обработчик DROP
| |
| 2053 NDROP: RM3 + M3 ; А сюда сваливается 2DROP
| |
| 2054 KGOTO9
| |
| </pre>
| |
| Реализации из SP-Forth 4.20:
| |
| <pre>
| |
| 0 VALUE 'DROP_V
| |
| …
| |
| : 'DROP 'DROP_V ;
| |
| …
| |
| : 'DROP
| |
| \ CR ." NEW 'DROP " CURFILE @ ASCIIZ> TYPE SPACE CURSTR @ .
| |
| S" DROP" TC-FINDOUT >VIRT TC-LIT, ; IMMEDIATE
| |
| </pre>
| |
| <pre>
| |
| ' DROP >VIRT CONSTANT 'DROP
| |
| </pre>
| |
| <pre>
| |
| CODE DROP ( x -- ) \ 94
| |
| \ Убрать x со стека.
| |
| MOV EAX, [EBP]
| |
| LEA EBP, 4 [EBP]
| |
| RET
| |
| END-CODE
| |
| ' DROP TO 'DROP_V
| |
| </pre>
| |
| <pre>
| |
| CODE FDROP \ *
| |
| FSTP ST(0)
| |
| RET
| |
| END-CODE
| |
| </pre>
| |
|
| |
| === Советская реализация ===
| |
| Слово DROP в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение:
| |
| <PRE>
| |
| DROP W-> УБРАТЬ СО СТЕКА ВЕРХНЕЕ ЗНАЧЕНИЕ 9
| |
|
| |
| Экран номер 9
| |
| ( 31.03.86 DUP ?DUP DROP SWAP OVER >R R> R@ RDROP ROT )
| |
|
| |
| CODE DROP ( W-> ) RSTACK RTWO AR, RNEXT BR, END-CODE
| |
| </PRE>
| |
| В FORTH ИТЭФ слово DROP также было [[примитив]]ом, вот его определение:
| |
| <PRE>
| |
| HEAD 204Q,'DRO',320Q,DROP ; DROP
| |
| DRP: ADD SP, 2
| |
| NEXT
| |
| </PRE>
| |
|
| |
|
| == Ссылки == | | == Ссылки == |
| * {{Исходник|DROP|DROP}} | | * [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.1260 Слово DROP в стандарте ANS Forth] ''(англ.)'' |
| * См. слова [[2DROP]], [[Слово ↑|↑]], [[Слово ↔|↔]], [[OVER]], [[ROT]]
| | * [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.1.1500 Слово FDROP (f-drop) в стандарте ANS Forth] ''(англ.)'' |
| * Слова [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.1260 DROP] и [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.1.1500 FDROP (f-drop)] в стандарте ANS Forth ''(англ.)''
| | * [http://www.forth200x.org/documents/html/core.html#core:DROP Слово DROP в черновике Forth 200x] ''(англ.)'' |
| * Слова [http://forth-standard.org/standard/core/DROP DROP] и [http://forth-standard.org/standard/float/FDROP FDROP (f-drop)] в черновике Forth 200x ''(англ.)'' | | * [http://www.forth200x.org/documents/html/float.html#floating:FDROP Слово FDROP (f-drop) в черновике Forth 200x] ''(англ.)'' |
| * [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\02.WYPOLNENIE%20ARIFMETITESKIH%20OPERAZIJ ВЫПОЛНЕНИЕ АРИФМЕТИЧЕСКИХ ОПЕРАЦИЙ] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»]
| |
| * [http://www.forth.com/starting-forth/sf2/sf2.html How to Get Results] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)'' | |
|
| |
|
|
| |
|
Строка 110: |
Строка 43: |
| {{заготовка}} | | {{заготовка}} |
| [[Категория:Слова Каллисто]] | | [[Категория:Слова Каллисто]] |
| [[Категория:Примитивы]]
| |
| [[Категория:Стековые манипуляции Каллисто]] | | [[Категория:Стековые манипуляции Каллисто]] |
| [[Категория:Стандартные слова]]
| |
| [[Категория:1994 CORE]]
| |
| [[Категория:2012 CORE]]
| |