Added extnd_main routine

This commit is contained in:
ceriel 1989-03-22 16:44:20 +00:00
parent d763d3ddeb
commit 96c4943ef7
2 changed files with 17 additions and 0 deletions

View file

@ -109,3 +109,11 @@ int d;
sprint( name, "cont%x", d);
return( name);
}
char *extnd_main( d)
int d;
{
sprint( name, "main%x", d);
return( name);
}

View file

@ -119,3 +119,12 @@ int d;
index_symbol_table = find_sym( string, STORE_STRING);
return( symbol_table[ index_symbol_table].on_foff + string_area);
}
char *extnd_main( d)
int d;
{
string_lengte = mysprint( "%cmcnt%x", GENLAB, d);
index_symbol_table = find_sym( string, STORE_STRING);
return( symbol_table[ index_symbol_table].on_foff + string_area);
}