Compacta * Stephane St Martin & Michael Fauquet -------- Publie dans Amstar & cpc numero 42 * Fevrier 1990 Les compacteurs se suivent et ne se ressemblent pas. En effet, apres de multiples compacteurs d'ecran, un compilateur de programmes binaires, voici un compilateur de programmes Basic. Vous pourrez ainsi gagner quelques octets (et meme parfois quelques kilo-octets). Le programme, intitule "COMPACTA", contient 2 RSX : ùCOMPACTA et ùDEPLACE. La premiere ùCOMPACTA fait apparaitre un menu comprenant 4 options : 1) Compacter les REM : cela supprimera tous les REM du programme. Attention : verifiez bien auparavant que le programme Basic ne fait pas appel a ces REM par des GOTO ou des GOSUB, sinon le plantage est assure. 2) Compacter les espaces : les espaces en trop seront elimines entre chaque instruction. 3) Compacter les lignes : les lignes les plus courtes vont etre fusionnees. 4) Compacter REM, espace et lignes : applique les 3 options precedentes au programme Basic. La deuxieme RSX, ùDEPLACE, accepte trois parametres : ligne de debut, ligne de fin et nouvelle ligne de debut. Cette permet de deplacer un bloc de lignes a un nouveau numero de ligne. Ex : ùDEPLACE,10,50,3000 deplacera les lignes 10 a 50 et les placera en 3000. Pour constater le gain de place obtenu par le compactage, il suffit de charger votre programme original et de taper pour les possesseurs de cpc 664 et 6128 : PRINT PEEK(&AE66)+256*PEEK(&AE67) et pour les possesseurs de CPC 464 : PRINT PEEK(&AE83)+256*PEEK(&AE84) qui donnera l'adresse de fin du programme. Appelon-la adresse 1. Puis chargez le programme compacte et tapez la meme suite d'instructions que precedemment pour obtenir l'adresse de fin de votre programme compacte (adresse 2). La difference adresse 1 - adresse 2 donnera le gain du compactage. Le programme peut compacter des listings jusqu'a 25ko. Au-dela de cette longueur, il convient de diviser le programme a compacter en 2 fichiers et de compacter ceux-ci separement puis de les fusionner ensuite par un MERGE. Pour compacter un programme, il faut commencer par un RUN"COMPACTA", puis charger le programme a compacter par un LOAD. Ensuite, tapez ùCOMPACTA, vous arriverez alors au menu et choisirez votre option. N'oubliez pas, une fois le compactage effectue, de sauver le listing transfere ! NB : pour les 464, il faut ajouter : POKE &829F,&83:POKE &82C0,&83:POKE &83B2,&83 entre le CALL &8BDC et le CALL &7EC0 du listing COMPACTA.BAS