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

Материал из ПМК вики
Перейти к навигации Перейти к поиску
Нет описания правки
Нет описания правки
Строка 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.


== Ввод слова + ==
== Ввод слова + ==

Версия от 15:06, 5 июня 2016

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

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

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

Ввод слова +

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

Детали реализации

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

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

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

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

+ и 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.

+ в предыдущем стандарте 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.

История

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

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

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

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

Реализация

Слово + в ФОРТ-ЕС и 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

Ссылки