put stars

Приветствую тебя, All! Также была написана процедура летящих с права на лево звезд, надеюсь ктонибудь сможет ее ускорить. ORG 40000 Prstars DI LD (SPS+1),SP LD SP,Tabl LD B,17 LD C,31 Str10 POP HL,DE LD (HL),0 RLC D JP NC,Str11+1 LD A,L AND C JP NZ,Str11 LD A,C ADD A,L LD L,A Str11 DEC L LD (HL),D PUSH DE,HL POP AF,AF DJNZ Str10 SPS LD SP,0 EI RET Tabl DW #4000,#0100,#4031,#0120,#4040 DW #0140,#407A,#0160,#4819,#0100 DW #482F,#0120,#440E,#01E0,#4855 DW #0140,#4867,#0160,#48EF,#01E0 DW #4500,#0100,#5027,#0120,#5058 DW #0140,#5066,#0160,#4508,#0180 DW #50F1,#01E0,#408B,#01A0 Hадеюсь на вашу помощь. Hа этом усе. Пока, All! NewArt/N-DISCOVERY