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