Язык программирования Форт



         

Приложение А. Глоссарий (список слов Форта) - часть 9


BASE ! ; .R "dot-r" "точка-r" 83CNT 79RES MMS ( n1 n2 --) С учетом значения BASE отображает число n1 в поле длиной n2 так, что младшая цифра занимает самую правую позицию поля. Если n1 отрицательно, перед ним печатается знак минус. В Форт-83, если необходимое число символов для отображения n1 больше n2, дается сообщение об ошибке. Размер поля менее 1 в Форт-83 также запрещен. В Форт-79 при требуемом числе символов для отображения n1 больше n2 ошибка не фиксируется. (В большинстве версий Форт-79 печатает в таком случае результат без предшествующего пробела). Если в Форт79 n2 меньше 1, предшествующий пробел также не вводится. .S "dot-s" "точка-s" ТХТ MMS ( --) Отображает все числа в стеке без изменения его указателя. В Форт-83 описание имеет вид : .S DEPTH ?DUP 0= IF ." STACK EMPTY" ELSE 0 DO DEPTH 1- ROLL DUP . LOOP THEN ; а в Форт-79 : .S DEPTH ?DUP 0= IF." Stack empty" ELSE 0 DO DEPTH ROLL DUP . LOOP THEN ; / "divide" "разделить" 83REQ 79REQ ( n1 n2 -- n3) Делит n1 на n2, частное n3 засылает в стек. В Форт-79 n3 округляется в направлении нуля, в то время как в Форт-83 используется деление с нижней границей. В форт-83 при делителе, равном 0, или если частное оказывается вне пределов -32.768 - 32.767, дается сообщение об ошибке. /MOD "divide-mod" "деление с остатком" 83REQ 79REQ (n1 n2 - n3 n4) Делит n1 на n2, остаток n3 и частное n4 засылаются в стек. В Форт-83 применено деление с нижней границей, в Форт-79 частное округляется в направлении 0. В Форт-83 при делителе, равном 0, или если частное оказывается вне пределов -32.768 - 32.767, дается сообщение об ошибке. 0< "zero-less" "меньше нуля" 83REQ 79REQ ( n -- флаг) Сравнивает n с 0 и засылает в стек флаг истинно, если n меньше 0. О= "zero-equals" "равно нулю" 83REQ 79REQ ( n -- флаг) Сравнивает n с 0 и засылает в стек флаг истинно, если n равно 0. См. также NOT. которое является синонимом 0= в форт-79, но имеет совсем иной смысл в Форт-83. 0> "zero-greater" "больше нуля" 83REQ 79REQ ( n -- флаг) Сравнивает n с 0 и засылает в стек флаг истинно, если n больше 0. 0ARGMAKE "0-arg-make" ТХТ ( n--) Слово-описатель, которое формирует мнемонику ассемблера, чтобы скомпилировать байт, который при описании является аргументом.


Содержание  Назад  Вперед