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_AB
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_AB
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
@