File: ProtoPins.mesa
Christophe Cuenod November 30, 1987 3:49:20 pm PST

generate a ProtoPins part for EXPERT.
The pads stacks are:
- Standard pins   stack 1
- Power pins    stack 5
DIRECTORY
Commander USING [CommandProc, Register],
Rope USING [ROPE],
FS USING [StreamOpen],
IO USING [Close, int, PutF, STREAM];
ProtoPins: CEDAR PROGRAM
IMPORTS IO, Commander, FS =
BEGIN
ProtoPinsProc: Commander.CommandProc = BEGIN
i: INT;
out: IO.STREAMFS.StreamOpen["ProtoPins.part",$create];
IO.PutF[out, "4096 2048 -400 -100 600 5775 -100 -400 ProtoPins PARC-ProtoPins J\n"];
FOR i IN [1..11] DO
IO.PutF[out, "%g 0 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i IN [1..11] DO
IO.PutF[out, "%g 100 VCC 1 19 256 4 5\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i IN [1..11] DO
IO.PutF[out, "%g 200 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i IN [1..11] DO
IO.PutF[out, "%g 300 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i IN [1..11] DO
IO.PutF[out, "%g 400 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i IN [1..11] DO
IO.PutF[out, "%g 500 GND 1 19 256 5 5\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i IN [1..11] DO
IO.PutF[out, "%g 600 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i IN [1..11] DO
IO.PutF[out, "%g 700 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i IN [1..11] DO
IO.PutF[out, "%g 800 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i IN [1..11] DO
IO.PutF[out, "%g 900 VCC 1 19 256 4 5\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i IN [1..11] DO
IO.PutF[out, "%g 1000 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i IN [1..11] DO
IO.PutF[out, "%g 1100 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i IN [1..11] DO
IO.PutF[out, "%g 1200 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i IN [1..11] DO
IO.PutF[out, "%g 1300 GND 1 19 256 5 5\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i IN [1..11] DO
IO.PutF[out, "%g 1400 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i IN [1..11] DO
IO.PutF[out, "%g 1500 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
IO.Close[out];
IO.PutF[cmd.out, "File ProtoPins.part written\n"];
END;
Commander.Register[
key: "ProtoPins", proc: ProtoPinsProc, doc: "Generates ProtoPins.part files\n"];
END.