D'une pierre deux coups, c'est ce que je vous propose de faire aujourd'hui. Nous allons transférer "3D FONGUS" sur disquette et par la même occasion, en profiter pour autoriser le pilotage de notre avion par le Joy-stick.

Tout d'abord, un petit état des lieux.

Ce jeu est composé de trois modules, le premier, entre #501 et # 6DF est un module BASIC qui charge les deux autres. Le deuxième, entre #A000 et #BF3F, est un écran HIRES de présentation. Le troisième est le jeu lui même. C'est ce dernier module qui pose problème car il occupe une partie de la page 4. Il est implanté entre #4BD et #9F00.

La méthode utilisée.

Les deux premiers modules n'appellent pas de commentaire particulier. Pour le troisième, nous allons utiliser la méthode déjà employée pour le Trident de Neptune, de chargement de la page quatre ailleurs en mémoire, puis transfert de celle-ci à sa place définitive, juste avant le début du jeu. Ceci sera réalisé en chargeant "manuellement" (Pt 8) le jeu à partir de l'adresse #500. En déplaçant à la fin, la zone se trouvant normalement sur la page quatre.Pour enfin, déplaçer à nouveau, l'ensemble, au début de la page cinq et faire une sauvegarde provisoire.On implante à la suite ( #9F44 ),la routine en LM qui sera appelée au lancement du jeu et dont le rôle est de tranférer les #42 octets situés entre #9F01 et #9F43 vers #4BD-#4FF. Sa dernnière action sera de lancer le jeu par un JMP$4BD.

Voici maintenant, la marche à suivre:

1 - LOAD"STOP
2 - CLOAD"3DFONGUS"
3 - Modification du listing BASIC ( à l'aide de la commande EDIT )

0 QUIT ( Créer la ligne )
EDIT 32 ( 32 !FONG.HRS )
EDIT 34 ( 34 !FONGUS )

TRANS

10FORI=0 TO29 20READA$:A=VAL("#"+A$):POKE#9F44+I,A:NEXT
30DATA A9,01,85,0C,A9,BD,85,0E,A9,00,85,11
40DATA A9,9F,85,0D,A9,04,85,0F,A9,43,85,10
50DATA 20,C4,ED,4C,BD,04

Pour ceux qui n'ont pas l'interface J.S PASE: SAVE"FONGUS",A#500,#9F61,T#9F44.

Pour ceux qui veulent piloter au Joy-stick:

J.S

10 FOR I=0 TO 85 20READA$:A=VAL("#"+A$):POKE#9F62+I,A:NEXT
30DATA 98,48,8A,48,AD,01,03,48,AD,03,03,48
40DATA A9,C0,8D,03,03,A9,40,8D,01,03,AD,01
50DATA 03,A8,29,20,AA,98,4A,29,0C,8D,8B,9F
60DATA 98,29,03,18,69,08,A8,B9,A7,9F,8D,B7
70DATA 9F,68,8D,03,03,68,8D,01,03,8E,B8,9F
80DATA 68,AA,68,A8,AD,B7,9F,60,EA
90DATA 38,38,38,38,38,38,38,38
100DATA 38,38,38,38,38,BC,AC,38
110DATA AC,20

16-RUN
17-POKE#2A80,#20:POKE#2A81,#62: POKE#2A82, #9F
18-SAVE"FONGUS",A#500,#9FB8,T#9F44

C'est tout, bon vol et à bientôt...