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

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


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


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


== F∗ в стандарте ANS Forth ==
  12.6.1.1410  F∗                          "f-star"                    FLOATING
  12.6.1.1410  F∗                          "f-star"                    FLOATING
             ( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 )
             ( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 )
             Умножает r1 на r2, возвращает r3.
             Умножает r1 на r2, возвращает r3.
</PRE>
== История ==
В Форте слово × записывается, как [[Символ ∗|звёздочка "∗"]] и является одним из самых древних сохранившихся слов Форта.


== ∗ в предыдущем стандарте Forth-83 (англ.) ==
Впервые оно появилось в программе CURVE, написанной Чак Муром на Алголе для 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.
 
В отличии от Форта, каллистянское слово × способно перемножать не только целые числа, но также [[Десятичное число|десятичные дроби и числа с плавающей запятой]]. Имя × наследует советским ПМК.
 
=== ∗ в предыдущем стандарте Forth-83 (англ.) ===
       ∗            w1 w2 -- w3                  79            "times"
       ∗            w1 w2 -- w3                  79            "times"
           w3 is the least-significant 16 bits of the arithmetic
           w3 is the least-significant 16 bits of the arithmetic
           product of w1 times w2.
           product of w1 times w2.


== ∗ в стандарте Forth-79 (англ.) ==
=== ∗ в стандарте Forth-79 (англ.) ===
  ∗              n1 n2 -- n3                  138            "times"
  ∗              n1 n2 -- n3                  138            "times"
     Leave the arithmetic product of n1 times n2.
     Leave the arithmetic product of n1 times n2.


== ∗ в fig-FORTH Release 1 glossary, май 1979 (англ.) ==
=== ∗ в fig-FORTH Release 1 glossary, май 1979 (англ.) ===
  ∗            n1  n2  ---  prod              L0
  ∗            n1  n2  ---  prod              L0
         Leave the signed product of two signed numbers.
         Leave the signed product of two signed numbers.


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


Оно появилось в программе CURVE, написанной Чак Муром на Алголе для 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 Стэнфордский университет]).
Обработка этой ошибки производится [[Встроенная программа|встроенной программой]]. Например, последовательность слов {{Текст на индикаторе|1E50 ↑ ×}} вызывает [[аварийный останов]] [[Каллисто]] с сообщением «Переполнение» в [[Строка комментариев|строке комментариев]]. Можно ввести с клавиатуры произвольное число в качестве значения «10<sup>100</sup>» и вернуться в [[Каллисто]], нажав [[Клавиша С/П|{{Чёрная клавиша|С/П}}]]. Подробнее см. статью [[Авост Каллисто]].


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


В Форте слово × записывается, как звёздочка: ∗
Слово × также может использоваться для умножения целых чисел, как в Форте. В этом случае произведение x3 — также целое число, если его модуль не превышает 10<sup>12</sup>.
<pre>
1349 ;#Times
1350 ; &times;                ( y x −− x1 )                        Умножить. x1 := y&times;x
1351 LSTAR:          .DB    1,179                  ; "∗" Символ умножения на МК−161.
1352                .DW    LSUB                    ; ( a b −− a∗b )
1353 STAR:          .DW    JSTAR                  ; Произведение чисел y и x.
1354 JSTAR:         RM3 MB 1 + MA M3
1355                KRMA KRMB KMA                ; Обёртка вокруг ∗
1356                KGOTO9
</pre>
Реализации из SP-Forth 4.20:
<pre>
CODE * ( n1|u1 n2|u2 -- n3|u3 ) \ 94
\ Перемножить n1|u1 и n2|u2 и получить произведение n3|u3.
    IMUL DWORD [EBP]
    LEA EBP, 4 [EBP]
    RET
END-CODE
</pre>
<pre>
CODE F*    \ * DE C9
      FMULP ST(1), ST(0)
      RET
END-CODE
</pre>


В отличии от Форта, каллистянское слово × способно перемножать не только целые числа, но также десятичные дроби и числа с плавающей запятой. Имя × наследует советским ПМК.
=== Советская реализация ===
 
== Реализация ==
Слово × в ФОРТ-ЕС и FORTH ИТЭФ называлось ∗ и работало только с целыми числами. Определялось оно также одинаково, через [[примитив]] M∗
Слово × в ФОРТ-ЕС и FORTH ИТЭФ называлось ∗ и работало только с целыми числами. Определялось оно также одинаково, через [[примитив]] M∗


Строка 95: Строка 119:
[[Категория:Арифметические операции Каллисто]]
[[Категория:Арифметические операции Каллисто]]
[[Категория:Слова, способные вызывать авост Каллисто]]
[[Категория:Слова, способные вызывать авост Каллисто]]
[[Категория:Традиционные слова]]
[[Категория:Адаптированные слова]]

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

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

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

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

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

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

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

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

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

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

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

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

1349 ;#Times
1350 ; ×                ( y x −− x1 )                        Умножить. x1 := y×x
1351 LSTAR:          .DB     1,179                   ; "∗" Символ умножения на МК−161.
1352                 .DW     LSUB                    ; ( a b −− a∗b )
1353 STAR:           .DW     JSTAR                   ; Произведение чисел y и x.
1354 JSTAR:          RM3 MB 1 + MA M3
1355                 KRMA KRMB ∗ KMA                 ; Обёртка вокруг ∗
1356                 KGOTO9

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

CODE * ( n1|u1 n2|u2 -- n3|u3 ) \ 94
\ Перемножить n1|u1 и n2|u2 и получить произведение n3|u3.
     IMUL DWORD [EBP]
     LEA EBP, 4 [EBP]
     RET
END-CODE
CODE F*     \ * DE C9
       FMULP ST(1), ST(0)
       RET
END-CODE

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

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

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


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