DIRECTORY TamarinOps, Ports; TamarinPorts: CEDAR DEFINITIONS = BEGIN Word: TYPE = TamarinOps.Word; 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 [value: BOOL _ FALSE]; SetP: PROC [p: Ports.Port, port: NAT, value: CARD]; 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]; PortToTamWord: PROC [p: Ports.Port, port: NAT] RETURNS [Word]; END. ͺTamarinPorts.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šžœœœ œ˜7K˜š žœœœœ œ˜@K˜—šžœœœœœ œœ˜LK˜—Jšžœœœ œ˜4K˜Kš žœœœœœ˜:K˜Kšžœœœœ˜6K˜Kšžœœœ˜'J˜Jš ž œœœœœ˜