
<<IFUSrc.mesa>>
<<Copyright c 1985, 1986 by Xerox Corporation.  All rights reserved.>>
<<Last Edited by Curry, September 22, 1986 11:22:11 am PDT>>
<<>>
DIRECTORY Core, CoreName, DragOpsCross;

IFUSrc: CEDAR DEFINITIONS =    
BEGIN

ROPE:                    TYPE = Core.ROPE;
ifuContext:            CoreName.Context;

Rollback: SIGNAL[name: ROPE];

DriverModuleProc: TYPE = PROC [sIn: ROPE, altOut: ROPE _ NIL]
RETURNS [cellType: Core.CellType, sOut: ROPE];

Complete:            PROC                    RETURNS [cellType: Core.CellType];

PadTop:                PROC                    RETURNS [cellType: Core.CellType];
PadHeart:            PROC                    RETURNS [cellType: Core.CellType];
PadBot:                PROC                    RETURNS [cellType: Core.CellType];

PadLt:                PROC                    RETURNS [cellType: Core.CellType];
Heart:                PROC                    RETURNS [cellType: Core.CellType];
PadRt:                PROC                    RETURNS [cellType: Core.CellType];

LeftColumn:        PROC                    RETURNS [cellType: Core.CellType];
DataColumn:        PROC                    RETURNS [cellType: Core.CellType];
RightColumn:        PROC                    RETURNS [cellType: Core.CellType];

FetchIndexing:    PROC                    RETURNS [cellType: Core.CellType];
FetchControler:    DriverModuleProc;
LtDrPadIO:            DriverModuleProc;
StackControler:    DriverModuleProc;
Interlock:            DriverModuleProc;
MainPipeControl:    DriverModuleProc;
StackIndexing:        PROC                    RETURNS [cellType: Core.CellType];

InstrDecode:        DriverModuleProc;
RtDrPadIO:            DriverModuleProc;

Fetch:                PROC                    RETURNS [cellType: Core.CellType];
FetchBuf:            PROC                    RETURNS [cellType: Core.CellType];
XaForm:                PROC                    RETURNS [cellType: Core.CellType];
PCFormTop:        PROC                    RETURNS [cellType: Core.CellType];
PCFormBot:            PROC                    RETURNS [cellType: Core.CellType];
StackBuf:            PROC                    RETURNS [cellType: Core.CellType];
LSForm:                PROC                    RETURNS [cellType: Core.CellType];
ABForm:            PROC                    RETURNS [cellType: Core.CellType];
ControlPipe:        PROC                    RETURNS [cellType: Core.CellType];

ProcRegToList:    PROC [reg: DragOpsCross.ProcessorRegister] RETURNS[LIST OF REF];
CardToList:            PROC [val, size: CARDINAL] RETURNS[new: LIST OF REF];

dShIn:            ROPE;
dShLeftOut:        ROPE;
dShRightOut:    ROPE;
dShOut:            ROPE;

END.