<> <> <> 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.