put stars

Greetings, All! A procedure for flying from right to left stars, I hope someone can speed it up. 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 I hope for your help. That's all. Bye, All! NewArt/N-DISCOVERY