IFUAsmLeftColumn.mesa
Copyright c 1985 by Xerox Corporation. All rights reserved.
Last Edited by Curry, January 9, 1986 3:22:16 pm PST
DIRECTORY
CD,
CDFrame,
Commander,
IFUAsm,
IFUPW,
Rope;
IFUAsmLeftColumn: CEDAR PROGRAM 
IMPORTS CDFrame, Commander, IFUAsm, IFUPW
EXPORTS IFUAsm =
BEGIN OPEN IFUAsm;
module:  Rope.ROPE ← "IFUAsmLeftColumn";
LeftColumn: PUBLIC IFUPW.Frame ← IFUPW.NFS[module, y, LIST[
CDFrame.Glue[name: "FetchTopExt",   t: ext, b: conn],
FetchControler,
CDFrame.Glue[name: "StackTopExt",   t: ext, b: conn],
StackControler,
CDFrame.Glue[name: "StatusTopExt",   t: conn, b: conn, r:diff],
StatusControl,
CDFrame.Glue[name: "InterlockTopExt",  t: ext, b: conn],
Interlock,
CDFrame.Glue[name: "InterlockBotExt",  t: conn, b: ext]
] ];
LeftColumnCT: Commander.CommandProc =
{IFUPW.AssembleFrame[IFUAsm.RefDesign[], LeftColumn, cmd ] };
LeftColumnCD: IFUPW.PWUserProc =
{RETURN[IFUPW.FrameToObject[LeftColumn, design]]};
Commander.Register  [proc:   LeftColumnCT, key: module];
IFUPW.Register   [userProc: LeftColumnCD, name: module];
END.