CDBusses.mesa (part of Chipndale)
Copyright © 1983 by Xerox Corporation. All rights reserved.
by Christian Jacobi August 3, 1983 12:16 pm
last edited by Christian Jacobi October 20, 1983 5:00 pm
DIRECTORY
CD USING [DesignPosition, DesignNumber, ObPtr, Level, Design];
CDBusses: CEDAR DEFINITIONS =
BEGIN
BusPtr: TYPE = REF BusRec;
BusRec:
TYPE =
RECORD [
sizeOfFirst: CD.DesignPosition,
offsetOfFirst: CD.DesignPosition,
offset: CD.DesignPosition,
count: NAT,
lengIncrement: CD.DesignNumber
];
CreateBus:
PROC [sizeOfFirst:
CD.DesignPosition, lev:
CD.Level, count:
NAT, offset:
CD.DesignPosition, lengIncrement:
CD.DesignNumber𡤀]
RETURNS [
CD.ObPtr];
-- sizeOfFirst.x = width, sizeOfFirst.y = length of first wire
-- no wire is allowed to get size 0 or negative size
-- count <= 256
CreateBusCell:
PROC [design:
CD.Design, sizeOfFirst:
CD.DesignPosition, lev:
CD.Level, count:
NAT, offset:
CD.DesignPosition, lengIncrement:
CD.DesignNumber𡤀]
RETURNS [
CD.ObPtr];
-- sizeOfFirst.x = width, sizeOfFirst.y = length of first wire
END.