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. ΐ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 Κ6program–i(firstHeadersAfterPage) {1} .cvx .def (firstPageNumber) {1} .cvx .def (oneSidedFormat) {.false} .cvx .def– "Cedar" style˜– "Cedar" stylešΟnœ™Kšœ2™2KšœΟkœ™&K™K™™K™K™K™——unitšž ˜ Icodešœ žœ˜(Mšœžœžœ˜Mšžœžœ˜Mšžœžœžœ˜$—š œžœž˜Mšžœžœ žœ˜—Lšž˜š œž˜,K˜Mšœžœ˜Mšœžœžœžœ&˜9JšžœR˜TJ˜šžœžœ ž˜Mšžœ$žœ˜9Mšžœ˜—šžœžœ ž˜Mšžœ(žœ˜=Mšžœ˜—šžœžœ ž˜Mšžœ&žœ˜;Mšžœ˜—šžœžœ ž˜Mšžœ&žœ˜;Mšžœ˜—šžœžœ ž˜Mšžœ&žœ˜;Mšžœ˜—šžœžœ ž˜Mšžœ(žœ˜=Mšžœ˜—šžœžœ ž˜Mšžœ&žœ˜;Mšžœ˜—šžœžœ ž˜Mšžœ&žœ˜;Mšžœ˜—šžœžœ ž˜Mšžœ&žœ˜;Mšžœ˜—šžœžœ ž˜Mšžœ(žœ˜=Mšžœ˜—šžœžœ ž˜Mšžœ'žœ˜Mšžœ˜—šžœžœ ž˜Mšžœ'žœ˜