xref: /csrg-svn/sys/tahoe/align/Amova.c (revision 45760)
1*45760Sbostic /*-
2*45760Sbostic  * Copyright (c) 1986 The Regents of the University of California.
3*45760Sbostic  * All rights reserved.
4*45760Sbostic  *
5*45760Sbostic  * This code is derived from software contributed to Berkeley by
6*45760Sbostic  * Computer Consoles Inc.
7*45760Sbostic  *
8*45760Sbostic  * %sccs.include.redist.c%
9*45760Sbostic  *
10*45760Sbostic  *	@(#)Amova.c	7.1 (Berkeley) 12/06/90
11*45760Sbostic  */
1229617Ssam 
1345699Sbostic #include "align.h"
mova(infop)1429617Ssam mova(infop) 	process_info *infop;
1529617Ssam /*
1629617Ssam /*	Move operand address
1729617Ssam /*
1829617Ssam /****************************************/
1929617Ssam {
2029617Ssam 	register	long	Register_12;	/* Has to be first reg ! */
2129617Ssam 	register	long	Register_11;
2229617Ssam 
2329617Ssam 	Register_12 = operand(infop, 0)->address;
2429617Ssam 	Register_11=psl;
2529617Ssam 	Set_psl(r11);	/* restore the user psl */
2629617Ssam 	asm ("	movab	(r12),r11");	/* Moves original addr to r11 */
2729617Ssam 	asm ("	movpsl	r12");
2829617Ssam 	New_cc (Register_12);
2929617Ssam 	write_back (infop, Register_11, operand(infop,1));
3029617Ssam }
31