Редактирование: Слово /−/

Перейти к навигации Перейти к поиску
Внимание: Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы войдёте или создадите учётную запись, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.

Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.

Текущая версия Ваш текст
Строка 1: Строка 1:
'''/−/''' (обратный знак, смена знака) — традиционное слово [[Каллисто]]. Смена знака [[Десятичное число|десятичного числа]].
'''NEGATE''' (обратный знак) — стандартное слово [[Каллисто]]. Смена знака числа.
  /−/            ( x -- x1 )                     Смена знака. x1 ← −x
  NEGATE        ( x -- x1 )
 
x1 — число, противоположное x, то есть нуль минус x.
x1 — число, противоположное x, то есть нуль минус x.


Если эта операция производится над 32-битными целыми числами её иногда, не совсем точно, называют [[Дополнительный код|дополнительным кодом]] или дополнением до двух (''англ.'' two's complement).
Если эта операция производится над 32-битными целыми числами её иногда, не совсем точно, называют [[Дополнительный код|дополнительным кодом]] или дополнением до двух (''англ.'' two's complement).


== Ввод слова /−/ ==
== Ввод слова NEGATE ==
В [[Режим NUM|режиме NUM]] последовательно нажмите клавиши [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ÷|{{Серая клавиша|÷}}]]   [[Клавиша -|{{Серая клавиша|−}}]]   [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ÷|{{Серая клавиша|÷}}]]
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите клавиши [[Клавиша 4|{{Серая клавиша|4}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]] [[Клавиша БП|{{Чёрная клавиша|БП}}]] [[Клавиша ШГ влево|{{Чёрная клавиша|ШГ←}}]] [[Клавиша 2|{{Серая клавиша|2}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]]
 
== NEGATE и FNEGATE в стандарте ANS Forth ==
<PRE>
6.1.1910  NEGATE                                                          CORE
            ( n1 -- n2 )
            Отрицание n1, возвращает его арифметическую инверсию n2.


        См.: 6.1.1720 INVERT, 6.1.0270 0=.
== Детали реализации ==
Слово NEGATE является «обёрткой» вокруг команды ЭКВМ [[/−/]].


== 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
== NEGATE в предыдущем стандарте Forth-83 (англ.) ==
 
Имя /−/ в [[Каллисто]] оставлено от советского ПМК [[«Электроника Б3-34»]], выпущенного в 1980 году.
 
=== 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.


== Реализация ==
== Реализация NEGATE ==
В [[Каллисто|Каллисто 1.0]] слово /−/ является «обёрткой» вокруг [[Команда /−/|команды ЭКВМ /−/ («смена знака»)]]:
Слово NEGATE в [[Каллисто]] является [[примитив]]ом, но при необходимости его можно определить через [[− (Каллисто)|операцию вычитания]]:
<pre>
: NEGATE  ( r -- -r )  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        ; Обёртка вокруг /−/
</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-Форте это слово называлось MINUS
: /−/  ( 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


Вот его определение:
В Форте FSP88M это слово известно под именем NEG
<PRE>
            HEAD    205Q,'MINU',323Q,MINUS              ; MINUS
            POP  AX
            NEG AX
            PUSH AX
            NEXT
</PRE>


== Ссылки ==
== Ссылки ==
* {{Исходник|NEGATE|/−/}}
* См. также слова [[INVERT]] и [[0=]]
* См. также слова [[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://forth-standard.org/standard/core/NEGATE NEGATE] и [http://forth-standard.org/standard/float/FNEGATE FNEGATE (f-negate)] в черновике Forth 200x ''(англ.)''
* Слова [http://www.forth200x.org/documents/html3/core/NEGATE.html NEGATE] и [http://www.forth200x.org/documents/html3/floating/FNEGATE.html 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] ''(англ.)''




Строка 111: Строка 57:
{{заготовка}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Арифметические операции Каллисто]]
[[Категория:Арифметические операции Каллисто]]
[[Категория:Одноместные операции Каллисто]]
[[Категория:Одноместные операции Каллисто]]
[[Категория:Традиционные слова]]
[[Категория:Описание бета-версии Каллисто]]
[[Категория:Адаптированные слова]]
Пожалуйста, учтите, что любой ваш вклад в проект «ПМК вики» может быть отредактирован или удалён другими участниками. Если вы не хотите, чтобы кто-либо изменял ваши тексты, не помещайте их сюда.
Вы также подтверждаете, что являетесь автором вносимых дополнений, или скопировали их из источника, допускающего свободное распространение и изменение своего содержимого (см. Pmkwiki:Авторские права). НЕ РАЗМЕЩАЙТЕ БЕЗ РАЗРЕШЕНИЯ ОХРАНЯЕМЫЕ АВТОРСКИМ ПРАВОМ МАТЕРИАЛЫ!

В целях защиты вики от автоматического спама в правках просим вас решить следующую каптчу:

Отменить Справка по редактированию (в новом окне)

Шаблоны, используемые на этой странице:

Источник — https://pmk.the-hacker.ru/Слово_/−/