DIRECTORY Basics, CD, CDPinObjects, Core, CoreClasses, CoreCompose, CoreFlatten, CoreOps, CoreProperties, IO, PW, PWCore, PWPins, Rope, Rosemary, Sinix;

CrossRAMDecoder: CEDAR PROGRAM
IMPORTS Basics, CDPinObjects, CoreCompose, CoreFlatten, CoreProperties, IO, PW, PWCore, PWPins, Rope, Rosemary, Sinix = 
BEGIN OPEN CoreCompose;

Wire: TYPE = Core.Wire;

Decoder: ROPE = RegisterStructureProc[name: "Decoder", proc: CreateDecoder];
CreateDecoder: StructureProc = {
rowQuads: INT _ GetInt[context, $rowQuads];
rowPairs: INT _ 2*rowQuads;
nRopesVdd: ROPE _ "Vdd";
nRopesGnd: ROPE _ "Gnd";
FOR row: INT IN (0 .. rowPairs) DO
nRopesVdd _ Rope.Cat[nRopesVdd, ", Vdd"];
ENDLOOP;
FOR row: INT IN (0 .. rowPairs) DO
nRopesGnd _ Rope.Cat[nRopesGnd, ", Gnd"];
ENDLOOP;
RegisterIntProperty[prop: $andDecoderBits];
RegisterIntProperty[prop: $rowPairs];
PushInt[context: context, prop: $andDecoderBits, val: GetInt[context, $addressDecoderBits]-1];
PushInt[context: context, prop: $rowPairs, val: rowPairs];
cellType _ CreateRecordCell[
name: Decoder,
context: context,
public: CreateWires[context, "Vdd, Gnd, VddMiddle, VddRight, GndLeft, GndMiddle, AccessB, AdrBit[seq: addressDecoderBits], nAdrBit[seq: addressDecoderBits], Word[seq: 4*rowQuads]"],
onlyInternal: CreateWires[context, "nDecode[seq: 2*rowQuads]"],
instances: LIST [
[type: CreateStructure[name: "DecoderLeftColumn", context: context]],
[type: CreateStructure[name: "DecoderAndPlane", context: context], 
actual: IO.PutFR["Vdd: [%g], Gnd: [%g], AdrBit: AdrBit[start: 0, len: andDecoderBits], nAdrBit: nAdrBit[start: 0, len: andDecoderBits], nDecodeVdd: nDecode, nDecodeGnd: nDecode", IO.rope[nRopesVdd], IO.rope[nRopesGnd]]], 
[type: CreateStructure[name: "DecoderRightColumn", context: context], actual: IO.PutFR["Vdd: [%g]", IO.rope[nRopesVdd]]],
[type: CreateStructure[name: "DecoderLogicColumn", context: context],
actual: "Vdd: VddMiddle, VddLeft: Vdd, Gnd: GndMiddle, TreeSelect: [AdrBit[addressDecoderBits-1], nAdrBit[addressDecoderBits-1]]"]
]
];
IF GetBool[context, $PWCore] THEN PWCore.SetAbutX[cellType: cellType];
IF GetBool[context, $Sinix] THEN [] _ Sinix.Extract[PWCore.GetLayout[cellType]];
};

DecoderRow: ROPE = RegisterStructureProc[name: "DecoderRow", proc: CreateDecoderRow];
CreateDecoderRow: StructureProc = {
andDecoderBits: INT _ GetInt[context, $andDecoderBits];
row: INT _ GetInt[context, $row];
design: CD.Design _ NARROW[GetRef[context, $sourceCDDesign]];
dec0: PW.Object _ PW.Get[design, "DecoderZero"];
dec1: PW.Object _ PW.Get[design, "DecoderOne"];
DecoderSelect: PW.XYFunction ={
RenameEach: PWPins.ChangePinProc = {
name: ROPE _ CDPinObjects.GetName[oldPin];
 SELECT TRUE FROM
Rope.Equal[name, "nDecodeGnd"] OR Rope.Equal[name, "nDecodeVdd"] OR Rope.Equal[name, "Vdd"] OR Rope.Equal[name, "Gnd"] => newPin _ PWPins.CopyInstance[oldPin];
Rope.Equal[name, "AdrBit"] OR Rope.Equal[name, "nAdrBit"] => {
newPin _ PWPins.CopyInstance[oldPin];
CDPinObjects.SetName[newPin, Rope.Cat[name, "[", IO.PutR[IO.int[x]], "]"]];
};
ENDCASE		=> ERROR;
};
oddBit: BOOL _ PW.XthBitOfN[x, row];
resultingOb _ IF oddBit THEN dec1 ELSE dec0;
resultingOb _ PWPins.ChangePins[NIL, resultingOb, RenameEach];
};
actual: ROPE _ "Input: [";
FOR bit: INT IN [0 .. andDecoderBits) DO
actual _ Rope.Cat[actual, IO.PutFR["%gAdrBit[%g]", IO.rope[IF Basics.BITAND[Basics.BITSHIFT[row, bit-andDecoderBits+1], 1]#0 THEN NIL ELSE "n"], IO.int[bit]]];
IF bit<andDecoderBits-1 THEN actual _ Rope.Cat[actual, ", "];
ENDLOOP;
cellType _ CreateRecordCell[
name: DecoderRow,
context: context,
public: CreateWires[context, "Vdd, Gnd, AdrBit[seq: andDecoderBits], nAdrBit[seq: andDecoderBits], nDecodeGnd, nDecodeVdd"],
instances: LIST [
[type: CreateStructure[name: "NAnd", context: context], 
actual: Rope.Cat[actual, "], nOutput: nDecodeGnd"]], 
[type: CreateStructure[name: "NAnd", context: context], 
actual: Rope.Cat[actual, "], nOutput: nDecodeVdd"]]
]
];
IF GetBool[context, $PWCore] THEN PWCore.SetLayout[cellType, PWCore.LabelPins[cellType.public, PW.MapFunctionX[NIL, DecoderSelect, 0, andDecoderBits]]];
IF GetBool[context, $Sinix] THEN [] _ Sinix.Extract[PWCore.GetLayout[cellType]];
};

DecoderAndPlane: ROPE = RegisterStructureProc[name: "DecoderAndPlane", proc: CreateDecoderAndPlane];
CreateDecoderAndPlane: StructureProc = {
rowPairs: INT _ GetInt[context, $rowPairs];
andDecoderBits: INT _ GetInt[context, $andDecoderBits];
instances: InstanceList _ NIL;
RegisterIntProperty[prop: $row];
PushInt[context: context, prop: $SSIInputCount, val: GetInt[context, $andDecoderBits]];
PushInt[context: context, prop: $SSIWidth, val: 4];
PushReal[context: context, prop: $SSIRatio, val: 2.5];
FOR row: INT IN [0..rowPairs) DO	-- decreasing?
PushInt[context: context, prop: $row, val: row];
instances _ CONS[
[actual: IO.PutFLR["Vdd: Vdd[%g], Gnd: Gnd[%g], nDecodeVdd: nDecodeVdd[%g], nDecodeGnd: nDecodeGnd[%g]", LIST [IO.int[row], IO.int[row], IO.int[row], IO.int[row]]], 
type: CreateStructure[name: "DecoderRow", context: context]], 
instances];
ENDLOOP;
cellType _ CreateRecordCell[
name: DecoderAndPlane,
context: context,
public: CreateWires[context, 
"Vdd[seq: rowPairs], Gnd[seq: rowPairs], AdrBit[seq: andDecoderBits], nAdrBit[seq: andDecoderBits], nDecodeVdd[seq: rowPairs], nDecodeGnd[seq: rowPairs]"],
instances: instances];
IF GetBool[context, $PWCore] THEN PWCore.SetAbutFlipY[cellType: cellType, flip: FALSE]; 
IF GetBool[context, $Sinix] THEN [] _ Sinix.Extract[PWCore.GetLayout[cellType]];
};
DecoderLeftColumn: ROPE = RegisterStructureProc[name: "DecoderLeftColumn", proc: CreateDecoderLeftColumn];
CreateDecoderLeftColumn: StructureProc = {
cellType _ CreateSequenceCell[
name: DecoderLeftColumn,
baseCell: CreateStructure[name: DecoderLeftPair, context: context],
count: GetInt[context: context, prop: $rowQuads]];
IF GetBool[context, $PWCore] THEN PWCore.SetArrayY[cellType: cellType];
IF GetBool[context, $Sinix] THEN [] _ Sinix.Extract[PWCore.GetLayout[cellType]];
};

DecoderLeftPair: ROPE = RegisterStructureProc[name: "DecoderLeftPair", proc: CreateDecoderLeftPair];
CreateDecoderLeftPair: StructureProc = {
decoderLeft: Core.CellType _ CreateStructure[name: "DecoderLeft", context: context];
cellType _ CreateRecordCell[
name: DecoderLeftPair,
context: context,
public: CreateWires[context, "Vdd, Gnd"],
instances: LIST [
[type: decoderLeft],
[type: decoderLeft]]];
IF GetBool[context, $PWCore] THEN PWCore.SetAbutFlipY[cellType: cellType, flip: FALSE];
IF GetBool[context, $Sinix] THEN [] _ Sinix.Extract[PWCore.GetLayout[cellType]];
};

DecoderLeft: ROPE = RegisterStructureProc[name: "DecoderLeft", proc: CreateDecoderLeft];
CreateDecoderLeft: StructureProc = {
cellType _ CreateRecordCell[
name: DecoderLeft,
context: context,
public: CreateWires[context, "Vdd, Gnd"]];
IF GetBool[context, $PWCore] THEN PWCore.SetGet[cellType: cellType, source: NARROW[GetRef[context, $sourceCDDesign]]];
IF GetBool[context, $Sinix] THEN [] _ Sinix.Extract[PWCore.GetLayout[cellType]];
};

DecoderRightColumn: ROPE = RegisterStructureProc[name: "DecoderRightColumn", proc: CreateDecoderRightColumn];
CreateDecoderRightColumn: StructureProc = {
cellType _ CreateSequenceCell[
name: DecoderRightColumn,
baseCell: CreateStructure[name: "DecoderRightPair", context: context],
count: GetInt[context: context, prop: $rowQuads],
sequencePorts: "nDecode, Vdd"];
IF GetBool[context, $PWCore] THEN PWCore.SetArrayY[cellType: cellType];
IF GetBool[context, $Sinix] THEN [] _ Sinix.Extract[PWCore.GetLayout[cellType]];
};

DecoderRightPair: ROPE = RegisterStructureProc[name: "DecoderRightPair", proc: CreateDecoderRightPair];
CreateDecoderRightPair: StructureProc = {
decoderRight: Core.CellType _ CreateStructure[name: "DecoderRight", context: context];
cellType _ CreateRecordCell[
name: DecoderRightPair,
context: context,
public: CreateWires[context, "Vdd[seq: 2], nDecode[seq: 2]"],
instances: LIST [
[actual: "Vdd: Vdd[0], nDecode: nDecode[0]",
type: decoderRight],
[actual: "Vdd: Vdd[1], nDecode: nDecode[1]",
type: decoderRight]]];
IF GetBool[context, $PWCore] THEN PWCore.SetAbutFlipY[cellType: cellType, flip: FALSE];
IF GetBool[context, $Sinix] THEN [] _ Sinix.Extract[PWCore.GetLayout[cellType]];
};

DecoderRight: ROPE = RegisterStructureProc[name: "DecoderRight", proc: CreateDecoderRight];
CreateDecoderRight: StructureProc = {
cellType _ CreateRecordCell[
name: DecoderRight,
context: context,
 public: CreateWires[context, "Vdd, nDecode"]];
IF GetBool[context, $PWCore] THEN PWCore.SetGet[cellType: cellType, source: NARROW[GetRef[context, $sourceCDDesign]]];
IF GetBool[context, $Sinix] THEN [] _ Sinix.Extract[PWCore.GetLayout[cellType]];
};

DecoderLogicColumn: ROPE = RegisterStructureProc[name: "DecoderLogicColumn", proc: CreateDecoderLogicColumn];
CreateDecoderLogicColumn: StructureProc = {
cellType _ CreateSequenceCell[
name: DecoderLogicColumn,
baseCell: CreateStructure[name: DecoderLogicPair, context: context],
count: GetInt[context: context, prop: $rowQuads],
sequencePorts: "nDecode, Word"];
IF GetBool[context, $PWCore] THEN PWCore.SetArrayY[cellType: cellType];
IF GetBool[context, $Sinix] THEN [] _ Sinix.Extract[PWCore.GetLayout[cellType]];
};

DecoderLogicPair: ROPE = RegisterStructureProc[name: "DecoderLogicPair", proc: CreateDecoderLogicPair];
CreateDecoderLogicPair: StructureProc = {
decoderLogic: Core.CellType _ CreateStructure[name: "DecoderLogic", context: context];
data: CoreClasses.RecordCellType;
cellType _ CreateRecordCell[
name: DecoderLogicPair,
context: context,
public: CreateWires[context, "VddLeft, Vdd, VddRight, GndLeft, Gnd, AccessB, TreeSelect[seq: 2], nDecode[seq: 2], Word[seq: 4]"],
instances: LIST [
[actual: "Word: Word[start: 0, len: 2], nDecode: nDecode[0]",
type: decoderLogic],
[actual: "Word: Word[start: 2, len: 2], nDecode: nDecode[1]",
type: decoderLogic]]];
data _ NARROW [cellType.data];
IF GetBool[context, $PWCore] THEN PWCore.SetAbutFlipY[cellType: cellType, flip: FALSE];
IF GetBool[context, $Sinix] THEN [] _ Sinix.Extract[PWCore.GetLayout[cellType]];
};

DecoderLogic: ROPE = RegisterStructureProc[name: "DecoderLogic", proc: CreateDecoderLogic];
CreateDecoderLogic: StructureProc = {
cellType _ CreateSequenceCell[
name: DecoderLogic,
baseCell: CreateStructure[name: WordDriver, context: context],
count: 2,
sequencePorts: "TreeSelect, Word"];
IF GetBool[context, $PWCore] THEN PWCore.SetGet[cellType: cellType, source: NARROW[GetRef[context, $sourceCDDesign]]];
IF GetBool[context, $Sinix] THEN [] _ Sinix.Extract[PWCore.GetLayout[cellType]];
};

WordDriver: ROPE = RegisterStructureProc[name: "WordDriver", proc: CreateWordDriver];
CreateWordDriver: StructureProc = {
instances: InstanceList _ LIST [
[actual: "gate: TreeSelect, ch1: nDecode, ch2: nTreeDecode",
type: CreateTransistor[name: "Transistor", type: nE]],
[actual: "gate: TreeSelect, ch1: Vdd, ch2: nTreeDecode",
type: CreateTransistor[name: "Transistor", type: pE]]];
PushInt[context: context, prop: $SSIInputCount, val: 2];
PushInt[context: context, prop: $SSIWidth, val: 4];
PushReal[context: context, prop: $SSIRatio, val: 2.5];
instances _ CONS[[
actual: "Input: nTreeDecode, Output: Decode",
type: CreateStructure[name: "Inverter", context: context]], instances];
instances _ CONS[[
actual: "Input: [AccessB, Decode], Output: Word",
type: CreateStructure[name: "And", context: context]], instances];
cellType _ CreateRecordCell[
name: WordDriver,
context: context,
public: CreateWires[context, "VddLeft, Vdd, VddRight, GndLeft, Gnd, AccessB, TreeSelect, Word, nDecode"],
onlyInternal: CreateWires[context, "nTreeDecode, Decode"],
instances: instances];
IF GetBool[context, $Rosemary] THEN Rosemary.Bind[cellType: cellType, roseClassName: WordDriverRoseClass];
CoreProperties.PutCellTypeProp[on: cellType, prop: CoreFlatten.CoreFlattenCutSets, value: LIST["JustAboveTransistors"]];
};
WordDriverRoseClass: ROPE = Rosemary.Register[roseClassName: WordDriver, init: WordDriverInit, evalSimple: WordDriverSimple];
VddLeft: NAT = 0;
Vdd: NAT = 1;
VddRight: NAT = 2;
GndLeft: NAT = 3;
Gnd: NAT = 4;
AccessB: NAT = 5;
TreeSelect: NAT = 6;
Word: NAT = 7;
nDecode: NAT = 8;
WordDriverInit: Rosemary.InitProc = {
FOR port: NAT IN [0..p.size) DO
p[port].type _ b;
ENDLOOP;
p[Word].d _ drive;
};
WordDriverSimple: Rosemary.EvalProc = {
IF NOT p[VddLeft].b OR NOT p[Vdd].b OR NOT p[VddRight].b THEN SIGNAL Rosemary.Stop[];
IF p[GndLeft].b OR p[Gnd].b THEN SIGNAL Rosemary.Stop[];
p[Word].b _ p[TreeSelect].b AND p[AccessB].b AND NOT p[nDecode].b;
};

END.

4CrossRAMDecoder.mesa
Copyright c 1985 by Xerox Corporation.  All rights reserved.
Barth, November 7, 1985 5:44:29 pm PST
Louis Monier October 24, 1985 7:56:58 pm PDT
Bertrand Serlet December 6, 1985 1:55:44 pm PST

rowQuads, addressDecoderBits: INT
andDecoderBits, row: INT
Ports: Vdd, Gnd, AdrBit[0..andDecoderBits), nAdrBit[0..andDecoderBits), nDecodeGnd, nDecodeVdd (the last 2 are to be connected later)
this one should be serie-transistor instead of NAND
this one should be parallel-transistor instead of NAND
rowPairs, andDecoderBits: INT
Ports: Vdd, Gnd, AdrBit[0..andDecoderBits), nAdrBit[0..andDecoderBits), nDecodeVdd[0..rowPairs), nDecodeGnd[0..rowPairs)

Ports: Vdd, Gnd
Ports: Vdd, Gnd
Ports: Vdd, Gnd
Ports: Vdd, nDecode[0..2*rowQuads)
Ports: Vdd, nDecode[0..2)
Ports: Vdd, nDecode
Ports: Vdd, Gnd, AccessB, TreeSelect[0..2), Word[0..4*rowQuads), nDecode[0..2*rowQuads)
Ports: Vdd, Gnd, AccessB, TreeSelect[0..2), Word[0..4), nDecode[0..2)
Ports: Vdd, Gnd, AccessB, TreeSelect[0..2), Word[0..2), nDecode
Ports: Vdd, Gnd, AccessB, TreeSelect, Word, nDecode
Κ
τ–

"cedar" style˜
codeš
œ™Kšœ
Οm
œ1™<K™&K™,K™/K™—KšΟk	œ	žœVžœžœ(˜˜
K˜•StartOfExpansion[]šΟbœžœ
ž˜KšžœAžœžœ*˜xKšžœ
žœ
˜—K˜Kšœžœ
˜K˜Kšœž™!šŸœžœ?˜Lš
œ ˜ Kšœ
žœ˜+Kšœ
žœ˜Kšœžœ	˜Kšœžœ	˜šžœžœ
žœž˜"K˜)Kšžœ
˜—šžœžœ
žœž˜"K˜)Kšžœ
˜—Kš
œ+˜+Kš
œ%˜%Kš
œ^˜^Kš
œ:˜:š
œ˜Kš
œ˜K˜Kš
œ΅
˜΅
Kš
œ?˜?šœžœ˜Kš
œE˜Eš
œC˜CKšœžœ©
žœžœ˜έ
—KšœNžœžœ˜yš
œE˜EKš
œ‚
˜‚
—Kš
œ
˜
—Kš
œ˜—Kšžœžœ%˜FKšžœžœ0˜PKš
œ˜K˜——Jšœž™Jš
œ…
™…
KšœžœE˜UšŸœ˜#Kšœžœ$˜7Kšœžœ˜!Kšœžœ
žœ#˜=Kšœžœ
žœ˜0Kšœžœ
žœ˜/šŸ
œžœ˜šŸ
œ˜$Kšœžœ ˜*šœ
žœ
žœ
ž˜Kšœžœ žœžœA˜Ÿ
šœžœ!˜>Kš
œ%˜%Kšœ1žœžœ˜KK˜—Kšžœžœ
˜—K˜—Kšœžœžœ˜$Kšœžœžœžœ˜,Kšœ žœ˜>Kš
œ˜—Kšœžœ˜šžœžœ
žœž˜(Kšœžœžœžœžœžœ"žœ
žœ
žœžœ˜Ÿ
Kšžœžœ!˜=Kšžœ
˜—š
œ˜Kš
œ˜K˜Kš
œ|˜|šœžœ˜Kš
œ3™3š
œ8˜8Kš
œ5˜5—Kš
œ6™6š
œ8˜8Kš
œ3˜3—Kš
œ
˜
—Kš
œ˜—Kšžœžœ>žœžœ&˜˜
Kšžœžœ0˜PKš
œ˜K˜—Jšœž™Jš
œx™xKšœžœO˜dš
œ(˜(Kšœ
žœ˜+Kšœžœ$˜7Kšœžœ
˜Kš
œ ˜ Kš
œW˜WKš
œ3˜3Kš
œ6˜6š
žœžœ
žœžœ
ΟcΠbc˜/Kš
œ0˜0šœžœ
˜š
œ	žœ^žœžœžœžœžœ
˜₯
Kš
œ>˜>—Kš
œ˜—Kšžœ
˜—š
œ˜Kš
œ˜K˜š
œ˜Kš
œ›
˜›
—Kš
œ˜—Kšžœžœ/žœ˜XKšžœžœ0˜PKš
œ˜—J™Jš
œ™šœžœS˜jš
œ*˜*š
œ˜Kš
œ˜Kš
œC˜CKš
œ2˜2—Kšžœžœ&˜GKšžœžœ0˜PKš
œ˜K˜——Jš
œ™šœžœO˜dš
œ(˜(Kš
œT˜Tš
œ˜Kš
œ˜K˜Kš
œ)˜)šœžœ˜Kš
œ˜Kš
œ˜——Kšžœžœ/žœ˜WKšžœžœ0˜PKš
œ˜K˜——Jš
œ™šœ
žœG˜Xš
œ$˜$š
œ˜Kš
œ˜K˜Kš
œ*˜*—Kšžœžœ+žœ$˜vKšžœžœ0˜PKš
œ˜K˜——Jš
œ"™"šœžœU˜mš
œ+˜+š
œ˜Kš
œ˜Kš
œF˜FKš
œ1˜1Kš
œ˜—Kšžœžœ&˜GKšžœžœ0˜PKš
œ˜K˜——Jš
œ™šœžœQ˜gš
œ)˜)Kš
œV˜Vš
œ˜Kš
œ˜K˜Kš
œ=˜=šœžœ˜Kš
œ,˜,Kš
œ˜Kš
œ,˜,Kš
œ˜——Kšžœžœ/žœ˜WKšžœžœ0˜PKš
œ˜K˜——Jš
œ™šœžœI˜[š
œ%˜%š
œ˜Kš
œ˜K˜Kš
œ/˜/—Kšžœžœ+žœ$˜vKšžœžœ0˜PKš
œ˜K˜——Jš
œW™WšœžœU˜mš
œ+˜+š
œ˜Kš
œ˜Kš
œD˜DKš
œ1˜1Kš
œ ˜ —Kšžœžœ&˜GKšžœžœ0˜PKš
œ˜K˜——Jš
œE™EšœžœQ˜gš
œ)˜)Kš
œV˜VKš
œ!˜!š
œ˜Kš
œ˜K˜Kš
œ
˜
šœžœ˜Kš
œ=˜=Kš
œ˜Kš
œ=˜=Kš
œ˜——Kšœžœ˜Kšžœžœ/žœ˜WKšžœžœ0˜PKš
œ˜K˜——Jš
œ?™?šœžœI˜[š
œ%˜%š
œ˜Kš
œ˜Kš
œ>˜>Kš
œ	˜	Kš
œ#˜#—Kšžœžœ+žœ$˜vKšžœžœ0˜PKš
œ˜K˜——Jš
œ3™3šœžœE˜Uš
œ#˜#šœžœ˜ Kš
œ<˜<Kš
œ6˜6Kš
œ8˜8Kš
œ7˜7—Kš
œ8˜8Kš
œ3˜3Kš
œ6˜6šœžœ˜Kš
œ-˜-Kš
œG˜G—šœžœ˜Kš
œ1˜1Kš
œB˜B—˜Kš
œ˜K˜Kš
œi˜iKš
œ:˜:Kš
œ˜—KšžœžœG˜jKšœZžœ˜xKš
œ˜—Kšœžœd˜}Kšœ	žœ˜Kšœžœ˜
Kšœ
žœ˜Kšœ	žœ˜Kšœžœ˜
Kšœ	žœ˜Kšœžœ˜Kšœžœ˜Kšœ	žœ˜š
œ%˜%šžœžœ
žœ
ž˜Kš
œ˜Kšžœ
˜—Kš
œ˜Kš
œ˜—š
œ'˜'Kšžœ
žœžœ
žœ
žœ
žœžœ
žœ˜UKšžœžœ
žœ
žœ˜8Kšœžœžœ
žœ˜BKš
œ˜K˜——Kšžœ
˜K˜—…—0¬?Τ