}/* z_get_sibling */
/*
* z_insert_obj, make an object the first child of another object.
*
* Process.zargs[0] = object to be moved
* Process.zargs[1] = destination object
*
*/
internal static void ZInsertObj()
{
zword obj1 = Process.zargs[0];
zword obj2 = Process.zargs[1];
zword obj1_addr;
zword obj2_addr;
/* If we are monitoring object movements display a short note */
if (Main.option_object_movement == true)
{
Stream.StreamMssgOn();
Text.PrintString("@move_obj ");
Text.PrintObject(obj1);
Text.PrintString(" ");
Text.PrintObject(obj2);
Stream.StreamMssgOff();
}
if (obj1 == 0)
{
Err.RuntimeError(ErrorCodes.ERR_MOVE_OBJECT_0);
return;
}
if (obj2 == 0)
{
Err.RuntimeError(ErrorCodes.ERR_MOVE_OBJECT_TO_0);
return;
}
/* Get addresses of both objects */
obj1_addr = ObjectAddress(obj1);
obj2_addr = ObjectAddress(obj2);
/* Remove object 1 from current parent */
UnlinkObject(obj1);
/* Make object 1 first child of object 2 */
if (Main.h_version <= ZMachine.V3)
{
obj1_addr += O1_PARENT;
FastMem.SetByte(obj1_addr, (zbyte)obj2);
obj2_addr += O1_CHILD;
FastMem.LowByte(obj2_addr, out byte child);
FastMem.SetByte(obj2_addr, (zbyte)obj1);
obj1_addr += (zword)(O1_SIBLING - O1_PARENT);
FastMem.SetByte(obj1_addr, child);
}
else
{
obj1_addr += O4_PARENT;
FastMem.SetWord(obj1_addr, obj2);
obj2_addr += O4_CHILD;
FastMem.LowWord(obj2_addr, out ushort child);
FastMem.SetWord(obj2_addr, obj1);
obj1_addr += (zword)(O4_SIBLING - O4_PARENT);
FastMem.SetWord(obj1_addr, child);
}
}/* z_insert_obj */
}/* z_insert_obj */
/*
* z_put_prop, set the value of an object property.
*
* Process.zargs[0] = object
* Process.zargs[1] = number of property to set
* Process.zargs[2] = value to set property to
*
*/
internal static void ZPutProp()
{
zword prop_addr;
zbyte value;
zbyte mask;
if (Process.zargs[0] == 0)
{
Err.RuntimeError(ErrorCodes.ERR_PUT_PROP_0);
return;
}
/* Property id is in bottom five or six bits */
mask = (zbyte)((Main.h_version <= ZMachine.V3) ? 0x1f : 0x3f);
/* Load address of first property */
prop_addr = FirstProperty(Process.zargs[0]);
/* Scan down the property list */
for (; ;)
{
FastMem.LowByte(prop_addr, out value);
if ((value & mask) <= Process.zargs[1])
{
break;
}
prop_addr = NextProperty(prop_addr);
}
/* Exit if the property does not exist */
if ((value & mask) != Process.zargs[1])
{
Err.RuntimeError(ErrorCodes.ERR_NO_PROP);
}
/* Store the new property value (byte or word sized) */
prop_addr++;
if ((Main.h_version <= ZMachine.V3 && !((value & 0xe0) > 0)) || (Main.h_version >= ZMachine.V4 && !((value & 0xc0) > 0)))
{
zbyte v = (zbyte)Process.zargs[2];
FastMem.SetByte(prop_addr, v);
}
else
{
zword v = Process.zargs[2];
FastMem.SetWord(prop_addr, v);
}
}/* z_put_prop */
}/* z_remove_obj */
/*
* z_set_attr, set an object attribute.
*
* Process.zargs[0] = object
* Process.zargs[1] = number of attribute to set
*
*/
internal static void ZSetAttr()
{
zword obj_addr;
if (Main.StoryId == Story.SHERLOCK)
{
if (Process.zargs[1] == 48)
{
return;
}
}
if (Process.zargs[1] > ((Main.h_version <= ZMachine.V3) ? 31 : 47))
{
Err.RuntimeError(ErrorCodes.ERR_ILL_ATTR);
}
/* If we are monitoring attribute assignment display a short note */
if (Main.option_attribute_assignment == true)
{
Stream.StreamMssgOn();
Text.PrintString("@set_attr ");
Text.PrintObject(Process.zargs[0]);
Text.PrintString(" ");
Text.PrintNum(Process.zargs[1]);
Stream.StreamMssgOff();
}
if (Process.zargs[0] == 0)
{
Err.RuntimeError(ErrorCodes.ERR_SET_ATTR_0);
return;
}
/* Get attribute address */
obj_addr = (zword)(ObjectAddress(Process.zargs[0]) + Process.zargs[1] / 8);
/* Load attribute byte */
FastMem.LowByte(obj_addr, out zbyte value);
/* Set attribute bit */
value |= (zbyte)(0x80 >> (Process.zargs[1] & 7));
/* Store attribute byte */
FastMem.SetByte(obj_addr, value);
}/* z_set_attr */
}/* next_property */
/*
* unlink_object
*
* Unlink an object from its parent and siblings.
*
*/
private static void UnlinkObject(zword object_var)
{
zword parent_addr;
zword sibling_addr;
if (object_var == 0)
{
Err.RuntimeError(ErrorCodes.ERR_REMOVE_OBJECT_0);
return;
}
zword obj_addr = ObjectAddress(object_var);
if (Main.h_version <= ZMachine.V3)
{
zbyte zero = 0;
/* Get parent of object, and return if no parent */
obj_addr += O1_PARENT;
FastMem.LowByte(obj_addr, out byte parent);
if (parent == 0)
{
return;
}
/* Get (older) sibling of object and set both parent and sibling
* pointers to 0 */
FastMem.SetByte(obj_addr, zero);
obj_addr += (zword)(O1_SIBLING - O1_PARENT);
FastMem.LowByte(obj_addr, out byte older_sibling);
FastMem.SetByte(obj_addr, zero);
/* Get first child of parent (the youngest sibling of the object) */
parent_addr = (zword)(ObjectAddress(parent) + O1_CHILD);
FastMem.LowByte(parent_addr, out byte younger_sibling);
/* Remove object from the list of siblings */
if (younger_sibling == object_var)
{
FastMem.SetByte(parent_addr, older_sibling);
}
else
{
do
{
sibling_addr = (zword)(ObjectAddress(younger_sibling) + O1_SIBLING);
FastMem.LowByte(sibling_addr, out younger_sibling);
} while (younger_sibling != object_var);
FastMem.SetByte(sibling_addr, older_sibling);
}
}
else
{
zword zero = 0;
/* Get parent of object, and return if no parent */
obj_addr += O4_PARENT;
FastMem.LowWord(obj_addr, out zword parent);
if (parent == 0)
{
return;
}
/* Get (older) sibling of object and set both parent and sibling
* pointers to 0 */
FastMem.SetWord(obj_addr, zero);
obj_addr += (zword)(O4_SIBLING - O4_PARENT);
FastMem.LowWord(obj_addr, out ushort older_sibling);
FastMem.SetWord(obj_addr, zero);
/* Get first child of parent (the youngest sibling of the object) */
parent_addr = (zword)(ObjectAddress(parent) + O4_CHILD);
FastMem.LowWord(parent_addr, out ushort younger_sibling);
/* Remove object from the list of siblings */
if (younger_sibling == object_var)
{
FastMem.SetWord(parent_addr, older_sibling);
}
else
{
do
{
sibling_addr = (zword)(ObjectAddress(younger_sibling) + O4_SIBLING);
FastMem.LowWord(sibling_addr, out younger_sibling);
} while (younger_sibling != object_var);
FastMem.SetWord(sibling_addr, older_sibling);
}
}
}/* unlink_object */
