-------------------------------------------------------------------------------
--- $Id: RPM.hs#3 2010/09/21 13:51:11 REDMOND\\satnams $
-------------------------------------------------------------------------------

module Lava.RPM
where

-------------------------------------------------------------------------------

showRLOC (x, y)
   = rloc
     where
     rloc = "R" ++ show (-(y `div` 2)) ++ "C" ++ show (x `div` 2) ++
            ".S" ++ show ((x+1) `mod` 2) 

-------------------------------------------------------------------------------

showSlice (x,y)
    = -- "x" ++ show x ++ "y" ++ show (y `div` 2)
      "x" ++ show x ++ "y" ++ show (y `div` 4)

-------------------------------------------------------------------------------

-- Virtex-4
-- SLICE_X23Y92.F (lower cell)
-- SLICE_X23Y92.G (upper cell)

-------------------------------------------------------------------------------