function nwc(row : integer, col : integer),
       QUICK_HELP "Place an n-well contact."
{
  local pos = $get_ic_location(@snap);
  local x = pos[0];
  local y = pos[1];
  local l_siz_ACT = (row*2) + (row*4) - 1;
  local b_siz_ACT = (col*2) + (col*4) - 1;
  local x_sizA = b_siz_ACT/2;
  local y_sizA = l_siz_ACT/2;
  local l_NPS = (row*2) + ((row+1)*4) - 1;
  local b_NPS = (col*2) + ((col+1)*4) - 1;
  local x_NPS = b_NPS/2;
  local y_NPS = l_NPS/2;
  local con_x = x - (x_sizA - 2.5);
  local con_y = y - (y_sizA - 2.5);
  local i = 1;
  local j = 1; 
  
  $$select_all();
  $$protect(); 
 
  if( $get_env("ADK_TECH") == "tsmc018" ){

     $$add_shape([[x-x_sizA,y+y_sizA],[x+x_sizA,y-y_sizA]],"ACTIVE",@internal,@nokeep);
     $$add_shape([[x-x_NPS,y+y_NPS],[x+x_NPS,y-y_NPS]],"N_PLUS_SELECT",@internal,@nokeep);
     $$add_shape([[x-x_NPS-1,y+y_NPS+1],[x+x_NPS+1,y-y_NPS]],"N_WELL",@internal,@nokeep);

     for (i=1;i<=row;i=i+1) {
         for (j=1;j<=col;j=j+1) {
             $$add_shape([[con_x-1,con_y+1],[con_x+1,con_y-1]],"CONTACT_TO_ACTIVE",@internal,@nokeep);
             con_x = con_x + 6.0;
         } 
     con_y = con_y + 6.0;
     con_x = x - (x_sizA - 2.5); 
     }        
  }
  $$select_all();
  $$move();
  $$unprotect_all();
  $$unselect_all();
}

function pwc(row : integer,col : integer),
      QUICK_HELP "Place an p-well contact."
{
  local pos = $get_ic_location(@snap);
  local x = pos[0];
  local y = pos[1];
  local l_siz_ACT = (row*2) + (row*4) - 1;
  local b_siz_ACT = (col*2) + (col*4) - 1;
  local x_sizA = b_siz_ACT/2;
  local y_sizA = l_siz_ACT/2;
  local l_NPS = (row*2) + ((row+1)*4) - 1;
  local b_NPS = (col*2) + ((col+1)*4) - 1;
  local x_NPS = b_NPS/2;
  local y_NPS = l_NPS/2;
  local con_x = x - (x_sizA - 2.5);
  local con_y = y - (y_sizA - 2.5);
  local i = 1;
  local j = 1; 
  
  $$select_all();
  $$protect();  
  
  if( $get_env("ADK_TECH") == "tsmc018" ){

     $$add_shape([[x-x_sizA,y+y_sizA],[x+x_sizA,y-y_sizA]],"ACTIVE",@internal,@nokeep);
     $$add_shape([[x-x_NPS,y+y_NPS],[x+x_NPS,y-y_NPS]],"P_PLUS_SELECT",@internal,@nokeep);
     $$add_shape([[x-x_NPS-1,y+y_NPS],[x+x_NPS+1,y-y_NPS-1]],"P_WELL",@internal,@nokeep);

     for (i=1;i<=row;i=i+1) {
         for (j=1;j<=col;j=j+1) {
             $$add_shape([[con_x-1,con_y+1],[con_x+1,con_y-1]],"CONTACT_TO_ACTIVE",@internal,@nokeep);
             con_x = con_x + 6.0;
            
         } 
     con_y = con_y + 6.0;
     con_x = x - (x_sizA - 2.5); 
     }        
  }
  $$select_all();
  $$move();
  $$unprotect_all();
  $$unselect_all();
}

function pc(),
    QUICK_HELP "Place a poly contact"
{
   local pos;
   local x;
   local y;	
     
   pos = $get_ic_location(@snap);
   x = pos[0];
   y = pos[1];
   
   $$select_all();
   $$protect();

   if( $get_env("ADK_TECH") == "tsmc018" ){
        local pos = $get_ic_location(@snap);
        local x = pos[0];
        local y = pos[1];

        $add_shape([[x-2, y+2], [x+2, y-2]], "METAL1", @internal, @nokeep);
        $add_shape([[x-1, y+1], [x+1, y-1]], "CONTACT_TO_POLY", @internal, @nokeep);
        $add_shape([[x-2.5, y+2.5], [x+2.5, y-2.5]], "POLY", @internal, @nokeep);
   }
   $$select_all();
   $$move();
   $$unprotect_all();
   $$unselect_all();  //

} // end of pc

function pp(),
    QUICK_HELP "Place a port contact"
{
   local pos;
   local x;
   local y;	
     
   pos = $get_ic_location(@snap);
   x = pos[0];
   y = pos[1];
   if( $get_env("ADK_TECH") == "ami12" ){
	$add_cell("$ADK/technology/ic/process/ami12_via/via");
	$unselect_all();
	$add_shape([[x-2, y+2], [x+2, y-2]], "METAL3_BLKG", @both, @nokeep);
   }
   else if( $get_env("ADK_TECH") == "tsmc035" ){
	$add_cell("$ADK/technology/ic/process/tsmc035_via/via");
   }
   else if( $get_env("ADK_TECH") == "tsmc025" ){
	$add_cell("$ADK/technology/ic/process/tsmc025_via/via");
   }
   else if( $get_env("ADK_TECH") == "tsmc018" ){
	$add_cell("$ADK/technology/ic/process/tsmc025_via/via");
   }
   else{
	$add_cell("$ADK/technology/ic/process/ami05_via/via");
        $unselect_all();
	$add_shape([[x-2, y+2], [x+2, y-2]], "METAL3_BLKG", @both, @nokeep);
   }
   $unselect_all();
} // end of pp

function pr(),
    QUICK_HELP "Place the power rails for a standard cell."
{

   $unselect_all();
   $add_shape([[0, 10], [25, 0]], "METAL1", @both, @nokeep);
   $activate_net("/GND",@net_name);
   $add_to_net();
   $make_port(@power, @in, "GND");
   $deactivate();
   $unselect_all();
   $add_shape([[0, 120], [25, 110]], "METAL1", @both, @nokeep);
   $activate_net("/VDD",@net_name);
   $add_to_net();   
   $make_port(@power, @in, "VDD"); 
   $deactivate();  
   $add_shape([[0, 120], [25, 95]], "NWELL", @internal, @nokeep);
   $add_shape([[0, 0], [25, 20]], "PWELL", @internal, @nokeep);
   $unselect_all();
   $view_all();
} // end of pr

//function nwc(),
//    QUICK_HELP "Place an n-well contact."
//{
//  local cell_info = $get_cell_info();
//  local process = cell_info[13];
//  
//  if ($string_locate(process,"ami05",0) != @UNDEFINED) {
//    $add_cell("$ADK/technology/ic/process/ami05_via/nwell_contact");
//  } else if ($string_locate(process,"tsmc018",0) != @DEFINED) {
//    $add_cell("$ADK/technology/ic/process/ami12_via/nwell_contact");
//  } 
//} // end of nwc

//function pwc(),
//    QUICK_HELP "Place a p-well contact."
//{
//  local cell_info = $get_cell_info();
//  local process = cell_info[13];
//  
//  if ($string_locate(process,"ami05",0) != @UNDEFINED) {
//    $add_cell("$ADK/technology/ic/process/ami05_via/pwell_contact");
//  } else if ($string_locate(process,"tsmc018",0) != @DEFINED) {
//    $add_cell("$ADK/technology/ic/process/ami12_via/pwell_contact");
//  }
//} // end of nwc

function pfp(),
    QUICK_HELP "Place an fp1 layer around the entire cell extent."
{


  local cell_info = $get_cell_info();
  local extent = cell_info[1];
  
  $add_shape(extent,"fp1",@both,@nokeep);
} // end of pfp

function p(),
    QUICK_HELP "Place poly path of width 2."
{
   $add_path(, "poly", @internal, 2, @center, @normal, @nokeep, @nopad);
}
 
function m(),
    QUICK_HELP "Place metal path of width 3."
{
   $add_path(, "metal1", @internal, 3, @center, @normal, @nokeep, @nopad);
}

function v(),
    QUICK_HELP "Move unconstrained."
{
   $move(,,@any,@selected);
}

//function ec5(),
//    QUICK_HELP 
//"Extract Cell: \n\
//     Lumped extraction for AMI 0.5 micron characterization. (dev only)"
//{
//  local cell_info = $get_cell_info();
//  local name = 
//$strcat(cell_info[0],".sp");
//  
//  $load_rules("$ADK/technology/ic/process/ami05.rules");
//  $acquire_license(@ictrace);
//  $extract_mask_lumped_parameters(@false, @true, "", @false, "", "", @true, 
//"icap_net", @false, "res_net", @false, "cpl_cap_net", "", "", @eddm, "lvs.rep", 
//"maskdb", @true, @true, @false, @true, name, @hspice, @lumped, @layout, @false, 
//@false, "GND", @false, @false, @false, 0, @true, @false);
//  $release_license(@ictrace);
//}

//function ec12(),
//    QUICK_HELP 
//"Extract Cell: \n\
//     Lumped extraction for AMI 1.2 micron characterization. (dev only)"
//{
//  local cell_info = $get_cell_info();
//  local name = 
//$strcat(cell_info[0],".sp");
//  
//  $load_rules("$ADK/technology/ic/process/ami12.rules");
//  $acquire_license(@ictrace);
//  $extract_mask_lumped_parameters(@false, @true, "", @false, "", "", @true, 
//"icap_net", @false, "res_net", @false, "cpl_cap_net", "", "", @eddm, "lvs.rep", 
//"maskdb", @true, @true, @false, @true, name, @hspice, @lumped, @layout, @false, 
//@false, "GND", @false, @false, @false, 0, @true, @false);
  //$load_rules("$ADK/technology/ic/ami05.rules");
//  $release_license(@ictrace);
//}

//function ec35(),
//    QUICK_HELP
//"Extract Cell: \n\
//     Lumped extraction for TSMC 0.35 micron characterization. (dev only)"
//{
//  local cell_info = $get_cell_info();
//  local name =
//$strcat(cell_info[0],".sp");
// 
//  $load_rules("$ADK/technology/ic/process/tsmc035.rules");
//  $acquire_license(@ictrace);
//  $extract_mask_lumped_parameters(@false, @true, "", @false, "", "", @true,
//"icap_net", @false, "res_net", @false, "cpl_cap_net", "", "", @eddm, "lvs.rep",
//"maskdb", @true, @true, @false, @true, name, @hspice, @lumped, @layout, @false,
//@false, "GND", @false, @false, @false, 0, @true, @false);
//  $release_license(@ictrace);
//}


function add_lib(library : string,
	 path : string)
{
	local line, stream_id;
	local filename = "/tmp/cell.list" ;
	local command = $strcat("ls ", path,"/*.attr* | nawk -F'.' '{print $1}' > ", filename);
	$message(command);
	$system(command);
	stream_id = $open_file($free_stream_id(),filename,@read);

$freeze_window();
	line = $reads_file(stream_id);
	while ((! $eof(stream_id)) && (line != UNDEFINED))
	{
			$add_to_library(library, line);
			line = $reads_file(stream_id);
	}
$unfreeze_window();
	command = $strcat("rm -f ", filename);
	$system(command);
} // end of add_lib

function ab1(),
    QUICK_HELP "Add metal 1 blockages to entire cell."
{
  $setup_select_filter([@shape, @path, @pin], @both, [@in], @true, @true, 
@true);
  $unselect_all(@nofilter);
  $set_visible_layers(@replace, ["METAL1"]);
  $select_all(void);
  $copy_to_layer("METAL1_BLKG");
  $change_aspect(@both);
  $unselect_all(@nofilter);
  $set_visible_layers(@replace, ["COMMENT", "METAL1.PORT", "METAL2.PORT", 
"METAL3.PORT", "ANALOG", "BB_PAD", "MARKER", "METAL4.PORT", "METAL5.PORT", 
"P_HIGH_VOLTAGE", "N_HIGH_VOLTAGE", "MEMS_OPEN", "MEMS_ETCH_STOP", "CONTACT", 
"PADS", "SILICIDE_BLOCK", "\
VIA3", "METAL4", "VIA4", "METAL5", "HI_RES_IMPLANT", "P_WELL", "N_WELL", 
"ACTIVE", "P_PLUS_SELECT", "N_PLUS_SELECT", "POLY", "CONTACT_TO_POLY", 
"CONTACT_TO_ACTIVE", "METAL1", "VIA", "METAL2", "OVERGLASS", 
"CONTACT_TO_ELECTRODE", "ELECTRODE", "BURIED_CCD",\
 "PBASE", "CAP_WELL", "Thick_Active", "VIA2", "METAL3", "DIFFUSED_RESISTOR", 
"METAL1_BLKG", "METAL2_BLKG", "METAL3_BLKG", "METAL4_BLKG", "METAL5_BLKG", 
"row", "drc_results", "masklv_results", "overflow", "device_iobj", "flyline", 
"fp1", "active_overflow",\
 "outline", "gds_anchor", "gds_error", "translate_text", "power_strap", 
"cell_inst_name", "port_pin_name", "path_ref_line", "array_bb", "inst_bb", 
"fixed_bb", "sticky_overflow", "active_sticky_overflow", "region", "bisector", 
"channel", "slice", "eco_rout\
ing_layer_1", "eco_routing_layer_2", "eco_routing_layer_3", 
"eco_routing_layer_4", "eco_routing_layer_5", "non_routing_overflow", 
"active_non_routing_overflow", "routing_level_2", "routing_level_1", 
"power_layers"]);
  $unselect_all(@nofilter);  
  $setup_select_filter([@shape, @path, @text, @property_text, @instance, 
@device, @array, @pin, @row, @via_object, @overflow, @region, @bisector, @slice, 
@channel], @both, [@in], @true, @true, @true);
  local cell_info = $get_cell_info();
  local extent = cell_info[1];  
  $add_shape(extent,"METAL1_BLKG",@both,@nokeep);
  $redraw();
} // end of ab1

function rab1(),
    QUICK_HELP "Remove metal 1 blockages from entire cell."
{
  $setup_select_filter([@shape, @path, @pin], @both, [@in], @true, @true, 
@true);
  $unselect_all(@nofilter);
  $set_visible_layers(@replace, ["METAL1_BLKG"]);
  $select_all(void);
  $delete();
  $unselect_all(@nofilter);
  $set_visible_layers(@replace, ["COMMENT", "METAL1.PORT", "METAL2.PORT", 
"METAL3.PORT", "ANALOG", "BB_PAD", "MARKER", "METAL4.PORT", "METAL5.PORT", 
"P_HIGH_VOLTAGE", "N_HIGH_VOLTAGE", "MEMS_OPEN", "MEMS_ETCH_STOP", "CONTACT", 
"PADS", "SILICIDE_BLOCK", "\
VIA3", "METAL4", "VIA4", "METAL5", "HI_RES_IMPLANT", "P_WELL", "N_WELL", 
"ACTIVE", "P_PLUS_SELECT", "N_PLUS_SELECT", "POLY", "CONTACT_TO_POLY", 
"CONTACT_TO_ACTIVE", "METAL1", "VIA", "METAL2", "OVERGLASS", 
"CONTACT_TO_ELECTRODE", "ELECTRODE", "BURIED_CCD",\
 "PBASE", "CAP_WELL", "Thick_Active", "VIA2", "METAL3", "DIFFUSED_RESISTOR", 
"METAL1_BLKG", "METAL2_BLKG", "METAL3_BLKG", "METAL4_BLKG", "METAL5_BLKG", 
"row", "drc_results", "masklv_results", "overflow", "device_iobj", "flyline", 
"fp1", "active_overflow",\
 "outline", "gds_anchor", "gds_error", "translate_text", "power_strap", 
"cell_inst_name", "port_pin_name", "path_ref_line", "array_bb", "inst_bb", 
"fixed_bb", "sticky_overflow", "active_sticky_overflow", "region", "bisector", 
"channel", "slice", "eco_rout\
ing_layer_1", "eco_routing_layer_2", "eco_routing_layer_3", 
"eco_routing_layer_4", "eco_routing_layer_5", "non_routing_overflow", 
"active_non_routing_overflow", "routing_level_2", 
"routing_level_1", "power_layers"]);
  $unselect_all(@nofilter);  
  $setup_select_filter([@shape, @path, @text, @property_text, @instance, 
@device, @array, @pin, @row, @via_object, @overflow, @region, @bisector, @slice, 
@channel], @both, [@in], @true, @true, @true);
  $redraw();
} // end of rab1

function s12(),
    QUICK_HELP "Set process ami120."
{
$load_rules("$ADK/technology/ic/process/ami12.rules");
$set_cell_process("$ADK/technology/ic/process/ami12", @context);
} // end of s12

function s5(),
    QUICK_HELP "Set process ami05."
{
$load_rules("$ADK/technology/ic/process/ami05.rules");
$set_cell_process("$ADK/technology/ic/process/ami05", @context);
} // end of s5

function s35(),
    QUICK_HELP "Set process tsmc035."
{
$load_rules("$ADK/technology/ic/process/tsmc035.rules");
$set_cell_process("$ADK/technology/ic/process/tsmc035", @context);
} // end of s35

//function eps_out(),
//    QUICK_HELP "Quick exatract of color eps file."
//{
//  local cell_info = $get_cell_info();
//  local name = $strcat(cell_info[0],".eps");
//  $ge_select_export_format(0);
//  $export_graphic_object("", name, "3.0inches", "2.0inches", "", @color_yes, 
//"0", "", @true, [], "EPS   (Encapsulated PostScript)");
//}

//function eps_out35(),
//    QUICK_HELP "Quick exatract of color eps file for tsmc035 cells."
//{
//  local cell_info = $get_cell_info();
//  local name = $strcat(cell_info[0],".eps");
//  $ge_select_export_format(0);
//  $export_graphic_object("", name, "3.0inches", "2.0inches", "", @color_yes,
//"0", "", @true, [], "EPS   (Encapsulated PostScript)");
//}

//function eps_out25(),
//    QUICK_HELP "Quick exatract of color eps file for tsmc025 cells."
//{
//  local cell_info = $get_cell_info();
//  local name = $strcat(cell_info[0],".eps");
//  $ge_select_export_format(0);
//  $export_graphic_object("", name, "3.0inches", "2.0inches", "", @color_yes,
//"0", "", @true, [], "EPS   (Encapsulated PostScript)");
//}

//function eps_out18(),
//    QUICK_HELP "Quick exatract of color eps file for tsmc018 cells."
//{
//  local cell_info = $get_cell_info();
//  local name = $strcat(cell_info[0],".eps");
//  $ge_select_export_format(0);
//  $export_graphic_object("", name, "3.0inches", "2.0inches", "", @color_yes,
//"0", "", @true, [], "EPS   (Encapsulated PostScript)");
//}

function vfy(),
    QUICK_HELP "Quick LVS check for ADK development."

{
  local cell_info = $get_cell_info();
  local name = $strcat("$ADK/parts/",cell_info[0],"/sdl");
  $acquire_license(@ictrace);
  $lvs_mask(@true, @true, name, "", @eddm, "lvs.rep", "maskdb", @true, @true);
  $$open_notepad("lvs.rep", @read_only, "");
  $set_active_window("Notepad");
  $set_active_window("Notepad");
}

function cp(),
    QUICK_HELP "Quick save and reserve; checkpoint."

{
   $save_cell(@context);
   $reserve_cell(@nohierarchy);
}

function dup(),
    QUICK_HELP "Delete unplaced ports in design"
    
{
  local porthandle=$get_group_members("ports");
  local len=length(porthandle);
  local index;
  for (index=0;index<len;index=index+1){
      local objinfo=$get_object_info(porthandle[index]);
      if (objinfo[7]=="@unplaced"){
         $writeln($strcat("port handle ",porthandle[index]," is unplaced."));
         $activate_port_by_handle(porthandle[index]);
         $unmake_port();
         $writeln("unplaced port deleted.");
     }
  }
}

function adk_scale_submenu(), indirect 
{
  $create_menu("user_ic", @popup, "adk_scale", 1, $menu_default_color, 
   $menu_title_item("AMI"),
   $menu_text_item("  1.5 micron", "$scale_context(0.8)"),
   $menu_text_item("  1.2 micron", "$scale_context(0.6)"),
   $menu_text_item("  0.5 micron", "$scale_context(0.3)"),
   $menu_title_item("TSMC"),
   $menu_text_item("  0.35 micron", "$scale_context(0.2)"),
   $menu_text_item("  0.25 micron", "$scale_context(0.12)"),
   $menu_text_item("  0.18 micron", "$scale_context(0.09)")
  );
} // end of adk_scale_submenu

function adk_padframes_submenu(), indirect 
{
  $create_menu("user_ic", @popup, "adk_padframes", 1, $menu_default_color, 
   $menu_title_item("AMI"),
//   $menu_text_item("  1.5 micron tinychip", ""),
   $menu_text_item("  1.2 micron tinychip", "make_ami12_miniframe()"),
   $menu_text_item("  0.5 micron tinychip", "make_ami05_miniframe()"),
   $menu_title_item("TSMC"),
   $menu_text_item("  0.35 micron tinychip", "make_tsmc035_miniframe()")
  );
} // end of adk_padframes_submenu

function adk_pulldown_menu(), indirect,
    QUICK_HELP "Creates the ADK pulldown menu in the user_ic scope"
{
  $create_menu("user_ic", @pulldown, "adk_pulldown", 1, $menu_default_color, 
   $menu_text_item("Show ADK _Palette", "show_adk_edit_palette()"),
   $menu_separator_item(),
   $menu_special_text_item("Scale",,"adk_scale"),
   $menu_special_text_item("Generate Padframe",,"adk_padframes")
  );
} // end of adk_pulldown_menu

function show_adk_edit_palette(), indirect
{
  $replace_palette("ADK Edit");
  $resize_palette();
}

function $ictrace_mask_report_submenu_menu(), INVISIBLE {
$create_menu("user_ic",
   @popup,
   "$ictrace_mask_report_submenu",
   ,,
   $menu_title_item("Report"),

   $menu_text_item("_LVS", "$open_notepad($get_lvs_last_report_name(), @read_only)"),
   $menu_text_item("Data_base", "$license_and_run('$$report_mask_results', [@ictrace, @icextractc, @verifdataport])"),
   $menu_text_item("Lo_gic", "$$report_logic()"),
   $menu_text_item("_All Nets", "$license_and_run('$$report_all_mask_nets', [@ictrace, @icextractc, @verifdataport])"),
   $menu_text_item("All _Devices", "$license_and_run('$$report_all_mask_devices', [@ictrace, @icextractc, @verifdataport])"),

   $ic_menu_spacer(, @true),

   $menu_text_item("Current Discrepanc_y", "$$report_current_mask_discrepancy(@elements)"),
    
   $menu_text_item("Current Discrepancy N_umber", "$$report_current_mask_discrepancy(@noelements)"),
    

   $ic_menu_spacer(, @true),

   $menu_text_item("Sho_wn Discrepancies", "$$report_shown_mask_discrepancies(@elements)"),
    
   $menu_text_item("Shown Discrepancy Nu_mbers", "$$report_shown_mask_discrepancies(@noelements)"),
    

   $ic_menu_spacer(, @true),

   $menu_text_item("_Current Net", "$license_and_run('$$report_current_mask_net', [@ictrace, @icextractc, @verifdataport])"),
   $menu_text_item("Shown _Nets", "$license_and_run('$$report_shown_mask_nets', [@ictrace, @icextractc, @verifdataport])"),

   $ic_menu_spacer(, @true),

   $menu_text_item("Curren_t Device", "$license_and_run('$$report_current_mask_device', [@ictrace, @icextractc, @verifdataport])"),
   $menu_text_item("_Shown Devices", "$license_and_run('$$report_shown_mask_devices', [@ictrace, @icextractc, @verifdataport])")

);
}

function $adk_port_text(), indirect,
    QUICK_HELP "Adds Text to all existing ports"
{
	if( $get_env("ADK_TECH") == "ami12" ){
        	$add_text_on_ports(["METAL1", "METAL2"], ["METAL1.PORT", "METAL2.PORT"], 1, @left, @bottom, @horizontal, @internal, ":", @false);
	}
	else if( $get_env("ADK_TECH") == "tsmc035" ){
        	$add_text_on_ports(["METAL1", "METAL2", "METAL3", "METAL4"], ["METAL1.PORT", "METAL2.PORT", "METAL3.PORT", "METAL4.PORT"], 1, @left, @bottom, @horizontal, @internal, ":", @false);
	}
	else if( $get_env("ADK_TECH") == "tsmc025" ){
		$add_text_on_ports(["METAL1", "METAL2", "METAL3", "METAL4", "METAL5"], ["METAL1.PORT", "METAL2.PORT", "METAL3.PORT", "METAL4.PORT", "METAL5.PORT"], 1, @left, @bottom, @horizontal, @internal, ":", @false);
	}
	else if( $get_env("ADK_TECH") == "tsmc018" ){
		$add_text_on_ports(["METAL1", "METAL2", "METAL3", "METAL4", "METAL5", "METAL6"], ["METAL1.PORT", "METAL2.PORT", "METAL3.PORT", "METAL4.PORT", "METAL5.PORT", "METAL6.PORT"], 1, @left, @bottom, @horizontal, @internal, ":", @false);
	}
	else{
		$add_text_on_ports(["METAL1", "METAL2", "METAL3"], ["METAL1.PORT", "METAL2.PORT", "METAL3.PORT"], 1, @left, @bottom, @horizontal, @internal, ":", @false);
	}
}
 
function adk_palette_menu(), indirect,
    QUICK_HELP "Creates the ADK palette menu for IC"
{ 
  $create_menu("user_ic", @palette, "ADK Edit", 2, $menu_default_color, 
//       $menu_text_item("Bac_k", "$show_parent_palette()"),
        $menu_special_text_item("Top", "$show_sub_palette(\"IC Palettes\")",,, $ic_palette_menu_small_font_dla,$top_option_color),
        $ic_menu_spacer(,@false),
        $menu_special_text_item("Edit", "$show_sub_palette(\"Edit\")",,, $ic_palette_menu_small_font_dla,$top_option_color),
        $menu_special_text_item("P&R", "$show_sub_palette(\"Place & Route\")",,, $ic_palette_menu_small_font_dla,$top_option_color),
        $menu_title_item("SDL", $ic_palette_menu_small_font_dla),
        $menu_title_item("     ", $ic_palette_menu_small_font_dla), 	
  	$menu_special_text_item("Logic",,"$dla_schem_submenu",,$ic_palette_menu_small_font_dla,$logic_option_color),
   	$menu_special_text_item("Open", "$$open_logic()",,,$ic_palette_menu_small_font_dla),
   	$ic_menu_spacer(,@true),
   	$ic_menu_spacer(,@true),
   	$menu_special_text_item("Place",,"$dla_place_inst_submenu",,$ic_palette_menu_small_font_dla,$place_option_color),
   	$menu_special_text_item("Inst",  "$place_schematic_instances(,,@manual)",,,$ic_palette_menu_small_font_dla,$place_option_color),
   	$menu_special_text_item("AutoInst",  "$place_schematic_instances(,,@automatic)",,,$ic_palette_menu_small_font_dla,$place_option_color),
   	$menu_special_text_item("Port",  "$place_schematic_ports(,@manual)",,,$ic_palette_menu_small_font_dla,$place_option_color),
   	$ic_menu_spacer(,@true),
   	$ic_menu_spacer(,@true),
   	$menu_special_text_item("DEdit",,"$dla_dev_submenu",,$ic_palette_menu_small_font_dla,$edit_option_color),
   	$menu_special_text_item("Clean", "$sdl_cleanup()",,,$ic_palette_menu_small_font_dla,$place_option_color),
	$menu_title_item("Routing", $ic_palette_menu_small_font_dla),
        $menu_title_item("     ", $ic_palette_menu_small_font_dla), 	
	$menu_special_text_item("Route",,"$dla_route_submenu",,$ic_palette_menu_small_font_dla,$route_option_color),
   	$menu_special_text_item("SsNet", "$select_on_selected(@net)",,,$ic_palette_menu_small_font_dla,$route_option_color),  
   	$menu_special_text_item("MkPort", "$make_port()",,,$ic_palette_menu_small_font_dla,$route_option_color),
   	$menu_special_text_item("SsPort", "$select_on_selected(@port)",,,$ic_palette_menu_small_font_dla,$route_option_color),
   	$menu_special_text_item("ResAll", "$restructure_nets(@all_signal)",,,$ic_palette_menu_small_font_dla,$route_option_color),
   	$menu_special_text_item("ResSel", "$restructure_nets(@selected)",,,$ic_palette_menu_small_font_dla,$route_option_color),
   	$menu_special_text_item("AutoR", "$$autoroute_overflow()",,, $ic_palette_menu_small_font_dla,$route_option_color),   
   	$menu_special_text_item("Comp", "$license_and_run(('$$compact', [@iccompact])",,,$ic_palette_menu_small_font_dla,$edit_option_color),
        $menu_title_item("Add", $ic_palette_menu_small_font_dla),
	$menu_special_text_item("Port Text", "$adk_port_text()",,,$ic_palette_menu_small_font_dla,$edit_option_color),
    	$menu_context_item("($ic_repeating)",
        	"Shape *", "$add_shape_repeat()",
                "Shape", "$$add_shape()",,,$ic_palette_menu_small_font_dla),
   	$menu_context_item("($ic_repeating)",
                "Path *", "$add_path_repeat()",
                "Path", "$$add_path()",,,$ic_palette_menu_small_font_dla),
   	$menu_special_text_item("AddR", "$$add_route()",,,$ic_palette_menu_small_font_dla),
        $menu_context_item("($ic_repeating)",
                "Text *", "$add_text_repeat()",
                "Text", "$$add_text()",,,$ic_palette_menu_small_font_dla),
        $menu_title_item("Edit", $ic_palette_menu_small_font_dla),
        $menu_title_item("     ", $ic_palette_menu_small_font_dla), 	
       	$menu_context_item("($ic_repeating)",
                "Copy *","$copy_repeat()",
                "Copy",  "$copy_check()",,,$ic_palette_menu_small_font_dla),
  	$menu_context_item("($ic_repeating)",
                "Move *","$move_repeat()",
                "Move",  "$move_check()",,,$ic_palette_menu_small_font_dla),
   	$menu_special_text_item("Align", "$$align()",,,$ic_palette_menu_small_font_dla),
   	$menu_context_item("($ic_repeating)",
                "Rotate *", "$rotate_repeat()",
                "Rotate",   "$rotate_check()",,,$ic_palette_menu_small_font_dla),
   	$menu_context_item("($ic_repeating)",
                "Flip *",  "$flip_on_axis_repeat()",
                "Flip",    "$flip_on_axis_check()",,,$ic_palette_menu_small_font_dla),
   	$menu_context_item("($ic_repeating)",
                "Stretch *",  "$stretch_repeat()",
                "Stretch",  "$stretch_check()",,,$ic_palette_menu_small_font_dla),
        $menu_title_item("Verification", $ic_palette_menu_small_font_dla),
        $menu_title_item("     ", $ic_palette_menu_small_font_dla), 
        $menu_special_text_item("Drc",,"$dla_drc_submenu",,$ic_palette_menu_small_font_dla,$drc_option_color),   
	$ic_menu_spacer(,@false),
	$menu_special_text_item("Load _Rules","$$load_rules()",,,$ic_palette_menu_small_font_dla),
 	$menu_special_text_item("Extract", "$license_and_run('$$extract_mask_lumped_parameters', [@icextractc, @ictrace, @verifdataport])",,, $ic_palette_menu_small_font_dla,$drc_option_color),     
 	$menu_special_text_item("LVS", "$license_and_run('$$lvs_mask', [@ictrace, @icextractc, @verifdataport])" ,,, $ic_palette_menu_small_font_dla,$drc_option_color),        
    	$menu_special_text_item("Report",,"$acquire_license(@ictrace);mask@@$ictrace_mask_report_submenu",,$ic_palette_menu_small_font_dla,$drc_option_color),   
  	$ic_menu_spacer(,@true),
  	$ic_menu_spacer(,@true),
 	$menu_context_item("($ic_repeating)",
                "Repeat on *", "$assign_ic_repeating(@false)",
                "Repeat off", "$assign_ic_repeating(@true)",,,$ic_palette_menu_small_font_dla)                
 		); 	
}

function $user_ic_init(),indirect
{
	$register_command("pc");	// place poly contact
	$register_command("pp");	// place port contact
	$register_command("pr");	// place power rails for standard cell
	$register_command("pwc");	// place p-well contact
	$register_command("nwc");	// place n-well contact
	$register_command("pfp");	// place fp layer to extent of cell
//	$register_command("ec5");	// extract for AMI 0.5 ELDO sim
//	$register_command("ec12");	// extract for AMI 1.2 ELDO sim
//	$register_command("ec35");	// extract for TSMC 0.35 ELDO sim
	$register_command("p");		// poly path
	$register_command("m");		// metal1 path
	$register_command("v");		// move unconstrained
	$register_command("ab1");	// add blockages
	$register_command("rab1");	// remove blockages
	$register_command("add_lib");	// add to library
	$register_command("s12"); 	// set rules and process to ami120
	$register_command("s5"); 	// set rules and process to ami05
	$register_command("s35"); 	// set rules and process to tsmc035
//	$register_command("eps_out"); 	// quick eps extract of layout to user dir
//	$register_command("eps_out35"); 	// quick eps extract of tsmc035 layout to user dir
	$register_command("vfy"); 	// quick lvs check
	$register_command("cp"); 	// checkpoint - quick save and reserve
	$register_command("dup"); 	// delete upunsed ports
        $register_command("nc");
        $register_command("nwc18");
        $register_command("pwc18");

	adk_scale_submenu();
	adk_padframes_submenu();
	adk_palette_menu();
	adk_pulldown_menu();
	$add_menu_item(,$menu_bar_item("AD_K", "adk_pulldown",,, "ForestGreen"),"user_ic@@default_menu_bar");
	$add_menu_item(,$menu_special_text_item("AD_K Edit", "$show_sub_palette(\"ADK Edit\");$resize_palette()",,,,"ForestGreen"),"user_ic@@IC Palettes");
} 

function select_schematic_instance(pin_name : string)
{
   local window = $get_active_window();
   $set_active_window(($string_locate(window,"IC",0) == 0) ? (window) : ($get_ic_window_names()[0]));
   $freeze_window();
   cnsv_framed_area_mgr@@$redirect_to_all_windows("$freeze_window()","Schematic_view");
    
   local cross_probe_save = $get_cross_probe();
   $set_cross_probe(@true);
   $set_sdl_quiet(@true);
    
   if ($get_select_count() != 0) $unselect_all();
   if (ic_session@@$get_select_count() != 0) ic_session@@$unselect_all();
   
   ic_session@@$$select_by_name(@string, @instance, @net, @pin, ["Monitor_Flag", "Group", "Bus"], [pin_name]);
    
   if ($get_select_count() != 0) $unselect_group("all_physical");
   if (ic_session@@$get_select_count() == 0) $notify("Nothing new selected.",@warning);

   $set_cross_probe(cross_probe_save);
   $set_sdl_quiet(@false);   

   $unfreeze_window();
   cnsv_framed_area_mgr@@$redirect_to_all_windows("$unfreeze_window()","Schematic_view");
}

function make_ami05_miniframe(),
    QUICK_HELP "Build a TinyChip padframe for AMI 0.5 micron"
{
// First, let's put the origin at the lower left corner of the cell extent.
local cell_info = $get_cell_info();
local extent = cell_info[1];
local origin = extent[0] - [1200,1200];
local i;
local pin;

// Place floorplan for external cells (non-corner pads):

$add_row(9, [origin+[1000,1000],origin+[1000,3999]],[@rotate_ccw], @left, @noslide, @noresize, @nokeep);  		//left
$add_row(9, [origin+[1000,3999],origin+[4000,3999]],[@normal], @left, @noslide, @noresize, @nokeep);  			//top
$add_row(9, [origin+[4000,4000],origin+[4000,1001]],[@rotate_mirror_xy], @left, @noslide, @noresize, @nokeep);	//right
$add_row(9, [origin+[1000,1000],origin+[4000,1000]],[@mirror_xy], @left, @noslide, @noresize, @nokeep);			//bottom


// place corners:

$add_cell("$ADK/technology/ic/pads/ami05/pads/PadFC",origin+[1000,1000],@noflip,90);
$add_cell("$ADK/technology/ic/pads/ami05/pads/PadFC",origin+[4000,1000],@noflip,180);
$add_cell("$ADK/technology/ic/pads/ami05/pads/PadFC",origin+[1000,4000],@noflip,0);
$add_cell("$ADK/technology/ic/pads/ami05/pads/PadFC",origin+[4000,4000],@noflip,270);

$unselect_all();
// Select the pins that are in the design but are unplaced
$select_unplaced_schematic_instances();
local num_pins = $get_select_count();
local pins = $get_select_set();
local placed_pins = $create_vector(40); // list of pins we did place
$unselect_all();
for (pin=0; pin < num_pins; pin = pin + 1) {
	local this_pin_handle = pins[pin];
	local pin_name = $get_object_info(this_pin_handle)[3];
	local pos = $string_locate(pin_name, "PIN", 0);
	// If this has "PIN" in it, it's a pin, otherwise it's probably a cell or port and we don't
	// want to place them in the padframe!
	if ((pos != UNDEFINED) &&( pos >= 0)) {
		// Good, we're a pin so let's get the pin number so we know where to put it
		// in the frame.
		local pin_no = $number_string(pin_name[pos+3:length(pin_name)-1]);
		// Select this pin, only, in the schematic to use $place
		select_schematic_instance(pin_name);
		switch (pin_no) {
			// Check the pin number and then place the selected object at the correct place in the frame
			case 1,2,3,4,5 : $place_on_row(origin+[4000,2500+(pin_no*300)]); break;
			case 36,37,38,39,40 : $place_on_row(origin+[4000,2500-(40-pin_no)*300]); break; 
			case 26,27,28,29,30,31,32,33,34,35 : $place_on_row(origin+[1000+(pin_no-25)*300,1000]); break;
			case 16,17,18,19,20,21,22,23,24,25 : $place_on_row(origin+[1000,1000+(25-pin_no)*300]); break;
			case 15,14,13,12,11,10,9,8,7,6 : $place_on_row(origin+[1000+(15-pin_no)*300,4000]);
		}
		placed_pins[pin_no-1] = "placed"; // add this pin to the list of pins placed
	}	
}
// now we need to place spacers for all the unplaced pins
local spacer = "$ADK/technology/ic/pads/ami05/pads/PadSpace";
for (pin=1; pin <= 40; pin = pin + 1) {
	if (placed_pins[pin-1] != "placed") {
		switch (pin) {
			case 1,2,3,4,5 : $add_cell(spacer,origin); $move_on_row(origin, origin+[4000,2500+(pin*300)], @any, @selected); break;
			case 36,37,38,39,40 : $add_cell(spacer,origin); $move_on_row(origin, origin+[4000,2500-(40-pin)*300]); break; 
			case 26,27,28,29,30,31,32,33,34,35 : $add_cell(spacer,origin); $move_on_row(origin, origin+[1000+(pin-25)*300,1000]);break;
			case 16,17,18,19,20,21,22,23,24,25 : $add_cell(spacer,origin); $move_on_row(origin, origin+[1000,1000+(25-pin)*300]);break;
			case 15,14,13,12,11,10,9,8,7,6 : $add_cell(spacer,origin); $move_on_row(origin, origin+[1000+(15-pin)*300,4000]);
		}	
	}
}
}

function make_tsmc035_miniframe(),
    QUICK_HELP "Build a TinyChip padframe for TSMC 0.35 micron"
{
// First, let's put the origin at the lower left corner of the cell extent.
local cell_info = $get_cell_info();
local extent = cell_info[1];
local origin = extent[0] - [1700,1700];
local i;
local pin;

// Place floorplan for external cells (non-corner pads):

$add_row(9, [origin+[1500,1500],origin+[1500,5999]],[@rotate_ccw], @left, @noslide, @noresize, @nokeep);  		//left
$add_row(9, [origin+[1500,5999],origin+[6000,5999]],[@normal], @left, @noslide, @noresize, @nokeep);  			//top
$add_row(9, [origin+[6000,6000],origin+[6000,1501]],[@rotate_mirror_xy], @left, @noslide, @noresize, @nokeep);	//right
$add_row(9, [origin+[1500,1500],origin+[6000,1500]],[@mirror_xy], @left, @noslide, @noresize, @nokeep);			//bottom


// place corners:

$add_cell("$ADK/technology/ic/pads/tsmc035/pads/PadlessCorner",origin+[1500,1500],@noflip,90);
$add_cell("$ADK/technology/ic/pads/tsmc035/pads/PadlessCorner",origin+[6000,1500],@noflip,180);
$add_cell("$ADK/technology/ic/pads/tsmc035/pads/PadlessCorner",origin+[1500,5999],@noflip,0);
$add_cell("$ADK/technology/ic/pads/tsmc035/pads/PadlessCorner",origin+[6000,5999],@noflip,270);

$unselect_all();
// Select the pins that are in the design but are unplaced
$select_unplaced_schematic_instances();
local num_pins = $get_select_count();
local pins = $get_select_set();
local placed_pins = $create_vector(40); // list of pins we did place
$unselect_all();
for (pin=0; pin < num_pins; pin = pin + 1) {
	local this_pin_handle = pins[pin];
	local pin_name = $get_object_info(this_pin_handle)[3];
	local pos = $string_locate(pin_name, "PIN", 0);
	// If this has "PIN" in it, it's a pin, otherwise it's probably a cell or port and we don't
	// want to place them in the padframe!
	if ((pos != UNDEFINED) &&( pos >= 0)) {
		// Good, we're a pin so let's get the pin number so we know where to put it
		// in the frame.
		local pin_no = $number_string(pin_name[pos+3:length(pin_name)-1]);
		// Select this pin, only, in the schematic to use $place
		select_schematic_instance(pin_name);
		switch (pin_no) {
			// Check the pin number and then place the selected object at the correct place in the frame
			case 1,2,3,4,5 : $place_on_row(origin+[6000,3750+(pin_no*450)]); break;
			case 36,37,38,39,40 : $place_on_row(origin+[6000,3750-(40-pin_no)*450]); break; 
			case 26,27,28,29,30,31,32,33,34,35 : $place_on_row(origin+[1500+(pin_no-25)*450,1500]); break;
			case 16,17,18,19,20,21,22,23,24,25 : $place_on_row(origin+[1500,1500+(25-pin_no)*450]); break;
			case 15,14,13,12,11,10,9,8,7,6 : $place_on_row(origin+[1500+(15-pin_no)*450,6000]);
		}
		placed_pins[pin_no-1] = "placed"; // add this pin to the list of pins placed
	}	
}
// now we need to place spacers for all the unplaced pins
local spacer = "$ADK/technology/ic/pads/tsmc035/pads/PadNoConnect";
for (pin=1; pin <= 40; pin = pin + 1) {
	if (placed_pins[pin-1] != "placed") {
		switch (pin) {
			case 1,2,3,4,5 : $add_cell(spacer,origin); $move_on_row(origin, origin+[6000,3750+(pin*450)], @any, @selected); break;
			case 36,37,38,39,40 : $add_cell(spacer,origin); $move_on_row(origin, origin+[6000,3750-(40-pin)*450]); break; 
			case 26,27,28,29,30,31,32,33,34,35 : $add_cell(spacer,origin); $move_on_row(origin, origin+[1500+(pin-25)*450,1500]);break;
			case 16,17,18,19,20,21,22,23,24,25 : $add_cell(spacer,origin); $move_on_row(origin, origin+[1500,1500+(25-pin)*450]);break;
			case 15,14,13,12,11,10,9,8,7,6 : $add_cell(spacer,origin); $move_on_row(origin, origin+[1500+(15-pin)*450,6000]);
		}	
	}
}
}

function make_ami12_miniframe(),
    QUICK_HELP "Build a TinyChip padframe for AMI 1.2/1.6 micron"
{
// First, let's put the origin at the lower left corner of the cell extent.
local cell_info = $get_cell_info();
local extent = cell_info[1];
local origin = extent[0] - [400,400];
local i;
local pin;

// Place floorplan for external cells (non-corner pads):

$add_row(9, [origin+[325,325],origin+[325,2910]],[@rotate_ccw], @left, @noslide, @noresize, @nokeep);  		//left
$add_row(9, [origin+[325,2915],origin+[2900,2915]],[@normal], @left, @noslide, @noresize, @nokeep);  			//top
$add_row(9, [origin+[2910,2910],origin+[2910,325]],[@rotate_mirror_xy], @left, @noslide, @noresize, @nokeep);	//right
$add_row(9, [origin+[335,320],origin+[2900,320]],[@mirror_xy], @left, @noslide, @noresize, @nokeep);			//bottom


// place corners:

$add_cell("$ADK/technology/ic/pads/ami120/analog/cg",origin+[335,335],@noflip,0);
$add_cell("$ADK/technology/ic/pads/ami120/analog/cg_r",origin+[2900,335],@noflip,0);
$add_cell("$ADK/technology/ic/pads/ami120/analog/cv",origin+[335,2900],@noflip,0);
$add_cell("$ADK/technology/ic/pads/ami120/analog/cv_r",origin+[2900,2900],@noflip,0);

$unselect_all();
// Select the pins that are in the design but are unplaced
$select_unplaced_schematic_instances();
local num_pins = $get_select_count();
local pins = $get_select_set();
local placed_pins = $create_vector(40); // list of pins we did place
$unselect_all();
for (pin=0; pin < num_pins; pin = pin + 1) {
	local this_pin_handle = pins[pin];
	local pin_name = $get_object_info(this_pin_handle)[3];
	local pos = $string_locate(pin_name, "PIN", 0);
	// If this has "PIN" in it, it's a pin, otherwise it's probably a cell or port and we don't
	// want to place them in the padframe!
	if ((pos != UNDEFINED) &&( pos >= 0)) {
		// Good, we're a pin so let's get the pin number so we know where to put it
		// in the frame.
		local pin_no = $number_string(pin_name[pos+3:length(pin_name)-1]);
		// Select this pin, only, in the schematic to use $place
		select_schematic_instance(pin_name);
		switch (pin_no) {
			// Check the pin number and then place the selected object at the correct place in the frame
			case 1,3 : $place_on_row(origin+[2910,1760+(pin_no*285)]); break;
			case 2,4 : $place_on_row(origin+[2910,1760+((pin_no-1)*285)],@horizontal); $flip(@vertical); break;
			case 37,39 : $place_on_row(origin+[2910,1760-(40-pin_no)*285]); break; 
			case 36,38,40 : $place_on_row(origin+[2910,1760-(41-pin_no)*285],@horizontal); $flip(@vertical); break;
			case 27,29,31,33 : $place_on_row(origin+[335+(pin_no-25)*285,320]); break;
                        case 26,28,30,32,34 : $place_on_row(origin+[335+(pin_no-26)*285,320],@horizontal); $flip(@horizontal); break;
			case 17,19,21,23 : $place_on_row(origin+[325,335+(24-pin_no)*285]); break;
                        case 16,18,20,22,24 : $place_on_row(origin+[325,335+(25-pin_no)*285],@horizontal); $flip(@vertical); break;
			case 13,11,9,7 : $place_on_row(origin+[335+(14-pin_no)*285,2915]); break;
	                case 14,12,10,8,6 : $place_on_row(origin+[335+(15-pin_no)*285,2915],@horizontal,0); $flip(@horizontal); 

		}
		placed_pins[pin_no-1] = "placed"; // add this pin to the list of pins placed
	}	
}
// now we need to place spacers for all the unplaced pins
local spacer = "$ADK/technology/ic/pads/ami120/analog/analog";
for (pin=1; pin <= 40; pin = pin + 1) {
	if (placed_pins[pin-1] != "placed") {
		switch (pin) {
			case 1,2,3,4 : $add_cell(spacer,origin); $move_on_row(origin, origin+[2910,1760+(pin*285)], @any, @selected); break;
			case 36,37,38,39,40 : $add_cell(spacer,origin); $move_on_row(origin, origin+[2910,1760-(40-pin)*285]); break; 
			case 26,27,28,29,30,31,32,33,34 : $add_cell(spacer,origin); $move_on_row(origin, origin+[335+(pin-25)*285,320]);break;
			case 16,17,18,19,20,21,22,23,24 : $add_cell(spacer,origin); $move_on_row(origin, origin+[325,335+(24-pin)*285]);break;
			case 14,13,12,11,10,9,8,7,6 : $add_cell(spacer,origin); $move_on_row(origin, origin+[335+(14-pin)*285,2915]);
		}	
	}
}
}