DIGIT: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) Нет описания правки |
AtH (обсуждение | вклад) Нет описания правки |
||
Строка 14: | Строка 14: | ||
== История == | == История == | ||
Слово DIGIT является одним из наиболее старых слов Форта. Оно появилось в Форте в 1965 году, когда Чак Мур подрабатывал наёмным программистом в городе Нью-Йорк. Тогда появились миникомпьютеры, а с ними и терминалы. Интерпретатор был идеален для ввода с телетайпа и вскоре стал включать код для работы с выводом. | Слово DIGIT является одним из наиболее старых слов Форта. Оно появилось в Форте в 1965 году, когда Чак Мур подрабатывал наёмным программистом в городе Нью-Йорк. Тогда появились миникомпьютеры, а с ними и терминалы. Интерпретатор был идеален для ввода с телетайпа и вскоре стал включать код для работы с выводом. | ||
== Реализация == | |||
Определение слова DIGIT в ядре ФОРТ-ЕС: | |||
<PRE> | |||
Экран номер 39 | |||
( 31.03.86 DIGIT CONVERT NUMBER ) | |||
: DIGIT ( C,N1->N2,TF/FF) 0 ROT ROT 0 | |||
DO I ALPHA OVER ─ IF 2DROP I -1 0 LEAVE THEN LOOP DROP ; | |||
</PRE> | |||
Версия от 00:58, 26 марта 2016
DIGIT (цифра) — стандартное слово Каллисто.
ASCII-DIGIT BASE => DIGIT-VALUE TRUE / FALSE
Ввод слова DIGIT
В режиме ЛАТ последовательно нажмите клавиши K 7 БП 7 2
DIGIT в fig-FORTH Release 1 glossary, май 1979 (англ.)
DIGIT c n1 --- n2 tf (ok) c n1 --- ff (bad) Converts the ascii character c (using base n1) to its binary equivalent n2, accompanied by a true flag. If the conversion is invalid, leaves only a false flag.
История
Слово DIGIT является одним из наиболее старых слов Форта. Оно появилось в Форте в 1965 году, когда Чак Мур подрабатывал наёмным программистом в городе Нью-Йорк. Тогда появились миникомпьютеры, а с ними и терминалы. Интерпретатор был идеален для ввода с телетайпа и вскоре стал включать код для работы с выводом.
Реализация
Определение слова DIGIT в ядре ФОРТ-ЕС:
Экран номер 39 ( 31.03.86 DIGIT CONVERT NUMBER ) : DIGIT ( C,N1->N2,TF/FF) 0 ROT ROT 0 DO I ALPHA OVER ─ IF 2DROP I -1 0 LEAVE THEN LOOP DROP ;
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |