/* Amova.c 1.2 90/12/04 */
mova(infop
) process_info
*infop
;
/****************************************/
register long Register_12
; /* Has to be first reg ! */
register long Register_11
;
Register_12
= operand(infop
, 0)->address
;
Set_psl(r11
); /* restore the user psl */
asm (" movab (r12),r11"); /* Moves original addr to r11 */
write_back (infop
, Register_11
, operand(infop
,1));