DIRECTORY CD, CDFrame, Commander, IFUAsm, IFUPW, IFUPWControl; IFUAsmFetchControler: CEDAR PROGRAM IMPORTS CDFrame, Commander, IFUAsm, IFUPW, IFUPWControl EXPORTS IFUAsm = BEGIN OPEN IFUAsm, IFUPWControl, CDF: CDFrame; module: ROPE _ "IFUAsmFetchControler"; FetchRdDecodeProc: CDF.ExpandProc = {new _ MakePLA["FetchRdDecode", static, BA, B, BA, B, Ac, design]}; FetchWtDecodeProc: CDF.ExpandProc = {new _ MakePLA["FetchWtDecode", static, AB, A, AB, A, Bc, design]}; FetchControlProc: CDF.ExpandProc = {new _ MakePLA["FetchControl", static, BA, B, BA, A, AB, design, 0, 2]}; FetchPreDecodeProc: CDF.ExpandProc = {new _ MakePLA["FetchPreDecode", static, AB, A, AB, A, AB, design, 0, 2]}; FetchControler: PUBLIC Frame _ IFUPW.NFS[module, y, LIST[ IFUPWControl.DriverFill[], CDF.NewExpandFrame["FetchRdDecode", FetchRdDecodeProc], IFUPWControl.DriverFill[], CDF.NewExpandFrame["FetchWtDecode", FetchWtDecodeProc], IFUPWControl.DriverFill[], IFUPW.NFS["FetchIndexingFillx", x, LIST[ CDF.Glue[l: ext, r: conn], IFUPW.NFS["FetchIndexing", y, LIST[ IFUPWControl.DriverFill[], CDF.Glue[b: conn, t: conn, r:diff], FetchIndexing, CDF.Glue[b: conn, t: conn, r:diff], IFUPWControl.DriverFill[] ]] ]], IFUPWControl.DriverFill[], CDF.NewExpandFrame["FetchControl", FetchControlProc], IFUPWControl.DriverFill[], CDF.NewExpandFrame["FetchPreDecode", FetchPreDecodeProc], IFUPWControl.DriverFill[] ] ]; FetchControlerCT: Commander.CommandProc = {IFUPW.AssembleFrame[IFUAsm.RefDesign[], FetchControler, cmd ] }; FetchControlerCD: IFUPW.PWUserProc = {RETURN[CDF.FrameToObject[FetchControler, design]]}; Commander.Register [proc: FetchControlerCT, key: module]; IFUPW.Register [userProc: FetchControlerCD, name: module]; END. ”IFUAsmFetchControler.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Last Edited by Curry, January 23, 1986 6:46:43 pm PST Ê[˜šœ™Jšœ<™J˜šœœœ˜$Jšœœ˜7Jšœ ˜Jšœœœ ˜.J˜Jšœ œ˜'J˜šÏbœœ˜$Jšœž œ œœ˜DJ˜—šžœœ˜$Jšœž œ œœ˜DJ˜—šžœœ˜#Jš œž œ œœœ˜JJ˜—šžœœ˜%Jš œžœ œœœ˜K—J˜J˜š œœ œœ œ˜9Jšœ˜Jšœž œžœ˜7Jšœ˜Jšœž œžœ˜7Jšœ˜šœœžœœ˜(Jšœ˜šœœž œœ˜#Jšœ˜Jšœ ˜#Jšœ˜Jšœ ˜#Jšœ!˜!——Jšœ˜Jšœž œ˜5Jšœ˜Jšœžœ˜9Jšœ˜—J˜šœ)˜)Jšœœ;˜A—šœœ ˜$Jšœœœ*˜5—J˜Jšœ<˜