AT

Материал из ПМК вики
Перейти к навигации Перейти к поиску

AT (установить курсор) — адаптированное слово Каллисто. Позиционирование курсора.

AT             ( u1 u2 −− )                         Установить курсор в столбец u1 строки u2.

Использование: колонка ряд AT

Ввод слова AT[править]

В режиме ЛАТ последовательно нажмите клавиши $\mathrm{\overset{\leftarrow}{ШГ}}$  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:

Ссылки[править]


  Nopictures-icon.png У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их.


  Stub-icon-48px.png Это заготовка статьи. Вы можете помочь проекту, дополнив её.