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

Материал из ПМК вики
Перейти к навигации Перейти к поиску
 
(не показано 27 промежуточных версий этого же участника)
Строка 1: Строка 1:
'''+''' (сложить, читается «плюс») — стандартное слово [[Каллисто]]. Сложение [[Десятичное число|десятичных чисел]].
'''+''' (сложить, читается «плюс») — стандартное слово [[Каллисто]]. Сложение [[Десятичное число|десятичных чисел]].
  +              ( x1 x2 -- x3 )                 Сложить. x3 x1 + x2
  +              ( y x -- x1 )                   Сложить. x1 y + x
[[Файл:CallistoMag.png|thumb|right|264px|Пример работы слова +]]
[[Файл:CallistoMag.png|thumb|right|264px|Пример работы слова +]]
Добавляет x2 к x1 и выдаёт сумму x3.
Слово + добавляет x к y и кладёт на [[Стек данных|стек]] сумму x1.


== Ввод слова + ==
== Ввод слова + ==
В [[Режим NUM|режиме NUM]] нажмите [[Клавиша +|белую клавишу {{Серая клавиша|+}}]]
В [[Режим NUM|режиме NUM]] нажмите [[Клавиша +|белую клавишу {{Серая клавиша|+}}]]


== Детали реализации ==
== + и F+ в стандарте ANS Forth ==
Слово + является «обёрткой» вокруг команды ЭКВМ [[+]], вызывающей переполнение при результате, по модулю больше либо равном 10<sup>100</sup>.
<PRE>
 
Обработка этой ошибки производится [[Встроенная программа|встроенной программой]]. Например, последовательность слов {{Текст на индикаторе|5E99 ↑ +}} вызывает [[аварийный останов]] [[Каллисто]] с сообщением «Переполнение» в [[Строка комментариев|строке комментариев]]. Можно ввести с клавиатуры произвольное число в качестве значения «10<sup>100</sup>» и вернуться в [[Каллисто]], нажав [[Клавиша С/П|{{Чёрная клавиша|С/П}}]].  Подробнее см. статью [[Авост Каллисто]].
 
В случае [[Авост Каллисто|аварийного останова]] рекомендуется произвести [[COLD|«холодную перезагрузку»]] [[Каллисто]] с удалением всех введённых слов, нажав последовательно клавиши [[Клавиша В/О|{{Чёрная клавиша|В/О}}]] [[Клавиша С/П|{{Чёрная клавиша|С/П}}]].
 
Слово + также может использоваться для сложения целых чисел, как в Форте. В этом случае сумма x3 — также целое число, если её модуль не превышает 10<sup>12</sup>.
 
== + в стандарте ANS Forth ==
  6.1.0120  +                                "plus"                        CORE
  6.1.0120  +                                "plus"                        CORE
             ( n1|u1 n2|u2 -- n3|u3 )
             ( n1|u1 n2|u2 -- n3|u3 )
Строка 23: Строка 15:
         См.: 3.3.3.1 Выравнивание адреса.
         См.: 3.3.3.1 Выравнивание адреса.


== F+ в стандарте ANS Forth ==
  12.6.1.1420  F+                          "f-plus"                    FLOATING
  12.6.1.1420  F+                          "f-plus"                    FLOATING
             ( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 )
             ( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 )
             Прибавляет r1 к r2, возвращает сумму r3.
             Прибавляет r1 к r2, возвращает сумму r3.
</PRE>
== История ==
Каллистянское слово + является одновременно и стандартным, входя в обязательный список слов CORE Форта-94, и традиционным — присутствуя во входных языках калькуляторов ещё со времён [[Б3-34]] и [[Электроника Б3-21|Б3-21]].


== + в предыдущем стандарте Forth-83 (англ.) ==
В Форте слово + является одним из самых древних сохранившихся слов. Также каллистянское слово + выполняет функции слова F+ из действующего стандарта Форта 1994 года.
 
Слово + появилось в программе CURVE, написанной Чак Муром на [https://ru.wikipedia.org/wiki/%D0%90%D0%BB%D0%B3%D0%BE%D0%BB Алголе] для Burroughs B5500 в 1964 году при работе на [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 Стэнфордского университета].
 
В 1970 году слово + работало в 2К×48бит версии Форта на Burroughs B-5500.
 
Одноимённая [[+|команда +]] использовалась в советских ПМК, откуда в 2007 году перешла в систему команд ЭКВМ. Сам знак «+» для обозначения операции сложения взят из арифметики. Впервые знак «+» появился в 1489 году, в учебнике «Быстрый и приятный счёт для всех торговцев» немецкого математика [https://ru.wikipedia.org/wiki/%D0%92%D0%B8%D0%B4%D0%BC%D0%B0%D0%BD,_%D0%98%D0%BE%D0%B3%D0%B0%D0%BD%D0%BD Иоганна Видмана], как упрощение латинского слова «et» (союз «и»). До 1489 года сложение обозначали [[Символ с кодом 112|латинской буквой p]] (plus), часто помечая эту букву [[~|тильдой]].
 
=== + в предыдущем стандарте Forth-83 (англ.) ===
       +            w1 w2 -- w3                  79              "plus"
       +            w1 w2 -- w3                  79              "plus"
           w3 is the arithmetic sum of w1 plus w2.
           w3 is the arithmetic sum of w1 plus w2.


== + в стандарте Forth-79 (англ.) ==
=== + в стандарте Forth-79 (англ.) ===
  +              n1 n2 -- n3                  121            "plus"
  +              n1 n2 -- n3                  121            "plus"
     Leave the arithmetic sum of n1 plus n2.
     Leave the arithmetic sum of n1 plus n2.


== + в fig-FORTH Release 1 glossary, май 1979 (англ.) ==
=== + в fig-FORTH Release 1 glossary, май 1979 (англ.) ===
  +            n1  n2  ---  sum                L0
  +            n1  n2  ---  sum                L0
         Leave the sum of n1+n2.
         Leave the sum of n1+n2.


== История ==
== Реализация ==
Слово + взято в [[Каллисто]] из Форта, где оно являлось одним из самых древних сохранившихся слов.
Слово + является «обёрткой» вокруг команды ЭКВМ [[+]], вызывающей переполнение при результате, по модулю больше либо равном 10<sup>100</sup>.


Слово + появилось в программе CURVE, написанной Чак Муром на [https://ru.wikipedia.org/wiki/%D0%90%D0%BB%D0%B3%D0%BE%D0%BB Алголе] для Burroughs B5500 в 1964 году при работе на [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 Стэнфордского университета].
Обработка этой ошибки производится [[Встроенная программа|встроенной программой]]. Например, последовательность слов {{Текст на индикаторе|5E99 ↑ +}} вызывает [[аварийный останов]] [[Каллисто]] с сообщением «Переполнение» в [[Строка комментариев|строке комментариев]]. Можно ввести с клавиатуры произвольное число в качестве значения «10<sup>100</sup>» и вернуться в [[Каллисто]], нажав [[Клавиша С/П|{{Чёрная клавиша|С/П}}]]. Подробнее см. статью [[Авост Каллисто]].


В 1970 году слово + работало в 2К×48бит версии Форта на Burroughs B-5500.
В случае [[Авост Каллисто|аварийного останова]] рекомендуется произвести [[COLD|«холодную перезагрузку»]] [[Каллисто]] с удалением всех введённых слов, нажав последовательно клавиши [[Клавиша В/О|{{Чёрная клавиша|В/О}}]] [[Клавиша С/П|{{Чёрная клавиша|С/П}}]].


Одноимённая [[+|команда +]] использовалась в советских ПМК, откуда перешла в систему команд ЭКВМ.
Слово + также может использоваться для сложения целых чисел, как в Форте. В этом случае сумма x1 — также целое число, если её модуль не превышает 10<sup>12</sup>.
<pre>
1329 ;#Plus
1330 ; +                ( y x −− x1 )                        Сложить. x1 := y+x
1331 LPLUS:          .DB    1
1332                .TEXT  "+"                    ; ( a b −− a+b )
1333                .DW    LFDIV2
1334 PLUS:          .DW    JPLUS                  ; Сложение.
1335 JPLUS:          RM3 MB 1 + MA M3
1336                KRMA KRMB + KMA                ; Обёртка вокруг +
1337                KGOTO9
</pre>
Реализации из SP-Forth 4.20:
<pre>
CODE + ( n1|u1 n2|u2 -- n3|u3 ) \ 94
\ Сложить n1|u1 и n2|u2 и получить сумму n3|u3.
    ADD EAX, [EBP]
    LEA EBP, 4 [EBP]
    RET
END-CODE
</pre>
<pre>
CODE F+      \  DE C1
      FADDP ST(1), ST
      RET
END-CODE
</pre>


== Реализация ==
=== Советская реализация ===
Слово + в ФОРТ-ЕС и FORTH ИТЭФ было [[примитив]]ом и работало только с целыми числами. Вот его описание и определение в ФОРТ-ЕС:
Слово + в ФОРТ-ЕС и FORTH ИТЭФ было [[примитив]]ом и работало только с целыми числами. Вот его описание и определение в ФОРТ-ЕС:
<PRE>
<PRE>
Строка 70: Строка 99:


== Ссылки ==
== Ссылки ==
* См. слова [[1+]], [[2+]], [[+!]], [[Слово −|−]], [[Слово ×|×]], [[Слово ÷|÷]]
* {{Исходник|Plus|+}}
* См. слова [[Слово −|−]], [[1+]], [[2+]], [[+!]], [[Слово ×|×]], [[Слово ÷|÷]]
* См. также [[символ +]]
* См. также [[символ +]]
* [http://ru.wikipedia.org/wiki/%D0%A1%D0%BB%D0%BE%D0%B6%D0%B5%D0%BD%D0%B8%D0%B5 Сложение на Википедии]
* См. статьи [http://ru.wikipedia.org/wiki/%D0%A1%D0%BB%D0%BE%D0%B6%D0%B5%D0%BD%D0%B8%D0%B5 «Сложение»] и [https://ru.wikipedia.org/wiki/%D0%9F%D0%BB%D1%8E%D1%81 «Плюс»] на Википедии
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0120 + (plus)] и [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.1.1420 F+ (f-plus)] в стандарте ANS Forth ''(англ.)''
* См. слова [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0120 + (plus)] и [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.1.1420 F+ (f-plus)] в стандарте ANS Forth ''(англ.)''
* Слова [http://forth-standard.org/standard/core/Plus + (plus)] и [http://forth-standard.org/standard/float/FPlus F+ (f-plus)] в черновике Forth 200x ''(англ.)''
* См. также слова [http://forth-standard.org/standard/core/Plus + (plus)] и [http://forth-standard.org/standard/float/FPlus F+ (f-plus)] в черновике Forth 200x ''(англ.)''
* См. слово + в главах [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\01.OSNOWY%20FORTA «Основы Форта»] и [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\02.WYPOLNENIE%20ARIFMETITESKIH%20OPERAZIJ «Выполнение арифметических операций»] книги [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»]
* См. слово + в главах [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\01.OSNOWY%20FORTA «Основы Форта»] и [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\02.WYPOLNENIE%20ARIFMETITESKIH%20OPERAZIJ «Выполнение арифметических операций»] книги [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»]
* См. также слово + в главах [http://www.forth.com/starting-forth/sf1/sf1.html «Fundamental Forth»] и [http://www.forth.com/starting-forth/sf2/sf2.html «How to Get Results»] книги [http://www.forth.com/starting-forth/ Leo Brodie «Starting Forth»] ''(англ.)''
* См. также слово + в главах [http://www.forth.com/starting-forth/sf1/sf1.html «Fundamental Forth»] и [http://www.forth.com/starting-forth/sf2/sf2.html «How to Get Results»] книги [http://www.forth.com/starting-forth/ Leo Brodie «Starting Forth»] ''(англ.)''
Строка 82: Строка 112:
[[Категория:Примитивы]]
[[Категория:Примитивы]]
[[Категория:Арифметические операции Каллисто]]
[[Категория:Арифметические операции Каллисто]]
[[Категория:Описание бета-версии Каллисто]]
[[Категория:Слова, способные вызывать авост Каллисто]]
[[Категория:Слова, способные вызывать авост Каллисто]]
[[Категория:Традиционные слова]]
[[Категория:Стандартные слова]]
[[Категория:1994 CORE]]
[[Категория:2012 CORE]]

Текущая версия от 17:33, 10 ноября 2017

+ (сложить, читается «плюс») — стандартное слово Каллисто. Сложение десятичных чисел.

+              ( y x -- x1 )                   Сложить. x1 ← y + x
Пример работы слова +

Слово + добавляет x к y и кладёт на стек сумму x1.

Ввод слова +[править]

В режиме NUM нажмите белую клавишу  + 

+ и F+ в стандарте ANS Forth[править]

 6.1.0120   +                                 "plus"                        CORE
            ( n1|u1 n2|u2 -- n3|u3 )
            Прибавляет n2|u2 к n1|u1, возвращая сумму n3|u3.

        См.: 3.3.3.1 Выравнивание адреса.

 12.6.1.1420   F+                          "f-plus"                     FLOATING
            ( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 )
            Прибавляет r1 к r2, возвращает сумму r3.

История[править]

Каллистянское слово + является одновременно и стандартным, входя в обязательный список слов CORE Форта-94, и традиционным — присутствуя во входных языках калькуляторов ещё со времён Б3-34 и Б3-21.

В Форте слово + является одним из самых древних сохранившихся слов. Также каллистянское слово + выполняет функции слова F+ из действующего стандарта Форта 1994 года.

Слово + появилось в программе CURVE, написанной Чак Муром на Алголе для Burroughs B5500 в 1964 году при работе на Национальную ускорительную лабораторию SLAC Стэнфордского университета.

В 1970 году слово + работало в 2К×48бит версии Форта на Burroughs B-5500.

Одноимённая команда + использовалась в советских ПМК, откуда в 2007 году перешла в систему команд ЭКВМ. Сам знак «+» для обозначения операции сложения взят из арифметики. Впервые знак «+» появился в 1489 году, в учебнике «Быстрый и приятный счёт для всех торговцев» немецкого математика Иоганна Видмана, как упрощение латинского слова «et» (союз «и»). До 1489 года сложение обозначали латинской буквой p (plus), часто помечая эту букву тильдой.

+ в предыдущем стандарте Forth-83 (англ.)[править]

     +            w1 w2 -- w3                   79              "plus"
          w3 is the arithmetic sum of w1 plus w2.

+ в стандарте Forth-79 (англ.)[править]

+              n1 n2 -- n3                   121             "plus"
    Leave the arithmetic sum of n1 plus n2.

+ в fig-FORTH Release 1 glossary, май 1979 (англ.)[править]

+             n1  n2  ---  sum                L0
       Leave the sum of n1+n2.

Реализация[править]

Слово + является «обёрткой» вокруг команды ЭКВМ +, вызывающей переполнение при результате, по модулю больше либо равном 10100.

Обработка этой ошибки производится встроенной программой. Например, последовательность слов  5E99 ↑ +  вызывает аварийный останов Каллисто с сообщением «Переполнение» в строке комментариев. Можно ввести с клавиатуры произвольное число в качестве значения «10100» и вернуться в Каллисто, нажав  С/П . Подробнее см. статью Авост Каллисто.

В случае аварийного останова рекомендуется произвести «холодную перезагрузку» Каллисто с удалением всех введённых слов, нажав последовательно клавиши  В/О   С/П .

Слово + также может использоваться для сложения целых чисел, как в Форте. В этом случае сумма x1 — также целое число, если её модуль не превышает 1012.

1329 ;#Plus
1330 ; +                ( y x −− x1 )                        Сложить. x1 := y+x
1331 LPLUS:          .DB     1
1332                 .TEXT   "+"                     ; ( a b −− a+b )
1333                 .DW     LFDIV2
1334 PLUS:           .DW     JPLUS                   ; Сложение.
1335 JPLUS:          RM3 MB 1 + MA M3
1336                 KRMA KRMB + KMA                 ; Обёртка вокруг +
1337                 KGOTO9

Реализации из SP-Forth 4.20:

CODE + ( n1|u1 n2|u2 -- n3|u3 ) \ 94
\ Сложить n1|u1 и n2|u2 и получить сумму n3|u3.
     ADD EAX, [EBP]
     LEA EBP, 4 [EBP]
     RET
END-CODE
CODE F+      \   DE C1
       FADDP ST(1), ST
       RET
END-CODE

Советская реализация[править]

Слово + в ФОРТ-ЕС и FORTH ИТЭФ было примитивом и работало только с целыми числами. Вот его описание и определение в ФОРТ-ЕС:

  +           W1,W2->W3             СУММА ЧИСЕЛ W1 И W2  17

                     Экран номер 17
( 31.03.86   NEGATE ABS + - 1+ 1- 2+ 2- +!  1+!  )

CODE +  14 LHRW12 BAL, RW1 RW2 AR,   POPPUT1 В,   END-CODE

Определение слова + в FORTH ИТЭФ:

            HEAD     201Q,,253Q,PLUS                      ; +
            POP  AX
            POP  CX
            ADD  AX, CX
            PUSH AX
            NEXT

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