ack/lang/cem/cemcom/emcode.def

% emcode definitions for the CEM compiler -- intermediate code
C_adf(p)	| arith p;	| OP(op_adf), CST(p)
C_adi(p)	| arith p;	| OP(op_adi), CST(p)
C_adp(p)	| arith p;	| OP(op_adp), CST(p)
C_ads(p)	| arith p;	| OP(op_ads), CST(p)
C_adu(p)	| arith p;	| OP(op_adu), CST(p)
C_and(p)	| arith p;	| OP(op_and), CST(p)
C_asp(p)	| arith p;	| OP(op_asp), CST(p)
C_bra(l)	| label l;	| OP(op_bra), CST((arith)l)
C_cai()		|		| OP(op_cai)
C_cal(p)	| char *p;	| OP(op_cal), PNAM(p)
C_cff()		|		| OP(op_cff)
C_cfi()		|		| OP(op_cfi)
C_cfu()		|		| OP(op_cfu)
C_cif()		|		| OP(op_cif)
C_cii()		|		| OP(op_cii)
C_ciu()		|		| OP(op_ciu)
C_cmf(p)	| arith p;	| OP(op_cmf), CST(p)
C_cmi(p)	| arith p;	| OP(op_cmi), CST(p)
C_cmp()		|		| OP(op_cmp)
C_cmu(p)	| arith p;	| OP(op_cmu), CST(p)
C_com(p)	| arith p;	| OP(op_com), CST(p)
C_csa(p)	| arith p;	| OP(op_csa), CST(p)
C_csb(p)	| arith p;	| OP(op_csb), CST(p)
C_cuf()		|		| OP(op_cuf)
C_cui()		|		| OP(op_cui)
C_cuu()		|		| OP(op_cuu)
C_dup(p)	| arith p;	| OP(op_dup), CST(p)
C_dvf(p)	| arith p;	| OP(op_dvf), CST(p)
C_dvi(p)	| arith p;	| OP(op_dvi), CST(p)
C_dvu(p)	| arith p;	| OP(op_dvu), CST(p)
C_fil_dlb(l, o)	| label l; arith o;	| OP(op_fil), DOFF(l, o)
C_ior(p)	| arith p;	| OP(op_ior), CST(p)
C_lae_dnam(p, o)	| char *p; arith o;	| OP(op_lae), NOFF(p, o)
C_lae_dlb(l, o)	| label l; arith o;	| OP(op_lae), DOFF(l, o)
C_lal(p)	| arith p;	| OP(op_lal), CST(p)
C_ldc(p)	| arith p;	| OP(op_ldc), DCST(p)
C_lde_dnam(p, o)	| char *p; arith o;	| OP(op_lde), NOFF(p, o)
C_lde_dlb(l, o)	| label l; arith o;	| OP(op_lde), DOFF(l, o)
C_ldl(p)	| arith p;	| OP(op_ldl), CST(p)
C_lfr(p)	| arith p;	| OP(op_lfr), CST(p)
C_lin(p)	| arith p;	| OP(op_lin), CST(p)
C_loc(p)	| arith p;	| OP(op_loc), CST(p)
C_loe_dnam(p, o)	| char *p; arith o;	| OP(op_loe), NOFF(p, o)
C_loe_dlb(l, o)	| label l; arith o;	| OP(op_loe), DOFF(l, o)
C_loi(p)	| arith p;	| OP(op_loi), CST(p)
C_lol(p)	| arith p;	| OP(op_lol), CST(p)
C_lor(p)	| arith p;	| OP(op_lor), CST(p)
C_lpi(p)	| char *p;	| OP(op_lpi), PNAM(p)
C_mlf(p)	| arith p;	| OP(op_mlf), CST(p)
C_mli(p)	| arith p;	| OP(op_mli), CST(p)
C_mlu(p)	| arith p;	| OP(op_mlu), CST(p)
C_ngf(p)	| arith p;	| OP(op_ngf), CST(p)
C_ngi(p)	| arith p;	| OP(op_ngi), CST(p)
C_ret(p)	| arith p;	| OP(op_ret), CST(p)
C_rmi(p)	| arith p;	| OP(op_rmi), CST(p)
C_rmu(p)	| arith p;	| OP(op_rmu), CST(p)
C_sbf(p)	| arith p;	| OP(op_sbf), CST(p)
C_sbi(p)	| arith p;	| OP(op_sbi), CST(p)
C_sbs(p)	| arith p;	| OP(op_sbs), CST(p)
C_sbu(p)	| arith p;	| OP(op_sbu), CST(p)
C_sde_dnam(p, o)	| char *p; arith o;	| OP(op_sde), NOFF(p, o)
C_sde_dlb(l, o)	| label l; arith o;	| OP(op_sde), DOFF(l, o)
C_sdl(p)	| arith p;	| OP(op_sdl), CST(p)
C_sli(p)	| arith p;	| OP(op_sli), CST(p)
C_slu(p)	| arith p;	| OP(op_slu), CST(p)
C_sri(p)	| arith p;	| OP(op_sri), CST(p)
C_sru(p)	| arith p;	| OP(op_sru), CST(p)
C_ste_dnam(p, o)	| char *p; arith o;	| OP(op_ste), NOFF(p, o)
C_ste_dlb(l, o)	| label l; arith o;	| OP(op_ste), DOFF(l, o)
C_sti(p)	| arith p;	| OP(op_sti), CST(p)
C_stl(p)	| arith p;	| OP(op_stl), CST(p)
C_xor(p)	| arith p;	| OP(op_xor), CST(p)
C_zeq(l)	| label l;	| OP(op_zeq), CST((arith)l)
C_zge(l)	| label l;	| OP(op_zge), CST((arith)l)
C_zgt(l)	| label l;	| OP(op_zgt), CST((arith)l)
C_zle(l)	| label l;	| OP(op_zle), CST((arith)l)
C_zlt(l)	| label l;	| OP(op_zlt), CST((arith)l)
C_zne(l)	| label l;	| OP(op_zne), CST((arith)l)
%
C_df_dlb(l)	| label l;	| DLB(l)
C_df_dnam(s)	| char *s;	| DNAM(s)
C_df_ilb(l)	| label l;	| ILB(l)
%
C_bss_cst(n, w, i)	| arith n, w; int i;	|
	PS(ps_bss), DCST(n), CST(w), CST((arith)i)
%
C_con_icon(val, siz)	| char *val; arith siz;	|
	PS(ps_con), WCON(sp_icon, val, siz), CEND()
C_con_ucon(val, siz)	| char *val; arith siz;	|
	PS(ps_con), WCON(sp_ucon, val, siz), CEND()
C_con_fcon(val, siz)	| char *val; arith siz;	|
	PS(ps_con), WCON(sp_fcon, val, siz), CEND()
C_con_scon(str, siz)	| char *str; arith siz;	| PS(ps_con), CSTR(str), CEND()
C_con_dnam(str, val)	| char *str; arith val;	|
	PS(ps_con), NOFF(str, val), CEND()
C_con_dlb(l, val)	| label l; arith val;	|
	PS(ps_con), DOFF(l, val), CEND()
C_con_pnam(str)	| char *str;	| PS(ps_con), PNAM(str), CEND()
%
C_rom_cst(l)	| arith l;	| PS(ps_rom), CST(l), CEND()
C_rom_icon(val, siz)	| char *val; arith siz;	|
	PS(ps_rom), WCON(sp_icon, val, siz), CEND()
C_rom_fcon(val, siz)	| char *val; arith siz;	|
	PS(ps_rom), WCON(sp_fcon, val, siz), CEND()
C_rom_ilb(l)	| label l;	| PS(ps_rom), ILB(l), CEND()
%
C_cst(l)	| arith l;	| CST(l)
C_icon(val, siz)	| char *val; arith siz;	| WCON(sp_icon, val, siz)
C_ucon(val, siz)	| char *val; arith siz;	| WCON(sp_ucon, val, siz)
C_fcon(val, siz)	| char *val; arith siz;	| WCON(sp_fcon, val, siz)
C_scon(str, siz)	| char *str; arith siz;	| CSTR(str)
C_dnam(str, val)	| char *str; arith val;	| NOFF(str, val)
C_dlb(l, val)	| label l; arith val;	| DOFF(l, val)
C_pnam(str)	| char *str;	| PNAM(str)
C_ilb(l)	| label l;	| ILB(l)
%
C_pro_narg(p1)	| char *p1;	| PS(ps_pro), PNAM(p1), CEND()
C_end(l)	| arith l;	| PS(ps_end), CST(l)
%
C_exa(s)	| char *s;	| PS(ps_exa), DNAM(s)
C_exp(s)	| char *s;	| PS(ps_exp), PNAM(s)
C_ina_pt(l)	| label l;	| PS(ps_ina), DLB(l)
C_ina(s)	| char *s;	| PS(ps_ina), DNAM(s)
C_inp(s)	| char *s;	| PS(ps_inp), PNAM(s)
%
C_ms_err()	|	| PS(ps_mes), CST((arith)ms_err), CEND()
C_ms_emx(p1, p2)	| arith p1, p2;	|
	PS(ps_mes), CST((arith)ms_emx), CST(p1), CST(p2), CEND()
C_ms_reg(a, b, c, d)	| arith a, b; int c, d;	|
	PS(ps_mes), CST((arith)ms_reg), CST(a), CST(b), CST((arith)c), CST((arith)d), CEND()
C_ms_src(l, s)	| arith l; char *s;	|
	PS(ps_mes), CST((arith)ms_src), CST(l), CSTR(s), CEND()
C_ms_flt()	|	| PS(ps_mes), CST((arith)ms_flt), CEND()
C_ms_par(l)	| arith l;	| PS(ps_mes), CST((arith)ms_par), CST(l), CEND()
C_ms_gto()	|	| PS(ps_mes), CST((arith)ms_gto), CEND()