U♯

I# — стандартное слово Каллисто.

Преобразует одну цифру целого числа и записывает её в выходной буфер PAD

# в стандарте ANS Forth

6.1.0030   #                            "number-sign"                      CORE
           ( ud1 -- ud2 )
           Делит ud1 числом в BASE, дает частное ud2 и остаток n. (n - младший 
           разряд ud1.) Преобразовывает n к внешней форме и добавляет 
           результирующий символ к началу выходной строки отображаемого числа. 
           Неопределенная ситуация существует если # выполняется вне <# #> 
           ограничивающих преобразование числа.
       См.: 6.1.0040 #>, 6.1.0050 #S, 6.1.0490 <#.

# в предыдущем стандарте Forth-83 (англ.)

     #            +d1 -- +d2                    79             "sharp"
          The remainder of +d1 divided by the value of BASE is
          converted to an ASCII character and appended to the output
          string toward lower memory addresses.  +d2 is the quotient
          and is maintained for further processing.  Typically used
          between <# and #> .

# в стандарте Forth-79 (англ.)

#              ud1 -- ud2                    158            "sharp"
    Generate  from  an unsigned double number d1,  the next  ASCII
    character which is placed in an output string.   Result d2  is
    the  quotient after division by BASE is maintained for further
    processing.  Used between <# and #> .

# в fig-FORTH Release 1 glossary, май 1979 (англ.)

#              d1  ---  d2                       L0
       Generate from a double number d1, the next ascii character which is
       placed in an output string. Result d2 is the quotient after division
       by BASE, and is maintained for further processing. Used between <#
       and #>.
       See #S.

Реализация I#

Юрий Семёнов приводит следующее описание слова I# (стр. 100):

 : I#   BASE @ /MOD ROT '11 OVER < IF 7 + THEN '60 + HOLD ;

Ссылки

• Слово # (number-sign) в стандарте ANS Forth (англ.)
• Слово # (number-sign) в черновике Forth 200x (англ.)

У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их.

Это заготовка статьи. Вы можете помочь проекту, дополнив её.