MAX
MAX (максимум) — стандартное слово Каллисто. Нахождение большего из двух чисел.
MAX ( y x −− x1 ) Нахождение большего из двух чисел.
x1 := max (x, y)
Слово MAX засылает в стек число x1, которое является наибольшим из двух чисел x и y.
Ввод слова MAX
В режиме ЛАТ последовательно нажмите три клавиши ÷ ШГ← 0
Детали реализации
Слово является усовершенствованной «обёрткой» вокруг команды ЭКВМ К max.
MAX и FMAX в стандарте ANS Forth
6.1.1870 MAX CORE
( n1 n2 -- n3 )
n3 большее из n1 и n2.
12.6.1.1562 FMAX "f-max" FLOATING
( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 )
r3 большее из r1 и r2.
История
В Каллисто имя MAX восходит к надписи на клавиатуре советского ПМК «Электроника МК-61», выпущенного в 1984 году.
MAX в предыдущем стандарте Forth-83 (англ.)
MAX n1 n2 -- n3 79 "max"
n3 is the greater of n1 and n2 according to the operation of
> .
MAX в стандарте Forth-79 (англ.)
MAX n1 n2 -- n3 218 "max"
Leave the greater of two numbers.
MAX в fig-FORTH Release 1 glossary, май 1979 (англ.)
MAX n1 n2 --- max L0
Leave the greater of two numbers.
Реализация
Слово MAX в ФОРТ-ЕС было примитивом. Вот его описание и определение:
МАХ N1,N2->N3 БОЛЬШЕЕ ИЗ ЧИСЕЛ N1 И N2 22
Экран номер 22
( 31.03.86 FILL ERASE BLANK COMPILE [ ] MIN MAX HEX DECIMAL)
CODE MAX ( N1,N2->N3 ) 14 LHRM12 BAL, RW1 RW2 CR,
POP BNL, RW1 RW2 LR, POPPUT1 B, END-CODE
В FORTH ИТЭФ слово MAX также было примитивом и опиралось на часть кода примитива MIN, вот их определения:
HEAD 203Q,'MI',316Q,MIN ; MIN
POP AX
POP CX
CMP CX, AX
JL DEEP
TOP: PUSH AX
NEXT
DEEP: PUSH CX
NEXT
HEAD 203Q,'MA',330Q,MAX ; MAX
POP AX
POP CX
CMP CX, AX
JGE DEEP
JMP TOP
Ссылки
- Исходный текст слова MAX в Каллисто Классик 1.0
- См. слово MIN
- Слова MAX и FMAX (f-max) в стандарте ANS Forth (англ.)
- Слова MAX и FMAX (f-max) в черновике Forth 200x (англ.)
- ОПЕРАЦИИ НАД ЦЕЛЫМИ ЧИСЛАМИ в книге Л.Броуди «Начальный курс программирования на языке Форт»
- The Philosophy of Fixed Point в книге Leo Brodie Starting Forth (англ.)
|
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |