Следующие две процедуры -улучшенные аналоги программ Куликова Вадима, которые были опубликованы в ZX РЕВЮ 96/3, стр. 34. Теперь процедуры сдвига экрана вверх и вниз на один пиксел занимают по 33 байта каждая (вместо 46 и 44 соответственно). Строки листинга, заданные как комментарии, отвечают за очистку нужной линии изображения после сдвига (нижняя для SRL UP и верхняя - для SRL DN). Если очистка необходима, то просто удалите; в началах этих строк. В этом случае процедуры будут занимать 38 и 39 байт соответственно. SRLJJP

LD DE,#4000 LP_SU1 LD H,D LD L,E LD ВС, #0020 INC H LD A,H AND #07 JR NZ,GO_SU1 LD A.L ADD А,С LD L,A JR C,GO_SU1 LD A.H SUB #08 LD H,A GO_SU 1 PUSH HL LDIR

POP DE LD A,H CP #58 JR C,LP.SU 1 ; XOR A

;LP_SU2 LD (DE),A INC E

JR NZ,LP_SU2 RET

ЗЗак. 119

Ж&~Р<жу> Wfl

ЭТЮДЫ

LPFLR1

LD LD

С,YRWIND HL,BEG_LN

LP.SD1

В ZX РЕВЮ 96/6 на стр. 40 приведена процедура осыпания экрана. Мне удалось немного упростить структуру программы и уменьшить объем занимаемой памяти (с 52 до 47 байт). Изменяемые константы:

• XRWIND ширина окна осыпания в знакоместах;

• YRWIND высота окна осыпания в пикселях;

• BEG LN - адрес нижнего правого угла окна в экране.

Итак, вот новая процедура: XRWIND EQU 32 YRWIND EQU 191 BEG_LN EQU #57E0

FALLER

LD L,C POP ВС DJNZ LPFLR2 DEC С JR NZ.LPFLR1 RET

В одном из украинских РЕВЮ я увидел процедуру "переворачивания" экрана. Кажется, ее длина была 56 байт не помню. Так вот, чтобы украинские кодеры не расслаблялись и не поплевывали свысока на наших, я написал свою процедуру, которая занимает всего 36 (!) байт. Итак, УКРАИНА vs РОССИЯ: TRNSCR

LD HL,#597F LD DE,#5980 LP_TS 1 LD A,(DE)

LP TS2

LP TS3

Недавно, один из моих друзей попросил меня написать процедуру для эффектного вывода картинки на экран. В чем же оригинальность? Дело в том, что картинка появляется на экране постепенно раскручивающейся спиралью по часовой стрелке. Причем, центр раскрутки задается произвольно и даже может находиться за пределами экрана. Итак, автор идеи - Андреев Андрей (LONE WOLF, Шадринск), ну а программу написал ваш покорный слуга.

Перед вызовом CALL OUTSCR необходимо в регисте Е установить координату X центра спирали, а в регистре D - координату Y. В регистре А (аккумуляторе) должен находиться старший байт адреса картинки. А сама картинка должна располо-гаться в памяти с адреса, кратного 256.

Подпрограмма PUT_ZN выводит на экран одно знакоместо из

картинки, если координаты его лежат внутри экрана.

Длина процедуры 118 байт. ORG #8000

EXAM PL

LD E,15 ;X -

КООРДИНАТА LD D, 11 ;Y

КООРДИНАТА ;старший байт картинки, выравненной на сегмент (адрес, кратный 256):

A,SCREEN/256

OUTSCR

;иначе - повсюду вышли за экран! RET

;выход из процедуры PUT.ZN

D

A,D

#03

#58

D,A

A,C

H,A

A,(HL)

(DE),A

;перенос

; атрибута GOPZN1 POP DE LD A,C EX AF.AF' DEC A JR NZ.LPPZN1

POP ВС RET

;выход из подпрограммы выравнивание на сегмент:

$/256*256 + 256-$ "myface.$"

из номеров ZX РЕВЮ читатели подали очень хорошую мысль насчет публикации адресов различных подпрограмм TR DOS для различных версий ПЗУ. Но это так и не решает проблемы при появлении новых версий ROM, в которых по каким-либо причинам процедуры расположены по другим адресам. Мне пришла в голову мысль:

А ПОЧЕМУ БЫ НЕ ИСКАТЬ НЕОБХОДИМЫЕ ПОДПРОГРАММЫ В ТОМ ПЗУ, КОТОРОЕ СТОИТ В КОНКРЕТНОМ КОМПЬЮТЕРЕ?!

Сказано сделано... В результате получилась система процедур именно для этих целей. Теперь можно в любом ПЗУ TR DOS искать именно те процедуры, которые нужны для работы конкретной программы.

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

Процедуры: TRCOPY аналог команды LDIR, но копирует данные из ПЗУ TR-DOS. Длина копируемого блока должна быть кратна 16. Регистры, задаваемые при вызове:

HL адрес в ПЗУ (откуда копировать)

DE - адрес буфера (куда копировать)

ВС длина копируемого блока

ABSEEK - поиск нужной последовательности байтов в памяти и выдача смещения найденной последовательности относительно начала проверяемого блока памяти.

На входе: HL блока

DE адрес последовательности, которую ищем ВС длина проверяемого блока

А длина последовательности На выходе:

Z_flag=0 (NZ) - нужная последовательность не найдена.

Z flag=l (Z) последовательность найдена и находится со смещением HL от начала проверяемого блока.

отсутствует.

ORG

EXAMPL

ER.EX1 ;VARIABLI BUFFER FORFND

RET

ЭТЮДЫ

TRCOPY

JR RET

NC.TRCOPY

ABSEEK

PUSH HL CALL SEEKER POP DE RET NZ

;Fz=0 -> not found AND A SBC HL.DE XOR A RET