DIRECTORY BitOps, CoreCreate, CoreFlat, Ports, Rosemary, Sisyph, TilingClass;TRDecoder: CEDAR PROGRAMIMPORTS BitOps, CoreCreate, CoreFlat, Ports, Rosemary, Sisyph, TilingClass= BEGIN OPEN CoreCreate;DecoderArray: PROC [n: NAT, cx: Sisyph.Context] RETURNS [ct: CellType] ~ {dec0: CellType _ Sisyph.ES["Decode0.sch", cx];dec1: CellType _ Sisyph.ES["Decode1.sch", cx];decEn: CellType _ Sisyph.ES["DecodeEn.sch", cx];decWDrive: CellType _ Sisyph.ES["WriteDrive.sch", cx];decRDrive: CellType _ Sisyph.ES["ReadDrive.sch", cx];decLeft: CellType _ Sisyph.ES["DecoderLeft.sch", cx];a: NAT _ BitOps.NBits[n];	-- number of address bitsRA: Wire _ Seq["RA", a];nRA: Wire _ Seq["nRA", a];WA: Wire _ Seq["WA", a];nWA: Wire _ Seq["nWA", a];Rd: Wire _ Seq["Rd", n];Wr: Wire _ Seq["Wr", n];tileArray: TilingClass.TileArray _ NEW[TilingClass.TileArrayRec[n]];IF n=0 THEN ERROR; --Please specify the number of rowsFOR row: NAT IN [0..n) DO	-- create the rowstileArray[row] _ NEW[TilingClass.TileRowRec[2*a+4]];ENDLOOP;FOR row: NAT IN [0..n) DOtileArray[row][0] _ NEW[TilingClass.TileRec _ [type: decLeft, renaming: LIST[["Vdd", "Vdd"], ["Gnd", "Gnd"]] ]];FOR i: NAT IN [0..a) DO	-- column 0 is on the lefttileArray[row][i+1] _ NEW[TilingClass.TileRec _ [type: IF BitOps.EBFW[row, i, a] THEN dec1 ELSE dec0,renaming: LIST[["Vdd", "Vdd"], ["Gnd", "Gnd"], ["A", RA[i]], ["nA", nRA[i]]]]];ENDLOOP;tileArray[row][a+1] _ NEW[TilingClass.TileRec _ [type: decRDrive, renaming: LIST[["Vdd", "Vdd"], ["Gnd", "Gnd"], ["out", Rd[row]]] ]];tileArray[row][a+2] _ NEW[TilingClass.TileRec _ [type: decEn, renaming: LIST[["Vdd", "Vdd"], ["Gnd", "Gnd"], ["wEn", "wEn"]] ]];FOR i: NAT IN [0..a) DO	-- column 0 is on the lefttileArray[row][i+a+3] _ NEW[TilingClass.TileRec _ [type: IF BitOps.EBFW[row, i, a] THEN dec1 ELSE dec0,renaming: LIST[["Vdd", "Vdd"], ["Gnd", "Gnd"], ["A", WA[i]], ["nA", nWA[i]]]]];ENDLOOP;tileArray[row][2*a+3] _ NEW[TilingClass.TileRec _ [type: decWDrive, renaming: LIST[["Vdd", "Vdd"], ["Gnd", "Gnd"], ["out", Wr[row]], ["CK", "CK"]] ]];ENDLOOP;ct _ TilingClass.CreateTiling[name: "DecoderArray",public: Wires[nRA, RA, nWA, WA, "wEn", "CK", Rd, Wr, "Vdd", "Gnd"], tileArray: tileArray,neighborX: TilingClass.LayoutNeighborX,neighborY: TilingClass.LayoutNeighborY];[] _ Rosemary.BindCellType[ct, "DPDecoderSeq"];[] _ CoreFlat.CellTypeCutLabels[ct, "DPMacro"];Ports.InitPorts[ct, l, none, "Vdd", "Gnd", "wEn", "CK"];Ports.InitPorts[ct, ls, none, "nRA", "RA", "nWA", "WA"];Ports.InitPorts[ct, ls, drive, "Rd", "Wr"];};END.    ‚  TRDecoder.mesaCopyright c 1986 by Xerox Corporation.  All rights reserved.Decoder-- from the bottom up: rows 0, ... n-1Ê$  –"cedar" style˜ codešœ™Kšœ
Ïmœ1™<K™ —KšÏk	œD˜MK˜ •StartOfExpansion[]šÏn	œžœž˜KšžœC˜JKšœžœžœ˜—head™šŸœžœžœžœ˜JKšœžœ˜.Kšœžœ˜.Kšœžœ˜0Kšœžœ˜6Kšœžœ˜5Kšœžœ˜5KšœžœÏc˜3Kšœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ˜šœ#žœ˜DKš &™&—Kšžœžœžœ #˜6š	žœžœžœžœ ˜,Kšœžœ ˜4Kšžœ˜—šžœžœžœž˜šœžœ˜/Kšœžœ$˜A—š	žœžœžœžœ ˜2šœžœ˜1Kš	œžœžœžœžœ˜4Kšœ
žœ>˜LKšœ˜—Kšžœ˜—šœžœ˜1Kšœ˜Kšœ
žœ6˜D—šœžœ˜1Kšœ˜Kšœ
žœ4˜B—š	žœžœžœžœ ˜2šœžœ˜3Kš	œžœžœžœžœ˜4Kšœ
žœ>˜LKšœ˜—Kšžœ˜—šœžœ˜3Kšœ˜Kšœ
žœD˜R—Kšžœ˜—K˜ šœ˜Kšœ˜KšœD˜DKšœ˜Kšœ'˜'Kšœ&˜&Kšœ˜—Kšœ/˜/K˜/Kšœ8˜8Kšœ8˜8Kšœ+˜+K˜K˜ —K˜ —K˜ Kšžœ˜K˜ K˜ — …—    
  ¸  