Справочник программиста на персональном компьютере фирмы IBM. Ввод/вывод - Чтение позиции светового пера

ОГЛАВЛЕНИЕ

     7.3.2 Чтение позиции светового пера.


   Хотя очень немногие компьютеры оснащены световым пером, тем не
менее  это  одно из немногих вспомогательных  устройств,  которое
поддерживается как  оборудованием,  так  и операционной системой.
Световое перо работает с помощью небольшого оптического детектора
на кончике пера.  По ходу  сканирования  экрана электронным лучом
инициируется импульс оптического детектора, когда пучок достигает

точки экрана, над  которой  находится  перо.  Время возникновения
этого импульса, относительно сигналов горизонтальной и вертикаль-
ной синхронизации, позволяет определить позицию светового пера.

   Высокий уровень.


   Бейсик может определять  позицию светового пера двумя способа-
ми.  При первом программа непрерывно определяет статус пера.  При
втором, когда перо используется, то управление временно передает-
ся процедуре, обеспечиваемой Вашей программой.  Для  непрерывного
контроля за пером  надо  использовать  оператор PEN как функцию в
форме  X = PEN(n), где n - кодовый номер, определяющий какую  ин-
формацию Вы хотите получить о пере и его позиции.  Возможные зна-
чения n такие:

  0    возвращает -1, если перо было выключено со времени послед-
       него запроса, 0 - если нет
  1    возвращает последнюю координату x (0-319 или 0-639), в ко-
       торой перо было  включено  (оно  могло  быть  впоследствии
       передвинуто, если оставалось включенным)
  2    возвращает последнюю координату y (0-199), в которой перо
       было  включено.
  3    возвращает -1, если перо включено и 0 - если нет
  4    возвращает текущую x координату (0-319 или 0-639) пера
  5    возвращает текущую y координату (0-199) пера
  6    возвращает позицию - номер строки (1-24), в которой  перо
       было последний раз активизировано
  7    возвращает позицию - номер столбца (1-40 или 1-80), в ко-
       торой перо было последний раз активизировано
  8    возвращает текущую позицию - номер строки (1-24)
  9    возвращает текущую позицию - номер столбца (1-40 или 1-80)

   В данном примере  определяется  включено  ли  перо, и если это
так, то берется текущее его положение:

100 IF NOT PEN(3) THEN 130   'проверяем включено ли перо
110 X = PEN(4)               'получаем координату точки по оси x
120 Y = PEN(5)               'получаем координату точки по оси y
130 ...                      'продолжаем программу

   Более гибкие возможности использования светового пера  предос-
тавляются оператором ON PEN GOSUB.  Этот оператор указывает номер
строки, в которой начинается процедура, активизируемая при  вклю-
чении пера. Бейсик достигает этого проверкой состояния пера после
выполнения каждой его инструкции.  Процедура может получить пози-
цию пера и предпринять требуемые действия. Когда процедура закан-
чивается,  то программа продолжается с того места, где  она  была
при включении пера.
   ON PEN GOSUB не работает до тех пор, пока она не активизирова-
на  оператором PEN ON.  PEN OFF отменяет ее работу.  Смысл  этого
состоит в том, что  постоянная  проверка  статуса  пера замедляет
работу  программы, поэтому ее надо осуществлять только когда  это
необходимо.  Если программа  начинает  выполнять критичекую часть
кода, когда нельзя использовать процедуру ON PEN GOSUB,  напишите

PEN STOP. В этом случае будет продолжаться проверка статуса пера,
и если перо будет включено, то этот факт будет запомнен.   Однако
пока не будет встречен оператор PEN ON, управление не будет пере-
даваться процедуре ON PEN GOSUB.
   Данный пример вызывает остановку программы, когда нажата кноп-
ка на световом пере. Точка  в  позиции  светового пера включается
процедурой, обрабатывающей включение светового пера.

100 ON PEN GOSUB 5000   'устанавливаем процедуру для светового
110 PEN ON              'пера и включаем режим отслеживания его
 .
 .
5000 '''процедура обработки светового пера
5010 X = PEN(4)         'получаем координату X
5020 Y = PEN(5)         'получаем координату Y
5030 PSET(X,Y)          'включить эту точку
5040 RETURN             '

   Средний уровень.


   Функция  4 прерывания 10H BIOS сообщает текущую позицию свето-
вого пера.  У нее нет входных регистров. При возврате AX содержит
0,  если перо не включено и 1 - если получены новые значения  для
его позиции. Возвращается два  набора  координат, позиции точки и
позиции строки и столбца. Позиции символа содержатся в DX, причем
DH содержит строку (0-24), а DL  -  столбец (0-79). Позиция точки
содержится  в CH и BX, причем CH содержит вертикальную координату
(0-199), а BX - горизонтальную (0-319 или 0-639, в зависимости от
режима терминала).

;---читаем и запоминаем положение светового пера
   MOV  AH,4            ;номер функции
   INT  10H             ;прерывание BIOS
   CMP  AH,1            ;новая позиция?
   JE   NO_READING      ;если нет, то уходим
   MOV  COL,BX          ;сохраняем горизонтальную координату
   MOV  CL,CH           ;помещаем вертикальную координату
   MOV  CH,0            ;в CX
   MOV  ROW,CX          ;сохраняем вертикальную координату

   Низкий уровень.


   По своей сути световое перо является расширением  видеосистемы
и как таковое использует микросхему контроллера CRT 6845. Позиция
светового  пера  дается одним 2-хбайтным значением, хранящимся  в
регистрах 10H (старший байт) и  11H  (младший байт) микросхемы. В
[4.1.1]  объясняется как читать регистры микросхемы.   Посмотрите
пример.  Порт с адресом  3DCH  устанавливает  задвижку  светового
пера, а с номером 3DBH - сбрасывает ее.

;---проверка светового пера и чтение его позиции
   MOV  DX,3DAH       ;указываем на регистр статуса
   IN   AL,DX         ;получаем информацию
   TEST AL,4          ;проверяем выключатель

   JNZ  NOT_SET       ;на выход
   TEST AL,2          ;проверяем триггер
   JZ   NOT_SET       ;на выход
   SUB  DX,7          ;указываем на регистр адреса 6845
   MOV  AL,10H        ;запрос на старший байт позиции пера
   OUT  DX,AL         ;посылаем запрос
   INC  DX            ;указываем на регистр данных 6845
   IN   AL,DX         ;получаем значение
   XCNG AH,AL         ;запоминаем его в AH
   DEC  DX            ;возвращаемся к адресному регистру
   MOV  AL,11H        ;теперь хотим получить младший байт
   OUT  DX,AL         ;посылаем запрос
   INC  DX            ;назад к регистру данных
   IN   AL,DX         ;теперь это значение в AX