AT
AT (установить курсор) — адаптированное слово Каллисто. Позиционирование курсора.
AT ( u1 u2 −− ) Установить курсор в столбец u1 строки u2.
Использование: колонка ряд AT
Ввод слова AT[править]
В режиме ЛАТ последовательно нажмите клавиши ШГ← 2
AT-XY в стандарте ANS Forth[править]
10.6.1.0742 AT-XY "at-x-y" FACILITY
( u1 u2 -- )
Исполняет зависящие-от-реализации шаги так, чтобы следующий
отображаемый символ появился в столбце u1, строке u2
пользовательского устройства вывода, верхний левый угол которого -
нулевой столбец и нулевая строка. Неопределенная ситуация
существует, если операция не может быть выполнена на
пользовательском устройстве вывода с определенными параметрами.
A.10.6.1.0742 AT-XY Большинство разработчиков поставляют метод позиционирования курсора на экране CRT, но есть большое разногласие в именах и параметрах стека. Эта версия поддерживается, по крайней мере, одним главным поставщиком.
История[править]
До Форта ANS это слово имело и другие названия, например в MMSFORTH это слово называлось PTC (put cursor — поместить курсор).
Короткое имя AT взято из colorForth. До этого оно использовалось в Форте FSP88.
Реализация[править]
1088 JPL0: 9 EE 3 + M8 ; В железном МК−161 после БП не нужен ENT 1089 RM3 MB M5 2 + M3 1090 KRMB KRM5 KM8 1091 KGOTO9 1092 JFIX: 0 1093 JJPL0: PGOTO JPL0 ; 9000 AT Установить курсор … 1142 ;#AT 1143 ; AT ( c1 c2 −− ) Установить курсор в столбец c1 строки c2. 1144 LFIX: .DB 2 1145 .TEXT "AT" ; ( x y −− ) 1146 .DW LPAGE 1147 FIX: .DW JFIX ; Позиционирование курсора: x y AT
Советская реализация[править]
В FORTH ИТЭФ слово AT было известно, как FIX и было примитивом, вот его определение:
HEAD 203Q,'FI',330Q,FIX ; FIX
; Позиционирование курсора: COL ROW FIX
MOV AH, 15
INT 10H ; Запись текущего номера страницы в BX
POP DX
MOV DH, DL ; строка
POP AX
MOV DL, AL ; столбец
MOV AH, 2
INT 10H ; Фиксация положения курсора
NEXT
Известные проблемы[править]
В Каллисто 1.0 комментарий лучше перенести со строчки JJPL0: на строчку JFIX:
Ссылки[править]
- Исходный текст слова AT в Каллисто Классик 1.0
- Слово AT-XY (at-x-y) и комментарии к нему в стандарте ANS Forth (англ.)
- Слово AT-XY (at-x-y) в черновике Forth 200x (англ.)
- См. слова ↖ и ↵
|
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
|
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |