105 lines
1.8 KiB
C
105 lines
1.8 KiB
C
/** @file
|
|
* Sources of the "STORE" group instructions
|
|
*/
|
|
|
|
/* $Id$ */
|
|
|
|
#include "em_abs.h"
|
|
#include "global.h"
|
|
#include "log.h"
|
|
#include "mem.h"
|
|
#include "trap.h"
|
|
#include "text.h"
|
|
#include "fra.h"
|
|
#include "warn.h"
|
|
|
|
/** STL l: Store local or parameter */
|
|
void DoSTL(register long l)
|
|
{
|
|
LOG(("@S6 DoSTL(%ld)", l));
|
|
spoilFRA();
|
|
l = arg_l(l);
|
|
popw_st(loc_addr(l));
|
|
}
|
|
|
|
/** STE g: Store external */
|
|
void DoSTE(register unsigned long arg)
|
|
{
|
|
register ptr p = i2p(arg);
|
|
|
|
LOG(("@S6 DoSTE(%lu)", p));
|
|
spoilFRA();
|
|
popw_m(arg_g(p));
|
|
}
|
|
|
|
/** SIL l: Store into word pointed to by l-th local or parameter */
|
|
void DoSIL(register long l)
|
|
{
|
|
LOG(("@S6 DoSIL(%ld)", l));
|
|
spoilFRA();
|
|
l = arg_l(l);
|
|
popw_m(st_lddp(loc_addr(l)));
|
|
}
|
|
|
|
/** STF f: Store offsetted */
|
|
void DoSTF(register long l)
|
|
{
|
|
register ptr p = dppop();
|
|
|
|
LOG(("@S6 DoSTF(%ld)", l));
|
|
spoilFRA();
|
|
popw_m(p + arg_f(l));
|
|
}
|
|
|
|
/** STI o: Store indirect o bytes (pop address, then data) */
|
|
void DoSTI(register size l)
|
|
{
|
|
register ptr p = dppop();
|
|
|
|
LOG(("@S6 DoSTI(%ld)", l));
|
|
spoilFRA();
|
|
pop_m(p, arg_o(l));
|
|
}
|
|
|
|
/** STS w: Store indirect, w-byte integer on top of stack gives object size */
|
|
void DoSTS(register size l)
|
|
{
|
|
register ptr p;
|
|
|
|
LOG(("@S6 DoSTS(%ld)", l));
|
|
spoilFRA();
|
|
l = upop(arg_wi(l));
|
|
p = dppop();
|
|
pop_m(p, arg_o(l));
|
|
}
|
|
|
|
/** SDL l: Store double local or parameter */
|
|
void DoSDL(register long l)
|
|
{
|
|
|
|
LOG(("@S6 DoSDL(%ld)", l));
|
|
spoilFRA();
|
|
l = arg_l(l);
|
|
pop_st(loc_addr(l), dwsize);
|
|
}
|
|
|
|
/** SDE g: Store double external */
|
|
void DoSDE(register unsigned long arg)
|
|
{
|
|
register ptr p = i2p(arg);
|
|
|
|
LOG(("@S6 DoSDE(%lu)", p));
|
|
spoilFRA();
|
|
pop_m(arg_g(p), dwsize);
|
|
}
|
|
|
|
/** SDF f: Store double offsetted */
|
|
void DoSDF(register long l)
|
|
{
|
|
register ptr p = dppop();
|
|
|
|
LOG(("@S6 DoSDF(%ld)", l));
|
|
spoilFRA();
|
|
pop_m(p + arg_f(l), dwsize);
|
|
}
|