PWCoreDecoder.cm
Copyright Ó 1985, 1987 by Xerox Corporation. All rights reversed.
Created by Bertrand Serlet, February 8, 1986 4:21:51 pm PST
Bertrand Serlet August 15, 1988 12:19:36 pm PDT
Install PWCore
← CoreProperties.StoreProperties[$CMosBObject, CoreProperties.PutProp[CoreProperties.FetchProperties[$CMosBObject], CoreProperties.propPrint, NIL]]
← CoreProperties.StoreProperties[$CMosBPins, CoreProperties.PutProp[CoreProperties.FetchProperties[$CMosBPins], CoreProperties.propPrint, NIL]]
← CoreProperties.StoreProperties[$CMosBGeometry, CoreProperties.PutProp[CoreProperties.FetchProperties[$CMosBGeometry], CoreProperties.propPrint, NIL]]
← CoreProperties.StoreProperties[$CMosBTrans, CoreProperties.PutProp[CoreProperties.FetchProperties[$CMosBTrans], CoreProperties.propPrint, NIL]]
Run -a PWCoreDecoder
← &ct ← PWCoreDecoder.AlpsDecoderFullArray[3]
← &obj1 ← PWCore.Layout[&ct]
← &ct ← PWCoreDecoder.AlpsDecoderFullArrayRowTiling[3]
← &obj2 ← PWCore.Layout[&ct]
← &ct ← PWCoreDecoder.AlpsDecoderFullArrayTiling[3]
← &obj3 ← PWCore.Layout[&ct]
← &ct ← PWCoreDecoder.AlpsDecoderFullArrayTiling[nbBits: 3, flatten: TRUE]
← &obj4 ← PWCore.Layout[&ct]
PW.Draw[PW.AbutX[&obj1, &obj2, &obj3, &obj4]]
← &ct ← PWCoreDecoder.Extract["TwoCascode"]
← &obj ← PWCore.Layout[&ct]
← &ct ← PWCoreDecoder.Extract["OneLine"]
← &obj ← PWCore.Layout[&ct]
← &ct1 ← PWCoreDecoder.alpsOne
← &ct2 ← PWCore.RotateCellType[&ct1, $FlipX]
PW.Draw[PW.AbutX[PWCore.Layout[&ct1], PWCore.Layout[&ct2]]]
← &ct ← PWCoreDecoder.AlpsDecoderFullArrayRowTiling[2]
← PWCore.Store[&ct]
← &obj ← PWCore.Layout[&ct]
← &ct ← PWCoreDecoder.AlpsDecoderFullArrayRowTiling[2]
← &ct.properties!
← &obj ← PWCore.Layout[&ct]
← &ct.properties!
← PWCore.Store[&ct, TRUE]
← &ct ← PWCore.Retrieve["AlpsDecoderFullArrayRowTiling"]
← &ct.properties!
← &obj ← PWCore.Layout[&ct]
PW.Draw[&obj]
← &ct ← PWCore.Retrieve["AlpsDecoderFullArrayRowTiling"]
← &obj ← PWCore.Layout[&ct]
PW.Draw[&obj]
← &ect ← Sinix.Extract[&obj, PWCore.extractMode].result
← &ect.class
← TerminalIO.PutF["\nNOW RECASTING!\n"]
← CoreOps.Recast[&ect]