MODULE JoinPla;
(*------------------------------------------------------------------------*)
(*  takes mux3x8 from muxheap, makes invmux in mux24 CHANGE MuxCnt        *)
(*------------------------------------------------------------------------*)

FROM SysStreams IMPORT SysOut;
FROM KerInOut   IMPORT CELLSET, EmptyCellSet, AddToCellSet, DisposeCellSet,
                       LoadCell, LoadGuts, HaveGuts, SaveCells, ScanHeap,
                       ALL, SDL, OutputText;
FROM KerTypes   IMPORT CELL,PORT,INST,NET,TRANSFM,DIRN,IOTYPE,NETTYPE,LAYER;
FROM Join       IMPORT Join, Joinf1;
FROM MLAP       IMPORT debug, inst, cell, f1, endcell, findcell, fullport,
                       connect, net, wire, netf1, portf1, instf1, sepp, port;
FROM CMOS       IMPORT any, metal, poly, pwell;
VAR
   VddWest, plawest, pla, chan :CELL;
   plaEtc :CELLSET;
BEGIN
   pla  := LoadCell ("plaheap2", "cleanpla", "pla");
   chan := LoadCell ("UnderPla", "UnderPla", "pchan");
(*   VddWest := LoadCell ("VddWheap", "VddWest", "VddWest");*)
   
   plaEtc := EmptyCellSet ();

   plawest := Join (pla,  r2, North,
                   chan, r0, South,
                   "plawest");
(*
   plawest := Join (plawest, r0, East,
                    VddWest, r3, West,
                    "plawest");
*)
   AddToCellSet (plaEtc, plawest);
   
   SaveCells ("plawest", plaEtc);

   DisposeCellSet (plaEtc);
   
END JoinPla.