MEMO5 Chargeur http://dcmoto.free.fr/programmes/memo5- ... index.html
Ce programme permet de charger dans l'extension mémoire 64K du MO5 des fichiers binaires images de cartouches MEMO5, puis de les exécuter comme si c'étaient des MEMO5 réelles. Les images de disquettes au format .fd et .sd contiennent toutes les MEMO5 de 16K connues. Les MEMO5 de 32K, 48K et 64K ne sont pas compatibles avec le mécanisme de changement de banque de l'extension mémoire.
Les collectionneurs d'extensions mémoire MO5 ne savent pas les utiliser. Je rie beaucoup en voyant sur ebay "Extension 64K testée", car aucun vendeur n'est capable de la faire fonctionner, pour une simple raison : cette mémoire est incompatible avec le Basic, seul un programme en langage machine permet d'y accéder et de commuter les 4 banques mémoire de 16K.
Grâce à "MEMO5 Chargeur" vous allez enfin pouvoir profiter de l'extension 64K pour simuler toutes les cartouches MEMO5 qui manquent à votre collection. Je profite de l'occasion pour lancer un appel : la cartouche Scriptor de cette compilation est une version PC128 en italien. Je suis à la recherche de la version française.
Code : Tout sélectionner
10 'Chargement extension memoire MO5
11 DATA ADRESSES,Carnet d'adresses
12 DATA AGENDA,Agenda
13 DATA AIRBUS,Airbus
14 DATA BLITZ!,Blitz!
15 DATA GEMINI,Gémini
16 DATA GLOUTON,Glouton
17 DATA MASS6809,Assembleur 6809
18 DATA MELIMEMO,Mélimémot
19 DATA MELODIA,Mélodia
20 DATA MINER,Miner 2049er
21 DATA MOTUS,Motus
22 DATA PICTOR,Pictor
23 DATA SCRIPTOR,Scriptor
24 DATA TRAP,Trap
25 DATA TRIDI444,Tridi 4x4x4
26 DATA "1:AMEDEE",La maison d'Amédée
27 DATA "1:BARRE",La pêche à la barre
28 DATA "1:GRILLE",Grille
29 DATA FIN
40 CLS:SCREEN7,0,0
41 DEFINTA-Z:CLEAR,&H5E00:DIMP$(26):N=0
42 LOCATE4,1,0:PRINT"CHARGEMENT D'UNE CARTOUCHE MEMO5"
43 LOCATE6,2:PRINT"DANS L'EXTENSION MEMOIRE 64K"
44 BOX(24,4)-(296,27)
50 READNOM$:IFNOM$="FIN"THEN60
51 READLIB$:N=N+1:P$(N)=NOM$
52 LOCATE6,N+4:PRINTCHR$(N+64);" = ";LIB$
53 GOTO50
60 LOCATE3,24:PRINT"Tapez la lettre de la cartouche...";
61 LOCATE0,0
62 A$=INKEY$:IFA$=""THEN62
63 A=ASC(A$)-64
64 IFA<1 THENPLAY"O1DO":GOTO62
65 IFA>N THENPLAY"O1DO":GOTO62
70 CLS:LOCATE1,9,0:PRINT"Chargement de la cartouche ";P$(A);"...";
71 PROG$="860CB7A7CB8E6000108EB000EC81EDA18CA00026F78604B7A7CB6E9FFFFE"
72 X=&H5E00:Y=X
80 FORI=1TOLEN(PROG$)STEP2
81 POKEY,VAL("&H"+MID$(PROG$,I,2)):Y=Y+1:NEXT
90 LOADMP$(A):EXECX
