ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 04.07.2020
Просмотров: 3160
Скачиваний: 1
Для загрузки программы - LOAD "CAS1:имяфайла". В последнем случае
лента прогоняется до тех пор, пока нужный файл не будет найден,
при этом имя каждого встреченного файла будет выводиться на экран
(кассеты не используют каталоги). Если запросить несуществующий
файл, то будет выведен полный список файлов на кассете.
Средний уровень.
BIOS работает с кассетной лентой порциями в 256-байтные блоки.
Набору блоков предшествует "лидер", который состоит из 256 байтов
ASCII 1. Лидер завершается нулевым битом синхронизации. Затем
следует байт синхронизации со значением 16H, а затем 256 байтов
данных. После этого идут 2 байта контроля ошибок, а затем новый
блок данных, сопровождающийся парой байт проверки ошибок и т.д.
Вся последовательность завершается четырехбайтным "хвостом",
содержащим коды ASCII 1.
Для чтения данных с кассеты на до использовать функцию 2 пре-
рывания 15H. Нет необходимости открывать файл, как это делается
при дисковых операциях. ES:BX указывают на буфер в памяти, куда
будут посылаться данные, а CX - число байтов, которые надо счи-
тать. При возврате DX сообщит сколько байтов прочитано на самом
деле, а ES:BX будут указывать на последний считанный байт плюс 1.
Флаг переноса будет равен 0, если чтение прошло успешно, а в
противном случае AH будет содержать 1, если проблема с контролем
ошибки, 2 - при ошибке чтения данных и 3 - при отсутствии данных
на ленте.
Функция 3 прерывания 15H записывает данные на кассету. ES:BX
указывают на первый байт данных, а CX содержит число байтов,
которое надо записать. При возврате ES:BX указывают на байт,
следующий за последним записанным. Мотор управляется функциями 0
(включение) и 1 (выключение) прерывания 15H. Для этих функций нет
выходных регистров.
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
7.3.3 Получение аналогового ввода через игровой порт.
Игровой порт может поддерживать 2 джойстика или 4 "весла". Для
джойстика он сообщает две координаты и статус двух кнопок; для
весла он сообщает одну координату и статус одной кнопки. Несколь-
ко вспомогательных устройств, таких как графическое табло, также
может быть подключено к игровому порту; их работа может осуществ-
ляться параллельно с работой джойстика. Данный раздел посвящен
чтению координат, а в следующем обсуждается как получить статус
кнопок.
Высокий уровень.
Функция STICK возвращает позиции по осям, указываемую следую-
щими кодовыми номерами:
0 ось X джойстика A
1 ось Y джойстика A
2 ось X джойстика B
3 ось Y джойстика B
Вам нужно написать, например, X = STICK(0) и в X будет содержать-
ся значение координаты X для джойстика A. Но эта функция имеет
ловушку, о которой Вам необходимо знать. Только при использовании
кода 0 действительно читаются координаты джойстика, при этом
читаются все 4 значения. Кодовые номера 1-3 просто сообщают пока-
зания, прочитанные кодом 0. Чтобы получить последние 3 координаты
Вам необходимо перед этим использовать функцию X = STICK(0), даже
если Вам не нужно знать значение, возвращаемое кодом 0.
Джойстики отличаются по своим физическим характеристикам,
поэтому необходимо настраивать их, чтобы их предельные положения
совпадали с границами экрана. В следующем примере показано как
это делается. В примере непрерывно рисуется точка, в позиции,
указываемой джойстиком, действие, которое требуется, чтобы диапа-
зон значений, принимаемых игровым портом, преобразовывался в
диапазон позиций экрана.
100 '''получаем предельные показания джойстика
110 STRIG ON 'разрешаем кнопки
120 V= STRIG(0) 'чистим старые показания
130 PRINT "Briefly push button 1 when stick is farthest to left"
140 XLEFT = STICK(0) 'получаем самое левое значение
150 IF STRIG(0) = 0 THEN 140 'ждем нажатия кнопки
160 STRIG OFF: FOR N = 1 TO 1000: NEXT: STRIG ON
170 PRINT "Briefly push button 1 when stick is farthest to right"
180 XRIGHT = STICK(0) 'получаем самое правое значение
190 IF STRIG(0) = 0 THEN 180 'ждем нажатия кнопки
200 STRIG OFF: FOR N = 1 TO 1000: NEXT: STRIG ON
210 PRINT "Briefly push button 1 when stick is farthest to top"
220 V = STICK(0): YTOP = STICK(1) 'самое верхнее значение
230 IF STRIG(0) = 0 THEN 220 'ждем нажатия кнопки
240 STRIG OFF: FOR N = 1 TO 1000: NEXT: STRIG ON
250 PRINT "Briefly push button 1 when stick farthest to bottom"
260 V = STICK(0): YBOTTOM = STICK(1) 'самое нижнее значение
270 IF STRIG(0) = 0 THEN 260 'ждем нажатия кнопки
280 STRIG OFF 'закончили
290 '''получаем множители для установки на размер экрана
300 XRIGHT = XRIGHT - XLEFT 'горизонтальный размер
310 XMULTIPLIER = 320/XRIGHT 'вычисляем число точек на деление
320 YBOTTOM = YBOTTOM - YTOP 'вертикальный размер
330 YMULTIPLIER = 200/B/YBOTTOM 'число точек на деление
340 '''теперь вычисляем координаты в режиме умеренного разрешения
350 X = STICK(0) 'получаем горизонтальную позицию
360 Y = STICK(1) 'получаем вертикальную позицию
370 X = (X - XLEFT)*XMULTIPRIER 'приводим к экрану
380 Y = (Y - YTOP)*YMULTIPRIER '
390 PSET(X,Y) 'выводим точку в нужной позиции
400 GOTO 350 'повторяем
Средний уровень.
Только AT предоставляет поддержку джойстика на уровне опера-
ционной системы. Это функция 84H прерывания 15H, которая возвра-
щает координаты, причем:
AX = координата X джойстика A
BX = координата Y джойстика A
CX = координата X джойстика B
DX = координата Y джойстика B
При входе поместите в DX 1. Когда в DX содержится 0, то эта функ-
ция возвращает состояние кнопок джойстика [7.3.4]. При возврате
флаг переноса установлен, когда у машины нет игрового порта.
Низкий уровень.
Информация о координатах обоих джойстиков или всех четырех
весел хранится в одном байте, доступ к которому осуществляется
через порт 201H. Вот значение его битов:
Бит Джойстик Весло
3 координата Y джойстика B координата весла D
2 координата X джойстика B координата весла C
1 координата Y джойстика A координата весла B
0 координата X джойстика A координата весла A
Координата может описываться одним битом за счет измерения
временных интервалов. Пошлите в порт байт с произвольным значе-
нием. Это приведет к тому, что младшие 4 бита обнулятся. Затем
постоянно считывайте значение из порта, замеряя интервал времени,
через который интересующий Вас бит станет равным 1. Этот интервал
пропорционален позиции джойстика по интересующей Вас оси. Макси-
мальны еинтервалы соответствуют нижней позиции по оси Y и правой
позиции по оси X. Независимо от позиции, биты меняются от 0 к 1
очень быстро, по сравнению с механической скоростью перемещения
джойстика или весла. Поэтому программа может с большой точностью
получить сначала позицию координаты Y, а затем позицию координаты
X. Нет необходимости тестировать каждую координату отдельно. В
данном примере определяется координата X джойстика A.
;---получаем координату X джойстика A
MOV DX,201H ;адрес игрового порта
OUT DX,AL ;посылаем в порт произвольное значение
MOV AH,1 ;проверяем бит 1
MOV SI,0 ;инициализируем счетчик
NEXT: IN AL,DX ;читаем значение из порта
TEST AL,AH ;проверяем бит 1
JE FINISHED ;выход, когда бит установлен
INC SI ;иначе, увеличиваем счетчик
LOOP NEXT ;на начало цикла
FINISHED:
7.3.4 Получение цифрового ввода из игрового порта.
Игровой порт поддерживает два джойстика или четыре "весла", а
также ряд графических устройств. При этом может определяться
статус до четырех кнопок устройств. Проверка состояния кнопок
может быть сложным делом, поскольку программа может не иметь
возможности постоянно проверять их, а кнопка может быть нажата и
отпущена, пока программа занята другими делами. Может быть созда-
на специальная процедура для решения этой проблемы. Статус кнопок
автоматически читается несколько раз в секунду, без специального
запроса на это программы; когда оказывается, что кнопка нажата,
то управдение передается процедуре, которая определяет какая
кнопка нажата и предпринимает нужные действия.
Высокий уровень.
Бейсик использует оператор STRIG для чтения статуса кнопок.
Оператор STRIG достаточно хитрый, чтобы обнаружить нажатие кноп-
ки, даже если программа в данный момент не занимается статусом
кнопки, т.е. программа может запросить: "Было ли нажатие кнопки,
со времени моего последнего запроса?" Это свойство очень полезно
для видеоигр, поскольку программа может заниматься манипуляциями
с экраном, не заботясь о постоянной проверке статуса кнопок.
Однако это существенно замедляет скорость выполнения программы,
поскольку проверка статуса кнопок осуществляется после выполнения
каждого оператора. По этой причине, STRIG работает только когда
он преднамеренно включен, а он может включаться и выключаться по
ходу программы.
STRIG работает двумя способами. Во-первых, он может работать
как функция, которая непосредственно читает текущие значения
кнопок, в форме X = STRIG(n). Здесь n - кодовый номер:
0 Кнопка A1 нажата со времени последнего вызова
1 Кнопка A1 в данный момент отпущена