Редактирование: SIGN
Перейти к навигации
Перейти к поиску
Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия | Ваш текст | ||
Строка 1: | Строка 1: | ||
'''SIGN''' (знак) — стандартное слово [[Каллисто]]. | '''SIGN''' (знак) — стандартное слово [[Каллисто]]. | ||
Вводит [[Символ -|знак "минус"]] в выходной буфер [[PAD]], если n<0 | Вводит [[Символ -|знак "минус"]] в выходной буфер [[PAD]], если n<0 | ||
== Ввод слова SIGN == | == Ввод слова SIGN == | ||
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите | В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите клавиши [[Клавиша 1|{{Серая клавиша|1}}]] [[Клавиша 7|{{Серая клавиша|7}}]] [[Клавиша БП|{{Чёрная клавиша|БП}}]] [[Клавиша 4|{{Серая клавиша|4}}]] | ||
== SIGN в стандарте ANS Forth == | == SIGN в стандарте ANS Forth == | ||
Строка 14: | Строка 14: | ||
числа. | числа. | ||
== SIGN в предыдущем стандарте Forth-83 (англ.) == | |||
SIGN n -- 83 | SIGN n -- 83 | ||
If n is negative, an ASCII "-" (minus sign) is appended to | If n is negative, an ASCII "-" (minus sign) is appended to | ||
Строка 23: | Строка 21: | ||
<# and #> . | <# and #> . | ||
== SIGN в стандарте Forth-79 (англ.) == | |||
SIGN n -- C,140 | SIGN n -- C,140 | ||
Insert the ASCII "-" (minus sign) into the pictured numeric | Insert the ASCII "-" (minus sign) into the pictured numeric | ||
output string, if n is negative. | output string, if n is negative. | ||
== SIGN в fig-FORTH Release 1 glossary, май 1979 (англ.) == | |||
SIGN n d --- d L0 | SIGN n d --- d L0 | ||
Stores an ascii "-" sign just before a converted numeric output | Stores an ascii "-" sign just before a converted numeric output | ||
Строка 34: | Строка 34: | ||
but double number d is maintained. Must be used between <# and #>. | but double number d is maintained. Must be used between <# and #>. | ||
== Реализация | |||
== Реализация SIGN == | |||
Описание слова SIGN приводится у Юрия Семёнова (стр. 100) и у Баранова-Ноздрунова (стр. 37): | |||
: SIGN ( A ---> ) 0< IF '-' HOLD THEN ; | : SIGN ( A ---> ) 0< IF '-' HOLD THEN ; | ||
== История == | |||
Начиная с Форта-79, SIGN берёт свой аргумент с вершины стека. Это означает, что обращение к SIGN в [[Каллисто]] обычно выглядит так: [[↔ (Каллисто)|↔]] SIGN | |||
: | |||
== Ссылки == | == Ссылки == | ||
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.2210 SIGN] в стандарте ANS Forth ''(англ.)'' | * Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.2210 SIGN] в стандарте ANS Forth ''(англ.)'' | ||
* Слово [http:// | * Слово [http://www.forth200x.org/documents/html3/core/SIGN.html SIGN] в черновике Forth 200x ''(англ.)'' | ||
Строка 91: | Строка 50: | ||
{{заготовка}} | {{заготовка}} | ||
[[Категория:Слова Каллисто]] | [[Категория:Слова Каллисто]] | ||
[[Категория:Форматные преобразования Каллисто]] | [[Категория:Форматные преобразования Каллисто]] | ||
[[Категория: | [[Категория:Слова Каллисто без стековых диаграмм]] | ||