M : MASK
procedure
SET_MASK; pragma
INLINE(SET_MASK);procedure
SET_MASK is
use
MACHINE_CODE;
begin
SI_FORMAT'(CODE => SSM, B => M'BASE_REG, D => M'DISP);
-- M'BASE_REG and M'DISP are implementation-specific
-- predefined attributes
end
;