Слово ↵
↵ (возврат каретки, стрелка вниз с поворотом влево) — адаптированное слово Каллисто.
↵ ( -- ) Возврат каретки. Продолжить вывод с начала следующей строки.
Вывести на терминал возврат каретки и перевод строки. Последующий вывод появится в начале следующей строки.
Ввод слова ↵
В режиме NUM последовательно нажмите две клавиши F В↑
CR в стандарте ANS Forth
6.1.0990 CR "c-r" CORE ( -- ) Заставляет последующий вывод появляться в начале следующей строки.
История
Слово ↵ в Форте называется CR и является одним из наиболее старых и устоявшихся слов Форта.
CR появился в Форте в 1965 году, когда Чак Мур подрабатывал наёмным программистом в городе Нью-Йорк. Тогда появились миникомпьютеры, а с ними и терминалы. Интерпретатор был идеален для ввода с телетайпа и вскоре стал включать код для работы с выводом.
CR в предыдущем стандарте Forth-83 (англ.)
CR -- M,79 "c-r" Displays a carriage-return and line-feed or equivalent operation.
CR в стандарте Forth-79 (англ.)
CR 160 "c-r" Cause a carriage-return and line-feed to occur at the current output device.
CR в fig-FORTH Release 1 glossary, май 1979 (англ.)
CR L0 Transmit a carriage return and line feed to the selected output device.
Реализация
Слово ↵ в ФОРТ-ЕС называлось CR и было примитивом. Вот его описание и опубликованная часть определения:
CR -> ВЫВЕСТИ НА ТЕРМИНАЛ ПЕРЕВОД СТРОКИ 6 Экран номер 6 ( 09.09.86 KEY CR EMIT TYPE (EXPECT/ RBLK MBLK ) ( следующие определения дают только имена процедур) CODE EMIT ( С-> ВЫВЕСТИ ЛИТЕРУ С КОДОМ С НА ТЕРМИНАЛ) END-CODE
В FORTH ИТЭФ слово ↵ также называлось CR
Ещё в FORTH ИТЭФ был примитив RC для вывода CR без LF через примитив EMIT
Вот эти определения:
HEAD 204Q,'EMI',324Q,EMIT,$EMIT ; EMIT $EMIT LABEL FAR POP AX ENT$: PUSH AX MOV AH, 15 INT 16 POP AX MOV AH, 14 JMP $EM PRINT: MOV DX, 0 ; Установка номера принтера SUB AH, AH INT 23 TES AH, 51Q JE OK ERR4: MOV AL, AH ADD AL, 60Q MOV AH, 14 INT 16 MOV DX, OFFSET ERMES4 MOV AH, 9H INT 21H JMP TYPE$ ERMES4: DB ' PRINTER ERROR $' HEAD 202Q,'R',303Q,RC ; RC MOV AX, 13 JMP ENT$ ... HEAD 202Q,'C',322Q,CR,$COL ; CR DW LIT,15Q,EMIT,LIT,12Q,EMIT,SEMI
Метки $EM и OK находятся в определении EMI
Ссылки
- Исходный текст слова ↵ в Каллисто Классик 1.0
- См. слова EMIT и ↖
- Слово CR (c-r) в стандарте ANS Forth (англ.)
- Слово CR (c-r) в черновике Forth 200x (англ.)
- ОСНОВЫ ФОРТА в книге Л.Броуди «Начальный курс программирования на языке Форт»
- Fundamental Forth в книге Leo Brodie Starting Forth (англ.)
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |