Слово /−/: различия между версиями
AtH (обсуждение | вклад) |
AtH (обсуждение | вклад) |
||
(не показана 41 промежуточная версия этого же участника) | |||
Строка 1: | Строка 1: | ||
''' | '''/−/''' (обратный знак, смена знака) — традиционное слово [[Каллисто]]. Смена знака [[Десятичное число|десятичного числа]]. | ||
/−/ ( x -- x1 ) Смена знака. x1 ← −x | |||
x1 — число, противоположное x, то есть нуль минус x. | x1 — число, противоположное x, то есть нуль минус x. | ||
Если эта операция производится над 32-битными целыми числами её иногда, не совсем точно, называют [[Дополнительный код|дополнительным кодом]] или дополнением до двух (''англ.'' two's complement). | Если эта операция производится над 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 | 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> | |||
== | == История == | ||
Слово /−/ является одним из самых древних слов Форта. Впервые оно появилось в 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 в предыдущем стандарте 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]] слово /−/ является «обёрткой» вокруг [[Команда /−/|команды ЭКВМ /−/ («смена знака»)]]: | |||
: NEGATE | <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 Противоположное число на Википедии] | * [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.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:// | * Слова [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] ''(англ.)'' | |||
Строка 57: | Строка 111: | ||
{{заготовка}} | {{заготовка}} | ||
[[Категория:Слова Каллисто]] | [[Категория:Слова Каллисто]] | ||
[[Категория:Примитивы]] | |||
[[Категория:Арифметические операции Каллисто]] | [[Категория:Арифметические операции Каллисто]] | ||
[[Категория:Одноместные операции Каллисто]] | [[Категория:Одноместные операции Каллисто]] | ||
[[Категория: | [[Категория:Традиционные слова]] | ||
[[Категория:Адаптированные слова]] |
Текущая версия от 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 (англ.)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |