
<<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.STREAM _ FS.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.