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

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

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

Текущая версия Ваш текст
Строка 1: Строка 1:
'''SIGN''' (знак) — стандартное слово [[Каллисто]].
'''SIGN''' — стандартное слово [[Каллисто]].
SIGN          ( x −− )                            Добавить к форматной строке литеру '−', если число x отрицательно.
 
Вводит [[Символ -|знак "минус"]] в выходной буфер [[PAD]], если n<0
Вводит [[Символ -|знак "минус"]] в выходной буфер [[PAD]], если n<0


== Ввод слова SIGN ==
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите четыре клавиши [[Клавиша 1|{{Серая клавиша|1}}]] [[Клавиша 7|{{Серая клавиша|7}}]] [[Клавиша БП|{{Чёрная клавиша|БП}}]] [[Клавиша 4|{{Серая клавиша|4}}]]


== SIGN в стандарте ANS Forth ==
== SIGN в стандарте ANS Forth ==
Строка 14: Строка 12:
             числа.
             числа.


== История ==
Начиная с Форта-79, SIGN берёт свой аргумент с вершины стека. Это означает, что обращение к SIGN в [[Каллисто]] обычно выглядит так: [[Слово ↔|↔]] SIGN


=== SIGN в предыдущем стандарте Forth-83 (англ.) ===
== 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: Строка 19:
           <# and #> .
           <# and #> .


=== SIGN в стандарте Forth-79 (англ.) ===
 
== 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 в 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: Строка 32:
         but double number d is maintained. Must be used between <# and #>.
         but double number d is maintained. Must be used between <# and #>.


== Реализация ==
 
В соответствии со стандартом Форт−79 и последующими, слово SIGN берёт свой аргумент с вершины стека. Обычно SIGN используется непосредственно после [[U♯S|U#S]]
== Реализация SIGN ==
<pre>
Следующее описание слова SIGN приводится у Юрия Семёнова (стр. 100) и у Баранова-Ноздрунова (стр. 37):
3764 ;#SIGN
3765 ; SIGN            ( x −− )                            Добавить к форматной строке литеру '−', если число x отрицательно.
3766 ; Ввести знак "минус" в выходной буфер PAD, если x<0
3767 ; Обычно используется непосредственно после U#S
3768 LSIGN:          .DB    4
3769                .TEXT  "SIGN"
3770                .DW    LEFDIGS
3771 SIGN:          .DW CALL, ZLESS, ZBRAN,SIG, LITB
3772                .DB 45
3773                .DW HOLD
3774 SIG:            .DW EXIT
</pre>
Реализация из SP-Forth 4.20:
<pre>
: SIGN ( n -- ) \ 94
\ Если n отрицательно, добавить в строку форматного преобразования
\ чисел минус.
\ Исключительная ситуация возникает, если использовать SIGN
\ вне <# и #>, ограничивающивающих преобразование чисел.
  0< IF [CHAR] - HOLD THEN
;
</pre>
=== Советская реализация ===
Определение слова SIGN совпадает у Юрия Семёнова (стр. 100) и Баранова-Ноздрунова (стр. 37):
   : SIGN  ( A ---> )  0< IF '-' HOLD THEN ;
   : SIGN  ( A ---> )  0< IF '-' HOLD THEN ;


Определение слова SIGN в ядре ФОРТ-ЕС:
== История ==
<PRE>
Начиная с Форта-79, SIGN берёт свой аргумент с вершины стека. Это означает, что обращение к SIGN в Каллисто обычно выглядит так: [[↔ (Каллисто)|↔]] SIGN
SIGN    N-> ДОБАВИТЬ В ФОРМАТНУЮ СТРОКУ ЗНАК                  37
            МИНУС, ЕСЛИ ЧИСЛО N ОТРИЦАТЕЛЬНО
 
                    Экран номер 37
( 31.03.86  PAD  HOLD  ALPHA  <# #> # #S SIGN )
 
: SIGN ( N->) 0< IF C" - HOLD THEN ;
</PRE>
Определение слова SIGN в FORTH ИТЭФ:
<PRE>
            HEAD    204Q,'SIG',316Q,SIGN,$COL            ; SIGN
            DW  ROT,ZLESS,ZBRAN,SIG-$,LIT,55Q,HOLD
  SIG:      DW  SEMI
</PRE>


== Ссылки ==
== Ссылки ==
* {{Исходник|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://www.forth200x.org/documents/html/core.html#core:SIGN Слово SIGN в черновике Forth 200x] ''(англ.)''
* Слово [http://forth-standard.org/standard/core/SIGN SIGN] в черновике Forth 200x ''(англ.)''
* [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\07.TISLO%20TIPOW%20TISEL ЧИСЛО ТИПОВ ЧИСЕЛ] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»]
* [http://www.forth.com/starting-forth/sf7/sf7.html A Number of Kinds of Numbers] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)''




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

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

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

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

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