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 (англ.)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |