--LTComSoftOps.mesa - last edited
-- Bruce	31-May-83 21:05:03
-- JFung.pasa	29-Aug-84 11:10:09

DIRECTORY
     Atom USING [ATOM],
     DESFace USING [Key],
     TIP USING [Table];

LTComSoftOps: DEFINITIONS =
     BEGIN

     key: READONLY DESFace.Key;

     abortAtom, diagnosticAtom, lispAtom, lispToolAtom, tajoAtom: READONLY Atom.ATOM;
     comTip: READONLY TIP.Table;

     Random: PROC [high: CARDINAL] RETURNS [CARDINAL -- IN [0..high] -- ];

     -- create/delete a space with 1 page swap units
     CreateSpace: PROC [nPages: CARDINAL] RETURNS [LONG POINTER];
     DeleteSpace: PROC [LONG POINTER];

     PagesForWords: PROC [nWords: CARDINAL] RETURNS [CARDINAL];

     END.