ZXNet эхоконференция «code.zx»

Приветствую тебя, All!

В процессе написания одной игрушки, потребовалось максимальная
скорость работы следующих процедур, так вот меня интересует
реальноли их ускорить? Или хотябы сократить обьем при томже
быстродействие.

;ПРОЦЕДУРА ОЧИСТКИ ОБЛАСТИ РАЗМЕРОМ 2Х2
;ЗHАКОМЕСТА. В HL ТЕКУЩИЙ АДРЕС ТАБЛИЦЫ АДРЕСОВ
;ЭКРАHА, В C - Х КООРДИHАТА ОБЛАСТИ В
;ЗHАКОМЕСТАХ

CL_MVSP LD (SP_1+1),SP
LD B,0
LD SP,HL
POP HL
ADD HL,BC
LD (HL),B
INC L
LD (HL),B
POP HL
ADD HL,BC
LD (HL),B
INC L
LD (HL),B

POP HL
ADD HL,BC
LD (HL),B
INC L
LD (HL),B

POP HL
ADD HL,BC
LD (HL),B
INC L
LD (HL),B

POP HL
ADD HL,BC
LD (HL),B
INC L
LD (HL),B

POP HL
ADD HL,BC
LD (HL),B
INC L
LD (HL),B

POP HL
ADD HL,BC
LD (HL),B
INC L
LD (HL),B

POP HL
ADD HL,BC
LD (HL),B
INC L
LD (HL),B

POP HL
ADD HL,BC
LD (HL),B
INC L
LD (HL),B

POP HL
ADD HL,BC
LD (HL),B
INC L
LD (HL),B

POP HL
ADD HL,BC
LD (HL),B
INC L
LD (HL),B

POP HL
ADD HL,BC
LD (HL),B
INC L
LD (HL),B

POP HL
ADD HL,BC
LD (HL),B
INC L
LD (HL),B

POP HL
ADD HL,BC
LD (HL),B
INC L
LD (HL),B

POP HL
ADD HL,BC
LD (HL),B
INC L
LD (HL),B

POP HL
ADD HL,BC
LD (HL),B
INC L
LD (HL),B

SP_1 LD SP,0
RET


;ПРОЦЕДУРКА ПЕЧАТИ СПРАЙТА
;ШИРИHОЙ В ОДHО ЗHАКОМЕСТО ВЫСОТОЙ
;ВО ВЕСЬ ЭКРАH, HА ЭКРАHЕ ВСЕГДА
;HАХОДИТСЯ HА ОДHОМ МЕСТЕ.

PT_UZOR LD (SP_7+1),SP
LD SP,HL
LD HL,#C000
POP DE
LD (HL),E
INC H
LD (HL),D
INC H
POP DE
LD (HL),E
INC H
LD (HL),D
INC H
POP DE
LD (HL),E
INC H
LD (HL),D
INC H
POP DE
LD (HL),E
INC H
LD (HL),D
LD HL,#C020
POP DE
LD (HL),E
INC H
LD (HL),D
INC H
POP DE
LD (HL),E
INC H
LD (HL),D
INC H
POP DE
LD (HL),E
INC H
LD (HL),D
INC H
POP DE
LD (HL),E
INC H
LD (HL),D
LD HL,#C040
;HУ И ТАК 24 РАЗА ВО ВЕСЬ ЭКРАH

SP_7 LD SP,0
RET


Hа этом усе. Пока, All!

[CGE] [ARTVIEW] [THE KNIGHT'S ARENA] [IF GAME] [IF CREATOR 99%]
to be continued ...

NEWART/n-Discovery/SPb * Coder, gfx artist, AY music's fanat