ShiftTest.cm
Last Edited by: Spreitzer, June 24, 1984 5:07:03 pm PDT
Last Edited by: Barth, March 7, 1983 12:13 pm
@RoseSim.cm
@Shifting.roseLoad
← &sim ← RoseCreate.CreateSim[TRUE]
← &topCell ← RoseCreate.CreateTopCell[instanceName: "shi4top", typeName: Shifting.TopNBitSR[[5]].name, decider: RoseCreate.DecideFromFile["shi4top.altexpand"], sim: &sim]
← &disp ← RoseDisplayOps.NewDisplay[sim:&sim, info: [iconic: FALSE, name: "shi4top.Display"]]
← &bv ← RoseDisplayBrowsing.BrowseDisplay[display:&disp, info: [iconic: FALSE, name: "shi4top.Browser"]]