ShiftTest.cm

Last Edited by: Spreitzer, December 16, 1983 11:46 pm

Last Edited by: Barth, March 7, 1983 12:13 pm

@RoseSim.cm

@Shifting.roseLoad

← &both ← RoseCreate.CreateTopCell[instanceName: "shi4top", className: "TopNBitSR", decider: RoseCreate.DecideFromFile["shi4top.altexpand"], initData: Shifting.InitFor[4]]

← &disp ← RoseDisplayOps.NewDisplay[sim:&both.osim, info: [iconic: FALSE, name: "shi4top.Display"]]

← &bv ← RoseDisplayBrowsing.BrowseDisplay[display:&disp, info: [iconic: FALSE, name: "shi4top.Browser"]]