Текущая версия |
Ваш текст |
Строка 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=.
| |
| | |
| 12.6.1.1567 FNEGATE "f-negate" FLOATING
| |
| ( F: r1 -- r2 ) or ( r1 -- r2 )
| |
| r2 - отрицание r1.
| |
| </PRE>
| |
| | |
| == История ==
| |
| Слово /−/ является одним из самых древних слов Форта. Впервые оно появилось в 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
| |
| 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]] слово /−/ является «обёрткой» вокруг [[Команда /−/|команды ЭКВМ /−/ («смена знака»)]]:
| |
| <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 (ноль)]] и [[Слово −|вычитание]]:
| |
| : /−/ ( 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|/−/}}
| |
| * См. также слова [[NOT]] и [[0=]]
| |
| * [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://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://forth-standard.org/standard/core/NEGATE NEGATE] и [http://forth-standard.org/standard/float/FNEGATE FNEGATE (f-negate)] в черновике Forth 200x ''(англ.)''
| |
| * [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] ''(англ.)''
| |
| | |
|
| |
|
| {{нет иллюстраций}} | | {{нет иллюстраций}} |
| {{заготовка}} | | {{заготовка}} |
| [[Категория:Слова Каллисто]] | | [[Категория:Слова Каллисто]] |
| [[Категория:Примитивы]]
| |
| [[Категория:Арифметические операции Каллисто]] | | [[Категория:Арифметические операции Каллисто]] |
| [[Категория:Одноместные операции Каллисто]] | | [[Категория:Одноместные операции Каллисто]] |
| [[Категория:Традиционные слова]]
| |
| [[Категория:Адаптированные слова]]
| |