DROP: различия между версиями
AtH (обсуждение | вклад) Нет описания правки |
AtH (обсуждение | вклад) Нет описания правки |
||
Строка 20: | Строка 20: | ||
Удаляет r со стека с плавающей точкой. | Удаляет r со стека с плавающей точкой. | ||
== DROP в предыдущем стандарте Forth-83 (англ.) == | == История == | ||
В Форте слово 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 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. | ||
== Реализация == | == Реализация == |
Версия от 00:40, 6 июня 2016
DROP (сбросить, читается «дроп») — стандартное слово Каллисто. Снять со стека верхний элемент.
DROP ( x −− ) Убрать. Удалить верхний элемент стека.
Удаляет число x из стека.
Ввод слова DROP
В режиме ЛАТ последовательно нажмите четыре клавиши K × 5 6
Детали реализации
В Каллисто стек содержит десятичные числа — достаточно вместительные, чтобы популярные в ранних версиях Форта числа двойной длины не использовались. Когда их приходится использовать для совместимости с Фортом, слово DROP осуществляет простейший переход от двойной точности к обычной — действие, обратное действию S>D.
Более точная реализация D>S должна проверять верхний элемент на отрицательность (32768 и больше), а также включать умножение на 65536.
DROP и FDROP в стандарте ANS Forth
6.1.1260 DROP CORE ( x -- ) Удаляет x из стека.
12.6.1.1500 FDROP "f-drop" FLOATING ( F: r -- ) or ( r -- ) Удаляет r со стека с плавающей точкой.
История
В Форте слово DROP — одно из самых древних и устоявшихся. Входит под именем DROP во все стандарты Форта, включая fig-Форт и Форт-79.
Впервые оно появилось в 1964 году под именем ; в программе CURVE, написанной Чак Муром на Алголе для Burroughs B5500 (Национальная ускорительная лаборатория SLAC, Стэнфордский университет).
В Форте FSP88M слово DROP было известно под именем DR
DROP в предыдущем стандарте Forth-83 (англ.)
DROP 16b -- 79 16b is removed from the stack.
DROP в стандарте Forth-79 (англ.)
DROP n -- 233 Drop the top number from the stack.
DROP в fig-FORTH Release 1 glossary, май 1979 (англ.)
DROP n --- L0 Drop the number from the stack.
Реализация
Слово DROP в ФОРТ-ЕС было примитивом. Вот его описание и определение:
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
В FORTH ИТЭФ слово DROP также было примитивом, вот его определение:
HEAD 204Q,'DRO',320Q,DROP ; DROP DRP: ADD SP, 2 NEXT
Ссылки
- Исходный текст слова DROP в Каллисто Классик 1.0
- См. слова 2DROP, ↑, ↔, OVER, ROT
- Слова DROP и FDROP (f-drop) в стандарте ANS Forth (англ.)
- Слова DROP и FDROP (f-drop) в черновике Forth 200x (англ.)
- ВЫПОЛНЕНИЕ АРИФМЕТИЧЕСКИХ ОПЕРАЦИЙ в книге Л.Броуди «Начальный курс программирования на языке Форт»
- How to Get Results в книге Leo Brodie Starting Forth (англ.)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |