Системные программы - Удобный стрелочный интерфейс.

© РиккерВ.В. 1993 г., п.Провидения, Магаданской области.


 
       Как известно, любой программе нужно удобное управление. Особенно удобно, если выбор 
режимов и команд производится джойстиком. Ниже приведена процедура, которая перемещает по 
экрану стрелочку и принажатии кнопки "огонь" имеет на выходе в регистровой паре HL адрес в 
дисплейном файле, соответствующий кончику стрелки ив регистровой паре ВС соответствующий 
адрес в области атрибутов.  Эти адреса можно лихо использовать для определения дальнейших 
действий. Например, имея адрес атрибутов, можно проверить, скажем, бит 6 - яркость, попали ли Вы на команду или стрелка болтается,     где ни попадя.   Буду очень рад,   если приведенная программка кому-нибудь пригодится. 






00010






00020

; Написана в

августе 1993г



00030

; Провидения




00040

; автор

Риккер В.В.



00050

;





00060


ORG

40000

;нужный адрес ассемблирования

00070


ENT




00080


EI




00090


JP

START



п П 1 п п 00100












00110






00120




00130

; * Переменные программах *



00140




00150

;





00160

BUFFS

DEFS

30

;Буфер для сохранения того,





;что под стрелкой на экране.

00170

STS

DEFW

0

;Адрес в видеообласти, соответствующий





;острию стрелки.

00180

CRDS

DEFW

0

;Координаты острия стрелки.

00190

;





00200

;

Шаблоны стрелки



00210

;





00220

ORSH

DEFB

#C0,#E0,#F0

;Шаблон для операции OR

00230


DEFB

#F8,#FC, #FE



00240


DEFB

#FF,#FE, #FC



00250


DEFB

#1C,#0E,#0E



00260


DEFB

#07,#07,#03



00270

XORSH

DEFB

#C0,#A0,#90

;Шаблон для операции XOR

00280


DEFB

#88,#84,#82



00290


DEFB

#81,#86,#B4



00300


DEFB

#14,#0A, #0A



00310


DEFB

#05,#05,#03



00320

;





00330

STEP

EQU

2

;Скорость перемещения стрелки





;(с увеличением скорости





;уменьшается точность)

nm/i п 00340












00350




00360

. *

Подпрограммы *



00370




00380

;





00390

SCRBF

LD

HL,(CRDS)

;Координаты острия стрелки.



00400


LD

C,H

;Подготавливаем регистры для вы

00410


LD

B, L

числения адреса по координатам.

00420


LD

A, B



00430


CALL

#22B1

;Вычисляем адрес (процедура ПЗУ).

00440


LD

(STS),HL

;Сохраняем полученный адрес.

00450


LD

DE, BUFFS

;В DE адрес буфера.

00460

RB0

LD

B,15

;Высота стрелки в пикселах.

00470

RB1

PUSH

HL



00480


LD

C, 2

;Сколько смежных байт сохранять.

00490

RB2

LD

A,(HL)



00500


LD

(DE) ,A



00510


INC

L



00520


INC

DE



00530


DEC

C



00540


JR

NZ,RB2



00550


POP

HL



00560


CALL

DAD1

;Получаем адрес в дисплейном ;файле на 1 пиксел ниже.

00570


DJNZ

RB1



00580


RET




00590

в





;





00600

DAD1

INC

H



00610


LD

A, H



00620


AND

7



00630


RET

NZ



00640


LD

A, H



00650


SUB

8



00660


LD

H, A



00670


LD

A, L



00680


ADD

A,32



00690


LD

L,A



00700


RET

NC



00710


LD

A, H



00720


ADD

A, 8



00730


LD

H, A



00740


RET




00750

в





;





00760

BFSCR

LD

HL,#771A

;Подпрогр. восстановления экрана.

00770


LD

(RB2),HL

;Сначала перепрограммируется ;процедура SCRBF.

00780


CALL

SCRBF



00790


LD

HL,#127E

;Восстанавл. код процедуры SCRBF.

00800


LD

(RB2),HL



00810


RET




00820











00830

; Подпрограмма

создания образа стрелки

00840

; по имеющимся

координатам



00850

FORM

LD

A,(CRDS+1)

;По горизонт. координате получаем

00860


AND

7

;номер бита в байте экрана.

00870


EX

AF, AF'

;Сохраняем его.

00880


LD

IX,ORSH

;Накладываем маску по OR.

00890


CALL

FORMS



00900


LD

IX, MS3



00910


LD

(IX+0),#AA

;Изменяем процедуру FORMS.

00920


LD

(IX+9) ,#AB





00930


PUSH

IX



00940


LD

IX,XORSH

/Накладываем маску по XOR.

00950


CALL

FORMS



00960


POP

IX



00970


LD

(IX+0),#B2

;Восстанавл. код процедуры FORMS.

00980


LD

(IX+9) ,#B3



00990


RET




01000

FORMS

LD

C,15

;Число линий в стрелке.

01010


LD

HL,(STS)

;Берем адрес в экране.

01020

MS1

LD

D,B

;Обнуляем DE.

01030


LD

E,B



01040


EX

AF, AF'



01050


LD

B, A

;В рег.В номер бита в адр.экрана.

01060


EX

AF, AF'



01070


DEC

B

;Проверяем его на ноль.

01080


INC

B



01090


LD

D,(IX+0)

;В DE байт из шаблона стрелки.

01100


JR

Z, MS21

;Если 0, то обходим ротацию DE.

01110

MS2

SRL

D

;Сдвигаем шаблон.

01120


RR

E



01130


DJNZ

MS2



01140

MS21

LD

A,(HL)

;Накладываем полученную маску.

01150

MS3

OR

D

;Команды OR D и OR E заменяются





;на XOR D и XOR E и обратно.

01160


LD

(HL),A



01170


INC

L

;Переходим к следующему байту.

01180


LD

A, L



01190


AND

#1F

;Если вышли за правую границу

01200


JR

Z, MS4

;экрана, то обход.

01210


LD

A, (HL)

;Иначе накладываем маску и на





;соседний байт.

01220


OR

E



01230


LD

(HL),A



01240

MS4

DEC

L

;Переходим на нижнюю линию

01250


INC

IX

;и на следующий байт в шаблоне.

01260


CALL

DAD1



01270


LD

A, H

;Проверяем, вышли ли

01280


CP

#58

;за низ экрана.

01290


RET

NC

;ДА - выход.

01300


DEC

C

;НЕТ - уменьшаем счетчик строк

01310


JR

NZ,MS1

;в стрелке и повторяем фокус.

01320


RET




П 1 Я. "3 п






013 3 0






01340




01350


* Головная программа *

01360




01370






01380

START

LD

HL,#64 64

;Начальные координаты стрелки.

01390


LD

(CRDS),HL



01400


PUSH

IX



01410

Q0

CALL

SCRBF

; Сохраняем...

01420


CALL

FORM

; Формируем...

01430


HALT


; Отдыхаем...

01440


IN

A,(31)

; Опрашиваем...

01450


PUSH

AF





01460


CALL

BFSCR

; Восстанавливаем^„

01470


POP

AF



01480


LD

C,A



01490


LD

E,STEP



01500


LD

D,254

;Задали максимум по Х.

01510


LD

HL,CRDS+1

;Изменяем координаты согласно

01520


BIT

0,C

;тому, что нажали

01530


CALL

NZ, PL

;на джойстике.

01540


BIT

1,C



01550


CALL

NZ,MIN



01560


LD

D, 190

;Максимум по Y.

01570


DEC

HL

;Перешли на координату Y.

01580


BIT

2,C



01590


CALL

NZ, PL



01600


BIT

3,C



01610


CALL

NZ,MIN



01620


BIT

4,C



01630


JR

NZ,EXIT



01640


JR

Q0



01650

в





;





01660

PL

LD

A,(HL)



01670


LD

B, E



01680

L0

CP

D



01690


JR

Z, END



01700


INC

A



01710


DJNZ

L0



01720

END

LD

(HL),A



01730


RET




01740

в





;





01750

MIN

LD

A,(HL)



01760


LD

B, E



01770

INP

AND

A



01780


JR

Z, END



01790


DEC

A



01800


DJNZ

INP



01810


LD

(HL),A



01820


RET




01830

в





;





01840

EXIT

LD

HL,(STS)



01850


PUSH

HL



01860


LD

A, H



01870


AND

#18



01880


RRCA




01890


RRCA




01900


RRCA




01910


OR

#58



01920


LD

B, A



01930


LD

C, L



01940


POP

HL



01950


POP

IX



01960


RET




01970 01980
; Конец программы
Комментарий "ИНФОРКОМА "
В строках 220-310 программы задается рисунок стрелки. Две маски (по OR и по XOR)
нужны для того, чтобы при попадании стрелки на область, закрашенную INK, стрелка не сливалась бы с фоном, а приобретала оконтуривание цветом PAPER. Образ стрелки и значения байтов двух масок приведены на рисунке

Набор программы был выполнен нами при помощи ассемблера ZEUS. Для тех, кто хочет без лишних хлопот с ассемблером получить готовую программу, приводим шестнадцатеричный дамп (с контрольными суммами) кодового блока с адреса 40000. Его длина 328 байтов.
Теперь несколько слов тем, кто захочет усовершенствовать программу. Приведенный вариант программы работает только от KEMPS TON-джойстика (см. строку 1440). Это может оказаться не для всех удобно. Поэтому со своей стороны мы можем порекомендовать ввести дополнительные строки для опроса клавишей, например, SINCLAIR-джойстика, сохранив и KEMPSTON.


9C40

FB

C3

27

9D

00

00

00

00

5E

9C48

00

00

00

00

00

00

00

00

E4

9C50

00

00

00

00

00

00

00

00

EC

9C58

00

00

00

00

00

00

00

00

F4

9C60

00

00

00

00

00

00

C0

E0

9C

9C68

F0

F8

FC

FE

FF

FE

FC

1C

FB

9C70

0E

0E

07

07

03

C0

A0

90

29

9C78

88

84

82

81

86

B4

14

0A

7B

9C80

0A

05

05

03

2A

64

9C

4C

A9

9C88

45

78

CD

B1

22

22

62

9C

A1

9C90

11

44

9C

06

0F

E5

0E

02

27

9C98

7E

12

2C

13

0D

20

F9

E1

0A

9CA0

CD

A6

9C

10

F0

C9

24

7C

B4

9CA8

E6

07

C0

7C

D6

08

67

7D

2F

9CB0

C6

20

6F

D0

7C

C6

08

67

22

9CB8

C9

21

1A

77

22

98

9C

CD

F2

9CC0

84

9C

21

7E

12

22

98

9C

83

9CC8

C9

3A

65

9C

E6

07

08

DD

3A

9CD0

21

66

9C

CD

F6

9C

DD

21

EC

9CD8

0E

9D

DD

36

00

AA

DD

36

EF

9CE0

09

AB

DD

E5

DD

21

75

9C

01

9CE8

CD

F6

9C

DD

E1

DD

36

00

B4

9CF0

B2

DD

36

09

B3

C9

0E

0F

F3

9CF8

2A

62

9C

50

58

08

47

08

BB

9D00

05

04

DD

56

00

28

06

CB

D2

9D08

3A

CB

1B

10

FA

7E

B2

77

76

9D10

2C

7D

E6

1F

28

03

7E

B3

B7

9D18

77

2D

DD

23

CD

A6

9C

7C

E4

9D20

FE

58

D0

0D

20

D5

C9

21

CF

9D28

64

64

22

64

9C

DD

E5

CD

3E

9D30

84

9C

CD

C9

9C

76

DB

1F

8F

9D38

F5

CD

B9

9C

F1

4F

1E

02

4C

9D40

16

FE

21

65

9C

CB

41

C4

E3

9D48

62

9D

CB

49

C4

6C

9D

16

DB

9D50

BE

2B

CB

51

C4

62

9D

CB

80

9D58

59

C4

6C

9D

CB

61

20

16

7D



9D60

18

CD

7E

43

BA

28

03

3C

C4

9D68

10

FA

77

C9

7E

43

A7

28

DF

9D70

F9

3D

10

FA

77

C9

2A

62

19

9D78

9C

E5

7C

E6

18

0F

0F

0F

3D

9D80

F6

58

47

4D

E1

DD

E1

C9

67

Другим, более изощренным моментом является изменяемая скорость перемещения стрелки
по экрану. Эти строки мы адресуем тем, кто захочет использовать предложенный интерфейс в серьёзной программе, претендующей на повышенное удобство для пользователя. Как Вы видите из приведенного листинга, скорость перемещения стрелки постоянна и зависит от значения, заданного в строке 330. Слишком быстрая скорость перемещения стрелки приведёт к необходимости более точно "прицеливаться" для попадания в нужное место и к более быстрой реакции Вашей руки, но, в то же время, не потребуется много времени для того, чтобы "перегнать" стрелку от одного края экрана к другому. При медленном перемещении всё наоборот. Великолепная точность попадания и удобство "прицеливания" сочетаются с томительным ожиданием, когда же, наконец, заветная фигурка доползет до нужного поля меню, находящегося почему-то как раз в противоположном конце экрана.
Проблему можно решить следующим образом. Организуется цикл подсчёта количества прерываний, произошедших с момента нажатия любой клавиши перемещения джойстика до её отпускания. При этом начальная скорость перемещения стрелки - минимальна. Если, скажем, через 64 или 32 прерывания кнопка не отпущена, изменяется параметр, задающий скорость перемещения стрелки - её движение убыстряется. Как только кнопка отпущена - счётчик тут же обнуляется и восстанавливается начальное значение параметра, определяющего скорость. Можно ограничиться одной ступенью увеличения скорости, а можно продолжать отсчёт дальше. Если ещё через 32 цикла кнопка не отпущена - скорость увеличивается ещё больше (в одной из версий ART STUDIO, например, увеличение скорости четырехступенчатое - управление при этом очень удобно). Это, так называемое интеллектуальное управление. Конечно, все числовые параметры должны быть тщательно подобраны и сбалансированы для обеспечения максимального удобства управления.
Применение прерываний 2-го рода для создания резидентных процедур всегда представляет особенную трудность для тех, кто делает только первые шаги в машинном коде. Мастерское же владение этим инструментом открывает перед программистом огромные возможности для создания собственных программ. Мы довольно редко получаем письма от наших читателей, в которых есть примеры подобных процедур, да и те далеко не всегда выдерживают наше тестирование. Поэтому мы особенно рады предложить нашим читателям работу, выполненную сотрудником Крымской Астрофизической Обсерватории. Программа прошла тестирование без проблем.