Fichier d'initialisation : ini.s
%INI%%%%%%%%%%%%%%%%%% % % %%%%%%%%%%%%%%%%%%%%%%
D0= 00128 LC F DAT0=C.P
%%%%%%%%%%%% % ECRAN1 % % ECRAN2 % %%%%%%%%%%%%
LC 01400 GOSBVL [MKSTR] AD0EX A=A+1.A ABIT=0.0 LC 00110 A=A+C.A % SECURITEE LC 80000 A=A-C.A D0= 80176 DAT0=A.A LC 00880 A=A+C.A D0= 80162 DAT0=A.A
%%%%%%%%%%%%% % 80184 SAV % % 80189 RCL % %%%%%%%%%%%%%
LC 00200 GOSBVL [MKSTR] AD0EX A=A+1.A ABIT=0.0 LC 80000 A=A-C.A D0= 80184 DAT0=A.A %SAV LC 00100 A=A+C.A D0= 80189 DAT0=A.A %RCL
%%%%%%%%%%%%% % 8018E EC3 % % 80193 EC4 % %%%%%%%%%%%%%
LC 01400 GOSBVL [MKSTR] AD0EX A=A+1.A ABIT=0.0 LC 00110 A=A+C.A % SECURITEE LC 80000 A=A-C.A D0= 8018E DAT0=A.A LC 00880 A=A+C.A D0= 80193 DAT0=A.A
%%%%%%%%%%%%%% % 80198 MAP1 % % 8019D MAP2 % %%%%%%%%%%%%%%
LC 02804 GOSBVL [MKSTR] AD0EX A=A+1.A ABIT=0.0 LC 80000 A=A-C.A D0= 80198 DAT0=A.A LC 01400 A=A+C.A D0= 8019D DAT0=A.A
%%%%%%%%%%%%% % @ SCROL_B % % 801A2 % % 801A7 % %%%%%%%%%%%%%
D0= 80198 A=DAT0.A LC 00880 A=A+C.A %A00 D0= 801A2 DAT0=A.A
D0= 8019D A=DAT0.A LC 00880 A=A+C.A %A00 D0= 801A7 DAT0=A.A
%%%%%%%%%%%%%% % 801AC GUID % %%%%%%%%%%%%%%
LC 01100 GOSBVL [MKSTR] AD0EX A=A+1.A ABIT=0.0 LC 80000 A=A-C.A D0= 801AC DAT0=A.A
LC 00064 GOSBVL [MKSTR] AD0EX A=A+1.A ABIT=0.0 LC 80000 A=A-C.A D0= 801C2 DAT0=A.A
%%%%%%%%%%%%%%%%%%%% % ANIMations % % P.?nXXYY.etc.. *2% % 1=?PERSO.2=nFRAME% %%%%%%%%%%%%%%%%%%%%
LC 00012 GOSBVL [MKSTR] AD0EX A=A+1.A ABIT=0.0 LC 80000 A=A-C.A D0= 801C9 DAT0=A.A
D0= 801CE A=0.P DAT0=A.P % FRAME/S_1 D0= 801CF A=0.P DAT0=A.P % FRAME/S_2
%%%%%%%%%%%%% % INTERRUP. % % INITIALIS % %%%%%%%%%%%%%
ST=0.13 % EC1/EC2 D0= 0012E LC 30 DAT0=C.B D0= 38 C=0.W C=C+1.A DAT0=C.8 A=PC GOINC MYINT A=A+C.A D0= 800A2 DAT0=A.A
%%%%%%%%%%%%%%%% % CONSTANTES % %%%%%%%%%%%%%%%%
LC 16d % X ZELDA D0= 80180 DAT0=C.B LC 16d % Y ZELDA D0= 80182 DAT0=C.B
D0= 801B1 A=0.A DAT0=A.A % @DIAL
D0= 801B6 A=0.A DAT0=A.A % @ZELD D0= 801BB A=0.B DAT0=A.B % 1x/?
D0= 801BD A=0.B DAT0=A.B % X.perso1 D0= 801BF A=0.B DAT0=A.B % Y.perso1 D0= 801C1 A=0.P DAT0=A.P % N.persos
D0= 801C7 %Y.menu LA 01 DAT0=A.B
GOSUBL INIT.INT
D0= 00176 A=DAT0.A D0=A LC 87 A=0.W DO { DAT0=A.W D0=D0+ 16 C--.B } WHILENC
D0= 00162 A=DAT0.A D0=A LC 87 A=0.W DO { DAT0=A.W D0=D0+ 16 C--.B } WHILENC
D0= 0018E A=DAT0.A D0=A LC 87 A=0.W DO { DAT0=A.W D0=D0+ 16 C--.B } WHILENC
D0= 00193 A=DAT0.A D0=A LC 87 A=0.W DO { DAT0=A.W D0=D0+ 16 C--.B } WHILENC
@