ArrayShift3.cm
Last Edited by: Spreitzer, June 2, 1985 9:18:13 pm PDT
← &d ← CompareRead.ReadDesign["[Indigo]<Rosemary>Capt>Shift3M>ShiftCap3-Str.DF"]
← CompareNormal.CheckDesign[&d, check, ignore]
← &srwc ← CompareOps.ToType[&d, "SRWC[s1: 13, s2: 7]"]
← CompareRecognizeArrays.Arrayify[&srwc]
← &3bitsr ← CompareOps.ToType[&d, "NBitSR[n: 3]"]
← CompareRecognizeArrays.Arrayify[&3bitsr]
← CompareWrite.WriteDesign[&d, "Shift3A", "SA", "[Indigo]<Rosemary>Capt>"]
← &outer ← &3bitsr.asArray
← &inner ← &srwc.asArray
← CompareNestArrays.NestCellTypes[&3bitsr]