Слово +
+ (сложить, читается «плюс») — стандартное слово Каллисто. Сложение десятичных чисел.
+ ( x1 x2 -- x3 ) Сложить. x3 ← x1 + x2
Добавляет x2 к x1 и выдаёт сумму x3.
Ввод слова +
В режиме NUM нажмите белую клавишу +
Детали реализации
Слово + является «обёрткой» вокруг команды ЭКВМ +, вызывающей переполнение при результате, по модулю больше либо равном 10100.
Обработка этой ошибки производится встроенной программой. Например, последовательность слов 5E99 ↑ + вызывает аварийный останов Каллисто с сообщением «Переполнение» в строке комментариев. Можно ввести с клавиатуры произвольное число в качестве значения «10100» и вернуться в Каллисто, нажав С/П . Подробнее см. статью Авост Каллисто.
В случае аварийного останова рекомендуется произвести «холодную перезагрузку» Каллисто с удалением всех введённых слов, нажав последовательно клавиши В/О С/П .
Слово + также может использоваться для сложения целых чисел, как в Форте. В этом случае сумма x3 — также целое число, если её модуль не превышает 1012.
+ в стандарте ANS Forth
6.1.0120 + "plus" CORE ( n1|u1 n2|u2 -- n3|u3 ) Прибавляет n2|u2 к n1|u1, возвращая сумму n3|u3.
См.: 3.3.3.1 Выравнивание адреса.
F+ в стандарте ANS Forth
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.
История
Слово + является одним из самых древних сохранившихся слов Форта.
Оно появилось в программе CURVE, написанной Чак Муром на Алголе для Burroughs B5500 в 1964 году (Национальная ускорительная лаборатория SLAC, Стэнфордский университет).
В 1970 году слово + работало в 2К×48бит версии Форта на Burroughs B-5500.
Реализация
Слово + в ФОРТ-ЕС и 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
Ссылки
- См. слова 1+, 2+, +!, −, ×, ÷
- См. также символ +
- Сложение на Википедии
- Слово + (plus) и F+ (f-plus) в стандарте ANS Forth (англ.)
- Слова + (plus) и F+ (f-plus) в черновике Forth 200x (англ.)
- ОСНОВЫ ФОРТА в книге Л.Броуди «Начальный курс программирования на языке Форт»
- ВЫПОЛНЕНИЕ АРИФМЕТИЧЕСКИХ ОПЕРАЦИЙ в книге Л.Броуди «Начальный курс программирования на языке Форт»
- How to Get Results в книге Leo Brodie Starting Forth (англ.)
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |