EQT SGF CompareTransforms _ &d _ %CompareRead.ReadDesign["[Indigo]2.6>ShiftCap>ShiftCap-Dir.DF"] _ %CompareNormal.CheckDesign[&d, ignore] _ %CompareNormal.CheckDesign[&d, check] _ %CompareNormal.CheckDesign[&d, establish] _ %CompareWrite.WriteDesign[&d, "ShiftCapT0", "[Indigo]2.6>ShiftCap>"] open ShiftCapT0-Dir.DF _ &lowerAns _ LowerChildren[&d, "NBitSR[n: 5B (5)]", NamesListToSeq[&list[ [designed: &list["cnt"]] ]], VVSMapFromTIIlNames[&d, &list[["TopNBitSR[n: 5B (5)]", "shifter", &list["cntr"]]]], [DontNameNewPort, NIL]] _ %CompareWrite.WriteDesign[&d, "ShiftCapT1", "[Indigo]2.6>ShiftCap>"] open ShiftCapT1-Dir.DF _ &raiseAns _ RaiseGrandchildren[&d, &lowerAns.gcs, [NameNewPortFromOld, NIL]] _ %CompareWrite.WriteDesign[&d, "ShiftCapT2", "[Indigo]2.6>ShiftCap>"] open ShiftCapT2-Dir.DF _ ExpandChildren[&d, "NBitSR[n: 5B (5)]"] _ %CompareWrite.WriteDesign[&d, "ShiftCapT3", "[Indigo]2.6>ShiftCap>"] open ShiftCapT3-Dir.DF _ &raiseAns _ RaiseGrandchildren[&d, LIST[LIST["NBitSR[n: 5B (5)]", "SRWC0"], LIST["NBitSR[n: 5B (5)]", "SRWC1"]], [NameNewPortFromOldNet, NIL]] _ %CompareWrite.WriteDesign[&d, "ShiftCapT4", "[Indigo]2.6>ShiftCap>"] open ShiftCapT4-Dir.DF _ &lowerAns _ LowerChildren[&d, "NBitSR[n: 5B (5)]", NamesListToSeq[&list[[designed: &list["kownter"]], [designed: &list["srwc0"]]]], VVSMapFromTIIlNames[&d, &list[["TopNBitSR[n: 5B (5)]", "shifter", LIST["cntr", "shifter.SRWC0"]]]], [NameNewPortFromOldNet, NIL]] _ %CompareWrite.WriteDesign[&d, "ShiftCapT5", "[Indigo]2.6>ShiftCap>"] open ShiftCapT5-Dir.DF TShiftCapXForms.3 Last Edited by: Spreitzer, November 17, 1984 4:08:14 pm PST Κ½˜Icode™K™;K˜K˜K˜K˜PK˜(K˜'K˜+K˜PKšœ˜KšœΞΟkœ˜ΣK˜PKšœ˜KšœIœ˜NK˜PKšœ˜K˜)K˜PKšœ˜Kš œ%œœ œ9œ˜K˜PKšœ˜KšœΘœ6œ˜‡K˜PKšœ˜K˜—…—BS