crossassemblor-2000/al.lex

%{
#include "as.tab.h"
int yywrap(void){return 1;}
void
yyerror (char const *s)
{

  fprintf (stderr, "%s\n", s);
}

%}

%%

"ADD"     { return tADD ;} 
"SUB"     { return tSUB;}
"MUL"     { return tMUL; }
"DIV"			{ return tDIV; }
"INF"			{ return tINF; }
"SUP"     { return tSUP; }
"EQU"     { return tEQU; }

"AFC"    	{ return tAFC; }
"COP"     { return tCPY; }
"AFCA"    { return tAFCA; }
"COPA"    { return tCPYA; }


"READ"    { return tREAD; }
"WR"    { return tWR; }

"JMP"     { return tJMP; }
"JMF"     { return tJMF; }

"GET"     { return tGET; }
"PRI"     { return tPRI; }

"CALL"    { return tCALL; }
"RET"     { return tRET; }

"STOP"     { return tSTOP; }

[0-9]+	  { yylval.nombre = atoi(yytext); return tNB; }

"\n"
" "
"\t"

%%