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