static void xif(LONG pcrys_blk)
{
WORD control[C_SIZE];
WORD int_in[I_SIZE];
WORD int_out[O_SIZE];
LONG addr_in[AI_SIZE];
LWCOPY(ADDR(&control[0]), CONTROL, C_SIZE);
if (IN_LEN)
LWCOPY(ADDR(&int_in[0]), INT_IN, min(IN_LEN,I_SIZE));
if (AIN_LEN)
LWCOPY(ADDR(&addr_in[0]), ADDR_IN, min(AIN_LEN,AI_SIZE)*2);
int_out[0] = crysbind(OP_CODE, GGLOBAL, &control[0], &int_in[0], &int_out[0],
&addr_in[0]);
if (OUT_LEN)
LWCOPY(INT_OUT, ADDR(&int_out[0]), OUT_LEN);
if (OP_CODE == RSRC_GADDR)
LLSET(ADDR_OUT, ad_rso);
}
/* ob_relxywh */
VOID ob_relxywh(LONG tree, WORD obj, GRECT *prect)
{
/* get x,y,w,h for specified object */
LWCOPY(ADDR(prect), OB_X(obj), sizeof(GRECT) / 2);
} /* ob_relxywh */
VOID ob_relxywh(LONG tree, WORD obj, GRECT *pt)
{
LWCOPY(ADDR(pt), OB_X(obj), sizeof(GRECT)/2);
}
VOID ob_setxywh(LONG tree, WORD obj, GRECT *pt)
{
LWCOPY(OB_X(obj), ADDR(pt), sizeof(GRECT)/2);
}
