Optimization>>>

Greetings, All! In the process of writing one toy, it took maximum the speed of the following procedures, so I’m interested in Is it really possible to speed them up? Or at least reduce the volume at the same time performance. ;PROCEDURE FOR CLEANING A 2X2 AREA ;KNOWN PLACES. IN HL CURRENT ADDRESS TABLE OF ADDRESSES ;SCREEN, B C - X COORDINATE OF AREA B ;FAMILIAR PLACES CL_MVSP LD (SP_1+1),SP LD B,0 LDSP,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),BINC 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