Слово /−/: различия между версиями

Материал из ПМК вики
Перейти к навигации Перейти к поиску
 
(не показано 6 промежуточных версий этого же участника)
Строка 1: Строка 1:
'''/−/''' (обратный знак, смена знака) — встроенное слово [[Каллисто]]. Смена знака [[Десятичное число|десятичного числа]].
'''/−/''' (обратный знак, смена знака) — традиционное слово [[Каллисто]]. Смена знака [[Десятичное число|десятичного числа]].
  /−/            ( x -- x1 )                    Смена знака. x1 ← −x
  /−/            ( x -- x1 )                    Смена знака. x1 ← −x
x1 — число, противоположное x, то есть нуль минус x.
x1 — число, противоположное x, то есть нуль минус x.
Строка 7: Строка 7:
== Ввод слова /−/ ==
== Ввод слова /−/ ==
В [[Режим NUM|режиме NUM]] последовательно нажмите клавиши [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ÷|{{Серая клавиша|÷}}]]   [[Клавиша -|{{Серая клавиша|−}}]]   [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ÷|{{Серая клавиша|÷}}]]
В [[Режим NUM|режиме NUM]] последовательно нажмите клавиши [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ÷|{{Серая клавиша|÷}}]]   [[Клавиша -|{{Серая клавиша|−}}]]   [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ÷|{{Серая клавиша|÷}}]]
== Детали реализации ==
Слово /−/ является «обёрткой» вокруг [[Команда /−/|команды ЭКВМ /−/ («смена знака»)]].


== NEGATE и FNEGATE в стандарте ANS Forth ==
== NEGATE и FNEGATE в стандарте ANS Forth ==
Строка 31: Строка 28:
В Форте FSP88M слово /−/ было известно под именем NEG
В Форте FSP88M слово /−/ было известно под именем NEG


Имя /−/ в [[Каллисто]] взято от советского ПМК [[«Электроника Б3-34»]], выпущенного в 1980 году.
Имя /−/ в [[Каллисто]] оставлено от советского ПМК [[«Электроника Б3-34»]], выпущенного в 1980 году.


=== NEGATE в предыдущем стандарте Forth-83 (англ.) ===
=== NEGATE в предыдущем стандарте Forth-83 (англ.) ===
Строка 48: Строка 45:


== Реализация ==
== Реализация ==
В [[Каллисто|Каллисто 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 (ноль)]] и [[Слово −|вычитание]]:
Слово /−/ в [[Каллисто]] является [[примитив]]ом. При необходимости его можно определить через [[FALSE|FALSE (ноль)]] и [[Слово −|вычитание]]:
  : /−/  ( r -- -r )  FALSE ↔ − ;
  : /−/  ( r -- -r )  FALSE ↔ − ;
Строка 77: Строка 100:
== Ссылки ==
== Ссылки ==
* {{Исходник|NEGATE|/−/}}
* {{Исходник|NEGATE|/−/}}
* См. также слова [[Слово NOT|NOT]] и [[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 ''(англ.)''
Строка 91: Строка 114:
[[Категория:Арифметические операции Каллисто]]
[[Категория:Арифметические операции Каллисто]]
[[Категория:Одноместные операции Каллисто]]
[[Категория:Одноместные операции Каллисто]]
[[Категория:Традиционные слова]]
[[Категория:Адаптированные слова]]

Текущая версия от 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

Ссылки[править]


  У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их.


  Это заготовка статьи. Вы можете помочь проекту, дополнив её.