Arbiter25Mint.cm
Last Edited by: McCreight October 16, 1987 7:01:45 pm PDT
install ArbBasic25
Mint
← CedarProcess.SetPriority[background]
← &design ← PW.OpenDesign["Arbiter25.dale"]
-- ← &design ← CDViewer.FindDesign["MemoryController"]
-- ← CDViewer.CreateViewer[&design]
← CDOps.SetMutability[&design]
← &cx ← Sisyph.Create[&design, NIL]
← &arb ← Sisyph.ES["Arbiter.sch", &cx]
← Atom.PutProp[$CoreCellType, $Arbiter, &arb]
← &defaultCapa ← 0.5 -- pf
← &circuit ← Mint.CreateCircuit[&arb, FALSE, &defaultCapa]
-- ← &gnd2V ← Mint.NodeFromRope["public.Gnd2V", &circuit]
-- ← Mint.SetNode[&gnd2V, FALSE]
← Mint.InputData[&circuit, LIST[Mint.NodeFromRope["public.Gnd", &circuit], -- &gnd2V, -- Mint.NodeFromRope["public.Vdd", &circuit]], FALSE, &defaultCapa]
← &result ← Mint.MaxFreqEvaluate[&circuit, LIST[Mint.NodeFromRope["public.Clock", &circuit], Mint.NodeFromRope["public.DBus[6]", &circuit]], 50]
← Mint.PrintPath[&result.lastNodes.first, &circuit]
-- ← Mint.PrintPath[Mint.NodeFromRope["wireName", &circuit], &circuit]