
<<PCConex.mesa
Copyright Ó 1987 by Xerox Corporation.  All rights reserved.
Jean Gastinel,October 30, 1987 5:08:19 pm PST>>

<<
This interface is associated to the emulation of the PC>>
<<>>
    DIRECTORY
        Core,
        Ports,
        Rosemary;

    PCConex: CEDAR DEFINITIONS
    ~ BEGIN

        CellType : TYPE = Core.CellType;
        Wire: TYPE = Core.Wire;


        PCEmulState: TYPE = REF PCEmulRec;
        PCEmulRec: TYPE = RECORD[
            address: Ports.LevelSequence,
            dataout: Ports.LevelSequence,
            nIOWPC : Ports.Level,
            nIORPC: Ports.Level,
            datain: Ports.LevelSequence,
            ckin: Ports.Level,
            ADDRESS: NAT,
            DATAOUT: NAT,
            NIOWPC: NAT,
            NIORPC: NAT,
            DATAIN: NAT,
            CKIN: NAT,
            countcycle: NAT,
            labelcycle: NAT,
            testProcList: LIST OF REF ANY _ NIL
            ];
        PCEDef: PROC [] RETURNS [ct: CellType];
        PCEInit: Rosemary.InitProc;
        PCEEval: Rosemary.EvalProc;
    END.