Начинать сегодняшний разговор приходится опять со скандала. Бот что пишет Анатолий Исаев из г. Зеленогорск.

Хочу рассказать Вам один криминальный случай.

ZX-РЕВЮ выписывает в нашей школе только один человек и все "Спектрумовцы" читают журнал по-очвреди. Я почему-то оказываюсь предпоследним. Так вот. Открываю я однажды раздел ЭТЮДЫ и вцжу разливки всяких сортов для экрана, написанные моим одноклас-ником. Ну сначала порадовался за него - все-таки однокласника в самой "Ревюшке" напечатали... А потом смотрю дальше - а там мой CLS с его автографом и копирайтом (он как-то просил у меня CLS для загрузчика)... Я конечно не требую, чтобы вы писали про этот случай, тем более, что теперь мою программу будет рассматривать вся страна. Я рассказал, чтобы вы знали, какие иногда бывают копирайты .

Разыскиваем указанную публикацию . Смотрим... Ну как воспринять упрек? Действительно, в начале статьи нами поставлен копирайт, свидетельствующий о том, что материал взят из письма нашего корреспондента. В самой же указанной процедуре копирайта нет, есть только "нейтральнее" слова автора: "... и еще одна программа очистки экрана...". Корреспондент не утверждает о том, что именно он написал эту процедуру. Так что, tстрого говоря, вроде бы и упрекнуть его не в чем. Но если no-существу, то раз уж вы посылаете нам понравившуюся процедуру своего друга, то почему бы честно не сказать об этом, чтобы избежать двусмысленности. Да и посоветоваться с автором не мешало бы, прежде чем его процедуру посылать - все-таки в одном классе учитесь. А то Вы рискуете быть опозоренным из-за этой двусмысленности на всю страну - доказывайте потом, что Вас неправильно поняли... Мы будем вести жесткую политику по отношению к любителям "въехать б рай на чужом горбу". Кроме "предания позору" мы будем объявлять таким авторам бойкот -их письма никогда не попадут больше на страницы РЕВЮ. Так что, во избежание неприятностей, рекомендуем чесно и четко говорить, Ваша это программа, или откуда она взята.

* * *

Сегодня мы приготовили для Вас очередную порцию маленьких хитростей и секретов программирования. Начнем же с небольшого исследования/ которое прислал Дмитрий Баянов из г.Кемерово.

При работе с графикой Спектру-ма часто возникают проблемы с быстродействием процедур, которые используются при обработке экрана. Для обеспечения плавного перемещения спрайтов по экрану необходимо "освежать" экран, то есть изменять графику на экране не менее 50 раз в секунду (синхронно с прерываниями). При большом количестве движущихся элементов это становится проблематичным, поэтому приходится прибегать к некоторым нестандартным приемам в программировании. О некоторых из этих приемов я и хотел бы поговорить .

1. Для заполнения небольших областей памяти одинаковыми байтами лучшим способом является использование стека (об этом уже говорилось в РЕВЮ).

Ниже приведены две процедуры, выполняющие одно и то же - заполняют первые 32 байта экрана числом 255. Но первая выполняет^это при помощи последовательности команд PUSH HL, а вторая выполняет PUSH HL в цикле. Справа приведено время выполнения команд в тактах процессора Z80.

ЭТЮДЫ

ЭТЮДЫ

Вывод: Если необходимо достичь максимального быстродействия, то следует, где это возможно, исключать циклы типа DJNZ или DEC ВС • LD А,В . OR С : 3R Z,... однако для этого приходится жертвовать объемом памяти.

* * *

Дмитрий Козлов из Новгорода

сообщает об интересной конструкции, заимствованной из программы ACADEMY (кажется).

CP МАХ ADC А, О

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

Решить противоположную задачу поможет другая конструкция (тоже 4 байта):

SUB 1

ADC О

Здесь содержимое аккумулятора будет уменьшаться до тех пор, пока не станет равно нулю, дальнейшего уменьшения не последует. Необходимо заметить, что использование DEC А в первой строке не поможет, так как команда DEC не влияет на флаг переноса, значение которого определяет результат

второй команды.

* * ★

Использование команды ADC, результат которой зависит от состояния флага переноса, позволяет найти оригинальные решения и в других ситуациях. Виктор ЗУзле в (возможна ошибка - фамилия неразборчива) из Новгорода приводит свою программу для печати числа в двоичной форме, находящегося в аккумуляторе.

LD В,8 NEXT SLA А PUSH AF LD A,"О" ADC A,0 RST #10 POP AF DJNZ NEXT RET

MUGY из Ив.-Франковской области (Украина) прислал бегущую строку, обладающую несколькими положительными свойствами.

1. Очень короткая программа

2. Очень легко работать с программой Из Бейсика.

3. Можно использовать шрифты шириной 1-8 пикселов.

В строке 2 задается адрес, указывающий на правый верхний угол окна со строкой, то есть то место, где будут поярляться символы. В строке 8 в регистре В задается ширина окна в знакоместах (не обязательно 31).

Для повышения скорости работы все адреса записываются на стек, а потом во время работы по одному снимаются со стека.

Длина блока кодов 25 байт:

ЕА60: 21 1F 40 06 08 Е5 24 10 :F1

ЕА68: FC 0Е 08 06 IF Е1 СВ 16 :4В

ЕА70: 2В 10 FB OD С8 37 3F 18 :F3

ЕА78: F2 00 00 00 00 00 00 00 :54

Программа поддержки на Бейсике (поскольку большинство все же на нем работают):

1 GO ТО 10

2 BORDER О: PAPER 0: INK 7: С LEAR 59999: RANDOMIZE USR 15619:

REM : LOAD "begstr2"CODE 60000 10 LET a$="It's from MUGY " 20 FOR a=l TO LEN a$ 30 FOR k = l TO 8

40 RANDOMIZE USR 60000: NEXT k 50 PRINT AT 0,31; INK 0;a$(a): NEXT a

В строке 30 задана ширина используемого шрифта. А в строке 50 после AT задаются координаты, соответствующие адресу во 2 строке Программы на ассемблере.

Тем, кто уже отошел от Бейсика, не составит труда переложить эту программу в машинный код.

Первую я назвал "Штора". Она очень проста, однако это не мешает ей эффектно смотреться. Я написал ее поД впечатлением от "му-зыкалки" INSIGHT.

Значения атрибутов C0L0R1 и COLOR2 вначале программы задают режим работы: сверху экрана плавно как бы опускается штора, и все изображение становится с атрибутами COLOR1. В следующее мгновение штора поднимается, и весь экран перекрашивается атрибутом COLOR 2 . Процедура эффектно смотрится с экраном, содержащим текстовую информацию (монохромную) и может применяться, например, при создании адвентюр или программ-тестов, гороскопов, выдающих результат в виде нескольких экранов текста. Если COLOR1 установить равным нулю (PAPRE 0; INK 0), то в строках 15-17 как раз и может быть расположена процедура печати или вывода на экран информации. Эта информация "откроется" при "поднятии" шторы.

1 COLOR1 EQU 8*1+7

2 COLOR2 EQU 8*5+1

3 ORG 50000

4 ENT $

5 LD HL,#5800

6 LD В,24

7 MET2 PUSH BC

8 LD В,32

9.MET1 LD (HL),COLOR1

10 INC HL

11 DJNZ MET1

12 POP BC

13 HALT

14 DJNZ MET2

15 ; Здесь может быть команда

16 ; -переброски в экран моно-

17 ; хромного дисплейного файла

18 ; или процедура печати

Две следующих программы выполняют эффект, который я назвал "Перелив". Их можно встретить практически в любых загрузчиках к играм и "музыкалках". Приведенную ниже процедуру я вытащил ив музы-калки ТОР 1.

В первой строке задается адрес В файле атрибутов начального знакоместа, с которого начинается окно действия эффекта. Во второй строке - высота (количество строк) окна. В 3 строке - ширина (количество символов) окна.

Длина процедуры = 30 байтов:

С350: 21 00 58 06 18 С5 Е5 01 :55

С358: 20 00 С5 06 20 С5 7Е ЗС :А5

С360: Е6 07 77 23 С1 10 F6 С1 :32

С368: Е1 09 С1 10 Е8 С9 00 00 :97

Использовать процедуру можно например, так. Сначала на экран наносится какое-то сообщение оди^ наковым цветом INK и PAPER. Затем это сообщение выделяется:

10 RANDOMJZE USR 50000: GO ТО 10

можно подставить между этими операторами PAUSE N, или опрос клавиатуры и т.п.

Следующая процедура воспроизводит тот же эффект, но предназначена только для одной строки экрана. Она написана лично мной под впечатлением от предыдущей.

исходные данные задаются в стро-

Длина процедуры = 17 байтов:

С350: 21 00 59 06 20 7Е ЗС Е6 :53 С358: 07 20 01 ЗС 77 23 10 F5 :1Е С360: С9 U0 00 00 00 00 00 00 :ЕС

Владимир пишет также о своем хобби: он добавляет к играм разные усовершенствования - озвучивает, переделывает из 48К в 128К и др., а также предлагает свою помощь (бейсик, ассемблер):

300001, г.Тула, ул.Пролетарская, д.34, кв.41. Тюкову Владимиру Михайловичу.

ЭТЮДЫ

4 LD B,(IX+3) 61 LD Т., A

5 XOR A 62 RET

6 LD (SCHET),A

7 LOOPI PUSH ВС Скорость эффекта можно регули-

8 LD В,(IX+2) ровать, изменяя число HALT'ob

9 HALT (строки 9-10).

10 HALT В своей процедуре я испольsoil LD Е,(IX+0) вал подпрограмму расчета адреса в

12 LD D, (IX+1) экранном файле из ZX-PEBI0-94, N3,

13 LOOP2 PUSH ВС стр.44. Если в Вашей программе

14 CALL ADR уже есть эта подпрограмма, то

15 LD В,4 нужно заменить адрес в команде ее

16 L00P3 PUSH ВС вызора в строке 14 и удалить ее

17 LD А,(SCHET) из листинга (строки 51-62).

18 LD С,А Если же подпрограмма ADR Вам

19 PUSH HL нигде больше не нужна, кроме этой

20 LD В,0 процедуры, то можно ее раскрыть,

21 ADD HL,ВС сделав релоцируемым весь блок и

22 LD (HL),0 укоротив его на 4 байта. Для это-

23 POP HL го нужно вместо строки 14 запи-

24 INC Н сать строки 51-61.

25 PUSH HL Шестнадцатиричные дампы обоих

26 PUSH ВС вариантов (длина соответственно

27 LD С,(1Х+3) 95 и 91 байтов):

28 DEC С

29 ADD HL,ВС С350: DD 21 9С СЗ DD 46 03 AF :45

30 POP ВС С358: 32 9А СЗ С5 DD 46 02 76 :0А

31 SBC HL,ВС С360: 76 DD 5Е 00 DD 56 01 C5 :CD

32 LD (HL),0 C368: CD AO C3 06 04 C5 ЗА 9A :FE

33 POP HL C370: C3 4F E5 06 00 09 36 00 :6F

34 INC H C378: El 24 E5 C5 DD 4E 03 0D :25

35 POP ВС C380: 09 CI ED 42 36 00 El 24 :77

36 DJNZ LOOP3 C388: CI 10 E2 CI 1С 10 D8 CI :84

37 POP ВС C390: ЗА 9A СЗ ЗС 32 9A СЗ 10 :С5

38 INC Е С398: С2 С9 00 00 00 00 18 20 ;1Е

39 DJNZ LOOP2 C3A0: 7В Еб 18 С6 40 67 7В Еб :АА

40 POP ВС СЗА8: 07 OF OF OF 82 6F С9 00 :59

41 LD A,(SCHET)

42 INC А С350: DD 21 А7 СЗ DD 46 03 AF :50

43 LD (SCHET),A C358: 32 A5 C3 C5 DD 46 02 76 :15

44 DJNZ LOOP1 C360: 76 DD 5E 00 DD 56 01 C5 :CD

45 RET C368: 7B E6 18 C6 40 67 7B E6 :72

46 SCHET DEFW 0 C370: 07 OF OF OF 82 6F 06 04 :62

47 DATA DEFB 0 ;Коорд. Y C378: C5 ЗА A5 СЗ 4F E5 06 00 :DC

48 DEFB 0 ;Коорд. X C380: 09 36 00 El 24 E5 C5 DD :0E

49 DEFB 24 ;Высота окна C388: 4E 03 0D 09 CI ED 42 36 :D8

50 DEFB 32 ;Ширина окна C390: 00 El 24 CI 10 E2 CI 1С :E8

51 ADR LD A,E C398: 10 CD CI ЗА A5 СЗ ЗС 32 :09

52 AND #18 C3A0: A5 СЗ 10 B7 C9 00 00 00 :5В

53 ADD A,#40 C3A8: 00 18 20 00 00 00 00 00 :A3

54 LD H, A

56 LD A,E Для большей завершенности эф-

56 AND 7 фекта и универсальности процеду-

57 RRCA ры, ее необходимо дополнить

58 RRCA очисткой атрибутов окна.

59 RRCA

60 ADD A, D * * *

1. Авторская разработка - Видеопроцессор для ZX-Spectrum.
2. Компьютеры которые мы выбираем - О совместимости компьютеров "ПРОФИ".
3. Читатель - читателю - Пакет SOUND TRACKER & SONG COMPILER.
4. Читатель - читателю - Подключение принтера к порту #FE.
5. Читатель - читателю - Что бы это значило?
6. Читатель - читателю - Защита от NMI.
7. Читатель - читателю - Быстродействующий генератор псевдослучайных чисел.
8. Этюды - Начинать сегодняшний разговор приходится опять со скандала.
9. Форум - схемы порта #FF и сигнала INT.
10. Перекрёсток - Adventure games.
11. Новые программы - СТРАНА МИФОВ.
12. Советы эксперта - Manchester United in Europe.
13. Советы эксперта - Heavy on the magic.
14. Советы эксперта - Quest for mindstone.
15. Советы эксперта - Guadalcanal.
16. Возвращаясь к напечатанному - Defenders of the crown.
17. Компьютерная новелла - Capitan Trueno 1.
18. Авторская программа - заявки игровых и системных авторских программ.