Слово /−/
/−/ (обратный знак, смена знака) — традиционное слово Каллисто. Смена знака десятичного числа.
/−/ ( 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.
Реализация
Слово /−/ в Каллисто является примитивом. При необходимости его можно определить через FALSE (ноль) и вычитание:
: /−/ ( r -- -r ) FALSE ↔ − ;
Слово /−/ в ФОРТ-ЕС и 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 (англ.)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |