1*29615Ssam /* Amcom.c 1.1 86/07/20 */ 2*29615Ssam 3*29615Ssam #include "../tahoealign/align.h" 4*29615Ssam mcom(infop) process_info *infop; 5*29615Ssam /* 6*29615Ssam /* Move complemented 7*29615Ssam /* 8*29615Ssam /************************************/ 9*29615Ssam { 10*29615Ssam register long Register_12; /* Has to be first reg ! */ 11*29615Ssam register long Register_11; 12*29615Ssam 13*29615Ssam Register_12 = operand(infop, 0)->data; 14*29615Ssam Register_11=psl; 15*29615Ssam Set_psl(r11); /* restore the user psl */ 16*29615Ssam asm (" mcoml r12,r11"); 17*29615Ssam asm (" movpsl r12"); 18*29615Ssam New_cc (Register_12); 19*29615Ssam write_back (infop, Register_11, operand(infop,1)); 20*29615Ssam } 21