ZXNet эхоконференция «code.zx»
тема: put stars
от: Slavka Kalinin
кому: All CODERS !!!
дата: 06 Aug 2000
Приветствую тебя, 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
|