Слово /−/: различия между версиями
AtH (обсуждение | вклад) |
AtH (обсуждение | вклад) |
||
Строка 55: | Строка 55: | ||
1431 JNEGATE: PKRM03 +/− PKM03 KGOTO9 ; Обёртка вокруг /−/ | 1431 JNEGATE: PKRM03 +/− PKM03 KGOTO9 ; Обёртка вокруг /−/ | ||
</pre> | </pre> | ||
Реализации из SP-Forth 4.20: | |||
<pre> | <pre> | ||
CODE NEGATE ( n1 -- n2 ) \ 94 | CODE NEGATE ( n1 -- n2 ) \ 94 | ||
\ n2 - арифметическая инверсия n1. | \ n2 - арифметическая инверсия n1. | ||
NEG EAX | NEG EAX | ||
RET | |||
END-CODE | |||
</pre> | |||
<pre> | |||
CODE FNEGATE \ * | |||
FCHS | |||
RET | RET | ||
END-CODE | END-CODE |
Текущая версия от 17:30, 10 ноября 2017
/−/ (обратный знак, смена знака) — традиционное слово Каллисто. Смена знака десятичного числа.
/−/ ( 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.
Реализация[править]
В Каллисто 1.0 слово /−/ является «обёрткой» вокруг команды ЭКВМ /−/ («смена знака»):
1425 ;#NEGATE 1426 ; /−/ ( x −− x1 ) Сменить знак числа. x1 := −x 1427 LNEGATE: .DB 3 1428 .TEXT "/−/" ; ( x −− −x ) 1429 .DW LSSMOD 1430 NEGATE: .DW JNEGATE ; Смена знака числа в стеке. 1431 JNEGATE: PKRM03 +/− PKM03 KGOTO9 ; Обёртка вокруг /−/
Реализации из SP-Forth 4.20:
CODE NEGATE ( n1 -- n2 ) \ 94 \ n2 - арифметическая инверсия n1. NEG EAX RET END-CODE
CODE FNEGATE \ * FCHS RET END-CODE
Советская реализация[править]
Слово /−/ в Каллисто является примитивом. При необходимости его можно определить через 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 (англ.)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |