(c) Кобяков М., г.Находка
Предлагаю в раздел "Этюды"
свою программу для очистки за-
данного окна экрана. Координаты
X,Y, а также ширина и высота за-
даются в пикселах. Единственное
ограничение - координата X ВСЕ-
ГДА должна быть >=8!!! Для очис-
тки всего экрана необходимо за-
давать ширину = 0 и высоту =
176.
А теперь предлагаю читателям
усовершенствовать мою программу,
в частности, уменьшить длину и
увеличить быстродействие. Кто
сделает лучше?
Немного критики в ваш адрес.
Куда делись шестнадцатеричные
дампы программ в разделе "Этю-
ды"? Я, конечно, понимаю - эко-
номия места, дорогая бумага и
т.д., но ведь далеко не каждому
нравится набирать программу на
ассемблере, да и занятие это до-
вольно трудоемкое. А при вводе
шестнадцатеричных дампов коли-
чество нажатий на клавиши умень-
шается (как вы сами подсчитали)
в 5-6 раз! Какая экономия време-
ни и нервов конечного пользова-
теля! Правда, в письме я дамп не
привожу, т.к. если писать от ру-
ки кучу цифр, то можно понаде-
лать не меньшую кучу ошибок.
Нельзя ли вернуть указание
длины и стартового адреса после
подпрограммы, или хотя бы длины
(как в ZX РЕВЮ N1-2 за этот
год).
Ну и наконец маленькая прось-
ба: нельзя ли увеличить объем
журнала ну хотя бы на 5-6 стра-
ниц?
140.
;Window clearer
;by Lazy Max
LD D,0
;X-коорд. левого верхнего угла
LD E,175
;Y-коорд. левого верхнего угла
LD A,175
SUB E
LD E,A
AND A
RRA
SCF
RRA
AND A
RRA
XOR E
AND 248
XOR E
LD H,A
LD A,D
RLCA
RLCA
RLCA
XOR E
AND 199
XOR E
RLCA
RLCA
LD L,A
LD A,D
AND 7
LD E,A
LD A,8
SUB E
LD E,A
LD B,A
LD A,255
GO1 AND A
RLA
DJNZ GO1
LD D,A
PUSH HL
LD HL,BUFF
LD C,(HL)
INC HL
LD B,(HL)
POP HL
REP PUSH HL
PUSH BC
LD A,D
AND (HL)
LD (HL),A
PUSH DE
PUSH BC
LD A,B
SUB E
CP 8
JR C,CNT
AND 248
RRA
RRA
RRA
LD B,A
SUB A
L1 INC HL
LD (HL),A
DJNZ L1
CNT POP BC
LD A,B
SUB E
AND 248
ADD A,E
LD D,A
LD A,B
SUB D
JR Z,PASS
LD B,A
LD A,255
L2 AND A
RRA
DJNZ L2
INC HL
AND (HL)
LD (HL),A
PASS POP DE
POP BC
POP HL
CALL DLINE
DEC C
LD A,C
AND A
JR NZ,REP
RET
DLINE INC H
LD A,H
AND 7
RET NZ
LD A,L
ADD A,32
LD L,A
RET C
LD A,H
SUB 8
LD H,A
RET
BUFF DEFB 30,53
;высота, ширина
Длина кода: 128.
2
Прим.ред.: Некоторые соображения по по-
воду критики. По нашему мнению, необходи-
мости в дампах совершенно нет. Вы ведь са-
ми писали, что не будете писать дамп, т.к.
наделаете кучу ошибок. Поверьте, при набо-
ре дампа ошибок будет не меньше. И на их
поиск будет затрачено еще больше времени,
чем на набор исходника. К тому же ведь эти
процедуры вы будете включать в свои прог-
раммы, стало быть, в виде исходников. А
если вас не устраивает стартовый адрес ко-
да? Так что, по нашему мнению, проблем с
дампами куда больше. Теперь насчет старто-
вого адреса и длины. Длину мы теперь бу-
дем по возможности указывать, а в старто-
вом адресе нет необходимости - все равно
каждый проассемблирует под тот адрес, ко-
торый ему больше удобен. Хотелось бы доба-
вить еще одно пожелание к тем, кто возь-
мется по предложению Максима оптимизиро-
вать данную процедуру. Устраните ограниче-
ние на координату X.
* * *
