Редактирование: MAX

Перейти к навигации Перейти к поиску
Внимание: Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы войдёте или создадите учётную запись, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.

Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.

Текущая версия Ваш текст
Строка 1: Строка 1:
[[Файл:CallistoMAXMIN2DUP.png|thumb|right|264px|Пример работы слова MAX]]
'''MAX''' (максимум) — стандартное слово [[Каллисто]]. Нахождение большего из двух [[Десятичное число|чисел]].
'''MAX''' (максимум) — стандартное слово [[Каллисто]]. Нахождение большего из двух [[Десятичное число|чисел]].
  MAX            ( y x −− x1 )                       Нахождение большего из двух чисел.
  MAX            ( x1 x2 -- x3 )
                                                    x1 := max (x, y)
 
[[Файл:CallistoMAXMIN2DUP.png|thumb|right|264px|Пример работы слова MAX]]
Засылает в [[Стек данных|стек]] [[Десятичное число|число]] x3, которое является наибольшим из двух [[Десятичное число|чисел]] x1 и x2.
Слово MAX засылает в [[Стек данных|стек]] [[Десятичное число|число]] x1, которое является наибольшим из двух [[Десятичное число|чисел]] x и y.


== Ввод слова MAX ==
== Ввод слова MAX ==
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите три клавиши [[Клавиша ÷|{{Серая клавиша|÷}}]] {{ШГ←}} [[Клавиша 0|{{Серая клавиша|0}}]]
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите три клавиши [[Клавиша ÷|{{Серая клавиша|÷}}]] [[Клавиша ШГ влево|{{Чёрная клавиша|ШГ←}}]] [[Клавиша 0|{{Серая клавиша|0}}]]


== MAX и FMAX в стандарте ANS Forth ==
== Детали реализации ==
<PRE>
Слово является «обёрткой» вокруг команды ЭКВМ [[К max]].
6.1.1870  MAX                                                            CORE
            ( n1 n2 -- n3 )
            n3 большее из n1 и n2.


== FMAX в стандарте ANS Forth ==
  12.6.1.1562  FMAX                      "f-max"                        FLOATING
  12.6.1.1562  FMAX                      "f-max"                        FLOATING
             ( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 )
             ( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 )
             r3 большее из r1 и r2.
             r3 большее из r1 и r2.
</PRE>


== История ==
== MAX в стандарте ANS Forth ==
В [[Каллисто]] имя MAX восходит к надписи на клавиатуре советского ПМК [[Электроника МК-61|«Электроника МК-61»]], выпущенного в 1984 году.
6.1.1870  MAX                                                             CORE
            ( n1 n2 -- n3 )
            n3 большее из n1 и n2.


=== MAX в предыдущем стандарте Forth-83 (англ.) ===
== MAX в предыдущем стандарте Forth-83 (англ.) ==
       MAX          n1 n2 -- n3                  79              "max"
       MAX          n1 n2 -- n3                  79              "max"
           n3 is the greater of n1 and n2 according to the operation of
           n3 is the greater of n1 and n2 according to the operation of
           > .
           > .


=== MAX в стандарте Forth-79 (англ.) ===
== MAX в стандарте Forth-79 (англ.) ==
  MAX            n1 n2 -- n3                  218              "max"
  MAX            n1 n2 -- n3                  218              "max"
     Leave the greater of two numbers.
     Leave the greater of two numbers.


=== MAX в fig-FORTH Release 1 glossary, май 1979 (англ.) ===
== MAX в fig-FORTH Release 1 glossary, май 1979 (англ.) ==
  MAX          n1  n2  ---  max                L0
  MAX          n1  n2  ---  max                L0
         Leave the greater of two numbers.
         Leave the greater of two numbers.


== Реализация ==
== Реализация ==
В [[Каллисто|Каллисто 1.0]] слово MAX является «обёрткой» вокруг команды ЭКВМ [[К max]]:
<pre>
1552 ;#MAX
1553 ; MAX              ( y x −− x1 )                        Большее из двух чисел. x1 := max (x, y)
1554 LMAX:          .DB    3
1555                .TEXT  "MAX"                  ; ( a b −− max )
1556                .DW    LMIN
1557 MAX:            .DW    JMAX
1558 JMAX:          RM3 MB  1 +  MA M3
1559                KRMB KRMA KMAX KMA              ; Выделить максимум, обёртка вокруг K MAX.
1560                KGOTO9
</pre>
Реализации из SP-Forth 4.20:
<pre>
CODE MAX ( n1 n2 -- n3 ) \ 94
\ n3 - большее из n1 и n2.
ARCH-P6 [IF]
    MOV    EDX, [EBP]
    CMP    EDX, EAX
    CMOVG  EAX, EDX
[ELSE]   
    CMP    EAX, [EBP]
    JL # ' DROP
[THEN]   
    LEA EBP, 4 [EBP]
    RET
END-CODE
</pre>
<pre>
CODE FMAX \ *
      MOV EBX, EAX
      FCOM
      FSTSW  EAX
      SAHF
      JB  SHORT @@1
      FXCH
@@1:  FFREE  ST
      FINCSTP
      MOV EAX, EBX
      RET
END-CODE
</pre>
=== Советская реализация ===
Слово MAX в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение:
Слово MAX в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение:
<PRE>
<PRE>
МАХ          N1,N2->N3 БОЛЬШЕЕ ИЗ ЧИСЕЛ N1 И N2                22
МАХ          N1,N2->N3 БОЛЬЕЕЕ ИЗ ЧИСЕЛ N1 И N2                22


                     Экран номер 22
                     Экран номер 22
Строка 111: Строка 66:


== Ссылки ==
== Ссылки ==
* {{Исходник|MAX|MAX}}
* См. слово [[MIN]]
* См. слово [[MIN]]
* Слова [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.1870 MAX] и [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.1.1562 FMAX (f-max)] в стандарте ANS Forth ''(англ.)''
* Слова [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.1870 MAX] и [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.1.1562 FMAX (f-max)] в стандарте ANS Forth ''(англ.)''
Строка 119: Строка 73:




{{нет иллюстраций}}
{{заготовка}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Примитивы]]
[[Категория:Математические функции Каллисто]]
[[Категория:Математические функции Каллисто]]
[[Категория:Усовершенствованные слова]]
[[Категория:Описание бета-версии Каллисто]]
[[Категория:Стандартные слова]]
[[Категория:1994 CORE]]
[[Категория:2012 CORE]]
Пожалуйста, учтите, что любой ваш вклад в проект «ПМК вики» может быть отредактирован или удалён другими участниками. Если вы не хотите, чтобы кто-либо изменял ваши тексты, не помещайте их сюда.
Вы также подтверждаете, что являетесь автором вносимых дополнений, или скопировали их из источника, допускающего свободное распространение и изменение своего содержимого (см. Pmkwiki:Авторские права). НЕ РАЗМЕЩАЙТЕ БЕЗ РАЗРЕШЕНИЯ ОХРАНЯЕМЫЕ АВТОРСКИМ ПРАВОМ МАТЕРИАЛЫ!

В целях защиты вики от автоматического спама в правках просим вас решить следующую каптчу:

Отменить Справка по редактированию (в новом окне)

Шаблоны, используемые на этой странице:

Источник — https://pmk.the-hacker.ru/MAX