DIRECTORY Ports, TamDefs, Rope; TamPorts: CEDAR DEFINITIONS = BEGIN Word: TYPE = TamDefs.Word; CharToLevel: PROC [ch: CHAR] RETURNS [level: Ports.Level]; SetPVal: PROC [p: Ports.Port, port: NAT, value: CARD]; GetPVal: PROC [p: Ports.Port, port: NAT] RETURNS [value: CARD]; HasXs: PUBLIC PROC [p: Ports.Port, port: NAT] RETURNS [xval: BOOL]; SetP: PROC [p: Ports.Port, port: NAT, value: CARD]; SetPWord: PROC [p: Ports.Port, port: NAT, value: Word]; ClrP: PROC [p: Ports.Port, port: NAT, xit: BOOL _ FALSE]; CheckP: PROC [p: Ports.Port, port: NAT, value: CARD]; SetX: PROC [p: Ports.Port, port: NAT]; PortToBool: PROC [p: Ports.Port, port: NAT] RETURNS [BOOL]; PortToNat: PROC [p: Ports.Port, port: NAT] RETURNS [NAT]; PortToCard: PROC [p: Ports.Port, port: NAT] RETURNS [CARD]; PortToWord: PROC [p: Ports.Port, port: NAT] RETURNS [Word]; RopeToLS: PROC [str: Rope.ROPE, ret: Ports.LevelSequence]; GoClock: PROC [p: Ports.Port, clock: NAT, eval: PROC [memory: BOOL _ TRUE], cycles: NAT _ 1, extraEval: BOOL _ FALSE]; END. ¦TamPorts.mesa Copyright Σ 1987 by Xerox Corporation. All rights reserved. April 6, 1987 6:26:24 pm PDT Last Edited by: Krivacic April 6, 1987 4:08:37 pm PDT Κ ˜JšœšΟk™J™š ˜ Jšœ˜—J˜J˜J˜šΟnœœ ˜J˜Jšœ˜J˜Icodešœœ œ˜K˜Kšž œœœœ˜;K˜Kšžœœœ œ˜7K˜š žœœœœ œ˜@K˜—š žœœœœœœ˜CK˜—Jšžœœœ œ˜4J˜Jšžœœœ˜8J˜Kš žœœœœœ˜:K˜Kšžœœœ œ˜6K˜Kšžœœœ˜'J˜Jš ž œœœœœ˜