/*-
 * Copyright (c) 1986 The Regents of the University of California.
 * All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Computer Consoles Inc.
 *
 * %sccs.include.redist.c%
 *
 *	@(#)Awrite_long.c	7.1 (Berkeley) 12/06/90
 */

#include	"align.h"

write_longword (infop, longword, where)
process_info	*infop;
long		longword;
struct oprnd 	*where;
/*
/*	Put the longword at the given address in
/*	tahoe's memory.
/*
/**************************************************/
{
	if (! (where->mode & W)) exception(infop, ILL_ADDRMOD);
	switch (where->mode & ADDFIELD)	/* Mask out R/W bits */
	{
	case Add:
	case SPmode:
		put_longword (infop, longword, where->address);
		break;
	case Dir:
		Replace (infop, where->reg_number, longword);
		break;
	default:
		printf("Unknown destination in write_long (alignment code)\n");
	};
}