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

Материал из ПМК вики
Перейти к навигации Перейти к поиску
Нет описания правки
Нет описания правки
Строка 24: Строка 24:
             ( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 )
             ( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 )
             Умножает r1 на r2, возвращает r3.
             Умножает r1 на r2, возвращает r3.
== ∗ в предыдущем стандарте Forth-83 (англ.) ==
      ∗            w1 w2 -- w3                  79            "times"
          w3 is the least-significant 16 bits of the arithmetic
          product of w1 times w2.
== ∗ в стандарте Forth-79 (англ.) ==
∗              n1 n2 -- n3                  138            "times"
    Leave the arithmetic product of n1 times n2.
== ∗ в fig-FORTH Release 1 glossary, май 1979 (англ.) ==
∗            n1  n2  ---  prod              L0
        Leave the signed product of two signed numbers.


== История ==
== История ==
Строка 48: Строка 35:


В отличии от Форта, каллистянское слово × способно перемножать не только целые числа, но также десятичные дроби и числа с плавающей запятой. Имя × наследует советским ПМК.
В отличии от Форта, каллистянское слово × способно перемножать не только целые числа, но также десятичные дроби и числа с плавающей запятой. Имя × наследует советским ПМК.
=== ∗ в предыдущем стандарте Forth-83 (англ.) ===
      ∗            w1 w2 -- w3                  79            "times"
          w3 is the least-significant 16 bits of the arithmetic
          product of w1 times w2.
=== ∗ в стандарте Forth-79 (англ.) ===
∗              n1 n2 -- n3                  138            "times"
    Leave the arithmetic product of n1 times n2.
=== ∗ в fig-FORTH Release 1 glossary, май 1979 (англ.) ===
∗            n1  n2  ---  prod              L0
        Leave the signed product of two signed numbers.


== Реализация ==
== Реализация ==

Версия от 17:59, 5 июня 2016

× (умножить, умножение) — встроенное слово Каллисто. Умножение десятичных чисел.

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

Слово × умножает y на x, кладя на стек произведение x1.

Ввод слова ×

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

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

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

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

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

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

∗ и F∗ в стандарте ANS Forth

6.1.0090   ∗                                 "star"                        CORE
           ( n1|u1 n2|u2 -- n3|u3 )
           Умножает n1|u1 на n2|u2, возвращает n3|u3.
12.6.1.1410   F∗                          "f-star"                     FLOATING
           ( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 )
           Умножает r1 на r2, возвращает r3.

История

Слово ∗ является одним из самых древних сохранившихся слов Форта.

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

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

В Форте слово × записывается, как звёздочка: ∗

В отличии от Форта, каллистянское слово × способно перемножать не только целые числа, но также десятичные дроби и числа с плавающей запятой. Имя × наследует советским ПМК.

∗ в предыдущем стандарте Forth-83 (англ.)

     ∗            w1 w2 -- w3                   79             "times"
          w3 is the least-significant 16 bits of the arithmetic
          product of w1 times w2.

∗ в стандарте Forth-79 (англ.)

∗              n1 n2 -- n3                   138            "times"
    Leave the arithmetic product of n1 times n2.

∗ в fig-FORTH Release 1 glossary, май 1979 (англ.)

∗             n1  n2  ---  prod               L0
       Leave the signed product of two signed numbers.

Реализация

Слово × в ФОРТ-ЕС и FORTH ИТЭФ называлось ∗ и работало только с целыми числами. Определялось оно также одинаково, через примитив M∗

Вот описания и определения этих двух слов в ядре ФОРТ-ЕС:

  M*        T  N1,N2->D       ПРОИЗВЕДЕНИЕ ДВОЙНОЙ ДЛИНЫ N1 И N2   18
  *            N1,N2->N3              ПРОИЗВЕДЕНИЕ ЧИСЕЛ N1 И N2   18

                     Экран номер 18
( 03.10.84     М* M/ * /MOD / MOD */MOD */)

CODE M* ( N1,N2->D) RH1 SECOND LH, RW1 FIRST MH, 2PUTRW1 B,

: * ( N1,N2->N3)   M* DROP ;

Определения этих двух слов в FORTH ИТЭФ:

             HEAD    202Q,'M',252Q,MSTAR                  ; M*
             POP   AX
             POP   CX
             IMUL  CX
             PUSH  AX
             PUSH  DX
             NEXT
             ...
             HEAD    201Q,,252Q,STAR,$COL                 ; *
             DW  MSTAR,DROP,SEMI

Ссылки


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