(* Copyright (C) 1990, Digital Equipment Corporation.         *)
(* All rights reserved.                                       *)
(* See the file COPYRIGHT for a full description.             *)

(* Last modified on Thu Jun 21 18:00:57 1990 by piet@cs.ruu.nl *)
(*      modified on Wed May 30 05:07:37 1990 by muller        *)

UNSAFE MODULE CoreOS (* for HP300 *);

IMPORT Word;

PROCEDURE sigmask (n: INTEGER): INTEGER =
BEGIN
  RETURN Word.Shift (1, n-1);
END sigmask;

BEGIN
END CoreOS.