xref: /csrg-svn/sys/tahoe/align/Amcom.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  *	@(#)Amcom.c	7.1 (Berkeley) 12/06/90
11*45760Sbostic  */
1229615Ssam 
1345699Sbostic #include "align.h"
mcom(infop)1429615Ssam mcom(infop)	process_info *infop;
1529615Ssam /*
1629615Ssam /*	Move complemented
1729615Ssam /*
1829615Ssam /************************************/
1929615Ssam {
2029615Ssam 	register	long	Register_12;	/* Has to be first reg ! */
2129615Ssam 	register	long	Register_11;
2229615Ssam 
2329615Ssam 	Register_12 = operand(infop, 0)->data;
2429615Ssam 	Register_11=psl;
2529615Ssam 	Set_psl(r11);	/* restore the user psl */
2629615Ssam 	asm ("	mcoml	r12,r11");
2729615Ssam 	asm ("	movpsl	r12");
2829615Ssam 	New_cc (Register_12);
2929615Ssam 	write_back (infop, Register_11, operand(infop,1));
3029615Ssam }
31