CoreTest.cm
Copyright © 1985 by Xerox Corporation. All rights reserved.
Barth, November 7, 1985 5:50:21 pm PST
Louis Monier October 23, 1985 3:19:19 pm PDT
Bertrand Serlet December 8, 1985 5:20:28 pm PST
CDCmosA
Onion
Rosemary
Sinix
run -a SSI
run -a CrossRAMImpl CrossRAMPads CrossRAMTop CrossRAMDataBuffer CrossRAMDecoder CrossRAMRAM CrossRAMBottom
← &context ← CoreCompose.CreateContext[]
← CoreCompose.RegisterBoolProperty[$Rosemary]
← CoreCompose.PushBool[&context, $Rosemary, FALSE]
← CoreCompose.RegisterBoolProperty[$PWCore]
← CoreCompose.PushBool[&context, $PWCore, TRUE]
← CoreCompose.RegisterBoolProperty[$Sinix]
← CoreCompose.PushBool[&context, $Sinix, TRUE]
← CoreCompose.RegisterRefProperty[$sourceCDDesign]
← &sourceCDDesign ← PW.OpenDesign["CrossRAMCellLibrary"]
← &via ← CDDirectory.Fetch[&sourceCDDesign, "Via"].object
← IF &via=NIL THEN ERROR ELSE NIL
← CDProperties.PutPropOnObject[&via, Sinix.extractProcProp, NEW [Sinix.ExtractProc ← SinixCMos.PseudoCellWellExtract]]
← &via1 ← CDDirectory.Fetch[&sourceCDDesign, "Via@1"].object
← IF &via1=NIL THEN ERROR ELSE NIL
← CDProperties.PutPropOnObject[&via1, Sinix.extractProcProp, NEW [Sinix.ExtractProc ← SinixCMos.PseudoCellWellExtract]]
← CoreCompose.PushRef[&context, $sourceCDDesign, &sourceCDDesign]
date
← &ct ← CoreCompose.CreateStructure["CrossRAM", &context]
date
← &layout ← PWCore.GetLayout[&ct]
← &design ← PW.Draw[&layout]
← PW.IncludeRecursiveInDesign[&design]
-- ← CDIO.WriteDesign[&design, "CrossRAM3"]