IFUAsmMainControl.mesa
Copyright c 1985 by Xerox Corporation. All rights reserved.
Last Edited by Curry, January 7, 1986 9:48:37 pm PST
DIRECTORY CDFrame, Commander, IFUAsm, IFUPW, IFUPWControl;
IFUAsmMainControl: CEDAR PROGRAM 
IMPORTS CDFrame, Commander, IFUAsm, IFUPW, IFUPWControl
EXPORTS IFUAsm =
BEGIN OPEN IFUPWControl;
module:  IFUPW.ROPE ← "IFUAsmMainControl";
MainControlProc: CDFrame.ExpandProc =
{new ← MakePLA["MainControl", precharged, BA, B, BA, A, AB, design, 0, 1, TRUE,
20]};
MainControl: PUBLIC Frame ← IFUPW.NFS[module, y, LIST[
IFUPWControl.DriverFill[],
CDFrame.NewExpandFrame[module, MainControlProc] ] ];
MainControlCT: Commander.CommandProc =
{IFUPW.AssembleFrame[IFUAsm.RefDesign[], MainControl, cmd ] };
MainControlCD: IFUPW.PWUserProc =
{RETURN[IFUPW.FrameToObject[MainControl, design]]};
Commander.Register  [proc:   MainControlCT,  key: module];
IFUPW.Register   [userProc: MainControlCD,  name: module];
END.