Program   ex5_10 (input,output);

Const
   %include 'ilap:nmos.consts'
   dwid = 2; mwid = 8;
   yh = 80;  xsep = 50;
   chipno = 1; maxport = 14;

Type
   %include 'ilap:nmos.types'

Var
   ports : array [1..maxport] of connf;
   i : integer;

%include 'ilap:nmos.specs'

Begin
   Initialise ('pads');

   EXTERNALSYMBOLSPEC ('Chip',chipno, 0, 0, 6*xsep, yh);

   fillport (ports[1], vddpad, left, (yh div 2)-(mwid div 2), mwid, metal);
   for i := 1 to 5 do begin
      fillport (ports[i+1], inpad, top, i*xsep, dwid, diffusion);
   end;
   fillport (ports[7], gndpad, right, (yh div 2)-(mwid div 2), mwid, metal);
   fillport (ports[8], cloutpadcl, bottom, 5*xsep, dwid, diffusion);
   fillport (ports[9], cloutpad, bottom, 4*xsep, dwid, diffusion);
   fillport (ports[10], outpad, bottom, 3*xsep+(xsep div 2), dwid, diffusion);
   fillport (ports[11], inoutpaden, bottom, 3*xsep, dwid, diffusion);
   fillport (ports[12], inoutpadout, bottom, 2*xsep, dwid, diffusion);
   fillport (ports[13], inoutpadin, bottom, xsep, mwid, metal);
   fillport (ports[14], outpad, bottom, 0, dwid, diffusion);

   PLACEPADS ('Full Chip', 'Chip', ports, maxport);

   Finish;
End.