* Copyright (c) 1986 The Regents of the University of California.
* This code is derived from software contributed to Berkeley by
* %sccs.include.redist.c%
* @(#)Aloadr.c 7.1 (Berkeley) %G%
loadr(infop
) process_info
*infop
;
/* Load multiple registers.
/***************************************/
register long mask
, next_register
, new_address
;
mask
= operand(infop
,0)->data
& 0x3fff; /* Bits 0 to 13 only */
new_address
= operand(infop
,1)->address
;
next_register
= 0; /* Register # */
while (next_register
<= 13)
if (mask
& 1 << next_register
)
Replace (infop
, next_register
,
get_longword (infop
, new_address
));