44 lines
786 B
C
44 lines
786 B
C
|
#include "header.h"
|
||
|
|
#include "back.h"
|
||
|
|
#include <em.h>
|
||
|
|
#include <out.h>
|
||
|
|
|
||
|
|
B_symbstr(s, len, type, add, val, added)
|
||
|
|
char *s, *val;
|
||
|
|
arith added;
|
||
|
|
{
|
||
|
|
int i = find_sym(val, STORE_STRING);
|
||
|
|
register struct outname *p;
|
||
|
|
|
||
|
|
if (! s) s = "";
|
||
|
|
p = &symbol_table[find_sym(s, FORCE_DEF)];
|
||
|
|
p->on_type = S_CRS | (type << 8);
|
||
|
|
p->on_desc = add;
|
||
|
|
p->on_valu = i;
|
||
|
|
}
|
||
|
|
|
||
|
|
B_symbcst(s, len, type, add, val)
|
||
|
|
char *s;
|
||
|
|
arith val;
|
||
|
|
{
|
||
|
|
register struct outname *p;
|
||
|
|
|
||
|
|
if (! s) s = "";
|
||
|
|
p = &symbol_table[find_sym(s, FORCE_DEF)];
|
||
|
|
p->on_type = S_ABS | (type << 8);
|
||
|
|
p->on_desc = add;
|
||
|
|
p->on_valu = val;
|
||
|
|
}
|
||
|
|
|
||
|
|
B_symd(s, len, type, add)
|
||
|
|
char *s;
|
||
|
|
{
|
||
|
|
register struct outname *p;
|
||
|
|
|
||
|
|
if (! s) s = "";
|
||
|
|
p = &symbol_table[find_sym(s, FORCE_DEF)];
|
||
|
|
p->on_type = S_MIN | (type << 8);
|
||
|
|
p->on_desc = add;
|
||
|
|
p->on_valu = text-text_area;
|
||
|
|
}
|