Редактирование: U♯S

'''U#S''' — фортовское слово [[Каллисто]].
 U#S            ( u −− 0 )                           Выделять цифры числа u словом U# до получения нуля.
Преобразует целое положительное число u до тех пор, пока не будет получен 0. Одна цифра выдаётся в любом случае ('0').

== Ввод слова U#S ==
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите клавиши [[Клавиша 3|{{Серая клавиша|3}}]] &nbsp; [[Клавиша P|{{Синяя клавиша|P}}]] [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша 3|{{Серая клавиша|3}}]] &nbsp; [[Клавиша Р-ГРД-Г|{{Чёрная клавиша|Р-ГРД-Г}}]] [[Клавиша 1|{{Серая клавиша|1}}]]

== #S в стандарте ANS Forth ==
<pre>
 6.1.0050   #S                         "number-sign-s"                      CORE
            ( ud1 -- ud2 )
            Преобразует одну цифру ud1 согласно правилу для #. Продолжает 
            преобразование до нулевого частного. ud2 нулевое. Неопределенная 
            ситуация существует, если #S выполняется вне <# #> ограничивающих 
            преобразование числа.

        См.: 6.1.0030 #, 6.1.0040 #>, 6.1.0490 <#.
</pre>

== История ==
Каллистянское слово U#S — адаптированное слово S# , которое является стандартным и известно со времён Форта−79.

Каллистянское U#S оперирует лишь с одной ячейкой на вершине [[Стек данных|стека]]. Слово U#S также присутствует в некоторых версиях Форта, откуда и было взято его имя.

=== #S в предыдущем стандарте Forth-83 (англ.) ===
      #S           +d -- 0 0                     79           "sharp-s"
           +d is converted appending each resultant character into the
           pictured numeric output string until the quotient (see: # )
           is zero.  A single zero is added to the output string if the
           number was initially zero.  Typically used between <# and
           #> .

=== #S в стандарте Forth-79 (англ.) ===
 #S             ud -- 0 0                     209          "sharp-s"
     Convert  all digits of an unsigned 32-bit  number  ud,  adding
     each  to the pictured numeric output text,  until remainder is
     zero.   A  single  zero is added to the output string  if  the
     number was initially zero.  Use only between <# and #>.

=== #S в fig-FORTH Release 1 glossary, май 1979 (англ.) ===
 #S             d1  ---  d2                       L0
        Generates ascii text in the text output buffer, by the use of #,
        until a zero double number n2 results.
        Used between <# and #>.

== Реализация ==
<pre>
3792 ;#UnumS
3793 ; U#S              ( u −− 0 )                           Выделять цифры числа u словом U# до получения нуля.
3794 ; Преобразовать целое число u до тех пор, пока не будет получен 0
3795 ; Одна цифра выдаётся в любом случае ('0')
3796 LDIGS:          .DB     3
3797                 .TEXT   "U#S"                   ; ( целое −− 0)
3798                 .DW     LDIG
3799 DIGS:           .DW CALL
3800 DIS:            .DW DIG, DUP,ZEQU, ZBRAN,DIS, EXIT
</pre>

=== Советская реализация ===
Определение слова U#S приводится у Юрия Семёнова (стр. 100) и у Баранова-Ноздрунова (стр. 37):
  : U#S   ( A ---> 0 )    BEGIN U# ↑ 0= UNTIL ;

В ядре ФОРТ-ЕС и FORTH ИТЭФ слово U#S называлось #S и работало с числовой парой. Вот описание и определение #S из ядра ФОРТ-ЕС:
<PRE>
#S        D1->0,0 ВЫДЕЛЯТЬ ЦИФРЫ D1 ПО СЛОВУ "#" ДО             37
          ПОЛУЧЕНИЯ НУЛЯ

                     Экран номер 37
( 31.03.86  PAD  HOLD  ALPHA  <# #> # #S SIGN )

: #S  ( D->0,0)  BEGIN # 2DUP OR 0= UNTIL ;
</PRE>
Вот определение #S из FORTH ИТЭФ:
<PRE>
             HEAD    202Q,'#',323Q,DIGS,$COL              ; #S
   DIS:      DW  DIG,DUP2,$OR,ZEQU,ZBRAN,DIS-$,SEMI
</PRE>

== Ссылки ==
* {{Исходник|UnumS|U#S}}
* [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0050 Слово #S (number-sign-s) в стандарте ANS Forth] ''(англ.)''
* Слово [http://forth-standard.org/standard/core/numS #S (number-sign-s)] в черновике 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] ''(англ.)''


{{нет иллюстраций}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Слова высокого уровня]]
[[Категория:Форматные преобразования Каллисто]]
[[Категория:Адаптированные слова]]
[[Категория:Фортовские слова]]
@@ Строка 55: / Строка 55: @@
 DIGS:           .DW CALL
 DIS:            .DW DIG, DUP,ZEQU, ZBRAN,DIS, EXIT
-</pre>
-Реализация из SP-Forth 4.20:
-<pre>
-: #S ( ud1 -- ud2 ) \ 94
-\ Выделять цифры D1 по слову # до получения нуля.
-\ ud2 - ноль.
-\ Исключительная ситуация возникает, если использовать #S
-\ вне <# и #>, ограничивающивающих преобразование чисел.
-  BEGIN
-    # 2DUP D0=
-  UNTIL
-;
 </pre>