fichier des scrollings: scroll.s

 

%SCROL%%%%%%%%%%%%%%%%
% 80176 EC1 %        %
% 80162 EC2 %        %
% 8018E EC3          %
% 80193 EC4          %
%%%%%%%%%%%%%%%%%%%%%%
**SCROL_H
GOSUBL SAVE.SP
GOSUBL SPRITE
ST=0.8
D0= 001C7 LA 01 DAT0=A.B
GOSUBL COPY_AB
LC 2F R4=C
*L.01
D0= 0018E A=DAT0.A
D0=A D1=A D1=D1+ 34
LC 87 DO {
A=DAT1.W DAT0=A.W
D0=D0+ 16 D1=D1+ 16
C--.B } WHILENC
D0= 0018E A=DAT0.A
LC 0085E A=A+C.A D0=A
D1= 001A2 A=DAT1.A D1=A
A=DAT1.W DAT0=A.W
D0=D0+ 16 D1=D1+ 16
A=DAT1.W DAT0=A.W
D0=D0+ 16 A=0.P DAT0=A.P
D0= 001A2 A=DAT0.A
LC 00022 A=A+C.A
DAT0=A.A
D0= 00193 A=DAT0.A
D0=A D1=A D1=D1+ 34
LC 87 DO {
A=DAT1.W DAT0=A.W
D0=D0+ 16 D1=D1+ 16
C--.B } WHILENC
D0= 00193 A=DAT0.A
LC 0085E A=A+C.A D0=A
D1= 001A7 A=DAT1.A D1=A
A=DAT1.W DAT0=A.W
D0=D0+ 16 D1=D1+ 16
A=DAT1.W DAT0=A.W
D0=D0+ 16 A=0.P DAT0=A.P
D0= 001A7 A=DAT0.A
LC 00022 A=A+C.A
DAT0=A.A
C=R4 ?C=0.B { RTN }
ELSE { 
C--.B R4=C GOTO L.01 }
RTN
**SCROL_B
GOSUBL SAVE.SP
GOSUBL SPRITE
ST=0.8
D0= 001C7 LA 01 DAT0=A.B
GOSUBL COPY_AB
LC 2F R4=C
*L.02
D0= 0018E A=DAT0.A
LC 0084C A=A+C.A
D1=A D0=A D0=D0+ 34
LC 87 DO {
A=DAT1.W DAT0=A.W
D0=D0- 16 D1=D1- 16
C--.B } WHILENC
D0= 0018E A=DAT0.A D0=A
D1= 001A2 A=DAT1.A
LC 008A2 A=A-C.A D1=A
A=DAT1.W DAT0=A.W
D0=D0+ 16 D1=D1+ 16
A=DAT1.W DAT0=A.W
D0=D0+ 16 A=0.P DAT0=A.P
D0= 001A2 A=DAT0.A
LC 00022 A=A-C.A
DAT0=A.A
D0= 00193 A=DAT0.A
LC 0084C A=A+C.A
D1=A D0=A D0=D0+ 34
LC 87 DO {
A=DAT1.W DAT0=A.W
D0=D0- 16 D1=D1- 16
C--.B } WHILENC
D0= 00193 A=DAT0.A D0=A
D1= 001A7 A=DAT1.A
LC 008A2 A=A-C.A D1=A
A=DAT1.W DAT0=A.W
D0=D0+ 16 D1=D1+ 16
A=DAT1.W DAT0=A.W
D0=D0+ 16 A=0.P DAT0=A.P
D0= 001A7 A=DAT0.A
LC 00022 A=A-C.A
DAT0=A.A
C=R4 ?C=0.B { RTN }
ELSE { 
C--.B R4=C GOTO L.02 }
RTN
@

 

Retour