frost (./1) :
Depuis le temps que j'en cherchais un ! J'ai regardé à nouveau ce que donne vasm, l'assembleur de Frank Wille, et ce dernier a ajouté LE truc qui manquait : le support des macros !
Je détaille la compilation sous Linux et passe assez rapidement sur son utilisation pour générer des progs pour Atari ST/Falcon chez moi :
Le cross-assembleur de rêve: vasm.
J'espère que cela va rendre service à d'autres.
frost (./3) :
Il manque le support de REPT/ENDR à l'assembleur, mais ça ne devrait pas prendre trop de temps à implémenter ça.
frost (./5) :
Arf, je te fais confiance pour ça
frost (./7) :
Le code est relativement accessible je trouve, ça ne ressemble déjà pas à un truc de cochon.
Je voudrais déjà avoir le support de rept/endr. Comme je n'ai pas de doc sous la main, le nombre de répétition d'un bloc de code peut-il être une expression ? ou est-ce simplement un nombre ? C'est un peu plus simple à parser dans ce dernier cas
Je pense que c'est un bon choix, le code a l'air bien construit, est moins lourd que les binutils, et Frank Wille a même documenté l'interface dans le manuel de vasm ! Et en plus il est compilable pour Atari ST
frost (./9) :
Oui, tout se trouve dans expr.c pour ça
Ben vois si ce n'est pas plus simple d'utiliser vasm pour çaJe pense que c'est un bon choix, le code a l'air bien construit, est moins lourd que les binutils, et Frank Wille a même documenté l'interface dans le manuel de vasm ! Et en plus il est compilable pour Atari ST
frost (./11) :
Je crois que c'est un peu plus compliqué, vasm semble fournir la coquille, charge à toi de fournir le module pour gober le style de syntaxe (mais tu peux garder le module de syntaxe Motorola) et surtout le module CPU. Il me semble assez difficile de lier deux assembleurs en même temps, à moins peut-être de prévoir un module CPU mixte 68k/Tom&Jerry basé sur le module 68k.
frost (./13) :
Oui, ça doit être super confortable. Et pourquoi pas encore pouvoir inclure du code DSP 56k ?
et au moins je sais que Devpac me genere du vrai code !!
(hors clavier de Mega ST)
frost (./17) :
Aaaah, la qualité légendaire des claviers Atari(hors clavier de Mega ST)
) perso c'est pas pour rien que j'ai revendu mon Eiffel, juste pour la souris un peu 'carree' que je protestes emais depuis que j'utilises l'adaptateur PS2 a SCPCD-Zerosquare, j'ai une souris optique sur mon Falcon !! Et depuis je vais mieux !!
Frost) et corrigé un bug qui créait une section bss 'pas vide' qui décalait la section suivante (erreurs incompréhensibles au link) j'ai pu compiler mon code !
static void write_data(FILE *f,section *sec,taddr data)
{
atom *p;
taddr i;
sec->pc=0;
for(p=sec->first;p;p=p->next){
int old=sec->pc;
sec->pc=(sec->pc+p->align-1)/p->align*p->align;
/* if(sec->pc>data)
return;*/
for(;old<sec->pc;old++)
fputc(0,f);
sec->pc+=atom_size(p,sec,sec->pc);
if (data>0) {
if(p->type==DATA){
for(i=0;i<p->content.db->size;i++)
fputc(p->content.db->data[i],f);
}else if(p->type==SPACE)
write_sblock(f,p->content.sb);
}
}
}
static void handle_section(char *s)
{
char attr[32];
char *name;
strcpy(attr,code_type);
/* read section name */
if (!(name = parse_name(&s)))
return;
if (*s == ',') {
/* read section type */
char *type;
s = skip(s+1);
type = s;
if (!(s = skip_identifier(s)))
return;
if ((s-type==3 || s-type==5) && !strnicmp(type,"bss",3))
strcpy(attr,bss_type);
else if ((s-type==4 || s-type==6) && !strnicmp(type,"data",4))
strcpy(attr,data_type);
else if ((s-type==4 || s-type==6) && !strnicmp(type,"code",4))
strcpy(attr,code_type);
else
syntax_error(13); /* illegal section type */
if (s-type > 4) {
if (*(s-2) == '_') {
switch (tolower((unsigned char)*(s-1))) {
case 'c':
strcat(attr,"C");
goto makenewsection;
case 'f':
strcat(attr,"F");
goto makenewsection;
case 'p':
goto makenewsection;
}
}
syntax_error(13); /* illegal section type */
}
s = skip(s);
if (*s == ',') {
/* read memory type */
s = skip(s+1);
type = s;
if (!(s = skip_identifier(s)))
return;
if (s-type==4 && !strnicmp(type,"chip",4))
strcat(attr,"C");
else if (s-type==4 && !strnicmp(type,"fast",4))
strcat(attr,"F");
else
syntax_error(15); /* illegal memory type */
s = skip(s);
}
}
else
{
if (!strnicmp(name, "bss", 3))
strcpy(attr, bss_type);
else if (!strnicmp(name, "data", 4))
strcpy(attr, data_type);
else if (!strnicmp(name, "code", 4))
strcpy(attr, code_type);
else if (!strnicmp(name, "text", 4))
strcpy(attr, code_type);
}
makenewsection:
new_section(name,attr,1);
switch_section(name,attr);
eol(s);
}