Слово /−/: различия между версиями
AtH (обсуждение | вклад) Нет описания правки |
AtH (обсуждение | вклад) Нет описания правки |
||
Строка 12: | Строка 12: | ||
== NEGATE и FNEGATE в стандарте ANS Forth == | == NEGATE и FNEGATE в стандарте ANS Forth == | ||
<PRE> | |||
6.1.1910 NEGATE CORE | 6.1.1910 NEGATE CORE | ||
( n1 -- n2 ) | ( n1 -- n2 ) | ||
Строка 21: | Строка 22: | ||
( F: r1 -- r2 ) or ( r1 -- r2 ) | ( F: r1 -- r2 ) or ( r1 -- r2 ) | ||
r2 - отрицание r1. | r2 - отрицание r1. | ||
</PRE> | |||
== NEGATE в предыдущем стандарте Forth-83 (англ.) == | == История == | ||
Слово /−/ является одним из самых древних слов Форта. Впервые оно появилось в 1964 году под именем MINUS в программе 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 Стэнфордский университет]). | |||
Из CURVE имя MINUS перешло в fig-Форт и оттуда в Форт ИТЭФ (1988 год), но во все стандарты Форта (включая Форт-79) слово /−/ вошло под именем NEGATE | |||
В Форте FSP88M слово /−/ было известно под именем NEG | |||
Имя /−/ в [[Каллисто]] взято от советского ПМК [[«Электроника Б3-34»]], выпущенного в 1980 году. | |||
=== NEGATE в предыдущем стандарте Forth-83 (англ.) === | |||
NEGATE n1 -- n2 79 | NEGATE n1 -- n2 79 | ||
n2 is the two's complement of n1, i.e, the difference of | n2 is the two's complement of n1, i.e, the difference of | ||
zero less n1. | zero less n1. | ||
== NEGATE в стандарте Forth-79 (англ.) == | === NEGATE в стандарте Forth-79 (англ.) === | ||
NEGATE n -- -n 177 | NEGATE n -- -n 177 | ||
Leave the two's complement of a number, i.e., the difference | Leave the two's complement of a number, i.e., the difference | ||
of zero less n. | of zero less n. | ||
== MINUS в fig-FORTH Release 1 glossary, май 1979 (англ.) == | === MINUS в fig-FORTH Release 1 glossary, май 1979 (англ.) === | ||
MINUS n1 --- n2 L0 | MINUS n1 --- n2 L0 | ||
Leave the two's complement of a number. | Leave the two's complement of a number. | ||
== Реализация == | == Реализация == |
Версия от 18:25, 5 июня 2016
/−/ (обратный знак, смена знака) — встроенное слово Каллисто. Смена знака десятичного числа.
/−/ ( x -- x1 ) Смена знака. x1 ← −x
x1 — число, противоположное x, то есть нуль минус x.
Если эта операция производится над 32-битными целыми числами её иногда, не совсем точно, называют дополнительным кодом или дополнением до двух (англ. two's complement).
Ввод слова /−/
В режиме NUM последовательно нажмите клавиши F ÷ − F ÷
Детали реализации
Слово /−/ является «обёрткой» вокруг команды ЭКВМ /−/ («смена знака»).
NEGATE и FNEGATE в стандарте ANS Forth
6.1.1910 NEGATE CORE ( n1 -- n2 ) Отрицание n1, возвращает его арифметическую инверсию n2. См.: 6.1.1720 INVERT, 6.1.0270 0=. 12.6.1.1567 FNEGATE "f-negate" FLOATING ( F: r1 -- r2 ) or ( r1 -- r2 ) r2 - отрицание r1.
История
Слово /−/ является одним из самых древних слов Форта. Впервые оно появилось в 1964 году под именем MINUS в программе CURVE, написанной Чак Муром на Алголе для Burroughs B5500 (Национальная ускорительная лаборатория SLAC, Стэнфордский университет).
Из CURVE имя MINUS перешло в fig-Форт и оттуда в Форт ИТЭФ (1988 год), но во все стандарты Форта (включая Форт-79) слово /−/ вошло под именем NEGATE
В Форте FSP88M слово /−/ было известно под именем NEG
Имя /−/ в Каллисто взято от советского ПМК «Электроника Б3-34», выпущенного в 1980 году.
NEGATE в предыдущем стандарте Forth-83 (англ.)
NEGATE n1 -- n2 79 n2 is the two's complement of n1, i.e, the difference of zero less n1.
NEGATE в стандарте Forth-79 (англ.)
NEGATE n -- -n 177 Leave the two's complement of a number, i.e., the difference of zero less n.
MINUS в fig-FORTH Release 1 glossary, май 1979 (англ.)
MINUS n1 --- n2 L0 Leave the two's complement of a number.
Реализация
Слово /−/ в Каллисто является примитивом. При необходимости его можно определить через ноль и вычитание:
: /−/ ( r -- -r ) 0 ↔ − ;
Слово /−/ в ФОРТ-ЕС и FORTH ИТЭФ также было примитивом, но работало только с целыми числами.
В ФОРТ-ЕС слово /−/ называлось NEGATE
Вот его описание и определение:
NEGATE W1->М2 РЕЗУЛЬТАТ ВЫЧИТАНИЯ W1 ИЗ НУЛЯ 17 Экран номер 17 ( 31.03.86 NEGATE ABS + - 1+ 1- 2+ 2- +! 1+! ) CODE NEGATE ( W1->M2) RH1 PULL, RW1 RW1 LCR, PUTRW1 B, END-CODE
В FORTH ИТЭФ слово /−/ называлось MINUS
Вот его определение:
HEAD 205Q,'MINU',323Q,MINUS ; MINUS POP AX NEG AX PUSH AX NEXT
Ссылки
- Исходный текст слова /−/ в Каллисто Классик 1.0
- См. также слова NOT и 0=
- Противоположное число на Википедии
- Слова NEGATE и FNEGATE (f-negate) в стандарте ANS Forth (англ.)
- Слова NEGATE и FNEGATE (f-negate) в черновике Forth 200x (англ.)
- ОПЕРАЦИИ НАД ЦЕЛЫМИ ЧИСЛАМИ в книге Л.Броуди «Начальный курс программирования на языке Форт»
- The Philosophy of Fixed Point в книге Leo Brodie Starting Forth (англ.)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |