Текущая версия |
Ваш текст |
Строка 1: |
Строка 1: |
| '''/−/''' (обратный знак, смена знака) — традиционное слово [[Каллисто]]. Смена знака [[Десятичное число|десятичного числа]]. | | '''NEGATE''' — стандартное слово [[Каллисто]]. |
| /−/ ( x -- x1 ) Смена знака. x1 ← −x
| |
| x1 — число, противоположное x, то есть нуль минус x.
| |
|
| |
|
| Если эта операция производится над 32-битными целыми числами её иногда, не совсем точно, называют [[Дополнительный код|дополнительным кодом]] или дополнением до двух (''англ.'' two's complement).
| | Смена знака числа в [[Стек данных|стеке]]. |
|
| |
|
| == Ввод слова /−/ ==
| | Слово является «обёрткой» вокруг команды ЭКВМ [[/−/]]. |
| В [[Режим NUM|режиме NUM]] последовательно нажмите клавиши [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ÷|{{Серая клавиша|÷}}]] [[Клавиша -|{{Серая клавиша|−}}]] [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ÷|{{Серая клавиша|÷}}]]
| |
|
| |
|
| == NEGATE и FNEGATE в стандарте ANS Forth ==
| |
| <PRE>
| |
| 6.1.1910 NEGATE CORE
| |
| ( n1 -- n2 )
| |
| Отрицание n1, возвращает его арифметическую инверсию n2.
| |
|
| |
| См.: 6.1.1720 INVERT, 6.1.0270 0=.
| |
|
| |
|
| | == FNEGATE в стандарте ANS Forth == |
| 12.6.1.1567 FNEGATE "f-negate" FLOATING | | 12.6.1.1567 FNEGATE "f-negate" FLOATING |
| ( F: r1 -- r2 ) or ( r1 -- r2 ) | | ( F: r1 -- r2 ) or ( r1 -- r2 ) |
| r2 - отрицание r1. | | r2 - отрицание r1. |
| </PRE>
| |
|
| |
|
| == История == | | == NEGATE в стандарте ANS Forth == |
| Слово /−/ является одним из самых древних слов Форта. Впервые оно появилось в 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 Стэнфордский университет]).
| | 6.1.1910 NEGATE CORE |
| | ( n1 -- n2 ) |
| | Отрицание n1, возвращает его арифметическую инверсию n2. |
|
| |
|
| Из CURVE имя MINUS перешло в fig-Форт и оттуда в Форт ИТЭФ (1988 год), но во все стандарты Форта (включая Форт-79) слово /−/ вошло под именем NEGATE
| | См.: 6.1.1720 INVERT, 6.1.0270 0=. |
|
| |
|
| В Форте FSP88M слово /−/ было известно под именем NEG
| |
|
| |
|
| Имя /−/ в [[Каллисто]] оставлено от советского ПМК [[«Электроника Б3-34»]], выпущенного в 1980 году.
| | == NEGATE в предыдущем стандарте Forth-83 (англ.) == |
| | |
| === 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. |
|
| |
|
| == Реализация ==
| |
| В [[Каллисто|Каллисто 1.0]] слово /−/ является «обёрткой» вокруг [[Команда /−/|команды ЭКВМ /−/ («смена знака»)]]:
| |
| <pre>
| |
| 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 ; Обёртка вокруг /−/
| |
| </pre>
| |
| Реализации из SP-Forth 4.20:
| |
| <pre>
| |
| CODE NEGATE ( n1 -- n2 ) \ 94
| |
| \ n2 - арифметическая инверсия n1.
| |
| NEG EAX
| |
| RET
| |
| END-CODE
| |
| </pre>
| |
| <pre>
| |
| CODE FNEGATE \ *
| |
| FCHS
| |
| RET
| |
| END-CODE
| |
| </pre>
| |
|
| |
|
| === Советская реализация === | | == История == |
| Слово /−/ в [[Каллисто]] является [[примитив]]ом. При необходимости его можно определить через [[FALSE|FALSE (ноль)]] и [[Слово −|вычитание]]:
| | В программах, написанных для fig-Форта, название слова должно быть заменено на NEGATE |
| : /−/ ( r -- -r ) FALSE ↔ − ;
| |
| | |
| Слово /−/ в ФОРТ-ЕС и FORTH ИТЭФ также было [[примитив]]ом, но работало только с целыми числами.
| |
| | |
| В ФОРТ-ЕС слово /−/ называлось NEGATE
| |
| | |
| Вот его описание и определение:
| |
| <PRE>
| |
| 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
| |
| </PRE>
| |
| В FORTH ИТЭФ слово /−/ называлось MINUS
| |
|
| |
|
| Вот его определение:
| |
| <PRE>
| |
| HEAD 205Q,'MINU',323Q,MINUS ; MINUS
| |
| POP AX
| |
| NEG AX
| |
| PUSH AX
| |
| NEXT
| |
| </PRE>
| |
|
| |
|
| == Ссылки == | | == Ссылки == |
| * {{Исходник|NEGATE|/−/}} | | * [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.1910 Слово NEGATE в стандарте ANS Forth] ''(англ.)'' |
| * См. также слова [[NOT]] и [[0=]]
| | * [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.1.1567 Слово FNEGATE (f-negate) в стандарте ANS Forth] ''(англ.)'' |
| * [https://ru.wikipedia.org/wiki/%D0%9F%D1%80%D0%BE%D1%82%D0%B8%D0%B2%D0%BE%D0%BF%D0%BE%D0%BB%D0%BE%D0%B6%D0%BD%D0%BE%D0%B5_%D1%87%D0%B8%D1%81%D0%BB%D0%BE Противоположное число на Википедии]
| | * [http://www.forth200x.org/documents/html/core.html#core:NEGATE Слово NEGATE в черновике Forth 200x] ''(англ.)'' |
| * Слова [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.1910 NEGATE] и [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.1.1567 FNEGATE (f-negate)] в стандарте ANS Forth ''(англ.)''
| | * [http://www.forth200x.org/documents/html/float.html#floating:FNEGATE Слово FNEGATE (f-negate) в черновике Forth 200x] ''(англ.)'' |
| * Слова [http://forth-standard.org/standard/core/NEGATE NEGATE] и [http://forth-standard.org/standard/float/FNEGATE FNEGATE (f-negate)] в черновике Forth 200x ''(англ.)'' | | * См. также слова [[INVERT]] и [[0=]] |
| * [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\05.OPERAZII%20NAD%20ZELYMI%20TISLAMI ОПЕРАЦИИ НАД ЦЕЛЫМИ ЧИСЛАМИ] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»]
| |
| * [http://www.forth.com/starting-forth/sf5/sf5.html The Philosophy of Fixed Point] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)'' | |
|
| |
|
|
| |
|
Строка 111: |
Строка 51: |
| {{заготовка}} | | {{заготовка}} |
| [[Категория:Слова Каллисто]] | | [[Категория:Слова Каллисто]] |
| [[Категория:Примитивы]]
| |
| [[Категория:Арифметические операции Каллисто]] | | [[Категория:Арифметические операции Каллисто]] |
| [[Категория:Одноместные операции Каллисто]] | | [[Категория:Одноместные операции Каллисто]] |
| [[Категория:Традиционные слова]]
| |
| [[Категория:Адаптированные слова]]
| |