IFUAsmInterlock.mesa
Copyright c 1985 by Xerox Corporation. All rights reserved.
Last Edited by Curry, January 9, 1986 8:22:57 pm PST
DIRECTORY CDFrame, Commander, IFUAsm, IFUPW, IFUPWControl;
IFUAsmInterlock: CEDAR PROGRAM 
IMPORTS CDFrame, Commander, IFUAsm, IFUPW, IFUPWControl
EXPORTS IFUAsm =
BEGIN OPEN IFUPWControl;
module:  IFUPW.ROPE ← "IFUAsmInterlock";
InterlockProc: CDFrame.ExpandProc =
{new ← MakePLA["Interlock", static, AB, A, AB, A, AB, design, 0, 2]};
{new ← MakePLA["Interlock", decoder, AB, A, AB, A, AB, design]};
Interlock: PUBLIC Frame ← IFUPW.NFS[module, y, LIST[
IFUPWControl.DriverFill[],
CDFrame.NewExpandFrame[module, InterlockProc] ] ];
InterlockCT: Commander.CommandProc =
{IFUPW.AssembleFrame[IFUAsm.RefDesign[], Interlock, cmd ] };
InterlockCD: IFUPW.PWUserProc =
{RETURN[IFUPW.FrameToObject[Interlock, design]]};
Commander.Register  [proc:   InterlockCT,  key: module];
IFUPW.Register   [userProc: InterlockCD,  name: module];
END.