A POST PROCESSOR TO INTERFACE

THE APT PROGRAMMING LANGUAGE WITH A

NUMERICALLY CONTROLLED DRAFTING MACHINE

RESEARCH REPORT

Presented in Partial Fulfillment of the Requirements of the

AMC Production Design Graduate Engineering
Intern Training Program

by

Wallace Lee Burns

PRODUCTION DESIGN ENGINEERING DIVISION

DEPARTMENT OF ENGINEERING
USAMC INTERN TRAINING CENTER - USALMC
Red River Army Depot
Texarkana, Texas

I
 used. ir: program-

nur:g numerically co~;.trol1er1 machin.ps. A specific post

processor is described 2nd the prograPl listing i.s r;ivcn.

This post processor """as designed -to interface t.he APT/360

system with a. Gerber 622 draftiY1.8 machine. JIr technique
is then presented WJlj CJl ~ilat De used to modify a post pro-

ce:::-;c or.

ii
 Sincere grc'-1.titw18 is expY'esSe(lr.0 Dr. Ibger rlcNichols,
Ass Dci ate Professor Iniustriul ir:w. 0-; Y1eo1"1"""a
~J-\l.{.J .,. __ '- '.' tt<.?, "",<OY~""
- ~-# ~.W
••
fJ.prT'.'.,
IJ_'.'.

topic and prepari.ng this paper; to Dr. Uda Pooch, Assistant

Professor CO~!·!puter So 1ence, fa1'~ hiS suppo.... t j nus; nij the
Gerber dre.fting machine and jn pyogrammillg in APT; to
Dro •...ToSGph Foster, Assoc~ate ProFes$or Industria] Enzine-

ering, for h::1.s t hnc an'·) effort th. rougheut the .£lnU rc proGram;
ayv3 to the Do S. Army Mater'leJ. COIT;Ji1ar:d for thE' oppa-.r>tunity

to partl.ci pat~ .:it! Such a rewarding Vl"'OSt"al1\~

..
Chapter
I IT\JTI10DUCTION. 0 • 0 • 0 Q Q 0 • 0 0 0 0 Q 00.0000 •• 0 0 • 0 0 0 () () 0 • 0 0 0 1

II RELATED FUi3T,,!CATIOt\1S,0 0 0 0 a 000 Q. 0 11.0.00.0.0 •• 000 (> 0 0

5
III THE APT SYSTEMo900000000000~Qooo.oeooooooo.oooooo 7
IV 12
V POST PROCESSOR ~'IODTFTC:ATIOI'J. 0 0 0 0 • • (' 0 0.00 •• 000000. 23
VI Sill1r 1ARY.
I
0 0 0 0 0 a 0 0 0 ~ 0 0 0 coo 0 0 0 fI 0 0 • 0 0 • 0 • 0 0 '" 0 c, 0 no. (1 0 0 0 26

Appendix
A 29
B POST PROCESSOR TlARIABLES, CONSTANTS, AND FLAGS 00" 92
C SUBROUTINE BELATIONSEIPSoooooooooooooooooo.oooooo 95
D 96
E GERB1:;:2 POST PBOr:;ESS02 INFC:?;-LlTTOY F02
?l\r~T r·~~.ffiRAl\·;r'~Jr~G. o. 0 0 0 I) •••• 0 II' 0 0 .0 ••••• 0 • 0 ••• 0 0 • • • 98
F JOB CONTROL LA'TCC"AGE POR SYSTSII r':APJTE~JANCEo 0 0 000 104

:tv
 FIC}lTBES

Figure Page
10 FLml CHART OF N/C rHOC:S.3's CSTI'JG APTooooe.<>oooeoooe 8

20 APT SYSTE~'l I:;lL'~)~:.J ~!~ll..~~T 0 0 0 . ') • 0 0 " 0 0 •• 0 Q • t" • a 0 Q •• 0 0 0 • 0 • o

/
 CHAPTEE I

INTRODUCTION

Numerically controlled equipment was developed in the

1950's through the joint effort of the U.S. Air Materiel
Command and the Massachusetts Institute of Technology.
Over eighteen percent of the total value of industrial
type metalworking machine tool shipments in 1968 were nu-
merically controlled. This figure is expected to increase
to thirty-five percent by 1975. Almost every command,
arsenal, and depot of the U.S. Army Materiel Command is
involved with numerical control (N/C). Rock Island Arsenal
. alone has over forty machines which are numerically
controlled.
Today N/C is more than just a machine, it is a
manufacturing concept. The tremendous advances in manu-
facturing technology, cor.trol systems, and computer hard-
ware and software in the past decade have contributed to
the great success of the N/C manufacturing concept. One
major advancement in computer software was the development
of the automatic programmed tool (APT) lanrru8.2:"e.
~--' '--'

APT was developed by the Massachusetts Institute of

Technology in the late 1950's. In 1960 the Aerospace
Industries Association set up the APT Long-Range Program
to continually monitor and update the AprP system. Today

1
 2

this responsibility is being fulfilled by the Illinois

Institute of Technology.
liPT is a general language which can generate commands
to control any num.erically controlled machine. Most N/C
machines have different machinB languages, input formats,
parameters, and capabilities. This requiros an additional
computer program to translate the results of the APT
system into a set of instructions for each particular N/C
machine. This program is called a post processor and is

the key to successful implemerltation of the APT system.

Aside from translati~g the APT output, the post
processor processes data for special functions of the
machine which cannot be processed in APT. For example,
if an N/C·drafting machine was to be used to draw a large

number of graphs, a routine to draw and label the co-

ordinates could. be incorporated in the post processor.
Additional machining requirements, new features which
.
lmprove th e mac h · ' capaol
lncs " . 1 L~le8,
~ +-. an dcnanges
' . th e Apm~
In

system itself cause modifications to the post processor.

These revisions may occur as ofte'1 2.3 every two or three
months, or they may never occur in some cases. But when
a revision is required, it is usually very important.
Each change is usually peculiar to that post processor.
However, there are characteristics common to most post
processors which must be recognized by a programmer.
 The purpose of this paper is to describe a post
processor for a Gerber numerically controlled drafting
machine, give a procedure to modify the post processor,
and present an example of the post processor documentation
which must be furnished to the part programmer.
Although very little information has been published
relative to writinE post processors, there are some
system guide lines for implementing post processor changes.
These references and other publications concerning N/c
and APT are discu:3sed in Chapter II.
A gener-al Imowledge of Aprr is required of anyone who
performs mai~tenance of th0 system. It is assumed, but
not required, that the reader has a basic knowledge of
programmLlg in AP'2. However, the APT system is so in-
volved that very 'P ew individuals unders tand the complete
system. Therefore, a brief overview of the system is
given in Chapter I I I .
Before a progra-~,l~'1Cr can modify a post processor, he
must interpret the cxistin.s; one. Chapter IV explains the
functions of each subroutine and the basic control tech-
niques in the Gerher Post Processor. This will enable
the reader to follow Chapter V which demonstrates a pro-
cedure to modify the Gerber Post Processor.
APT systems vary sOQ8what for different types of
computers, even though their fu~ctions and outputs are
 4

essentially the sarno. The APT system described in this

paper is the IBM System 360 which is one of the library
programs of the International Business Machine Corporation.
Chapter II furnishes a description of the documents which
pertain to this system. Other material concerning APT is
mentioned in this chapter.
 CHAPTER II

RELATED PUBLICATIONS

Numerous books about N/C and hand programming are

available, most of which are adequate. However, informa-
tion on programming in APT is somewhat limited. Two books
which describe this technique are APT Part Programming (1) *
and the System 360 Part Programming Manual (4). Both offer
a complete description of part programY1ing, including
many examples and sample part programs.
Because of the great advances in numerical control
technology, many articles have been written on the subject •
. These articles are scattered throughout many machining
and manufacturing magazines op.eau.se of the Nide and various
subjects that relate to numerical control. This presents
some problem in finding information on a particular aspect
of numerical control. One bibliography (7) is available
· h
Wh 1C l '1S t S per1o.
-' d'lea
. 1 s '_I.ea._Inc;
-" l ' .' t·,
l'iJ.. ~,T 1(';
,(1 H/J. The articles are
arranged in chronological order within detailed SUbject
catagories. N/C Vlorld (8) is the only periodical which
is devoted entirely to numerical control. Articles in the
magazine are written for the novice as well as individuals
i'rho' are pron.cient in trw' fi 01<1 of :vJ1.:'JIlertcal control.

* Numbers in parentheses refer to numbered references in

the List of References.
5
 6

Information on the APT system, its structure, func-

tions, operating procedures, etc., is limited to companies
who furnish APT •. The IBM System 360 is composed of three
numerical control programs: AUTOSPOT, AD-APT, and APT.
The System Manual (5) provides detailed information of the
programming logic employed in the APT system. It gives a
full description of the APT processor, including functional
flow charts, reference tables, and a description of each
of the load modules and their subroutines. Possible pro-
cessor generation and maintenance techniques are discussed
in the Operating Manual (3). It also describes program
setup instructions, console operating instructions, halts
· and error messages, and restart procedures. The Part
Programming Manual (4), System Manual (5), and Operating
Manual (3) along with the Gerber Post Processor and post
processor user documentation provide the basic information
for programming and maintaining the Gerber drafting machine
using APT.
The following chapter discusses the basic structure
of the APT system. Included in the discussion is a de-
scription of the load modules and some of the system sub-
routines which are directly related to the post processor.
 CHAPTER III

THE APT SYSTEM

The expression "APT system" pertains to the language,

computer program, and the computer on which the program
is used. The APT language describes a sequence of opera-
tions to be executed by a numerically controlled machine.
The APT program is a program which receives a set of in-
structions (part program), makes certain calculations, and
creates a sequence of numerical commands. Figure 1 shows
a flow chart of the numerical control process using APT.
There is a tremendous difference between the informa-
. tion that goes into a part program and the information that
is produced by the computer. The part program may consist
of only a few statements whereas the computer output may
contain thousands of commands. Every operation, cutter
location, etc., required to produce the given part must be
given to an N/C machine. If 1,000 incremental steps are
required to produce the des ired. accuracy on a Q1..1rved. sur-
face, then the coordinates of each move must be given to the
N/C machine. If APT was not used, the proGrammer would
have to calculate each point and each point would have to
be punched on the control tape. However, when using APT,
the programmer needs only to specify the surface, by an
equation or other means, and specify the required accuracy
and the computer will calculate the points and generate the
..,
{
 8

Drawin,s
Specs.

Program
l1anuscript
I

.~
/
/
/
Card -
I Deck -

t
1m.!
360

1
Either

Cards

f/lachhle I Card
to
Control181
Tape

N/C I-------~ Fini shed.

f:Iach:i.ne

Figo 10 Flow Chart of N/C Process UsinG APT

 9

control tape. Thus, APT has reduced the effort of part

programming to a minimum and increased the capabilities of
machining with numerical control.
The IBM System 360 is divided into two partitioned
data sets. The first set, named SYSl.APTSYS, is divided

the second data set, contains t~"1enty load. ";Ql';.~es ·.. :~"lich

are used to store up to twenty different post processors.

Figure 2 shows a flow diaS'ram of a program through the
different phases of the system.
SYSloAPTSYS processes the part program and directs
the flow to the post processor load nodules. ASECTO is the
first load module :tn SYSl.APTSYS 0 It obtatns control from
the opGrating syste:n through the execute statement in the
job control languageo After receiving control, ASECTO
regulates the flow of the APT system. This includes the

other four load modules of SYSI.APTSYS and the other

kSSCTO
Control
Phase
/
./
-~---

---
ASECTl
Sten 1
_ _ _- L stop 2
./
ASEC'~2
-----------
ASECT3
3 - Step 4
;::;t~p

ASECT4
r---=~----'

Translator Ari thr:,et j c Sdit Phase Linkat;e to

Phase Phase IPo Processor
stdp 5 . I

Post
Processors

Fig. 20 APT System Flow Chart

 10

partitioned data seto The control is regulated by the

ACNTRL routine. Flags are initiated when processing first
begins, then on the completion of each phase of the pro-
cessor the flags are checked to verify that no errors were
committed and processing should continue. ASECTO also
contains all the input/output routines of the system. It
returns control to the operating system when execution is
terminated or completed. Checks for certain types of part
program errors are made in every phase of SYSl.APTSYS.
ASECTl is the second load module of SYSl.APTSYS. It
contains the input translator phase of the APT processor.
Two passes are necessary to perform the required operations
. of this phase. The part program is decoded and some input
varifications are made, the outPllt is stored in the PROTAP
file for future processing, and ACNTRL is called to return
control to AS3CTO.
The arithmetic element is contained in the next load
module, ASECT2. The processor calculates all the cutter
locations during this phase. The PROTAP file produced in
ASECTl is read and stored. Then appropriate flags are set
and control is transfered from ASECTO to A2CTRL, the con-
trol routine of ASECT2. Next, the calculation routines of
ASECT2 are called as required to process the data. On
completion of this phase the output is stored on the cutter
location file, CLTAPE, and control is returned to ASECTO.
 11

Load module ASECT3 contains the edit phase of the

processor. Editi';" operations, such as THACUrE, CLPRINT,
which are specified. in the part proc;ram are performed
during this phaseo Control transfer is identical to ASECT2
except routine SECTN3 receives the control.
The post processor phase of the APT system is in-
corporated in load module ASECT4. This phase provides the
linkage for the post processors. The subroutine DISPAT
passes control from ASECT4 to the desired post processor,
which is executed, and then the control is returned to
ASECT4. This is repeated until all of the post processors
which were designated in the part program have been
. called. The system then checks to see if another part
program needs processing.
The information in this chapter on the IBM System 360
was taken from the System l'lanual (5) and the Operating
Manual (3)0 The reader should consult these manuals for a
more detailed description of the APT system.
In the following chapter a post processor for a
Gerber drafting machine is explained. This description,
along with the program listinG of the Gerber Post Processor
in Appendix A, will [;i va the reader a lJetter understanding
of a nost nrocessor's
~ ,. structurco
 CHAPTER IV

THE GERBER. POST PHOCESSOR

The Gerber 622 drafting machine is a two-axis nwneri-

cally controlled machine with a pen control (up or down)
in the third. axis. The T1D.xi.'J1um drafting area is 60 inches
horizontally and 40 inches vertically. The machine is
capable of drawing with anyone of six pens located on a
turret. The machine's control unit includes a d.rafting
pen speed control with a maxirnwn rate of 145 inches/minute,
start and stop buttons, and switches to rotate axis. A
scaling selector is provided. to modify the specified scale
by a factor of .5,1,2,.00.,9,10, and 16. The machine is
capable of maintainin:::; a tolerance of 0.001 inch over the
length of the table. The input to the drafting machine
may be either magnetic tape or paper tapeo
This chapter describes how the Gerber Post Processor
takes the resulting data from the first partitioned data
set, makes additional calculations, and processes the re-
sults. The post processor's output is cO'JJpatible with the
drafting machine I s input; \'J'hich is ~i ven jn Appendix Do
DISPAT delegates control to the GERBER subroutineo
This entry point is designated in the APOSTP common block by
the word GERBER with the suffix PP added to the word. This
subroutine is the control subroutine for the post processor.
The first phase of the GEHBEH subroutine initiates the
12
 13

variables and constants usr:;d. in the rontine. A list of the

variables. flags. and constants used in the post processor
is given in Appendix B. ~ext. tables are established for
the SETMIN subroutine. Then the SETMIN subroutine is
called. Its only purpose is to establish tables for the
CHKMIN subroutine. which is used later in another sub-
routine.
DATA XCODES and DATA ACODES statements set up tables
for the APT subroutine CLSETP. XCODES are subroutines
wi thout parameters and ACODES are subro'Jtines with pa-
rameters. NX is the total :'1 1 )mber of XC ODES and ~!A is the
total number of ACODES. 1,.lJhen the CLSErrp s'Jbroutine is
· called. it initiates the CLREAD subroutine. CLREAD reads
and decodes the file on which th2 data from the APT system
is stored. The first parameter of the CALL CLSETP state-
ment designates the file. The data for this post processor
is in the CLTAPE fileo
The DATA routine is an IBN library subroutine. It
prints out the month. 1ay. and year. when called. PUNCHB
is called to initialize the output. The (-1) as the third
parameter dumps out all its buffers to make sure it is
clear. This ends the initialization functions fOr the
GERBER subroutinG 2nd also for the post processor. The
remainder of the subroutine monitors the post processor
according to the part programo
 14

The CALL CLREAD statement begins a loop within the

subroutine which directs the control throughout the entire
post processor. As previously mentioned, the CLREAD state-
ment reads and decodes the CLTAPE file. The CLREAD pa-
rameters are defined as follows:
NR is the current tape record number.
NW is the number of words of data in array Wo
'IV is the array in which the data is stored.
M is the class for the particular data being read.
N is the subclass for the particular data being read.
After reading the file, the progra~ branches according
to the class and subclass of the data. The classes and
. subclasses are defined in Appendix B. The subroutine pro-
cesses the commands and corresponding data in the order
that they appear on the part program.
GERBER then calls the post processor subroutine
required to process that particular class of data. When
that subroutine has finished, control is returned to the
GERBER subroutine and the next array on the CLTAPE file is
processed. This loop continues until the FIN I subroutine
is called. Upon completion of the FINI subroutine the
control is returned to the APT system by calling DISPAT.
The BLOCK DATA routine sets values for some of the
constants used in the post processo~. It also sets initial
values for some variables and default values for other ones.
The ffiJD subroutine completes a plato A plot is all
 15

the motion commands between two FROM commands. First,

an initial error test is made by checking the IFROM flag
to make sure the subroutine FROM was used. Then a cross
is drawn at the present pen location and LEADER (2) is
called to generate blank tape at the end of the program.
Next, the subroutine updates the number of cards and ap-
proximate length of paper tape for the N/C machine and
prints out the information. The IFROM flag is then reset,
the number of pages is set at zero, and the number of plots
is incremented by one. Then the line count is set at
fifty-two so that the next printout will be at the top of
the next page. Control is then returned to GERBER.
The STOP subroutine prints a MOO command on the tape.
This is accomplished by calling PUTOUT (4), which prints
out the stop command and calls PUNOUT (7). PUNOUT (7)
calls the APT subroutine CONBCD, using MCODE as a param-
eter, which generates the rIOO comma.nd on the tape. MCODE
is reset and control is returned to GERBER.
The DRAFT subroutine is used to process DRAFT/ON,
DRAFT/OFF, and DRAFT/DASH cO'11mands. The IFHOM flag is
first checked to confirm that a FROM command was previously
made. Then the APT subroutine CHKMIN is called to verify
the first parameter o! the DASH statement in the part pro-
gram. Then the APT subroutine CHI N.IN is called to verify
the first parameter of the DASH statement in the part
 16

program. It does this by checking the parameter against

those established by SETNIN in the GERBER subroutine. If
this test is passed, the program branches according to
what value was assigned and the pen is 'set., A check is
then made to see if another parameter was given in the part
program. If not, control is returned to GERBER. If
another parameter was given, j,t is checked by CHKMIN and
then branches accordingly. If the parameter is a pen
change, the turret advances to the proper location and

control is returned to GERBER. If El'JDJ\PV was spec ified,

the arc lengths are calculated and PUTOU'f (J) is called
to printout their values. Then control is restored to the
· GERBER subroutiLe.
Subroutine MACHHJ processes the MACHIN/GERBER state-
ment in the part program. GERBER is first checked to as-
sure it was the post processor that was called. This is
accomplished by comparing IiVIACHIN to the index NUMPTR of
subroutine ASISTM in the APT system. After this verifi-
cation, the proper output format is established by setting
NDECML, NDIGIT, IZEROS, and PFMT. Next, the type of output
is set, and the information is printed out in the program.
The PARTNO routine is used to initiate the printout of the
post processing phase. The subroutine calls HEAD to print
a heading on the top of the page and then prints out the
program name or reference that was specified in the PARTNO
statement of the part program.
 17

The FROM subroutine is used to designate the coor-

dinates of the pen's present location and initiate a plot.
First, the IFROM flag is checked to assure that two FROM
statements were not called without an END statement between
them. Then the pen position is given the values specified
in the FRO~1 statement of the part program, blank tape is
punched out, and the values are printed in the output. A
0.1 inch cross is drawn, the IFROM flag lS set, and the
control is returned to GEFmER.
Incremental moves are processed by the GODLTA sub-
routine. The incremental values are read and the pen's
coordinates after the moves are calculated, and the MOTION
. subroutine is called to process the move. The GOTO sub-
routine is similar to the GODLTA subroutire except the
parameters are final pen coordinates instead of incremental
moves.
The MOTION subroutine makes preliminary checks and
calculations before calling the subroutine to punch the
data and commands which direct the numerically controlled
machine's moves. The maximum allowable move (DMAX) along
any coordinate is calculated first. An indirect check is
made on the specified format when this distance is compute~

The maximum distance for a 1.3 format is ten inches while

a 2 3 format allows up to twerty inches along any coor-
0

dinate. The desired move (AL) is computed and compared with

 18

DMAX. Then AL is compared to .0005, the minimum allowable

move. If the motion is within the limits, ARCL and ARCS
are revised. Nex~, the area between the incremental move
AL and the X-axis (DAREA) is calculated. New coordinate
values of arc ARCL's centroid and the arc's new area are
determined. Then PUTOUT (1) prints out the information
and calls PUNOUT (1) to generate the commands on the tape.
Subroutine FINI terminates post processing and returns
the control to the APT system. IFROM is checked to insure
that an END statement was specified after the last FROM"
statement. Next, the subroutine generates an MOO command,
punches blank tape at the end of the program, and dumps
. the output buffer. NPLOTS is decreased by one because it
had an initial value of one. This value, along with the
number of cards punched and the approximate length of paper
tape that will be generated by the cards is printed on the
output. CARDPN is called to generate an "end of file" on
the tape and DISPAT returns the control to ASECTO in the
APT system.
The HEAD subroutine prints a new heading on the top
of each page of the printout. It is called any time the
line count of a page reaches 50 and the current page is
ejected. The subroutine increments the page number and
initializes the line" count. Then the heading is printed and
control is returned to the routine that called the sub-
routine HEAD.
 19

A Oel inch cross is drawn by the CROSS subroutine at

the beginning and end of every plot. The commands are in
the data statemen~ of the subroutine; therefore, PUNOUT
(II) is not used to generate any output and PUNCHB is
called directly by CROSS.
Subroutine LEADEH (I) produces blank tape at the be-
ginning and end of a plot or a part program. It also
initializes some features for punching cards. The param-
eter I is o~e when leading tape is desired. The APT sub-
routine PUl'HDf'l designates that the word GERB be punched
in columns 73 through 76 of all the output cards. PUNSEQ
specifies the value O. as the starting sequence number of
. the output cards. PUNCHB is m·;ed to c;€nerate 72 blank
characters at the beginning of the tape. Then it is
called again to place four end of blocks ($) after the
blanks.
When the parameter of .LEADER (I) has a value of two, the
subroutine punches two end of blocks followed by 72 blank
characters, which is used to produce a trailing tape.
Then PUNCHB is called to dump the buffer and the control
is returned to the subroutire that called LEADER (I).
The program listing for mOGt of the post processor's
output is produced by the PUTOUT (I) subroutine. The
parameter I designates which write 2tatement should be
used when the subroutine is calJ.cd. When the pen command
 20

(DCODE) is equal to four (initialized in the DRAFT rou-

tine), a branch is made to the DASH subroutine. The DASH
subroutine calcul~tes the incremental moves of each dash
of the dashed line and calls PUNOUT to generate the com-
mands. Then the control is returned to PUTOUT.
Data is prepared for punching in the PUI'!OUT (II)
subroutine. The routine branches on II according to the
type of data to be p1.E'C hed. Then the? APT f~ubroutine

CONBCD is called to convert the information to a fixed

EBCDIC format. The PUFCHB subroutine is called next to

punch out Hollerith input as Hollerith characters. All the
data for the numerically controllert machine must be pro-
. cessed by PUNCHB.
When the post processor ietects an error in the part
program it calls the ERROR subroutine. The ERROq sub-
routine prints the appropriate error number in the program
listing and takes appropriate action where applicable.
The LETTER subroutine initializes the parameters used
in lettering. After reading their values, the character
size and the angle of printing are checked for feasibility.
Then JFLG is set according to the results of the check
and control is returned to the GERBER subroutine.
The characters to be drawn are processed by the
PPRINT subroutine. The data to draw each character is
listed in the BLOCK DATA routine in the array CIMRTR. The
 21

first dimension of the three dimensio~al array is specified

by 1+ the decimal representation of the character in one
byte. For example, A is designated by the value 194(193+1).
The second dif.lension is the ith command of L commands which
are necessary to draw the character. The Jast dimension
of the array designates the type of commard, such as x
component, y component, or pen command.
The routine checJ\.s JFLG to verify the parameters
which were specified in the LE'I'TEH routine. Then the sine
and consine of the angle of letteri~g is calculated and
the characters to be printed are listed on the printout.
After moving the pen to the point whcre the lettering be-
· gins, the subroutine goes into two loops to process each
character to be drawn. The outer loop determines what
each character is by determining the deci~al representation
of the character. The inner loop processes the commands to
draw each character by using the data in the BLOCK DATA
routine. After processing the character2, the pen is
returned to the poirt where lettering began and control is
returned to the GERE·;:m 3ubrouti'ie.
The final sl1broutine, CAEDPN (A, iT ,I1, I,D), replaces
the ACRDPN subroutine in AS~CTO. This allows the output
for the N/C machine to lJe on punched ca:cds anj!or magnetic
tape. This concludes the discu3sion on the subroutines.
Appendix C shows the ~e~eral relatlo~ship between these
 22

routines and also those which are called in the APT system.
This graph may give the reader a better overview of the
post processor.
A part programmer is usually not concerned with the
informatiol: given in Chapter IV, only individuals perform-
ing maintenal:ce on the system. A cuide is furnished to
the part programmer which descrihes the capabilities of
the post processor and the criteria surrounding its use.
An example of such a document is given i~ Appendix E.

A basic knowledr.r,8 of the po~;t processor is not the

only requirement which enables one to update the program.
Certain procedures and the proper jo~ control language must
. be used to achieve this goal. Chapter V illustrates this
technique with an example of a recent modification which
was made to the Gerber Post Processor.
 CHAPT£.:;:{ If

POST PROCESSOR MODIFICATION

Analyzing the existing post processor logic flow

is only the first step in modifyi~g the post processor.
Next, new routines must be written and/or existing ones
must be modified. These new routines, along with all
the unchanged subroutines of the post processor, must
be compiled and link edited to create a new post pro-
cessoro Then the new post processor must be checked for
logic errorso The lettering routine was recently added
to the Gerber Post Processor. This modification will be
. used to demonstrate the above proce~u~e.

Two new subroutines were added to the post processor

to implement the lettering routine. The L"~TrrE:1 stlbroutine
initiated the lettering by defining t~e required param-
eters. These parameters are the point where lettering
begins, the character size, the angle of lettering, and
the number of characters to be printed. The PPRINT sub-
routine reads each character to be drawn and processes
the incremental moves requirf'!d to draw the letter. Both
subroutines are dep~ribed in more detail in Chapter IV.
The am01mt of data required to describe each character
was so large that the BLOCK DATA routine was used to store
the data. This eliminated any space requirements which
might exist if the data was specified in tte PPRINT
2]
subroutine. Thus, cha~~es in the BLOCK DATA routine were

made.
The output of PPRIN0 (incrome~tal ~oves) is the same
as some of the other subrou"tines in the post processor.

Therefore, PPRINT's output can be processed the sarno way.

However, I.ETTER and. PPRIIJT ntiS t receive c antrol :r::.~. om the

GERBE?t subroutine f::O they can perform thoir functions.

This required a change in t~e r0rber subroutine to allow

for control transfer.
After completinG the C 11'3. ""1[;08 , the new 801JrCe decks

for these four subrouti-/1CS ,3::" the aLl SOUTce decks for

all the unchanged rmbrontincs 0:'" the po~;t processor were

compiled. TIle requi:i.crJ jot C 0r.ctrol lanC1)8ces to ace om-

plish this task and other 3YGt~~ naint~naDcQ programmlng
are listed E: ,~pp::n::Jix F. '2."'he O,'"iput 0: t 11C c onpilation

is a hex deck which con~i3t8 of t'jlCX~;;:,ut2ble ii1aC~lne code.

The hcx decl~ L..:; thcn IJ2oCCPJ~(~ by thc~ lir..ka2;c editor to

produce a load mod '.11e, 'pl;ich h:.c ludcC' t'10 ;>e\'1 post prc-

cessor in e~:ecut3.tle )la::hire e'y'c. FO'.'i, chccts can be

same except that additional job control lanGuage is required

in the link edit f:::"COp. rrl-li:~ a~ldit~oY"rc2_ 18.'":;1:3. 6 8 deletes

the old post proces~o'~ :J>-:-: ~rlrl,.....

'-.-.,.",. ,.......
-i-l;, o'.. '1'"\""":\1'
.1". on~i ttin.g
 25

original post processor remains on t}le disk. The original

can be eliminated upon complete varification of the new
post processor.
 CHAPTER VI

SUrf-MARY

The first three chapters of this paper give the

reader a general overview of numerical control and APT,
along with a description of related material with more
detailed informatio~ in this ~rea. Chapter IV describes
the subroutines and functions of a specific post processor
which is used in the APT systen. The::',Q C1:zLpters should
give even the novice in rumcrical control a basic under-
standing of the APT system, a post processor, and their
interactions. The last chapter reviewed a technique for
. modifying the post processor.
Chapter V may lead the reader to believe that modi-
fying a post processor is reasonably straight forward.
However, many unique problems relative to the APT system
can occur during this prOC82S. Correcting these problems
may require a considerable amount of knOWledge about the
computer's systems, as well as the APT system. This
subject is too complex for discl;,ssion in this papero
The procedure discussed in Chapter V is simple and
direct. But each time a change or correction is made the
entire procedure must be executed. This requires a large
amount of computer core and machine time. A good area for
further work would be a description of possible techniques
to develop driver programs to check new and revised post
26
 27

processor subroutines for logic errors. This would elim-

inate the large cost involved in updating post processors.
These programs ar~ in use now; but very little documen-
tation exists which describes the various approaches in
wr i ting. the ,progralT: 0
 28

APPENDICES
 ,~',

~-~, ...... _._-

GERB~R ~pbSTPRO~'fS'SQR .LISTING pAGE 1 .. .u .

", ' - -,' , .- - .- ,/ ~,,, .',"':, ,', '. " . ' ", " ,-- - ,,' " ' " ,', -- ," .." ,~
C
***.* **'* *~<* ********'*** **~'*** ~ ****~;* ****************>1<********************
_ . . . . _.._.. {. * >:' ************'***.** ** *****lI<'* *** ******* ** *******************************
..~ ****>:<.!J' **,****; .~ . e£:' 'G' I N \1\:> 1J'S'.: t) PRO C E S S 0 R **** **.****
___ .__ c***********************************************************************
.__--.-C....J..> "';' .~.,.~--:-=~~ __ =~ ~ _
it
C '~AIN PROGRAM_F_OB.THE_GERBER POST PROCESSOR _
C
,-, -. Q
;
..
-_ - _.... - ..- '----_._-_._. ....._.sJ1B_BilULIN.L..G.E.B..8..EB.- .,_~_ .~ ._.....
cf v', ii: .'. :/' ... '. ". ~
......c G~W.LO"tLM)~O.t'!L1S.Q..:!t. ~ n l( 2, K3', K-4 t K 5-; K 6 , K 7 , KLK.2..LKJ. 0 , K 11 , K.J.2..JJ.iLA.1'iIL.... .~tz:j~~_
REAL*8 P~GTA9,C~~TAP,CltA~~~~bcTAP,PLOTAP,SRFTAP, ~
_ _--Ao.l-"-·~_~~PEStil~:~E$2' t TA~'~S'3';! TA PE'S4 '. , ~i __ i 0' • : ; ~ ._,_ _
CO/'AMONI AifA'P'T i81 PR'OT AN CANTAP, CLTAP E, pac TAP, P La TAP, SRF TA P, (f.l:x>
.. _. .. __ c..:::.~:.'C. ,._·~~t Af?;tS.t.i..IAiP.t~21.t~.eP3,.LI.l:i.PlituJ.NIA£>.E, IOU TAP, P1JliI A P _....~_ _ ~ __,. __
REA L 8 W:~" 'f"* .--. - :' ''- . . .... . '1j ~
___.__.. ~.,_ ...,-_.tJ MHrs.l_0.'.kjt.i2 5gJ_'_. ..:=-.: .__..__....__ . ,_. .__.__.. . &_ ~. ._.. _.. _.
. DIMENSION i O-1G'rtsHoV;CO'DESIS),PENCOM(S) trj R
_._... .__ ... . :HillJi.E.B_:.J Nit t:C.G'D 'eqDC b-tJ"E'iM CGO E I GLAS I I 0 LAS I ~ ~_._.. .__ ...
COMMON/GERBPP/W 0
._ lr .. ~ __.._·'..~.~_LffiiLiZil; 'U,_Y.2..t.lZlliXi b~f~b.' __.,______ .. . _. ~_._. __._ _.
2 c,.' i r1j(C~YC.'.l.(>'ARE,A,~;~~t;S:~ AR:Ct.'lM~JtSEQNb'H~) . ~
___ ._ _ 3._.~.' -... -~~.ilJ;tl(~~4-DJ;.QK)-FJi~.~D~, GL.AS.I.!.'oJ.,AS T I NPEthl..D.A..MiL~D I NW _.. ~ .__
4 ',DIGITS"CODES,PitNt~M,D,DASH,BDASH I-j

- - . -.-------------'-,: :L__... . ' NC I~ J T~ Np,E Cf:1 kl ~ TAP E ~

6 .' :.- ' ;, IF~OM,LlNE£tNPAGE,NPLOTS,NCARDS,PTLT
.._'-.__..,_.1 , ' .' i ,111l&!H"OAY iy E;A,uB-I.'j.£j'-X-l.·~.J..Y-l.'..>olS-"IJ.Z~E-I.'.J..T.!.JHu..E.J..T~AL11__\l.J.LE....L"!,,lG!...-- . _
C r ~\ '-01,

Rf A1. 4: Vi ~l2.L.:. . J " , : C. * C

~ '{ ,
-_.-.-- --·-·-·--E QU'·! VAL € Nc'e '( W(1 'l, ~ W'( t:j ; T
.----. ". ..!. :.. 'i / ·1 NIt tAL ftAT I'ON ROUT IN'E~; FOR GE~BER POS TPROC ES SOR
~~------------------------~ _ _t.\.) _
'0

... _... --=-~---------------------------------~_.

-~---.-_.- -------
 GERBER POST PRUCESSOR LISTING PAGE 2

o I MENS I ON TAaL13{Ll,_JAB2 (30) ,XCOQESJ 30 I ,ACODES (301

DATA TABl/18HOOOOONOOOOFFOODASH/,TAB2/12HOOOPENENDARCI
______~~_. .___ C .
C INITIALIZE SEIMIN,CHKMIN
~ .~ .~ .cA.LLSEIMllil.2._,_T_AB1~.l..3_JABh2"'-'1'----_~
c
~ INITIALIZE CLSETP,CLREAD _
DATA XCODES/'000ENDOOSIOP'I,NX/21
~ ._.__ QALA_A C.OD ESL'.QJJRf\ F_I r:'tAC_H~NJ?~H_TN Ot EI l.fB£e RLNJ.. !LlliAL.5L · _. _
CALL CLSETPlCLTAPE,XCODES,NX,ACODES,NA)
~c.. ._~_
CALL DATEIMONIH,DAY,YEAR)
.C I NI I I AL ll..L.""D..x.U-,-T-,-P-",,-U-,-I _
CALL PUNCHBll,BLANK,-l,OI
. .c_ .__ ___. RE~~D _ANU.. DEC ODE ..-C.LIA~.__E_ _
20 CALL CLREADlNR,NW,W,M,NI
_~ JLRAt'.-lCt:L__QN...QAI~_J;.LA-S.S_~.'~~.!~ __.__ ~_~ ~. . . .. _
GO TO 1100,200,300,400,500,600, 20, 20, 201,M
__._ ------------- --C.._. G.LA SS 2000 .---<-X.-_ll<..GO~DIotJE.....SoLlL..__ _
C BRANCH 10 X-CODES ON 'N'
--- --.~ _.~ ~ lOQ_..G'O_.I_CLJ l~Q_'_l2J1~N.. ~_~_ . ----_.... _.---_._-~--_. __ ._-----~ .... ,._ .. _ - - - - - - - - - - - - ,~--~_.

C END
__ ~ .11Q.CA LLE.N D. . ~_ ~._. ._
GO TO 20
_..._._.... -L. . SIDE
120 CALL STOP
_. GiL_TO_~Q. ~_. . ~ .~. __
C CLASS
(AUX-COOESI 2000
---- .------. ~__ ~ __ ~ __ c._~ .~_.~ 0 fL~'.l.'lNc.:.'
__ BRAJ'iCli_I.O...A.UX- COO ES _
200 GO TO (210,220,230,240,250),N
C. DRAFT
210 CALL DRAFT
_ _ _-----'-'G"-'O---'--'T0-2lL. _ ~ 'vJ . _
C MACHIN/GERBER,X o
 ----_._------"

i2£RBER eD~ROCESSOR LIST ING PAGE_3

22..O. LALL MACHI N
GO TO 20
___________________----..C- .__ PARTNG -----------------
230 CALL PARTNO
_______________.J2 C TO 20
C LETTER
-----_. -_ .•.. __._-- ____~~~~_CALL LETTER ------------------
GO TO 20
____ .c.___ _ PoP R I NT _
250 CALL PPRINT
___ __ __ _ .G_C 10 __2..Q _
C CLASS 5000 (3-AXIS COMMANDl
___________________________L________ MOT 1 ON COM~S. _
300 KD=3
___ .c______ __ _ 6RANCJ:L..GJto.L_t-tO.Tl.D1L.1Y.Pl_!..N.!. .__ _ - _
310 IF(N.GT.4lGD TO 20
_ . ~ . .. ..
_______________J F LN.~,~E.•..3... AN Q~_l f BC_M._~J'iE_._l.l~ALL_ERB."'O_RJ 5.J _ _.-..... _._--------_._.- __ ---_...
GO TO (350,350,330,340 ),N
.~-- .. ~.
_.__ - _... __._---- __ _ __ _..G__________ A • FROM' ~t'I.M_A~lL
330 CALL FROM
__ _ 2-'LO
Gil J.D_ ..... _
C A GO DELTA COMMAND
_340 _C At L_GQIlLTA___________ _ .__ _
GO TO 20
C A....GlL.JO COMMAND...
350 CALL GOTD
- ---- ------- --------- - GiL.I1l.2...~ _
C CLASS 14000 (FINI)
___________________________________AQQ..CAL LEI N I
GO TO 20
C CLASSnu5..O..O.Q (MULTAX)
500 KD=6
.Gll TO 310 \..V --
l-'
C CLASS 1000 (SEQUENCE NUMBER)
---------- ----------------------------
 32

~I
~I
0.

j
I

J~
i
I i,
i
~i I
.... I

~;
I- I
....
Vl
I

ra
3:~
I
..J
l
rY.
0
Vl
--
NO
I
Vl
w
u! =1=
00
~Zl-
~I
0.,
~I~~~
Vl Vl W
I-
oj
' I
I
Vl
0
0.
o
-.01
I
I
ad
w
I ;
co i
i
rY. I
W
~ i
I
I
I
I
'I
 GERBER POST PROCESSOR LISTING PAGE 5

C ----------
BLOCK DATA
_________________ J3,.E1I-U-lL DUMM_liltL-
COMMON/ATIME/OUMMY
_________________COf!J1QI::l_L.A.Q.CQN1..K.Q , K 1, K2, K3, K4, K5, K6, K"1-, K8, K9, K1 ,_ill, K12, BL~
°
CGMMON/ASISTM/ICUMMY(22)
_______________ REAL*a PPNAME 120)
COMMON/APOSTP/PPNAME
R.EAL!..8uPJW TAP, CAN TAP--,-~LL~P_LJ?O CTA P.t2.-L.D TA_e_L~H,_EJ AP-,-' _
1 TAPES1,TAPES2,TAPES3,TAPES4
___________ _ JlilE_GE..R P1LI'iIAP _ --_._--_.- - - - - - - - - - --
COMMON/CHARTR/CHARTRI252,18,3)
____________________________-C.!.:LM110N/ATAPTBI PROT AP., CANTAP, CLTAPE, POC TAP~Cil.A..e.LSJ:~~fTAP, _
1 TAPES1,TAPES2,TAPES3,TAPES4,INTAPE,IOUTAP,PUNTAP
__________RE Al.*a... K _
DIMENSION w(252)
___________.0 L~E.NllDN_Dl.G lllll Qll..cJlD£S_La.h.P .ENCQl1.L8_L_ _
INTEGER IN,GCODE,DCODE,MCODE,GLAST,DLAST
___________________ _ -C..CM~ 0 NI GE.B..aLPL.. PLIWll-. _
1 ,Xl,Y1,Zl,X2,Y2,l2,DX,DY,Dl
_______2..____________ , XC, YC..tLG., ARE A..t...ABi..S..t.ABJ:h~lt..Sf.Q.~.DJ2l _
3 ,IN,GCODE,DCOOE,MCODE,GLAST,DLAST,NPEN,IDASH,KD,NW
_______4_ _ J_DJ{illi, W_D..E.S..,.P_EliCD&DDASIi--LB DAS1:L _
S ,NDIGIT,NDECML,NTAPE .
________________.._ _~_ , I FROM,L I NEe, NpAGF, NPI OTS, NeAR OS ,PTLI
7 ,MONTH,DAY,YEAR,X,Y,SIZE,THETA,JFLG,NLET
_________ DATA Xl ,Y 1, Z1, X2 ,Y2, l2..tJ)X, DY,JlZ.l5LlIill.....<-I _
1 ,XC,YC,lC,AREA,ARCS,ARCL,AL,SEQNO/7*0.,' 'I
_______ ___L , I Nt GCOD E, DCa D~ COD E, GLAS T, DLAs'T, NPEN, KDI 0 , 1 , 2 , 99 ,0 , 1 , 3L
°,
3 ,DIGITS/'O','1','2','3','4','S','6','7','8','9'1
L __ --,-CODES I ' N .!.--'-'.G ' , ,X '...L'-_Y.__Lt...'Z ' , 'D__ ~Q.Q.I-" ' $ , LI _
6 ,PENCOM/'DOl ','002 ','003',4*' ','008'1
---_._-_.- __~7L- LUQASH.BDASH,NDIGIT.NDECML,NTAPE/O.2,O.1,5.3,OI w
8 ,X,Y,SIZE,THETA/O.O,O.O,O.l,O/ w
------------------ ---------------
-----------_ ..... _--_ ... __.-_.__ . _ - - - - - - - - - - - - - - - - - - - - - - - - - - _ .

GERBEiL.E..QSl ..P_R.QUS S aR lIS T I NG PAG E -.£L. _

tIEROM,~INEC,~GEtNPLOTS,NCAROS,PTLT,NLET/O,51,O,1,O.O. ,661
e
.c... _. I H E CtiARA CT ER '_BL.MK.' _
C
..... _. -.D.Al.A....GtlARIfH .6.2t.1..d.lJ...CH.~B TB..L6.5...tit2J..tCHARIR1.1L5J..L...ll.LJ..1...1t-'tO-t.•...1,.....2-t.•.LI _
C
___ .....C...._ ....._IHf-.UiARACT EB ' + , . .. _
C
QATA._ CHA R.IKLL21..lL1J ..lCfi..1l RTB L7_<h 1.t..2..L,-C.HAlUR.LI9,-~J.~2..tJ..5...,- 2·. I . . __... _ ...._..__... _
1 ,CHARTR(79,2,11,CHARTR(79,2,ZI,CHARTR(79,2,31/.6,O.,1. I
__2.. ... 1.CJ-i ARTRJJ 9.t-.h_.U..lJ';HA RIR LI9_1 3t..2_L, LH ART Rl 79. J.J...t~J.l=~3-,-!3...t.~L __. .___
3 ,CHARTR(79,4,1),CHARTR(79,4,Z),CHARTR(79,4,31/0.,-.6,1.1
_ •• . . . ._ .m • __ •• __ __. it.-. ... ~M.Rl.R ( 79 , 5 , 1 L...C.tJ ART R ( 72.i.5 t 2 I , Qi.MUlli.I9 t 5 , 3 I I • 45 • - • 2...t2..LL . . __.....__.
e
~~--------" ~ .. _-~ .... -- .. -
c. ... II:iE... C.HARAC.LEB__.!....=' _._-------_...
C
QATA.C.HARI RJ 9LL1..f.JJ..l.Ctt~~I.RL9ILtr2JJ...CtLAg IBJ2..1.L.l.l.3_LI~J 2.L..'!.2..t 2-"-'.1'---_.
1 ,CHARTR(97,Z,1),CHARTR(97,2,21,CHARTR(97,2,31/.6,O.,1. I
______..._ ...... 2.._-.LCIjARIRl..2.1.L3, 1 ) ,CHAB..T R 1.2.-7 r 3,2) .tJ:.HAR TR L2l,-.1.1..~.l1..Ll2..l.-=-"_~~ ' "
e
c... _ THL_LET lEB_'A '. .__ .___ _.__. .. . .. . .... ._ ..__. .. ...
C
DATA. CHARJR1 194..1.1 t.ll .t.GHAlU_R..t 1. 9_4..,.1 r2.1..L~IiA.R TRJ19 Lt..t..L..~_LL!.l,..Q_!... t..2.!.I _.____. .....
1
,CHARTR(194,2,11,eHARTRI194,2,ZI,CHARTR(194,2,31/0.,.9 ,1.1
_...---.....-.- __. 2_. t..GlliLR.LR1~.hU_LC..!::IAB.I.BJ 1 94,3,2..1 ,CHARIR ( 194,3,3) I. 1 •• 1,1.1 ---------_ ... -
3 ,CHARTRI194,4,1),CHARTR(194,4,21,CHARIR(194,4,31/.6,O. ,1.1
nH~_._ •.
.t..C_HARLR U9~5...t..l.L...cJ:LA!UR1..L9~.5_t._2.L....C.HARJJU 194, 5...t..3.U..... 1, -. 1 , LLL_. .__... "
5 ,CHARTR(194,6,11,CHARTR(194,6,ZI,CHARTR(194,6,31/0.,-. 9,1.1
______ .........__ . .6 ...t.Ct:iAR.T...RL1.9!:tJJ..ll...LCHART R( 19 4....J......2.1_t....Cl:I.A RTR( 19 4 t~..t..3..1/- • 8 t.....5...t.lo..Z.. . . L. I .
7 ,CHARTR(194,8,1),CHARTR(194,8,21,CHARTR(194,8,31/.8,O. ,1.1
8 ,CHARLB(194,9,1),CHARIR(194,9,2),CHARTR(194,9,3)/.l,-. 5,2.1
C
_. __C IHE ..LElLE..R 'B ' . _ . _.._. _ W- .---
C ~

..
---_ --_._-_._-_._-- - - - - "._---_ ... -
 GERBER POST PJillLESSOR LISTING pAGE 7
__________~D~A~T=A_CHARTRI195tlt1~ARTRI195t1.2).CHARTRI195.1.3)/.l.O •• 2.1
1 ,CHARTRI195,2,1),CHARTRI195,2,2),CHARTRI195,2,3)/O.,1. ,1.1
____________________________ 2___ • CHARIR I 195 .3, 1 LLCJ::iA RT R( 19...S....t.3.L.2.1.-t-_Cl:M..BlJU-.l5l.5. 3 • 3) I. 7,0. , 1. I
3 ,CHARTRI195,4,l),CHARTRI195,4,2),CHARTRI195,4,3)/.1,-. 1,1.1
_______.. .......__4.. .1 CHARIB {195 1 5. 1 ) ,.cJ:iART RI 195. 5 t 21.LC HAR IR ( 195 t2..Lll1 O•• -.3, 1.1
5 ,CHARTRI195,6,1),CHARTR(195,6,2),CHARTRI195,6,3)/-.1,-.1,1./
_. ._. .. Q_ , CHAB..IRJ 195 , 7 , 1 ~l...2.2.t....1..J2.L..C..l::lARI.BJ 195 • 7 • 3 ) 1-. 7.0 • • 1• I
7 ,CHARTRI195,8,1),CHARTRI195,8,2),CHARTRI195,8,3)/.7,0. ,1.1
8_ . J_.GJ:!ARJ.R..U9..5..D_LLl.1._G_tiARl..KU.'i5..L9.t..2.Lt..CJ::1AR L~J 1~_5.. 9 t 3 ) 1.1. -.-1,1.1
9 ,CHARTRI195,10,1),CHARTRI195,10,2),CHARTR(195,10,3)/O. ,-.3,1.1
.- .-
_ - -----,._- ,-.
__ _.-... A -'_CJ:tARI ;:U1 Sl?-,..l1,.LLLCHl~Rlli_U~2J--.LL.2 ) , CHAR Hlil...95tll.t.l...LL-:._. 1. -.1. l_J .._....__
B ,CHARTRI195,12,1),CHARTRI195,12,2),CHARTRI195,12,3)/-. 7,0.,1.1
__________ __ _ . J: ,-C.t!. ARll3...ll2.5 tnt LJ..LC HAR_IJU.l9. 5 t 13. 2 ) t CHART R Ll...~.2.1.J3~ I. 9 , O. t 2 • I
C
_c . J_ttLllII.EK_!..c..~_ . . ---------
C
__ DALJL..GHAB TR119(:u t,-~_Lt_.c.HA RIRt1.96..t.t,_..2.L'-~ti_AB TR.L12_Q.1.L_3J L~!iJ._' 9,2.1.
1 ,CHARTRI196,2,1),CHARTR(196,2,2),CHARTRI196,2,3)/-.l,. 1,1.1
______...2.. --.t..C.H_ARI&..Ll.2tt..Ll.t...l._l.t.QiARl.R.1.l.2~_.1.l..L2.J...LC.HAR TRll26 t 3, 3lL-.6, Oi..t..L.L - _
3 ,CHARTRI196,4,1),CHARTRI196,4,2),CHARTRI196,4,3)/-.1,- .1,1.1
_. 4 . J_C..HARIRJ_l.26.J5,lJ_.1..GJ:-i..AR.I111.1.~5, 2) , CJiARIR.ll9.fu..5..t.3J..LJL.._l..':--L.8..t..l....L .
5 ,CHARTRI196,6,1),CHARTRI196,6,2),CHARTR(196,6,31/.1,-. 1,1.1
6 _lCHA_R IRJ 19.6,1.,_1.1 .tCJ:!ARTR1.l9.Q.Llt.2J_1..c.H...M~_T RJ_19..6..t.l.t_3.J.L~_6._LO..L.l_1.1-L . . ---- -___ . .
7 ,CHARTRI196,8,1),CHARTR(1~6,8,2),CHARTRI196,8,3)/.l,.1 ,1.1
. __ JL A.l:iART R{.L9lu..9-.l.11, CHAR I R( 196,9,2 I ,C HAR IR I 196,9,3) L. 1 ,-.1 ,2. I .--_...._--
C
. c . . .THE_ LET T E FL....!...Q..!. _
C
- . . .D.A.IA.-CliARIR1.l.2L1LU-'--CHARl..R.LL9..7, 1 , 2 ) ,C HART R( 197, 1 , 3 ) I • 1 , o. , 2 • I
1 ,CHARTRI197,2,1),CHARTRI197,2,2),CHARTRI197,2,3)/0.,1. ,1.1
2 ....CHA.RIRt19..1d_,.ll~CHARTR 1197,3,21 .. CHAR TR ( 197._3....311.7, o. ,L L
3 ,CHARTRI197,4,1),CHARTRI197,4,2),CHARTRI197,4,3)/.1,-.1,1./
____ . . ._~ '_.c.HARIR1.L9L-5--' 1 I , CHARI lU.L9.11...2, 2 ) ,C HART R{197 , 5 , 3 ) L O. ,-. 8 , 1• I \,)
5 ,CHARTR(1~7,6,1),CHARTRI197,6,2),CHARTRI197,6,31/-.1,- .1,1.1 ~
-------_._---------------------------

------------_.
___________G£KaER POST PROCESSOR LISTING PAGE 8
~_~ Q ~I-J ART RLL<t7 , 7 , 1 ) , Ctl ART R( 19 7 , 7 , 2 ) , CHA RTR( 197 , 7 , 3 I 1- , 7 , 0, , 1 , 1
7 ,CHARTR(197,8,l),CHARTR(197,8,2),CHARTR(197,8 9 3)/,9,O, ,2,1

C THE LETTER 'E'

------~----_._---._~._--- .
J: __ ~
DATA CHARTR(198,1,1),CHARTR(198,1,2),CHARTR(198,1,31/,9,l" 2,1
_-=-1_ -L~.tL~_!3.IB_U9J3
..t2..L.l.L.tJ:.tI~B.J':R ( 198,2,2) , CHAR IB..iJ 98! Z, 3) 1-,8, 0, ,1, I
2 ,CHARTR(198,3,11,CHARTR(198,3,2),CHARTR(198,3,31/0,,-1 ,,1,1
__ ~~_ ~~ ,.CtlAR TRtl't.8_,Lt, 1 t,CHARTRI.! 98_1. 4 L2.L.cJjARLR..L1.9._e...t4.!~Jj ,8....tJ2tl.l.L!_ _~ __ .._._. ._~ ..
4 ,CHARTR(198,5,11,CHARTR(198,5,2),CHARTR(198,5,31/-,8"5,2,/
_______ ._~ __.__ __ ~ ~ 5.~ ._LC HA RTR.L12 ~.1_9-L.U,-~ H~BT R t t9.8..LQ.J_2.J.LCli&RlB..1.11JLLP 1 3J.l~~~L . .~
6 ,CHARTR(198,1,1),CHARTR(198,7,21,CHARTR(198,7,31/,3,-, 5,2,1
--~.- -----~-
.. . . _~~ ~._ .c...._._._~. . ~_~ __ ..__ _ . ...__. _
C THE LETTER 'F'
..~_.~~ ~. __ .__ ~_~._.~~ .~. __.J: _~_~ __ ~ . "" --- ----_._---_.. _----_. __._---------- - - - ---_. .---
__
DATA CHARTR(199,1,1),CHARTR(199,1,2),CHARTR(199,1,31/,8,l" 2.1
___._1_ ,e HART BL19 9 t.2. Lll-,-C fiAKI Ri12. 2.,.2..1_2 ).J...CHAR L~t.l 9 9L2L3JL:-:~LtQ_LLl_J. .._._ .. _
2 ,CHARTR(199,3,1),CHARTR(199,3,2),CHARTR(199,3,31/0.,-1 ,,1,1
.~_~. __ ~ .3... __ LCHA~RT.B..Ll.9.2.t!t!_lJ.LkJjAJ.~..lR.1.l:t.2.L.h2J t CHARLUJ..29, 4,3) / 0. , .5 t 2. /
4 ,CHARTR(199,5,11,CHARTR(199,5,ZI,CHARTR(199,5,31/.5,0.,1./
-- --_.'--. __ .. _._.~_., .. _~----.-._ ..._--- 5 ~ ,_CHARIR(~ 1291.6_, 11.1 Ct!ARLRJ..l99,6..t.2J....J..c!JARJ8J.l.2_2_.t_6..t..ll./~_':':"~2...J .
C
C _THE L_fTTER '_G' _
C
..__.. ~ .--
. --.D.AIA-LJ::i.ARIR.12.O..CLt_hl..LLCl:!ARlRl.ZQO, 1, Z) • CHAR TR ( 200.1,3) 1.9, .9,2.1
1 ,CHARTR(ZOO,Z,11,CHARTR(200,2,Z),CHARTR(ZOO,2,31/-.1" 1,1.1
---_ __ m2 __._.. I.CtiABIRt2.00-,_L_.ltLCtlAR IRJ2..0J1.J.3L2.) ,CHAR.IRL.2.QO, 3,3JL~..t....O..~_L .~ m. _
3 ,CHARTR(ZOO,4,11,CHARTR(ZOO,4,Z),CHARTR(ZOO,4,31!-.1,-,l,l.!
-- - _._-~------~--------. ~~ ...t_C.!:::LMIRL2...QQ...l 5_~LLLJ_C..ti&RIR..L2 CQ t 5 ,2...l...t.C HART R( 200 ,...5....t.Jl.L.Q.. t - • 8 , h L . _
5 ,CHARTR(ZOO,6,11,CHARTR(ZOO,6,Z),CHARTR(ZOO,6,31/,l,-,1,1,/
_____~6~_ ~LHA~{20Q,7.1}ICHARTR(200,7!2}tCHARTRI20017,3)/.6,O.,1. I
7 ,CHARTR(ZOO,8,11,CHARTRIZOO,8,Z),CHARTR(200,8,3)/,l,.1,1./
~---------."~'--'-_-- __ . ~_._LCliA..fURL2Q.o_,-9-,_1l..JCHARTR (ZOO, 9 ,21, CHARIR12.llil.t...9...t..3110. , .4,1.1 ~_.w __
0'
9 ,CHARTR(ZOO,lO,11,CHARTR(ZOO,10,2),CHARTR(ZOO,10,3)/-,3,0,,1,/
 GERBER POST PROCESSOR LISTING PAGE 9
A • CHARTR_L200. 11 __ l} • CHARTR {200. 11.2} • CHAR TR {200. 11. 31L~~--,--~~2........L
C
___________________________C_ _ ~H£ LET I£lL~1
C
_______________________________DAIA CHARIR {20 1.1 ,lhCJ1ARTIU2frLlt2lLCJ::IARTR (201, 1.11L-I .-"o.1-L,-""-0 .-L,--..2 • .L-I _
1 ,CHARTR(201,2,1),CHARTR(201,2,2),CHARTR(201,2,3)/O.,1. ,1./
___ __ _-----.2_, CHAB..I.BJ 20 1 .3. 1 ) • CHABTR ( 20 1 , 3 , 2 ) • CHARTRJ 20 1 • 3 • 3 } 10 • ,-. 5 • 2 • I
3 ,CHARTR(201,4,1),CHARTR(20l,4,2),CHARTR(201,4,3)/.8,O. ,1./
__':t -----LlliAR T IUZJilL.5-L1J_-,_Cl:! ART RJ2-OL2t2l-f--Gl::tARlti20h2-Lll_LO • , • 5-, 2 • I
5 ,CHARTR(201,6,1),CHARTR(ZOl,6,Z),CHARTR(ZOl,6,3)/O.,-1 .,1.1
_ ___~ LCHARIB. ( 201 ,7-L11~RTB120 1.7 .2lAHARlRl2-Ql-f- LL3_~_1JJLL-L2d- _
c
___________________G. T.LlH.LIE---'L....E_JT~Tw.E..LB:>__I_ ...I~I _
C
_ _ O_ALA_CHARlEJ2QZ-Ll._1bLttARJ RJ2_Q2-,_L2JLC.tl-.ARI R12Q2tl13 )L__ J._-,-~12 •.L
1 ,CHARTR(202,2,1),CHARTR(202,2,2),CHARTR(20Z,Z,3)/.5,O. ,1./
____,2_ ___ ,_CHAIn R1ZQ'-L3.t-ttLCHARJ R1.2Q2-,-3.L2.J_J_C_H_~RLRJ_ZQ2-L3J3J/=_!2.5.JJL~_L2~L _
3 ,CHARTR(202,4,1),CHARTR(Z02,4,2),CHARTR(Z02,4,3)/O.,1. ,1./
___________________________ 4 _---'-Cl::I.ARTR (202.L5-L1J ,CHARTB (202. 5.t...2..L..ClMRTB (202.5.3) l=. 25 JO. ,_2-...1 _
5 ,CHARTR(202,6,1),CHARTR(202,6,2),CHARTR(ZOZ,6,3)/.5,O. ,1./
______ . Q. .LC.riAR.IR12.Q2t..LLLt.L.hARIR...l2..Q2.-'-_L_2J_~t1AIURJ2.Q2.Ll_L3Jl~
~2...L _
C
__.e_ IHE1.ETliR.......!..J..! . _
C
_________________CAI A CHABTB( 2 10 , 1, 1 ) ,C HART B( Z10, 1 , 2 ) , CHART B( Z10 • 1 , 3 ) I. 1 •• 2 • 2 • I ,------------
1 ,CHARTR(210,2,1),CHARTR(Z10,2,2),CHARTR(Z10,Z,31/0.,-. 1,1.1
________________2- ,CHARTR (210, 3.J.J, CHAR-IRillO. 3, 2), CHARTB (210,3,31/ ... 1,-.1,1,1 _ _._---_ .._--.---.--
3 ,CHARTR(2l0,4,1),CHARTR(ZlO,4,2),CHARTR(ZlO,4,3)/.4,O. ,1./
_____________________ ~ ~__tiJ::1ARTR« 210,5,1) ,CHARTR 1210,5,2) ,CHARTR ( 210,5,3) /.1, • 1 , 1. I

5 ,CHARTR(210,6,1),CHARTR(ZlO,6,ZI,CHARTR(210,6,3)/0.,.9 ,1./
6. ~CH ART R( Z10 • 7 • 1 ) • CHART R( 21 Q~1..L2L.c.HARI RJ21.Q.t_7.t3lL"-L ....1~....2......L

_______________- L__
C ---..I HE LET TER 'K I \~)
C
- ' - _ _ 0"_' __• _
 _ _ _ _-----'G.u.E--.!-R~B~E..0.R__!PO ll PRO CESS0 R L LSlllLG. _ PAGE 10
__
. ~TA CHARTR(Z11,l,l),CHARTRIZ11,1,ZI,CHARTR(Z11,1,3)/.1,O .,2.1
1 ,CHARTR(Z11,2,1I,CHARTR(211,2,2I,CHARTR(211,Z,31/0.,1. ,1.1
_________________________________ ..2 ----1L_HARIBJ.2..LL.J.3J..LLCJiARIR12..LL.3., ZI ,Cl::IARTR ( Z11, 3,3) 10. ,-.5 ,Z....L... _
3 ,CHARTR(Zll,4,ll,CHARTR(Zll,4,21,CHARTR(211,4,31/.5,.5,1./
.~ -
.. _._-- - - - . _.. --------_ ..._------ - -_.- _____ ~L ---.t..C_ti..t\KIR.L211.J2t.1J_--,-CH.AJU_Rl2_11.,2..t.2L,..chA..RIRiZll , 5..l.3.1b_4, -. 4, Z. I _
5 ,CHARTR(Zll,6,11,CHARTR(Z11,6,ZI,CHARTR(Z11,6,31/.6,-.6,1./
_________________________._2.... ._..l. CHABLFU.2.liLhl-h.CJj ARl:RU..l 1..t . 7 , 2 I ,C HART R.( Z 11 , 7 , 3 I I • 1 ,0. , Z. I

C
___________________________C 1 HE_.l_ETI.E.B._!..L' _
C
________ [)A LA..._ .ctt~ruRL2J,_2 1..1,_11 I CHAR TR(_21],1.121.!.-CtiAR.IB..t2.l.2._,_l..L~J.L!LLL1.LJ_2...~_L _
1 ,CHARTR(21Z,2,1),CHARTR(212,Z,Z),CHARTR(ZlZ,Z,31/0.,-1 .,1.1
_____.. ... . 2. ..l.-C.H_ARJ R.12J.2J..bJ....h..C-H AR..lR12..1 2 ,3, Z I , CHAR Illill2..t..3-t..3 I 1.6,0. , 1. L ---_.- ----- -_..- --
3 ,CHARTR(21Z,4,11,CHARTR(ZlZ,4,Z),CHARTR(ZlZ,4,31/.1,0. ,Z.I
________.l.< ._________ _ . _

C THE LETTER 'M'

____L ._
DATA CHARTR(213,1,1),CHARTR(Z13,1,2),CHARTR(Z13,1,31/.1,O., Z.I
. . l . ,. ,'_CJ:t~ RT Ri2..Ut..Z..LU.t..C.t:iA8..I..B.u..l~.2J_LC . h~BIR ( 213 ,2, 311 Q • , 1 • , 1 • L . . _,__.
Z ,CHARTR(Z13,3,1),CHARTR(213,3,ZI,CHARTR(Z13,3,31/.5,-1 .,1.1
3_____..-C.H A.R TR.L2.l3 ,_ ':t.llLLC HAR TR..t213 ..!t.I.Ll-,_CtiAR IR_L2.U..L~..l.31LL5_t.l...L.t..L.L _
4 ,CHARTR(Z13,5,1),CHARTR(Z13,5,21,CHARTR(Z13,5,31/0.,-1.,1./
5 , CHABIRL2.J:3 ,6JUt_CtlAR.TR(2.1~_,Q_,2JJCtiAB TRL2J..2...LQ--,-~ U:_~h.P_LL2. .. l _
C
--- .....L- I.tl..f.....LUlllL-.!...i.."L!-__.. - - - - - - - - ---------------------------------'
C
____________ - dD_lUA_C_HARI..R.12.1~1-'--LL..G.HARI.R.L2.J.hh2.l.., CHAR TRi2~..t..L..3..lL~ 1 to. ,2 .L_ _ _
1 ,CHARTR(214,2,11,CHARTR(Z14,2,ZI,CHARTR(Z14,2,31/0.,1.,1./
------------------ 2 .l.CtIARI..R.l2.l.'u.3.t...ll, CHARIR1.214, 3, 21, CHAR.JR ( 214 t :L.3_1/........l...t. -1. t 1.1
3 ,CHARTR(Z14,4,1),CHARTR(Z14,4,21,CHARTR(Z14,4,3)/O.,1.,1./
3)/,1,-1,,2.1
____~4__~HARTR(214t5,1),CHARTR(Z14t5t21,CHARTR(214t5,
C
--------- - - L ...IHE...LEILER_...!lL'..... d_
W----
())
C
- -_._-- --_. ----- ------ . _._ .. _-------~-----_._---------------- -------------_._-------- - - - - - - - - - - - - - - - - - - - - - - - - - - .. _-----._---_.--
 --------------
-------- - _._._- ._-

GERBER POST PROCESSOR LI~G PAGE 11

. D~ATACHARTR(Z15,l,ll,CHARTR{ZlS,1,21,CHARTR{215,1,31/.2,0 .,2.1
1 ,CHARTR(Z15,2,11,CHARTR(215,2,ZI,CHARTR(Z15,2,31/-.1,. 1,1.1
___. ...__._.._._... 2 ....t.CJ:LAJUJ:s_1211J.3...r..liLCJ:iMIR12l.hb2..Lt..CJ:iAR 1RL2l.5.t 3,3) 10. , .8, 1 • .1 . ._--.----
3 ,CHARTRIZ15,4,11,CHARTRIZ15,4,Z),CHARTRIZ15,4,31/.1,.1 ,1.1
_. __ . -------.------it.-----l_CH..AEIRi2l2t..5..LLuLJ:iAfUB._i2L5-.t 5,2) .t..Cl:iARIRllli.t.2Lll.L..25... 0. 1 1.1
5 ,CHARTRIZ15,6,11,CHARTRIZ15,6,ZI,CHARTRIZ15,6,31/.1,-. 1,1.1
____________.. ._. .J). -LCJ:l.ARIH I 2 1 5..LL..1..lJ...Cl:MRIRl2l5...LUZlLCl::l.A B.LR { 215,7.3 I 10. ,-.8,1. L .
7 ,CHARTR{215,8,11,CHARTRI215,8,21,CHARTRI215,8,31/-.1,- .1,1.1
_____. ...____ ___. _ ._ ... 8.. ...t..Gl:iA..fU RJ2_l.5...l. 2.tLl.l..CtiAR TRL2..li.t3-L2..1.t_..c.J:iARTR 12 15..L2...t.3.J_L::.L5.2 1 0 • 1 1 •.1- . ._. _
9 ,CHARTR(Z15,10,11,CHARTR(215,lO,ZI,CHARTRI215,lO,31/.5,.85,2./
A_.. 1 CIjt\I3,TR t2.15..LL1.l.ll,C.tiAR T8.12.1.5_L11L2J_,.cJ:1ARLR.L2.l5.-LLLL3J-'~~_d.~L. .__
B ,CHARTRI215,lZ,11,CHARTR(Z15,12,21,CHARTRI215,lZ,31/.05,-1.05,2./
__
---_._--_.------ . ._-~-- --_. ------------_._----_.. .. _- __
C THE LETTER 'pi
____ ..C _
DATA CHARTRIZ16,1,11,CHARTRI216,1,21,CHARTRI216,1,31/.1,O.,2./
_._l_._'-C HART B( 21_6 12tl J 1 CHART RL2.16.L2...t.2J..l..kH.AR T.R.12.1Q.,__2..L~ I fQ "- ,.l.u_l_!'_L__
Z ,CHARTRIZ16,3,11,CHARTRI216,3,ZI,CHARTR(Z16,3,~I/.6,0.,1./
-_._.__ ..3 ._Lc...HA.B.IRIZ1..Q..l!t.LlL...c..Hl:LBIBJ2J.tLt~2J..J....c..HAR TR ( 2.l~.~.J...3_LL~.1, -.1,1 •.1.__ .. .._.__.. __. _
4 ,CHARTRIZ16,5,11,CHARTRI216,5,21,CHARTR(Z16,5,31/0.,-.4,1./
_._n 5 1 k..HAR TRJ 21_p..16...t ll.,.GHiLR TKL2.L6.LQ.L2LLCHAR TRJ__2..1Q..t~.t_~JL-_~_1..L-:-. 1 , 1.L_ m _. _ __ . _

6 ,CHARTR(216,7,11,CHARTRIZ16,7,21,CHARTR(216,7,31/-.6,0.,1./
7 , C H ARJ R t21.6 18.1 U t C.J::iARIRl2.1_~t.t..e_t.21.J.. CHAlUKtil6..L8...l3_.LL.L.8..t.:::....~.i. .__... __.___ _.._
C
__.. ..C --lHt: L [1 T ER ~ _
C
- DAIA._CJ-:I ART R L2~L.l_dhCJ:iAELIR_L2.17 , 1 1 2 I , CHAR.lB..L2..11.L1..t..3.1 L• 2 1 O.JL...t..2....L . ._. .
1 ,CHARTR(Z17,Z,11,CHARTR(217,2,ZI,CHARTR(217,2,31/-.1,.1,1./
____. . ._ 2 t
, CIi&.RT R( 2 17 , 3 1 I 1.GHA.lUR12.l7 13 1 2. ) t CHA RTRI 217 13 1 3 I L O...t.L.LhLJ.
3 ,CHARTRIZ17,4,11,CHARTRIZ17,4,ZI,CHARTRI217,4,31/.1,.1,1./
4. .. I.e HART RI Z17 , 5 , 1 I .. CHART R( 2 17 • 5 • 2 I • CHART RI 2 17 • 5 • 3 I / • 6 .. 0 ... 1 • I
5 ,CHARTR(217,6,11,CHARTRIZ17,6,21,CHARTRI217,6,31/.1,-.1,1./
. . . _.n t.CHA1U R( 2 17 , 7 I 1 I 1CHARIR121L..lt 2 I ,C HART R( 2 17 , 7 13 I / 0. 1- • 8 11• I t .)
'-0
7 ,CHARTR(217,8,11,CHARTRI217,8,21,CHARTR(217,8,31/-.1,-.1,1./
 ~£R POSL PROCESSOR LISTING PAGE 12

---------_. 8 ,CHA~TR(217,9,1),CHARTR(217,9,2),CHARTR(217,9,3)/-.6,0.,1./
9 ,CHARTR(217,lO,1),CHARTR(217,10,2),CHARTR(217,10,3)/.5 5,.15,2.1
___________________ u ~ A ___' CJ:i_~ 8IJ:liZ1LLllL1J-,_5;H~R TR( 2 17, 11 , 2 ) , CHAR TR( 2 17 d_L, 3 )/ • 2 , - • 2 , 1 • I
8 ,CHARTR(217,12,1),CHARTR(217,12,2),CHARTR(217,12,3)/.1,.05,2./
C THE LETTER 'R'
~ .. _._.-~~,-
C -- ---,_._----".,--,_ _._.
DATA CHARTR(218,1,1),CHARTR(218,1,2),CHARTR(218,1,3)/.l,0., 2.1
J JJ~HARTR (21B_t2-tl ),J~HARTRL218L~LZ1-l-CHARIB12J_8--,2,-3) I ~~_I .
2 ,CHARTR(ZlB,3,1),CHARTR(218,3,Z),CHARTR(218,3,3)/.7,0. ,1.1
:3 -l-CIjARIBJ21B.,_:4_Ll t,CJi-8BI RJ;UJ~,-_:4-,-_2_L!.CJjARTRL2JJtt4.t31l!-lt -. 1 ,1. I . . _
4 ,CHARTR(Z18,5,1),CHARTR(Z18,5,Z),CHARTR(218,5,3)/O.,-. 3,1.1
_--. . . . .2__~ttABIH.LZ1.(i.L9...L.U,-CHARTR ( U.a..LQ..LU1..CHAR TR (218, 6 LllL:--.!.L -.1,1, (
6 ,CHARTR(218,7,1),CHARTR(218,7,Z),CHARTR(218,7,3)/-.7,O .,1.1
_uI_. __JC1-1AR LR1218J.8..t.~1 .. CHAKLRJ.2.LaLat.2 L.,LHARTKi2.18.t-.8J._3J./ 3...10. ,2,1 _
8 ,CHARTR(218,9,1),CHARTR(218,9,2),CHARTR(218,9,3)/.5,-. 5,1.1
____ SL-,-_Cl:iA.RIRi2Hh .lQ,_~ lLG11-.AR TRL2.-Uh..l.Q ,2Ll.CHA_R TR12 1aLl O,-31LL-L~_2-AL . _
C
'-"-'-- _...-- -. _._. __. C lHE.-.LELLER '_S-_,_ _._.._.. . _
C
____D Al~_CH ARIRJ.2.2Lt_l, 1 L,_C.H~RIR (22 7 Ll_t2J.-,-CJ:t~R TRl.2.2-1J....L3LL~J.-'~1..t.2 • L. . _. _
1 ,CHARTR(Z27,2,1),CHARTR(227,2,2),CHARTR(227,2,3)/.1,-. 1,1.1
2 __ ,_CHAR TR(22], 3dJ ,_C HART R_12.2I.L1..t21ti. H~B.IRL221-,_3_,_~_)l-!.Q-l-O .! LL.l-!-L . ._
3 ,CHARTR(227,4,1),CHARTR(227,4,2),CHARTR(227,4,3)/.l,.1 ,1.1
.---.. - - . - .-.-------....-.---. .4. . Ji:.HARI R( 22 7J-2.LU.t.LJ::lARIlU22 7, 5,2 I ,C tiAlU1.i-l2 21,5 , 31.L~. 3 , 1. / . . .
S ,CHARTR(227,6,1),CHARTR(227,6,2),CHARTR(227,6,3)/-.1,. 1,1,1
------ ------ -- .-.. _o. --tc..liABLR (2 2L t lLi. uC.tlARTiLt 22J--'~J.2L1.~HARJ.R ( 227 t :Z..L31L::L6...L~-,.l.JLL .__.__.._ ".-.-------.-
7 ,CHARTR(227,8,1),CHARTR(227,8,2),CHARTR(227,8,3)/-.1,. 1,1.1
-...---- --.--.---- B" -t_Cl:iARTR ( 2 2 7 , 9 ,il.t-C.HARI R ( 2 21 t 9 , 2 ) , C H.ARIB. ( 2 2 7 -J.~3J I 0. t • 3 , 1 • I
9 ,CHARTR(227,10,1),CHARTR(227,10,2),CHARTR(227,lO,3)/.1 ,.1,1.1
,,- A.~R.L22.7 t 11, LLJJ:lARIlU227, 11 t 2) • CHAR TR (227,11,3) /.6, Q • .1./
B ,CHARTR(227,12,1),CHARTR(227,12,2),CHARTR(227,12,3)/.l ,-.1,1.1
------------ .------,,--- __. .L __lLtlARIRJ2.2_1 ...l3., 1 ) , CHAR113..1.22 I.t.l3..LZL-GJ:iARTB.J 227 t 1 3J3j..l--h~L..I -----+::-_- ---
C 0

--------------
 GERBER PO~J PROCESSOR LISTING PAGE L3

C _lllE__LELLE~T '
C
_~_~ • __ H_ DAIA__ rJ:lAIllR1221hlJi.LHART.RJ2.ZJh.l,.2-lLCHAR TRl.221hlt.3..LL...Lt.1. ,2.1
1 ,CHARTR(228,2,11,CHARTR(228,2,21,CHARTR(228,2,31/.8,O. ,1.1
_2 _. J.CrMJU fU22.BJ3..LlltJ: HART R.122aJ.t2l.LCJ::iARIR.L2.2...8J_.b_3J 1-.4, 0. ,2. L . _
3 ,CHARTR(228,4,11,CHARTR(228,4,21,CHARTR(228,4,31/0.,-1 .,1.1
",,_._---_.. _--_._-- __ __ 5 _ • CHAR, TR I 2. 2 8 t 5, 1 I t CHARllU2.2J3 • 5 t 2 I , Ctl..ARLR 1.22.8 , 5 • 3 I I • 5 , o. , 2 • I
C
___________ G H1ELEIJER ' U~ . ~ . ~~ .__. . _
C
D~J &_tJ:LA_R TR L2.2.5Lt.l.•.l.
LLC.-HAR I RL229_,-u2J._LCl::lAR TR.L229_, .1_13 I L~_l L~.J.2-.J
1 ,CHARTR(229,2,11,CHARTR(229,2,21,CHARTR(229,2,31/0.,-. 9,1.1
2...H
LCbAR.TRJ2...29 t 3,1 l.LC.tiAJiIJiLU-9-L:lt 2. I t CHAR IR1~ ..tA_d.J 1.1, -.1 .1..LL- . _
3 ,CHARTR(229,4,11,CHARTR(2Z9,4,ZI,CHARTR(229,4,31/.6,O. ,1.1
4 __ ~ ,-C_HAH.I Rl2.22.,_5_dLI LJiA RIRJ22..<t,_5J21-'-.C.ttA RIRL229..t.5, 31l-LlJ.....L..L.L
5 ,CHARTR(Z29,6,11,CHARTR(Z29,6,ZI,CHARTR(Z29,6,31/0.,.9 ,1.1
-- . _._ .. 6 _..CHAR LR12 2 9. 7~1 hCI:iARIR1U.9_t..l,2b_G..I:-l..ARJK12 2...9 . t._1J 3.l j J>.l.t..~.l
C
__.__ ..£ . __I l:iE._L.E..lliR_'.L.V_' _ - - - - - - - - -_.--, -~------"'-'-'--~--<--~---~., -.
C
DA TA_LHARI RJ23ihlt. LL,.CttAR.IRi23.Q.1..LL2J..t.GHAJUB_L2.3.Q,.J..13J L.. LLIJJ.Z... L __ .. .__
1 ,CHARTR(230,2,11,CHARTR(230,Z,ZI,CHARTR(230,Z,3)/.4,-1 .,1.1
2 ,_CH ARIR. ( 2.3Q, 3.1.11, C.HAfiLRJ.2.3 QL1J2J_LC.J:t~KIR..L2_3_Q.J3131L~~_dJ_1.J._I'L ._._
3 ,CHARTR(230,4,11,CHARTR(Z30,4,2),CHARTR(Z30,4,31/.1,-1 .,2.1
_--'-'c . . _
C THE LETTER ,~.
---.-.--- c._. . ._. . . ~._. ..__. ._
DATA CHARTR(Z31,1,1),CHARTR(231,1,ZI,CHARTR(231,1,3)/.l,1., 2.1
-.. ---_.__.--. .__.L J_CJ:iARIRJ23.l.t.2..t.lJ.t.Ll:i.AB..IB12..ll..t2.1 2 ) • CHART RI Z3 1 t 2 ..3 LL-L3 • - 1 •• 1 • L .._.__ . _
Z ,CHARTR(Z31,3,11,CHARTR(Z31.3,Z),CHARTR(231,3,3)/.3,1. ,1.1
3 .CHARIR(231,4,lJ,CHARTRI231.4,ZI.CHARTRI231,4,31/.3, -1 •• 1.1
4 ,CHARTR(Z31,5,1),CHARTR(Z31,5,2),CHARTR(Z31,5,31/.3,1. ,1.1
. . -.__.:L___ , CHART R L2..3..L, 6. 1 I , CHART RI Z3 1 • b • Z ) , CHART R( Z3 1 , 6 • 3 I I • 1 • - 1 •• 2 • I ~
C I-'
____________~G~E~R~B~E~R_2POST PROCESSOR LISTING PAGE 14 _

C THE LETTER IXI

C
__ ~~_~ __ ~__~ ~ ~ ~ __UAJ A__ .c.tL~H TRl2.J.2iLt.lL,J:l:J_A RIB ( 232, 1-LZ.-tL.cHAIUili2 32 , 1 , 3 ) I. 1 ,0. , 2 • / ----_._----~~--

1 ,CHARTR(232,2,1),CHARTR(23Z,Z,Z),CHARTR(Z32,Z,3)/.8,1. ,1.1
___ ~ H___ n 2 ~Cl:iAR.LFU2 32-,_:iLL1.LG.-I1ARI RL23 2,3, Z ) ~HA8JKl2 3 2,3 .J3.11.=. 8 ,0. ,2 • L ~ __~_
3 ,CHARTR(232,4,1),CHARTR(Z32,4,2),CHARTR(232,4,3)/.8,-1 .,1.1
_______. ~ ~ Lt.. . ._...1..Q.iAKT R_LZ 32..,~_, 1 ) , CttAR TRi.2..~2-t.~ , CHAR IBJ __2_.ll..t_~. 1 ,0. ,2. I
C
____e ~ IHE.li.lIJ~R__!..Y_'_ ~ _~ ~ __ ~ _
C
___ _ Q.t\ TA_e HA BI.R.L2~} ,I,LL LCHARI R12_~~.t..L.2J_.LC_tlA.R I RJZ_~ 3-'.l_-'~JL~t.L.J2_. I _
1 ,CHARTR(233,2,1),CHARTR(233,2,Z),CHARTR(233,2,3)/.4,-. 5,1.1
__~. _~ . ~ .LC.t:iA...fUB_i.~.3
3,3, 1) LCttARTRL2..ll.t..h2..1..L.CHAR TR ( U~..t2~ll~---L2.LL.L__ p ._. ._

3 ,CHARTR(233,4,1),CHARTR(Z33,4,Z),CHARTR(233,4,3)/O.,.5 ,2.1
4 un' CHAKTR L233, .5....LlJt CHART R12..33-1.2-,_.2J ...L_CHA RT Rt2.33_,5--,~11.~_'t~LhL
5 ,CHARTR(Z33,6,1),CHARTR(233,6,Z),CHARTR(233,6,3)/.l,-1 .,2.1
__ e_
C THE LETTER III
__ ~ G. . . . .______________________ __ ___ . . .__
DATA CHARTR(234,1,ll,CHARTR(Z34,1,Z),CHARTR(234,1,3)/.l,1., 2.1
_1_ , CHAR TRL2 J_Lt ~,_ 2,_1 J_LC_H ABJ R (23.4.12...1 2..l.L.C H_ARIRJ23_Lt..1.2dll &~LL~I _
2 ,CHARTR(234,3,1),CHARTR(234,3,2),CHARTR(234,3,3)/-.8,- 1.,1.1
3 ,CHARJRL234 ,it_, lJ_l_CHARIJU23.4.1A...t.2_L,CHAFURJ234,4 ,3J 1~.8..t..Q_'J.L§1 _
4 ,CHARTR(234,5,1),CHARTR(234,5,2),CHARTR(234,5,3)/.l,O. ,2.1
_________. . -.-C_______________ _ ~.

C THE NUMBER 10 1

DATA CHARTR(241,l,1),CHARTR(241,1,2),CHARTR(241,1,3)/.2,O., 2.1

------------ -----------.------- L
LCJiARIRJ2.!tl..l 2 11) ,CHARIR.L2.!tl..t.2.t..2..1 , CHARIR.Llll....L..3Jj-.l , .1, 1 ~ _
2 ,CHARTR(241,3,1),CHARTR(241,3,2),CHARTR(241,3,3)/O.,.8 ,1.1
_______~3L ~,~C_HARTR(241,4,11,CHARTR(241,4.Z1,CHARTR(241,4,3)/.l •• 1,~ ------------
4 ,CHARTR(241,5,1),CHARTR(241,5,2),CHARTR(241,5,3)/.55,O .,1.1
----------------------- ------------.5-- '-.cJ:iARIRl2.~.l..t...6.LLh.CHARIRi2.!tl.6,21, CHAR.IJii241 ,6,3) /.1 , - • .l~LL ,{::;: _
6 ,CHARTR(241,7,1),CHARTR(241,7,2),CHARTR(241,7,3)/O.,-. 8,1.1 N

----------._------ --------------------------------
 GERBER P~~~ROCESSOR LISTING PAGf. 15 .-------------

-------'----- ~ ,CHARTRIZ41,8,1),CHARIR1241,8,2),CHARIRI241,8,3)/-.l,- .1,1.1

8 ,CHARTRI241,9,11,CHARTRIZ41,9,Z),CHARTRI241,9,3)/-.55, 0.,1.1
_ _ _n S ~ ._.t..CJ:iART R.12~LJ...Q_t..11.,-kJ:iARIR 1241, l~, CHARIRl2.'ti..t.lO-Lll.l--.J.SJJh..,2...I _
C
__ ._. ~_. _ _ THE...liU...M.a.E.B_~l ...!... ... . .
C
______. .__ . .._ D.AIIL_Cl:t.._o\R.IlU2..~~~L'-Cl.tARI.R.l2it2., 1,2) ,CHAR I_R1242, 1 .3) L. 1 ,"O""""'Z.....L._._. . . .
1 ,CHARTRI242,2,11,CHARTRI24Z,2,Z),CHARTRI242,Z,3)/.4,0.,1./
2____...t..LliAJiIR L~2..LJ~1. I t..CHARIR12 ~3 ..l2.Lt...Cl:i.P. R.IR12'"t.2J.~t..3..U.::'_L2J~-,-2_J ....
3 ,CHARTRI242,4,11,CHARTRI242,4,2),CHARTRI242,4,31/0.,1.,1./
4 n,C.HARtBJ24Z..J.5,l 1.tC HART RJ.2.42_t..2_!.21..t.CtfARTRL2..'"t.2.l5_t...3J1-. 15 ,_':""....J...5 .1-1 ...1 _
5 ,CHARTRI242,6,11,CHARTRI242,6,ZI,CHARTBI24Z,6,3)/.45,- .85,2.1
____. _..__._. ._._ _ ...__C . . ._. ._._ _
C THE NUMBER '2'
_ _ _ _ _ .. .. . -- 0'.'_- .'__ .•. _ _._ __"_
__ _.c.____.
DATA CHARTRI243,1,11,CHARTRIZ43,1,21,CHARTR(243,1,3)/.1,.9, 2.1
_1 IJ:li AR TR12431-2,1 ItC HA RTR (2_43t2t2I.lCHAR IR t243..1-.2..t...3 ) L._.L..L.l,..L..1
2 ,CHARTRI243,3,1),CHARTRIZ43,3,2),CHARTRI243,3,31/.5,0.,1./
_____._3__ ._..._I..CJiARIR.L2.4..3..1_~t..l.l.J...cH.&RIR L2.'.:th':t...t.2.1., CHAR..IR..i2~3, 4 ,.3) 1.1, -:..JI_l..l.L.L .
4 ,CHARTRI243,5,11,CHARTRI243,5,2),CHARTRI243,5,31/0.,-.3,1./
___ 5 _ t.G.HA R1 R.i 2 ':t 3_.1 6,1 } I- CH ART R L2_~3 J...6. t..2.Lt..G._l:J.A...R..IR t 2~3..,_.6..J. .3JJ~_1..1_-=.L.L..L.j__ . _
6 ,CHARTRI243,7,11,CHARTRI243,7,21,CHARIRI243,7,3)/-.5,O .,1.1
7 t C.H AR IR l2_4:.3~.8 L1 Lt CHAR..LR..J. 24 3t...8...l.2J_,_C_HARJR_12_~3.t..li,_31l:-.!! 1--, =~l~_L .
8 ,CHARTRI243,9,11,CHARTRI243,9,Z),CHARTRI243,9,31/0.,-. 4,1.1
___._. -._----------- ... .. 2 ,_CJJtdU.RJ_2£t3., 10, U--,__UtARlRl2!t3., 10,2 hJ:HARTR (243,10,3) /.7, o. ,LL_ _. . .
A ,CHARTR(243,11,11,CHARTR(Z43,11 t Z),CHARTRI243,11,31/.1 ,0.,2.1
----~-----"-~-,.-- ,-, .._-_._-------------------------
C THE NUMBER '3'
_. __e.. _~ .__... ._. . _. .__
DATA CHARTRI244,1,11,CHARTRI244,1,21,CHARTRI244,1,3)/.l,.9, 2.1
___._._.______ 1 -t..C-1::lAB..IR.l2...~t.2, 1) ,CHARIR (244,2,2) ,CHARTB (244,2,3) /.1, .1.1.1
2 ,CHARTRI244,3,1),CHARTRI244,3,2),CHARTRI244,3,3)/.5,0. ,1.1
-.__. ._.._..__ ._ .. .__..3._.__'-C_HARIR.~4.~-'ull,CHABTR( 2 4.h.~t. 2 I , CHART R( 244 , 4 , 3 ) / • 1 ,-. 1 , 1 • 1 ~-­
4 ,CHARTRI244,5,11,CHARTRI244,5,ZI,CHARTRI244,5,3)/0.,-. 3,1.1 'uJ

----_.__ ._----~-~----------_ ... -_ .. ~_._- -._--------_._------_._-----~._-----

 -_._-

GE RBE R P QSl LlillC.liSQ R LIS llliG __.~AGE -1>0<-6_ _

_ ~5>L.· ..LCJ:iARIB. ( 244 ,6, 1 ) ,C l::!ltBJ R( 244, 6, 2 ) ,C HAR TR ( 244,6,3 ) / - • 1 ,- • 1 ,1 • /
6 ,CHARTR(244,7,1),CHARTR(Z44,7,Z),CHARTR(Z44,7,3)/-.4,O.,1./
____'_'. ~ . --.L .J.-C!::J ARllU2.Lt~_LLLLc..H ARIR12.!t!-b_.8.t2.1..t.LJ:LARIR ( Z4 4-t..1Lt3_) / • 4 t .fJ .J.2..J__. . . ...._._
8 ,CHARTR(Z44,9,1),CHARTR(Z44,9,Z),CHARTR(244,9,3)/.1,-.1,1./
----- ... __. . ...9 ._JCJiARIB1.2.4:..4...t..L<l.t....U--'-.cJ::ll\RLRJ2A4, 10,2) .t...C1iAJiTJU2..'tA t lOt 3 LLO. ,-.3 t 1 J . .__.
A ,CHARTRIZ44,11,1),CHARTR(244,11,Z),CHARTR(Z44,11,3)/-.1,-.1,1./
____. ._._.. ...__.. ....__8 _ .. _L.c...tL~.R.IBj.24:.~_Lll.LlJ....Lc..tLAEU..i:U_L4:.'uJ.2..t.2..h.C..H.l\R TR (244.t..l2, 3) 1---,-.5 to. t 1.1
C ,CHARTR(Z44, 13,1),CHARTR(Z44,13,Z),CHARTR(Z44,13,3)/-.1,.1,1./
. __ ..'__ J::J __JCHARIR.tZ 't't.Ll'ul Lt..CJ::I_ABT RL2~4LL4.t2J.J CtlAB_IBJ..2.4't_Ll4.t.31..L. 8 t - . 1 t Z-~j_ .. _
C
_ Con. _..___UtE NU1'-1 BEJL ' L... ,
C
'~ " "' ' h _ .• QAT.4....CJjAR,.I RJ245..t...L.l.Lt.C.ttAJU_Ri2.'t2t...ld_Z-Lt..C.HABTB..U..45, 1 t 3.1!. 9,0. ,2. /
1 ,CHARTR(245,Z,1),CHARTRIZ45,2,2),CHARTRI245,Z,3)/O.,1.,1./
__. __ . 2.. .t...CH ARTF<,. {21t 5., ll.l L.t..c...H.AfU R {2it 5 t. 3t.Zl.t._G..H AR, TRLZ_4.5..J._3..J.3J 1 =-~.8..t..::..._8...1.hL_.._. . __
3 ,CHARTRI245,4,1),CHARTRIZ45,4,Z),CHARTRIZ45,4,3)/.9,O.,1./
4.. _,..GHAR IRJZ 4 ~ ,.2_J.ll..t.G.HAJURJ24.5_151 2 L1 CtiAR JK1.2_4..5151.1J ~1_L~2..J.2.L1.u __ .. __...__
C
•• •· _ _ h • __ C.- . ._LH£..__f'iU.Mll.E.fL.!-5..! . ._.. . _ --------------_._-----_._---_ . . . . _...._- _.-'-
C
DAT A_C.H A~ TR L2..4Q,l ,-U.JCHA RTR t2..lt6, l,.2.l....t..CJ:i-ARIBJ .2'tfu_L3JI..J-'J.l,.2..~..1 . _.
1 ,CHARTRI246,2,l),ChARTR(246,Z,2),CHARTR(246,Z,3)/.1,-.1,1./
. 2 . __ . , 1H ArUR {2 46,3'.11 LLHA 8.JRJ .2.4 6 t.3..J 2 )_.J..!:IJAR IR12.'-L6..Li.t.~JL. 6_~-,_1~_L . ...__.
3 ,CHARTRI246,4,l),CHARTR(Z46,4,~),CHARTRIZ46,4,3)/.l,.1,1./
..- - -..- -....------ ..--.-- ..4:... LC1l.A.EJRl.2lt.6..t..2.t...l..Lt. G.HARI£U.2.A6...t...5..J..2J t Co HA RTR( 246 t 5 • 3 ) /0 • •• hl....L__..-_.--..- ....
5 ,CHARTR(246,6,1),CHARTRIZ46,6,Z),CHARTR(Z46,6,3)/-.1,.1,1./
_.__ .... 6.__ ___-,-CH ARLRt2 4.6..t..1__ t._U-,.c.HA R.lfU.2..41Lt.J.t.Ll~HARIRt~1L'uL...3LL::........L.t..O..e....t-l..tlL .__.._.._ ... ...__..__...-
7 ,CHARTR(Z46,8,1),CHARTR(Z46,8,Z),CHARTR(Z46,8,3)/O.,.4,1./
- - - - . - ..--. ---------------.-.---B--..__ --'_CHARIR.124..6_-'-.9.-t-.1LL.HARIR~.6_St..2.L,.LJ:i.AR.IR1.2lL6 . u·
L9..t3J. 1....8, 0. t 1.1
9 ,CHARTR(246,lO,l),CHARTRIZ46,lO,2),CHARTR(246,10,3)/.l,-1.,Z./
---------- ~
C THE NUMBER '6'
------..- . - - _ ~~.-.-- \".o..... ~~ .. ~ __. "_. . ~ __ ~ ,. ~_. .__. . ..._ . . .~-_----

DATA CHARTR(247,1,1),CHARTR(247,1,2),CHARTR(247,1,3)/.9,.9,2./

._---------------- _
... - .__ .,.- - - -
 GERBER POST PROCESSOR LIST ING --'=-PB-Asz.G......
E_-"'-1.L7 _
_ _ _ _ _. . --.1_---' CHARIR (241, 2,1) ,CHARIB ( 247,2,2) t CHARIB (247 t 2 t 3 11-.1 t.1 t 1.1
2 ,CHARTBI247,3,1),CHARTRI247,3,2),CHARIR(Z47,3,3)/-.6,O .,1.1
_~_____ _ _ _ __. H._. un 3 _. ..J.c.t:L~LRl..2.!t1tlLL1_t.Lt:!AR.IRn~I..L4..t_.2.L....C.I:iA...fLTRJ2~Ld-L3J 1- • 1 , - _. 1 , 1 • I .
4 ,CHARIR(247,5,1),CHARTB(Z47,5,Zl,CHABIR{Z47,5,3)/O.,-. 8,1.1
________ 5._ _
LG..IiARIRl.2.~...t_.6.' 1 ) t CHA B.l.R12.4.7~.L2..Lt...c_tLAJUR~L6....t.31LLh- • 1 , 1 • I
6 ,CHARTR(Z47,7,1),CHARTR(247,7,2),CHARTR{Z47,7,31/.6,O. ,1.1
__3 ._.1lliARlBJ 247,8, 1 hC._t::L8B.IJU2~h8, 2 I, CtlARLR_L2...47, 8 ,llL.• 1 t • 1, 1.....L. .
8 ,CHARTR(Z47,9,1),CHARTR(247,9,21,CHARTRIZ47,9,3)/O.,.3 ,1.1
9 __,CHAFUgt2!t..I..1lCh_ll.!..c..HARIB...t24.h_l.Qt..2..L.CJ:U~JUR i2~L1...!.1.QL~-=...tl.t...LLI.LJ. _
A ,CHARTRI247,11,ll,CHARTR(Z47,ll,Zl,CHARTRI247,11,3l!-.6,0.,1./
.. B ntC.HAR.T B (24.Id.2t.1.1I.CJJA B..LR.l.2...4..7..t..l2 .l.2.L.J..cJiARIR..1241,.l2.t3JJ=.....1 t - . 1 d ....L .__... -
C ,CHARTRI247,13,1),CHARTRI247,13,21,CHARTR(247,13,3)/.9 ,-.4,2.1
._._.. _- .... _~._... _. __ .
-_..._------_.- .. _--- _..._----------------_.------_..
._-_
C THE NUMBER '7'
. __.e_
DATA CHARTRI248,1,1),CHARTRI248,1,Z),CHARTRIZ48,1,31/.Z,O., 2.1
.1 ,CHART.R (24B.J_2..t.llt.CH~R TR124..8.t.2,_21LCH_ARTBJ248 ,2.J3 U_.I,_l.....J...L
2 ,CHARTR{Z48,3,1),CHARTR(Z48,3,ZI,CHARTRI248,3,3)/-.8,O .,1.1
__ ... ..__ ..... 3 ..... tJ....tiARI R1.~_LlulJJhCJ:i&I?,IRJ2!i.~.t.2.L..cliAR I I?, I 24 8.rlJ.3_1L~.t..2....I . __... _
C
C. .THE N.U.MBER '8.' . .
,...
I..
DATA CHART RI 2.49_d,_U ,CHA.RIJ~, l249,l,2_L, CHAR rR..l249_.t..l,3) L..2,.......5...t2.•L ..._._
1 ,CHARTR(249,2,1),CHARTR(249,2,~l,CHARTR(249,2,3)/-.l,- .1,1.1
-. ..... .. .. ...._._.__..._2_. .t.CJ:iARIKl2.~..l1...t.fJ:iARI I?, ( 24.2..t.3..J..2..L.L.CJ:JAI?, II?, ( 249,.h..3..lL 0. ,-.3,1. I
3 ,CHARTR(249,4,1),CHARTR(249,4,Z),CHARTRI249,4,31/.1,-. 1,1.1
.. 4_.. ,CtiARlRL2!t2.,..5...t...LL.t..Ct1.8IilRJ_2.!i..9..1..5_'-2.l..tCJ::i8RIltL2!i.9...t...5....t..31L .. 6 , 0 .. , 1 .. 1 .. . _
5 ,CHARTRI249,6,1),CHARTR(249,6,2),CHARTRIZ49,6,31/.1,.1 ,1.1
___ u •••. _ •• _o . _-'..G.ttA RT R( .2..~L.LL1.LCJ:!Ag..IR ( 249 , 7, 2 ) , CHAI?, I BI 249 , 1., 3 I 10 .. , • 3 , L...L .. . _._
7 ,CHARTRI249,8,11,CHARTR(Z49,8,21,CHARIR(Z49,8,31/-.1,. 1,1.1
_________--a ~AI?,TR(249,9,1),CHARTR(249,9,2},CHAI?,TR(Z49,9,31
1-.6,0.,1.1
9 ,CHARTR(249,lO,1},CHARIR{Z49,lO,Z),CHARTR(249,10,3)!-. 1,.1,1.1
-------- A .__ .l.C_HAR.IR.L~..9....tj.lt.l..L....C.HA.RTR ( 249, 11,2 I , (HAl?, TR I 249,11 ,3 )! 0. , .3,1. I ~
B ,CHARTRI249,lZ,1),CHARTR(249,12,2),CHARTRI249,12,31/.1 ,.1,1.1 ~

•
 GE RBE R P QSl _P ROKS SO R----LLSlIJ'iCL__ PAGE 18

_~ tCHA.RlRJ 249 , 13, 1 ) , CHARIEJ 249 t 11.12"> ,C HARTR( 249 , 13 ,3 I I • 6 , O. , 1• I

D ,CHARTR(249,14,11,CHARTR(249,14,2I,CHARTR(249,14,31/.1 ,-.1,1.1
_. ~.~~ __._._ ___ n___£_~ __ .__LC~_&R~LRL2..Lt3.Ll.5_l1J.LCrLAiUJU2.Lt:..<lt.l5..tllt.CJ:iAB..lR12.lit..l.5 t 3 I 10. , - • 3 , 1 • I
F ,CHARTR(249,16,1I,CHARTR(249,16,21,CHARTR(249,16,31/-. 1,-.1,1.1
----- ----"-"_.--- ~.- .. _._-,._~_
..-
__.- . "----- G_._ ._t.CHARIR_L249.t__1I_Ll.JJ.CJi~.RI.R_l2.4.ll1~t_2.l.t..cHA_R TR12!t9.-,1.I.l~1.L. 2 ,- .~..L ._
C
. ._ .. .C._.__ .... TH.LNLU-1fiEB _' _<t.~__._. n _ •• • _

C
_ DATA _ CHAR. IF< 125Q, 1.L1Jt.~HARJRL2 5-0 l~.t2.hCt:!AB.IRL22_0__LLL3JIti.Lili2~._. .. n __

1 ,CHARTR(250,2,11,CHARTR(250,2,21,CHARTR(250,2,31/.1,-. 1,1.1
2 ,.CHARIRl220 ,31 .UtGHABJ RJ2.SQ,_.3_L2J.LCHAIUK12.5.0..J:h3J I. 6 tQ~---,..L.L ... .
3 ,CHARTR(250,4,11,CHARTR(250,4,21,CHARTR(250,4,31/.1,.1 ,1.1
. ._nn__... _. _ n .~L._._-LCHAR.IRLZ_2.Q..,5t.lLl.CH.AJURt2.50, 5 1 ZL.1...C.HARLR ( 250 t 5, 3 LL~. 8,1.1 .__. .. .__ .. _
5 ,CHARTR(250,6,1I,CHARTR(250,6,21,CHARTR(250,6,31/-.1,. 1,1.1
Q ,CHAR T R. (250..1 7 , lllCHAR TRt25.D.t.I,.2.L.t.G.HARlRl.2.5.Q.t.7 -L3JL:::....,6l..a....t.l......L_
7 ,CHARTR(250,8,1I,CHARTR(250,8,21,CHARTR(250,B,31/-.1,- .1,1.1
8 ,CHAR TR (250., 9,11ICHAR TR (.2.201.3 .t.21J.CHA.RTRl2-~O ,.9, 3J_LQ~--,.::~3tl~_
9 ,CHARTR(250,10,ll,CHARTR(250,10,21,CHARTR(250,10,3)/.l ,-.1,1.1
A._ .. _.LCHARIR.t2.20.l..~lJ.ll.J..cl1ARI.R {250, 111.2..L...C.!iAJUB.12.2O..JJ...lL3 I I. 7 ,.Q..L.J_hL. ..
B ,CHARTR(250,12,11,CHARTR(250,12,2),CHARTR(250,12,31/.1 ,-.5,2.1
END - ---_._. -- -_.- -_. ,_._-_.- ------"_ ..._,------------- --------------.. _---_._----_.. _---'--

--- ---'-"~ ...

---._._-- -_._ _--'.__._-----
__ " _ _ " •• __ · _ " _ · · • • n • . _ •. ~ __

------..{:::.-------
0"
____ ~ JiERBER POST PROCESSOR LI 51 ING pAGE 19

C
C
_____ . .. . . ----lo<. . B1lULlNE.~Q_END_lI:il~2.LQI_. .. _~ . ..__.__.
C
_____________________ . SUBBJJjj.IlNE __El'ill.. . . .. .__ ....
C
___.__. . m~l'1.QNLA.Q.CiU':UKQ , K 1 , K2, K 3 , K 4 , K 5 LK.Q.~L<t.t.K 1 Q I K 11 , K 1 2 ,BL.A.tiK
REAL*8 PRC1AP,CANTAP,CLTAPE,POCTAP,PLOTAP,SRF1AP,
. 1 __ .__IAPES11IM ES.211~_eES3.J.ltP.£.sIt _
COM~ON/ATAPTB/PRCTAP,CANTAPtCLTAPEtPOCTAP,PLOTAP,SRFTAP,
1 JAPE Sl IT ~PES2._,TAPE.S31. IAP_E.SJt.l...lNIAP E., J_O_VJ AP ,P _liN_JAJ~_______. _
REAL*8 W
____ ._ .__ -_. __ . __ .__ Dl~£JiSLmLW l2.5Zl- . . _ ._ .. __.. _
DI~ENSION DIGITS(lOI,CODES(SI,PENCOMISI
_ I NTE_GEK_IN ..GC.Cill.E,QCC.DEI...MUlDE.J.GL_ltS-I.l.DUST _
CO~MON/GERBPP/w
____.1 ,X LtYltLL,__X21 Y_2JI2..t. OX .t QY_t D_L_
2 ,XC,YC,ZC,AREA,ARCS,ARCL,AL,SEQNO(ZI
. } LLriLG.G..!.ill£..!.DCUD_E.1.11Clill.L-G..L.A.S..L1..D..LAS_L.NPIlhllLA.s..tws.O-ll:HL
4 ,DIGITS,CODES,PENCOM,DDASH,BOASH
____ 5 _ __ __J~.;..c.IGll.tN.DfC.ML I NTAP E.
6 ,IFRUM,LINEC,NPAGE,NPLOTS,NCARDS,PTLT
7 _Ifv' O~J ti,_D 4Y t.Y E.AR________ __". '_.'_
C
____... _. L l::JAS-A_..£..fiC..t1._aEE N G I V EN - - - - - ------------ ---_._.-
IFIIFRO~.NE.OIGC TO 100
--- ~ . CALL_ERR..OR{2.L . .__. .__ ~ ._._. . _
GO TO 9999
.__ . __ ~ __ .LClli...LALL.._CRO~L . ._ . . .-------
CALL LEADER(21
_________-.-G.- J:QUNI CAR.D..L.LP..I.LUJ..1N~C.uH~EJ.LD _
CALL PUNNUMI CARCS)
_. __~ .__ l£_lN..UP..E..ill.E_"__K.QJ_(ARD5 ~_. _ +:- ----
-.,J
NCARD=CARDS
 ----_.

_ -,-,GCIo.. E/illEL~L £JliJkES S 0 R L LSTl..N.G _ ___-'-P-=AUoLG___.E_--.2CL _

____ NCARDS=NCARDS+NCARD
PTL=CARDS * .6
__________________ PTLL::E_TJ. L±J~TL___________ _
WRITEIIOUTAP,6999)NPLOTS,NCARD,PTL
__ ______________6229__ FllRMA LL1H~_d~J: PU1L_NUJ:18ER -'-J :.l12X-,-9H'-OJ1ELE_L~ __L
1 lH ,6X,32HNUMBER CARDS PUNCHED THIS PLOT = ,3X,I3 /
____________________-2. ~.J::t~L£8Jjllt'·HiIJ::L.J:l_~ e.E R _IAPL2J.U~:KtL~Q_~__t.F 7 • 1 ,4H J:l__-l ,__ ,
IFROM=O
.~ _._._--_.~,. --~.
. !'iPAGE::: Q -_.-,---, .. __ .. - ---._-- -_._-_.- -
NPLOTS=NPLOTS+l
__ Ll !'iEC= 52._____
9999 RETURN
------. .,_. .__ ENrL _ ------_.----------------_.----_ .. _---------,---------_.----.--- ----------_.-,--------

----_.. _._._- -~-- _._.~--_

.. _---.-.

--_.._-----------.-_..._.. _---,_._-------. --,.- ---- . _ . _ - - - ~ - - _ _~---

.. .". -----'" .---

-------_._.. _- ._.. _------_._- ----_.. _--- ---_._------_.

_____________ .--------.t=---
OJ

._-----------_._---------------------
 GERB ER P-USJ----.fl_ROC ESSOR LIS T I lli2 PAGE _ll

C
C
__ ~_~~~_~ __ ~fillliLlf'iLTO_elli"iCJL~~TQP __ ~OllL~ ~ ~
__ _
C
-- ------_."--- -------
____$ lLBBJlUIllif --.S.JllP ~ ~ _
C
__________________________________. __ CJJ t-l_M_Q1i/_1LQC..QlilKQLK.~.2..tD.1IS_~--, K2.t ~J2_,.KL1.K.a.tK<t,_Kl..Q , K11 , K.l.2..t..6..I...M:i..K
REAL*8 PROTAP,CANTAP,CLTAPE,POCTAP,PLOTAP,SRFTAP,
1 _ _ _TA P£. SLd ~ E£S2 t_I~EE.S3-1..1 8J? ES_4____ _ _
CCMMON/ATAPTB/PROTAP,CANTAP,CLTAPE,POCTAP,PLOTAP,SRFTAP,
1 _TAl'E S It__. 1APESZ,LAeESJ 1TAP ES4 t lN TAPE, lJJUl A£>,_P~UNTAP .__. _
REAL~'8 W
__ _ DU~ttN
S I ON W_t2 5 2 ) ~ _
DI~ENSION
DIGITS(10),CODES(8l,PENCOM(8l
___ 1tiT fG ER-..LNJ..GC.ODE-,.o.C_Q_Qt_d"\CJJDE..t..G.LA.S_I LDLAS_L _
CCMMON/GERBPP/W
____ ____1__ . tXll_Y It_ll ,xlI Y2..t.Z2.1D xLQ'f, Dl.__
2 ,XC,YC,ZC,AREA,ARCS,ARCL,AL,SEQNO(Zl
____________L .__.t..li':j..LGfJlUE-'_DLO_D£_.JJ:1.C-.cl.D.£.t...G-LASL..D_LA_llt...tiEL.t-.Lt..l.QASJ:i.tKll.lbJh.- ._.. __ _ - _
4 ,CIGITS,CODES,PENCOM,DDASH,BDASH
5_ ~__ _________illD.IGl T JJ~QEC ML. NIAPL___ _ _ ~_____ _ _
6 ,IFRO~,LINEC,NPAGE,NPLOTS,NCARDS,PTLT
7 __ ___ t-M GNUi,DAY-l-Y Ef!R._
C
------- JiC.QD_E=il --------------------------'----
/
CALL PUTOUT(4)
______9.9..9.9. ---.RElJJRl'i ~ __
END

£_------
'-0
 GERBER POST PROCESSO~_LISTING PAGE 2 2 - _ _ _

C
C
______L_. ___ ...Rill.LIINL.ISl....PBll.G.E.ss.....J:LRAEI__k.O.MyAlID _
C
- - --' --------- _._. . SUB ROU LLfiE_DK4EL .__...__. . . . _
COMMON/AOCON/KO,KI,KZ,K3,K4,KS,K6,K7,KS,K9,KIO,KII,KIZ,BLANK
______. ._. R~~.£.H'O'TAP-LC..~1ilAP...LC..L.IMf..t..P.Q.CIAP--t2J •.D..IAP_LSJlll~_. _
1 TAPES1,TAPESZ,TAPES3,TAPES4
__. . ._. __ .... __.... _. ..G..OM1'1J2Nlll lAP_I 8.LPB1Jl.AE.,J;AI'H ~ P',-'LI~PE,E..o.C_IA~-l.P.L GIA P-t-SR FJ~.P-,- ._.. . .__. _
I TAPESI,TAPESZ,TAPES3,TAPES4,INTAPE,IOUTAP,PUNTAP
_______..REA.L>;:.8__W .. _ __.. . . .._.._._ .._. . .__. .... _
DIMENSION W(Z5Z1
______________-..-.D..l.M.E..NS..LO.N--.D.lGl..lS ( 10 I , COD ES L..8.1.LP.E..t:lC..01'1LB._L _ -----------------_._------ -------
INTEGER IN,GCODE,DCODE,MCODE,GLAST,DLAST
______ COWDJ'JL G.EB.B_flPIW________ __ _ . ._ ....__.__.. . ..__. . ... . . _
I ,Xl,Yl,ll,X2,Yz,l2,DX,DY,Dl
_ 2_________ ___,-KC, yc....._ZCLA.R EAtARC.s.1..ARC..Lt..AL..S_E..QNil21 . . . _
3 ,IN,GCODE,DCODE,MCODE,GLAST,DLAST,NPEN,IDASH,KD,NW
_____ . .__~ . __l..C..l.GtLhCJJD.ES.t.PENCOM, ODASl:h8.D.A SH . . ..... ._.... .. __._.
5 ,NOIGIT,NDECML,NTAPE
__ ._.__ ._ .. .. .__... ~ .__ ._ . dFROM..l.Llf':lEC tNPA.GE.1N.P.L.D..l.S..t..NUBJ:l..srtI.LL . . .._._..._ - .__ ._._
7 ,MONTH,OAY,YEAR
It-.JJ£G.ER DHQL D.. __. __ ._..._. ._._.__ . . _._-,._----~-_._.-.~--_.----_._- _. --_._-- --.
C
___.. __ -. .__ iLUERDM.•.EQ..l ) GO .I1L2.!L_.
CALL ERROR(41
__ Ji0-1 0.._9.999.. .. ._______ _. _
C TEST FIRST MINOR WORD
---'--- ..-------- 2_Q_J:..ALL....LHKMl..tLUiLLL....K... l l . --------_._----------_._----------_.-------
C IS WORD LEGAL
LE..LK.....G.LO LG.il......HL.l 0 0
C NO
------------.------------ -- CA.LLERRDR1..1 L _ ---I..A---
GO TO 9999 o
_______ GERBER POST PROCESSOR LIST ING PAGE 23
_ _ _ _ _~_ YES - BRANCH ON WORD
100 GO TO(110,120,130),K
______~______ UR AFIl.Lf'L _
110 DCODE=Kl
_____ ._._ __. G~lD __ l't{L _
C DRAFT/OFF
"'
___________ . 120_ JlGDD£=K~ _
GO TO 200
c __ D.RAFILDAS1L _
130 DCCDE=K4
_.,,----_., ._----_._---_.~_.- •... ,--_.. _.~-'._._---_
.. _--
LDASH=KO__ ------------,'.---. --.- _..• --, ... _-
C INITIALIZE ENOARC PARAMETERS
_______ L~Q __ ~Rc.s..==.D . . _
AREA=O.
XC =.0 .. _
YC =0.
__ Zc. __ =Q~ _ _ _ .. _-- ._-.- -.---
C IS THERE A SECOND WOKD
__ 2.Q.Q-lEllHi...u~2...LG..O-
I 0_299..9_._. _ _
C TEST SECCNO MINOR WORD
____ C~LL CttK~ r t-J.{ w(2) , K ,21 __
C IS WORD LEvAL
I F ( K• G1.0 lGu_Hl 202
C NC
------ . -.C.H_L.L.E.8JillR.L1_.L-._ .__ . _ --_.-- -------------_.---
GO TO 9999
_ _ c____ _ .Y.ES._:=_ fiRANCJt__..D1'LWORIl... . . . _
205 GO TO (210,220),K
___ G...___ ..QR.~llLXXXX-'-P_ENJ..L . _
C TEST OF PEN NUMBER
~ IF(W(3~GT.O .AND. W(31.LE.6)GO TO 212
CALL ERROR(S)
_______.________________ GC TO 9..9.9..9. _______----U- _
I-'
C SAVE DceeE
 GERB£BJO_U- PROCESSOR LIS_t ING _ _---'P~~ _ _ 2_tt
212 DHOLD=QCODE
C IS PEN DOWN
_________ 1E ( 0 LA_SlLE~K2_~J"Q_2l~ _
C YES - GIVE PEN UP COMMAND
_____________________QU) 0 ~:: K ~ _ -------- ---------- ----
CALL PUNOUT(61
____________.__. C .-S..U __M:LO_ TEll_f'J EW_P EN N.l,)_.~_B=-Ell.R _
214 NEWPEN=W(3)
_-Z 12__ 0LA S_1 ==_1S2_____ _ ~------- . _
IFINEWPEN-NPENI216,219,217
____G. _ _tLO ME__ IUBJ<-EL _
216 DCODE=K8
____._____ _ . CAL L P l,.JJ~.o..u._Itil. . _ --------------_.
NPEN=Kl
___________________G.o...lC.21S __ __ _ _ _-._-.---'-. -----,--- - - ' .. ,_.,--_. __ ._---_.---,.- .._-
C ACVANCE TURRET TO PROPER PEN
-- .. _~- .. __ .
___ 217.oCQD£~K3 ._-------_ .. -._. _._ .. ------_.
CALL PUNOUT(6)
_______f'jPLfIL=:liP-..EJi:tlU- _
GO TO 215
-- G._________ __ __ __ RESELDCQD_E __
219 DCCDE=DHOLD
____.G.O _10 999 'L___ _
C DRAFT/XXXxXX,ENDARC
- -22Jl.__LEU.D...cD.Q.Ll'.l.L_K_2.L~ Q.R....._U2LA.s..h.E.Q.....K21..l..G..O_--.I.O..-92..9 9 _
XC = XC/AREA
------- y C__:::: 'iG.LAREL _
CALL PUTOUT(3)
-- .!1.9..9..9.._RELU_RN. . _
END
_ _ _ _ _------"G.. .E-.. LR>..IoBu..E'-'-'Re..-LP.\oLO"LST.L----f>B, 0CESS0 R LIS TIN G PAGE 25
C
C
~ .. -..-L ~_~~._~ .. ~ __ ..~Ul1.NL.lO.-..-£.KE GJ.LtL.MAGHlli._c..uMl1AND
C (SET OUTPUT FORMAT)
SUBROUTINE MACHIN
... . G..._ .__ ...__ ._.. ~ . ~~. ~ .. . . . ... _
CO~~ON/AOCON/KO,Kl,K2,K3,K4,K5,K6,K7,KS,K9,KlO,Kll,K12,BLANK
_
__ ...._C_C.MMClNL A5. 1.5. Ti"1 LlCliMMJ'_1.8..LtJiu.MP SJ.LtitLMJ: IR
REAL*8 PRGTAP,CANTAP,CLTAPE,POCTAP,PLOTAP,SRFTAP,
_ . ~~ 1 _ .__ TAI?ESlt.IAP£_S2.LTA P.E;S_3_,J APES_it.
COM~ON/ATAPTB/PRCTAP,CANTAP,CLTAPE,POCTAP,PtOTAP,SRFTAP,
____________._1____ __.__L~eJ. _s..-WA pU2..L1 APE_U' TA PEs..'!. d}~tLAP~I 0 UTA P , 1J.!.il'J TAE.- . . . __.. .... ._._._
REAL*8 W
.D 1 ~E NS LONW L25_2.>
Cl~ENSION DIGITS(lO),CODES(S),PENCOM(S)
Ij\j TE_G..,E B. 1 N_, GGGQE ,_DG_Q_Q..E t.l1GUDJ;J.GLA.S It _D_LASL ~ _
COM"'ON/GERBPP/W
. "._.,'-'...l... ~ _~'. _·"'__::...._: __._JX lLY..LLl.L.~2..t..Y2..t..L.2...tJ1X.1.11Y_.t..Q_L . ._.. ._. ... . __ . ._... ,.. _
2 , XC.,YC ,IC, AR E~A, ARC $,ARCL,AL ,. SPQND ( 2 )
3 .. _...t..l.1'i.lGLOD b_D~GDDE,M.COD E.t.GLA ST,.D_LA S It.l'iP.E1'J.tl.D..ASH_,_~.lL.t.N~ _
4 ,DIGITS,CODES,PENCOM,DDASH,BDASH
5__ _ :_.. _:INC IGI T L1~D E.C.ML,tH APE __
6 ,IFRCM,LINEC,NPAGE,NPL.,OTS,NCARDS,PTLT
_ --_. __.__~ . . . 1 . t MONTH ,.DA't.s..Y£.AR. _ --------_._-.
C
__________ LO.GlC.ALtl_. LELAG..L2J.. . . ._
REAL*8 OUTMED(Z)
-__ . .___.B. EA~ .-XLEEOS_ild_L . . .__________ _ ... ._
CATA TFLAG/' ','*'I,OUTMED/'ON CARDS','ON TAPE 'I,
___. ~____________ 1 XlEROS ( 1 d) , Xl EROS ( 1, 2..Lt..Xl EROS ( l , 3)f' FULL' " FOR',' MAT 'I.
2 XlEROS(2,1),XlEROS(2,2),XZEROSI2,3}jJNO T','RAIL',' 0"5'1,
___ ~-----._- ._.J.__ lU.ERilS...L:4.Ll....XllR.O_S.l.3..t.2J-LXLERO.s.L3.t 3...lL' NO L' t ' EAD' " 0" S '-'- \.rt
\..oJ
DATA IMACHN/-li
-_.--.- _."-_._-------_.. ,-~-----------------_._--------_._-------_._.
 GERBER POST PROCESSOR LISTING PAGE .26

I MACH~_= lMACt-U·'1 . .J~,2

C
_______... ._. .. C...._ _.__J..~ THIS TliE.. _MJHJ:L.LN..sT~.IE MEN T-.EQ1L..ll:il.U...o..s..r..ERUCE.S..xS",,-0ll..R JL. • _

IFllMACHN.NE.NUMPTRIGO TO 9999
C FORMATTING MAY ONLY BE CHANGED BEFORE A 'FROM'.
.- . ..._....__...__. ._.__._.J..Ellilill.!1~ll~_._nL.J..QQ... .
CALL ERRGRllOI
..GQ __LQ _2.2.2.9_ _ _ _ _ . .. __ _ _.._ _ __._ . .. _ .._......:.._ __._.__ .._ _ __. _.. ----- -'"
C
. .__ .... ... IHII1.L..U.L.E.QB.t·tAL..2...!'.. ~ ....ALL_JUjilLS. ... lt:iC..lU..DED.
100 NDIGIT=K2+K3
......_..__....._.,. .__.__.......__.__._.JiD.E.C.......M. uL-..:=:. .LK....3<-- _ ._---------_ .. ------------_._. __._------_ ...
NFMT=K2
----_._..-- . ---_ .. _--- --_ ... ---_. ___.-.l..l..ERQS=,,~_._ _.__.. _._.. __._.. . . .._ __ . __ _.
NTAPE=KO
C SECOND PARA~ETER FORMAT=l.3 OR 2.3
_.____ "_,,, ... ... _.. _I£lli..t2J • EO. o. (L~.cL1k..._j)J..2.L.. tiLL.....2.. 3DQ LGO TO 3..QJL ... .
220 IFlWl21 .1\lE. 1.3DOIGO TO 230
N.D..1G 1T=Kl. +..K.3._ __ _ _.._ _ _.__.. .. "__' __ ..__ ._ __..__.__
NFMT=Kl
GO 10300... --- ------._,.. -,--.. __ .'--------- ._' .. '------
230 CALL ERRORlll)
._ _. ..__. .....C...__... . . . . ..... . ...
C THIRD PARAMETER LEADING OR TRAILING ZERO IMISSION.
-.--..------.... _ -.._ .. 30 0._.1 E.JN.W ....LT... .K.31GD.J.Q......9 ililiL_.__. . . . ... . . ._... ----
IZEROS=DABSIWIK311
..rEtirEE. 0 S • LE....K.2.lhU.....I.O.... 32.0.
CALL ERRORll21
_ _ _ _ _->JGQ_l.O 400 .
320 NDECML=NDECML+100*IZEROS
.... \...tt _
C FORTH PARAMETER OUTPUT MEDIUM CARDS OR TAPEIMAG). +:-
__________ .----.-.G_E_RBER POST PROCESSOR LIST ING PAGE 27.

_ _ _ _ ~(Ll.f__lNlJ.......u...LQ..K42L)
lo2.G!.!.O_T..!. . loLO_9zcO!o!CO!o!CO!oL- . _
IF(W(K4).EQ.O.IGC TO 500
.. _. . .lE..LW_lK.4-.1. EO. 1. I GO TO 3~LL _
CALL ERROR(13)
_______________ ._...3..4.Q __N.IAe.£_::-KL ._.. ._ _ _ . .._.___ _ ... _._._._
C
.__..._... __.__ .._.__----2.O-Q._c..otrrlliUE _._._. _
9000 WRITE(19,1900ITFLAG(NTAPE+ l),NFMT,
1. __ ._.J XLEROSLU£.R..O.s.± ... 1J.J.2<.J..!..LK~.L. .. 31..LQUIJ1E.D..lH.JAP.E..±_LL ·. .
1900 FOR~AT(lH+,5X,lAl,88X,'OUTPUT IS ',112,'.3 ',3A4,lX,lA8/1H )
_-~ ..
999.9_ R£ T.uRN._ _._-_ ...- .. -._,--_.. __ ._.. _".__ .----_.--._.. _._----------_. -- .. -' --,--_.- ... -.. _---
END
__ . _ ._ _ .- ." __ • > A ••• _.~_". ·_~, • _ _ .. ~ .~._

.--------- .----- --_.

---_._. __.._------_._----------_._-""-----

---_.,---_._,-------_.--_._--'--- ._. ..•.

__ _--

-------_. ------- -~ .. _---~--

.. _-- . ...
__._-_ _ - - - - - - - - - _ . _ - - - _ .__._-_._-_..._ - - - - - - - ._--_._-----

. . _--_._--._----_._._---------- \ ...
Vi
---'-_.- .. - _.- .. __ ._--_._---~ . _._------~-----. ...
__.- ._----_ .. -_._-_._-_ _-_ .. _... _-_. __ ._-~- --~---_ .. -----_._-_.

--_... __ .._---_... ----_._- - - - - - - - - - - - - - -

--- - - - -- ._~._----_.
__.__ .. _._~_._------
----------------_ .

.G..fRBE R POll2RDC ES SOR LIS TI NG PAGE .2.8

________ L-
C
____ L ...RCUIlliE TO PROCESS I UL
P..ARI1ill.'---CD.M.M=AN D""-- _
C
_. nS.U.8R01JIJJ'iE....J) ART N~ _
C
....
---_ - _____. ,K 1 .!J$.li...L1<.12 t BLAN K
J:.QM~J:)J'iLAQ C.Q_NL.J~SLtKl.2-_K 2 , K.l..L!Sh-..K5.J.~~_L_K_~K 9 ° -- .._---_.-
REAL*8 PROTAP,CANTAP,CLTAPE,POCTAP,PLOTAP,SRFTAP,
_________ .___ .. _~ __. TA.P..E.S_l1. L~F>LS.2..L TAP _E-S3_tTAP£.S.it . _
COMMON/ATAPTB/PRCTAP,CANTAP,CLTAPE,POCTAP,PLOTAP,SRFTAP,
.. 1_ __ _ I APE...s.l..t.IAP_E5_2LI _r:., P E.s2JTAP.f.S._~J..J1'ilAPLli) UL~_P_t.2.uN..IA£ .._'__'
REAL*8 W
. _.. -. __.. ._._. ..__ .J21~.s1 ON.Jti.2Ul.. . .__
DIMENSION DIGITSIIO),CODES(8),PENCOM(Sl
____.__ 1 f':-J.IE G..ERlr~,G.CQDE.I.Q.c..oD_b .MQ.lD£.LGLAST &L~__SI__._
COMMON/GERBPP/W
__ L______ _. .IX LL't'._1..J.1.1,X2tY2.t.L2~D...XJ Dy_,Dl. ..... _. . . _
2 ,XC,YC,lC,AREA,ARCS,ARCL,AL,SEQNO(2)
.. .__.__..:i.. . .__J.J_N...t..G.-C.QQ.L..QC..Q.Q.LY,COD E, GLA ST.t..DJ..ASlL~.1.ljjASH t KQ ~.kL __ . . _
4 ,DIGITS,CODES,PENCOM,ODASH,BDASH
._.__ 2 __..... . .1 N_QIGl.1.LN.D_E._C_M....LJ_NT.AP.E... . _

6 ,IFRO~,LINEC,NPAGE,NPLOTS,NCARDS,PTLT
..1_ __-, _M_OliI Ht_UAY 1. Y.E.AR .. ... ._. __
C
-------..-..----------..-.C._. . . J:iAS-L£R.e..tL.B£EN..J'ROCES5ED. ---- ---_._._._----
IFIIFROM.NE.l)GO TO 20
________.J:..A LL_£R.RDfi.L6.1.__ . _
GO TO 9999
-- . . _-....- ._~ . WR I TE OUL.E_ARIlill s.J.All.M£N.L_
20 LINEC=LINEC+l
----_.... _------ _ _-l.E ( LIN EC. GT • 50) CAL L_t::J£A~D _
WRITEIIOUTAP,6000)NPLOTS, IW(I),I=l,NW)
---p---------.---.-------..6.0.ilil-EDRMALLLH_.-.t..3.9.X..t21HliE RBER P..D.S..IP ROC E.s.s.oR-llUll UT ,2 X, 5H.P..L0 T ,I 2 L ___.__ I..A------
0'
1 IHO,22X,6HPARTNO,2X,11A6 II)

-----------_._----------_.
I
Ii

J
 .G.ERB ER_PQ-S-l.ERQC.ES SO R L LS Llli~____ n~~_----30

c
C
___. ._. . L- .. RDJ.LI1NE_ .. IC_._PRLlC£~S_..£RQM __L.OMJ1A.f'ill...-_
C
______.. . ~ .sUBROUllNE_£fillM___ . ._ _ .. . . _
COMMON/AOCON/KO,Kl,K2,K3,K4,K5,K6,K7,K8,K9,KlO,Kll,K12,BLANK
__.. __ ..__. .... ..3_!;A L_:'<_e ....J?J~ltL~J).,. CANTAl' ,-_C _L1 .8r:~.!..l:-QJ; IAe_1PJ....Q~AE ..t..S.R FTAf:?--!
1 TAPES1,TAPES2,lAPES3,TAPES4
______ C_OMMJJf'U ATAPT61 PReT AP, CMiT AP_, C1TAP.E t.EQ.C TAP_,.e.1Q_IAJ~_.t.sREJAE .. L _ · _ _._. . ....
1 TAPESl,TAPES2,TAPES3,TAPES4,INTAPE,IOUTAP,PUNTAP
R.E A.U:1:l W __ _
DIMENSION W(252l
_.",,__ . . ..__. Dl_M E.NS.UHi...DIGJIS.llQ LLCOOE.$_Ca-t1.P E..N.C..OM..UtL ._ ----~-~----------_._._-_.

INTEGER IN,GCODE,DCGDt,MCODE,GLAST,DLAST
__ C.oMMDNIGE~BP P I W _.
1 ,Xl,Yl,Zl,X2,Y2,Z2,DX,DY,DZ
__ ._, . 2 __ J XC, YC, ZC t_AR EA, ARCS ._ARCJ.._1. ALI. S.E..QNDl2L , .. ....__.._ .___ --
3 ,IN,GCODE,DCODE,MCODE,GLAST,DLAST,NPEN,IDASH,KD,NW
____________. .._. __':L_ _ . J_CLG 1. TS_, CCO E~.J P_EJ'ic..OJ'td2Q A-S.!:!..&.DA-S tL__. . . .. ._-. ----
5 ,NCIGIT,NDECML,NTAPE
_________ Q____ . . .t I FROM tL I~EC_J NPAG_E.t& LD IS,NCARO S._,P.lLL. .. .. . ..__ .. .
7 ,MCNTH,DAY,YEAR
--- --_.. _--,------~~_. -_.-- --_._--,---
.c_ __ .-.-._._.... -
C HAS END OCCURED
___..1Eil£RCMillE.Ll.l.G.L.IG _20 ..._~. .__
C NO
....--- . -C.AU_ERRDRUJ. .__
C YES,INITI&LIZE
--.-------_ --- -2Q __ ~.N::.Q . .. ..._.... ._ _ . __. ..
ARCL =0.
_ _ _ _ _ _. .£:lX...I..l-=.=.n.W..l..(~l.L . . _
Yl=W(Z)
-------- . .-Ll3il3..L . . _ \n

X2=Xl co

--------------------
<Xl
0.1
I I

d
I
I
-1-
.-l
,

3
i

- I
I ~d'
::>

IIO~q~~
J"
~ ::>
0.
.-l
liz!
I!

~ ~ ...Jj5~
.-l

"~~"<x ...J.-JO:::~.O
N

0.0::: II"
N >- <t <tI u..
0 IU Z
N o ..... UU, .... O:::iW
I. ' i
II ·' i
( ,i
 _ _~. __---G..E.RBE R POS T PROC ES SOR LIS T-.I2..LN",,-G_ _ PAGE_32
. ..L-. .
C
C .ROU TIN E .-I.O..._ PRO CES~_.G.Q.DilA_t..QMM=AN. . .D'. _""S'__ _
C
____ ~_~ __ ~ ~. ~_S1ill.B.O'U.LIN£.J;'O
0 LT A . ~._. __. ._. ~_~ .
COMMON/AOCON/KO,Kl,KZ,K3,K4,KS,K6,K7,K8,K9,K10,Kll,K1Z,BLANK
_ _ _ .._R...Ell.~L~a..Y-B..QT_A P_.tJ:.~ NTA~Tjl. P..E., poe TA£..tJ:.L...Q.lA P.t..SE£.->-I.....,A-'-P......, _
1 TAPES1,TAPES2,TAPES3,TAPES4
___________ . ~~.GPMM.QN/~TAeI.6IPJs_QL~~~I\NL~P.LUIA~~JPJJ'JAP-'_P_LQ.J.Ah~RFJAP_~ . ._. . .~_
1 TAPES1,TAPES2,TAPES3,TAPES4,INTAPE,IOUTAP,PUNTAP
___. REAL>::81i __ .~ ~ ~ . ---_._-_._---_.~--_._----_. ..
__ _... ~_._--_ .. _._--_._--- ._,._,-.~_. - ._-
DIMENSION W(25Z)
____QlM~~S_jON QI~LTS(lQ),COOES(8~PENCOM1.~8~)
__
INTEGER IN,GCODE,DCCDE,MCOOE,GLAST,DLAST
.. .•.
~_~ ._ £QMMDJ'UiiER 8PPL\'cL ~~_~~ __.. _. __. ._.~. _ ------_ _--,_._------,_.. ' - - ---_.- _.- -_.'--,--- ..- -"-
1 ,Xl,Yl,11,XZ,Y2,lZ,OX,Dy,DI
_. 2 . --'-..~. l n: llC,t\Ji.E.A~.B.C.hABCJd.~J...JS..E.QN_QJ2.L __ ~_. _
3 ,IN,GCODE,DCOOE,MCODE,GLAST,DLAST,NPEN,IDASH,KD,NW
.... ~
______. .~ . LbtLGl T-S-~QQ ES , PE1'K.Qt1tllQA.S.ti.L6QA.SJ:L ~." .,,- - -~,
_._----,-_ -_ .. ,--_._- _ .--.---.. .-. ,_. ----- -.-'-'-
5 ,NDIGIT,NDECML,NTAPE
_._.,,_.~. __._. "_'. ~ ~~. __~_~~_~ __ ~~._~ .6 ~ .. ".. __._1.1FRCM.. .!LJN..E.c...tri.eA_G.EJJ~ ..eLOTS,NC_A RU.£J_.e..I..L~_u~_. . __. ._ .._._ _. ._.. __,..
7 ,MONTH,DAY,YEAR
._._---- ---_._-------_ .. .... .. -._ .... _.- ..
c _ _------_._ ... _,- __ ._--_ _.-
IDASH=KO
____ .________ 0 X= W( II
OY=W(21
-~- . __. . ~~._____.Db=J<t.L3l._. _ ._.. _--------------~-_._--_.

X2=Xl+DX
~-----_.- ~ . Y.L= Y ] ± DY-_._. . . -------_._._-_.
12=ll+DI
CAL L MfillDN
9999 RETURN
~ .__.a_.._ _.
--E.bll ----------------------------
o
 ---------------------------------------------------_.-._---

GERBER POST PROCES~OR LIST ING___ PA£E 33

c
C
_ _ _ _RO.U:LIj~£__1Jl flBO CESS GO TO COM MAN DS
C
____ _ __ SJlBROU TIN E --->G",-"O",-,T,-,-O. _
COM~ON/AOCON/KO,K1,K2,K3,K4,K5,K6,K7,K8,K9,KIO,Kll,K12,BLANK
_.. . ._.. __.R_EAL!iL PRO TAP, CAN TAP ,.c_LU P E, PO G.r AP , PL0 TA P.LS_fli.....lT..r.A!.l-P...:z, _
1 TAPESl,TAPESZ,TAPES3,TAPES4
______ .G.Ut1!-10NLAT APTaLeKQIAP_.LCA!"!IAP_,_CLL~.E.t2.oC.I~J:>~PJ.JJIAP, SRF TA.P..t- . ._---_._._----_.__ ..
1 TAPES1,TAPESZ,TAPES3,TAPES4,INTAPE,IOUTAP,PUNTAP
RE AL~a_.li____ .. ._._______ __.__. .. . .__
DIMENSION W(25Z)
_._______ _ . --D.1.t:':.E1':J S I ON Q.IG.ll S ( 10 ) ..t..C..O..Q..E..s..LaLE_EJ~.C..Q.M-,-,(-",8C.L} .
INTEGER IN,GCODE,DCODE,MCODE,GLAST,OLAST
___ .____ ___ C.c.M~_ili"iLJiERB.£PI}L
1 ,X1,Yl,Zl,XZ,YZ,Z2,DX,DY,DZ
_. .2 .. 1.)5..ClyC~ ARJ;A.tAB-'~S.LABJ;_L __'_ A..L...!.S.E..Q.f'lCli2 L _
3 ,IN,GCODE,OCODE,MCOOE,GLAST,DLAST,NPEN,IOASH,KD,NW
_. . _._. . '.'_'__ ~ . , 0 I GII..S..t...C.QJLE..$...1.KiiC.Q.M...!._QDA.S...H , BDASH
5 ,NDIGIT,NDECML,NTAPE
____________6 __ . . . ....L.Lf R.o1"1 ,_L lNE£ , I':iPA.G.EtliP_lQI S , NCARQ S.t..E.I.LL-__. ._ _.. ..__._. .__.
7 ,MONTH,OAY,YEAR
.... ... _. _.. C.... _
DC 650 K=l,NW,KC
__.. X2 =WlK.L.}_ _ ---_.
Y2=W(K+ll
- -- --- . -'l2:..YUK±.Z-'"-..L.} _
OX=X2-Xl
-------- .. __ ._ _ .... ..__. ---.1l.y.-=-Y2..=.-'--Y",-1_.
DZ=Z2-Z1
CALL MOTION
650 CONTINUE
. . -..9_9~t~L_R£ -,-1",,-Ull.Rlu..-J_ . _ ".",
I-'
END
_ _ _ _ _-------""G......
E'-'..RB""-'E~R-'------!.-P JlSl J?RQc..f.S50 R LIS TI NG PAGE 34
_. --k _
C
_. .... v . _ _... ..RQUT INE TO PROCEs.5.....11QJ ION COMMANDS
C
-. ._..__. ._. ..£.U.B.B.DllLLf'iE.._i1DIlJJ1'L________.
C
_ _ _. .-.-CJ1MMOi\lLAQ.c..QNLKO ,__~-L K2 t K3...t...K4, K5 t K6 t Kl, K8, K9, K 10 t Kll, K12 t B.l...AliK
REAL*8 PRCTAP,CANTAP,CLTAPE,POCTAP,PLOTAP,SRFTAP,
___. .. _~._ . . .. .._l __...__ . _.. T4PES.LL Lol\P..E.S2.!.T A~.E.S.~.LIJteE.s..L_
COMMON/ATAPTB/PRCTAP,CANTAP,CLTAPE,POCTAP,PLOTAP,SRFTAP,
_..1... .. .___. TAJ?E.s~.t.IA.P_ES2, TAP.E33.tlAP E..s.4_t..l.~TAP_~.d O.UI AP.t..P..1I NTAP
REAL*B W
- --- --- - - - - ____. 0.l.11_E.N.S.lDli...tLL2.22.l.. .___ _ _ --_.~----_ .. _--
DIMENSION OIGITS(lO),COOES(B),PENCOMIB)
_____ ._._. ._._JJHE GE fL..1Ji.t. GG.UDJ;.1QCll.Df.LML.QD..E..J .G.LAS.I.t.IlLA S.L_ ... ._ .. . _. ._. .__...._.
COMMON/GERBPP/W
---. _. . - .. _..._. .__.... L .... _. . LXl.t..li.t.Ll..L.K2..tY2..L.l.Z_.1.llX.t...D..Y._LO.L .
2 ,XC,YC,IC,AREA,ARCS,ARCL,AL,SEQNO(Z)
-. __....._. ---__ . .__. 3.. . t..L~G-C_QQ.L..Q_CODE , M.cJlQLliJ.1LSlLDLAST ,NPEN t I DASH, KD, NW- . _
4 ,DIGITS,CODES,PENCOM,DDASH,BDASH
__.__ .. .__ ...L~D I GIl ~'O.E.r.riLt_NL4P..E .. . __._.__. . . ._.. .._. .__.
6 ,IFROM,LINEC,NPAGE,NPLOTS,NCARDS,PTLT
-- _.--.. ]. '.. _.__ . , __ ._.._,JtQN ItLI.Q~YtY_E..A_R._. .
C
-_G... .CALCJ1LAI E MA X 1M UN-M av E • ..._ _. . __
DMAX=10.**(NDIGIT-IABSIMOD(NDECML,lO»)
_,._-~ .. _--.-
--.-..-.--------~-.-_ ...... - __CALCULALLLEN.G.IH.-D£._..1-1ill'.L__. . ._-----_•..
AL=SQRT(OX**2 + CY**2 + D1**2)
c ...I£S_I.-.EQB....-IJl(LLABJiE ..£Mu.OLlT...JILLOil'NL.- _
IF(AL.GE.60)GO TO 5
_____-lEl_D X• LT. 0MAX • AND. 0Y• LT.llMAX • AND. DZ• LT • DMAX) GOT a 10
C MOTION IS TOO LARGE - PRINT ERROR & DO NOT MOVE
.-------. ...5......LCd L ERRDR ( 9 ) . ._....~.~ ... ~ --~­
N
DX=O.

--------_._----,----------------------
 GERBER POST PR~S~ LISTING PAGE 35
DV=O.
Dl=O.
________________ GJ1_--lQ __ 9_9~<;L _
C TEST FO~ TOO SMALL MOTION
_______________________~mlf__l~LLJlLQQO5 ) GO T O~~9 _ ------------ ---------_.
C
______________________--C .______ MOT ION WITH IN .-J..Jl1.LIS . ----------_._-_. ._--------_.
C SUM ARC LENGTHS
_____ ARc.L_ ==_ARC_Lt...AL . _
ARCS = ARCS + AL
_______ C ______ __ __ _ CALQ,LLltlE_A R_EiL_t\N.I2__C.~T RQ.l.Q . . . . _
IF(DX) 120,200,120
______. 12JL--D.A8£L_=--'lX/ 2 • *(Y2 + Y11-- . . _ - - - - - - - _.. _-----_._-_.-
IF{DY) 160,140,160
_____ . ~!t.Q
__DY.c_~ 12MiEAf~~)'_L . . . . _
DXC = DARtA/2.*(X2+X1)
__ __ ___ GQ _I lL~B_Q . . ._.
160 Y2SQ = Y2*V2
_____________'L 1S Q = _ U:::.LL _
DVC = DX/6.*(Y2SQ + Y2*Yl + Y1SQ)
__ ._.cJ<C_ . = __ QXLQY*.LtX.2~Y2.sQ ___=__L<l~Y1SQ1!_ .. 5__=__D.YU. . _
180 XC = XC + Dxe
__ YC = __ 'i.C __ L_D_Y C_ __ _
AREA = AREA + DAREA
.-- c ...........,1O'"'-'N~C"_'O......M..uM..u;A:>.LNILIoOL._
.__ .-E.-'-'U..L.T....O.....U.....T--Ll.M::.LCT _ -----------
200 CALL PUTOUT(l)
____99519 _B£.TJ1.R.N
END

------- --------_._-------------------------- n-..

v..>
 -------------~--------~---

_ _ _ _ _ GERBER PO~Ll:'_RDC_'=_S SO R LI SlI.l'iG PAGE 36

.--C..- _
C
--.-.------ .. G_.__.... . .. fillUJ"_lliLLQ_END .. PJlSIPRUC£.S.SOR. _
C AND RETURN CONTROL TO APT SYSTEM
SUBROUTINE FINI
- - - . -..- C-- ... _ _ _
COMMON/AOCON/KO,Kl,K2,K3,K4,K5,K6,K7,KB,K9,KlO,Kll,K12,BLANK
._... ... _ . .REAL ~8. P 1<..0.lA P ! . .k.MiIAP,- c.LI~ P E__IPQ C.l~j> LELO TA P,_SREIAP.'- ._._._. ._. .__. __... _
1 TAPES1,TAPES2,TAPES3,TAPES4
. _CQMM.QNJ A.T.ArT 8.LPRCIAP.t-CANI,AP--,-c.LLll,.P..E,POJ.:.IAI?J.P L 0 TAP..LSR£I~P_L_ .__._.._.. __. _._ ..
1 TAPES1,TAPES2,TAPES3,TAPES4,INTAPE,IOUTAP,PUNTAP
... __ . ..REAL>L8._.W '. . .. ._.. . ._._ _ ...._
DIMENSION W(252)
.. _. D.LMf NS Illi\L.ll1G LLS.llQJL CDD£S.C8..1-!._J::>£N CJlM.LB.L .._... ~_. __.
INTEGER IN,GCODE,DCODE,MCODE,GLAST,DLAST
--"-----_._-----,~_._-_.-_._--_ .. .
COMMONI GERB.PPI\'L . _ __ .------- ------- __ ._--
1 ,Xl,Yl,Zl,X2,Y2,12,DX,DY,DZ
.- _- .-.-- -- -. -__.. .2. . -LX-.c..J.Y.C .1..Z..c..t..AREAJ.AEs CSt ARC L I AL..t..s.E.Q.tW.L2.1 .__.. . ._. __ .
3 ,IN,GCODE,DCODE,MCODE,GLAST,DLAST,NPEN,IDASH,KD,NW
4 ..__._ ...__.J.DIGJ.T S.'-,CODE.S.t.PENCO.M.,_DDAS.ri..tBD.ASJ::L ._... . .._.' .. .__
5 ,NDIGIT,NDECML,NTAPE
6. .._.. __-'-If R0 M.tU f\tEC, N.PAG.E1 NI?LOTS.LN.CA8 DS.Le.LL L ....__ ._.
7 ,MONTH,DAY,YEAR
--------_. .__....L ..__ ... .__. _
C IS A FROM STILL IN EFFECT
__ .. .lELlf R011_..£Q.""'O'lG.O.LD-..9,UO" ..._.._... _. . . .__... . _ - - - ._-_._...._----_ .. _--_ ....
CALL ERROR(3)
- - - - - - - - - - - - - - - - -------
C END WITH A 'STOP' CODE
900 Me ODE =.=_KL>-'O""--- _
CALL PUNOUT(K7)
C PUNCH BLANK TAIL
 GERBER PO~T PROCESSOR LISTING PAGE 31
CALL LEADER(2l
C
_ ...._._...._. ._ . --.C. . DUMP OUTPUT BUEE.EL
CALL PUNCHB(l,BLANK,l,Ol
_. .__.._. ... C_ . . _. .. .-O!l I.8lLJJlIAL~
NPLOTS=NPLOTS-l
_._._ .... .. .. ._.JiB.llll.I0 UTA P..&<t5l..2.lli.Pl.QI..S..t._~CARD..S..t.E.ILI-. __._. __. . .---_._--_ .. __ .. __ .

6999 FORMAT(lHl,3X,23HTOTAL PLOTS THIS JOB =,3X,I3 /

_.. . . ..__ L_._.. ltiDt..f?L_23ill_GLA.LCARDS-_eJJJ'iCHED.__==-.r3X_L13__-'- . ... .__...._ .....
2 1H ,6X,23~LENGTH PAPER TAPE USED=,3X,E7.1,lX,3HET. /lHl
___ l<.J:ARDS:::tiCAR12.5.±K.L _.. __ _ .. . _
IE(NCAROS.GT.KO)WRITE(19,1900lKCARDS
__ ..__. .. l9..Q.Q..f..D.B.I:1A T ( 1 H+ .t...i2XLl!i.L.!-.CARCLS__PJJIiCli.ElL! L. _
C
. G- f1JiLIL~_Es.Y..D..Q
.'_ElLO__ J1E . . Elll '_ _M.A&K .OlL.oU.IP_UT~_. . _. _. .. __..
C CARD - # TAPE - 8-4-2-1 BITS •
. . CALLC.ARDPN.{ WI_U...!. 5.,-9~_'t.,-! .EGtD !_L . ..__ ..' .__
C RETURN TO APT SySTEM
._.. __.. __. CALLJH_S.UJ ._._.._
RETURN
__ .____EN 12 . ._ . .___ __ . ._.____ .__. _

---_._-------_. ----_. _.__._---_. --------------------_.

-~- - .----- .-_ .. _.,---~-- -._._-_., .. ~- --._--._------ ----------------_ ... _--- ..

- - - - - - - _... _ - - - - - - _ .

n-...
\..n
 GERBER POST PROCESSOR LLST ING____ PAGE~~

C
C
_________ . '" .... ROUT INL_IQ_ERLNL AN OUI£.llLJiEAlllNG ON ~fiL.P.-,=A...".G'-Jo.E _
C
-- --__ ~B.RaUTINLJ:i.EA.D _ .---_.---------_.
C
. ..-C_QJ., M0 NL~_O COJ-if K0 LKJ,-L.IS~L~-LKJ!~3LISJ~~.LtJS.fu.. !S..9~ 11 , K12 t BLAN K . .
REAL*S PROTAP,CANTAP,CLTAPE,POCTAP,PLOTAP,SRFTAP,
T APES1,TAPES2,J_APJ;S~_-,_Il\P.ES_'t ._
COMMON/ATAPTB/PRCTAP,CANTAP,CLTAPE,POCTAP,PLOTAP,SRFTAP,
TAeJ~SL.IA.~[:_S2_,-I~£~5~t IA!'~S!tdJ'iIAP l;__,J-OJ1T A£1J?UNT~.P .._ .....__...... . ... _.._
REAL*S W
.__... _..__. .__._._..._._ ..Oll!.EN.S lillt..rLl2..i2.l.__ . . . ...
DIMENSION DIGITSllO),CODESIS),PENCOMIS)
INTEGER If'Lt G.c..DQ£J UC..Q'OEJ_MCQ.QE...J..G_LA_S.ILOllS_I _
COMMON/GERBPP/W
_.. 1_. __ , X.1LY 1 t.Zl L~2t YZ_t_lZ. tD_X_,...D_u..Q.L ._
2 ,XC,YC,ZC,AREA,ARCS,ARCL,AL,SEQNO(2)
___ _.._-.. ...._._. _. ~ .. ._._ _ LJ..J:id? .c.Q._Qt;;..L!2CQQ~.LMC 0 D.L..G.lA .$..Lt_Q.L AS T--,-til:> .I;.N_,- I DASH t K0 , NW __....__ ___... __.. _ ..
4 ,DIGITS,CODES,PENCOM,DDASH,BDASH
-- . ~______ ......__ ....t..N..D 1GlI..t.N..O.E.C_M L_,JU APf. . _.. ...__._.... __ .. . . .
6 ,IFROM,LINEC,NPAGE,NPLOTS,NCARDS,PTLT
1. LMO NTJj..l Q ~Yt. YEAfL _", _. .._... ... .
C
--------.-- . N£A.GE.=::!'J.£.AG£±J.
LINEC 5=
-... ..c.__.. .___ _ IlT_LE . .__.... __ . . . ...._ ..__..
WRITEIIOUTAP,6001) MONTH,DAY,YEAR, NPLOTS,NPAGE
. ._o..QQLf:DRMA tllH.L.2.~5JJiI£XA.s... . ~ _.fLJ1._1Lf\J..LV..£~LG.E RBER PO STP RDC ESS OILP....RC...B..- _
1LEM,2X,12X,4X,5HDATE ,2A3,A2, SX,5HPLOT ,12,2X,5HPAGE ,13 )
C COLUMN HilUS.
WRITEIIOUTAP,6002)
- - - - --6..0..D..L..EllR11A.IJl..I:l.Q,..4 X, 1HlL_BX, 2 H DX,1.QX.t..2.H.QY..J.l_DX.t..2l:l DI , 7 X, 3 H PEN, 1 2 X, ... _ .. _----~_ ...
Q'\
1 1HX,13X,lHY,13X,lHZ,12X,4HARCL,7X,5HSEQNO I
 Ii 1

I I
67
I
I
I
I
I
I

I
1
I
I

I
I

I
I
i
I
i II
I
II
I
I I
I
C1'
I
I I
I
I
I
!
<{ I
0- \ J

I
I
iI
I
I
I
I
i I
I
i
I
I
I

Ii I
I
I
I
II

I
~
::Jj

~~
a::,w
('() ,
C1'i

~I ~ I
~ I
~ I
I
I

1 I
i
I
I,
 GERBER_~l PRO CESSO R LIS TIN G PAGE 40
c
c
_______. .__._ .. ~ R0 UTI NE :uLJ)BA.I'l__ ...A.-~l.~.cJ:L_J:Ro.s.s..
C
____..._.. _.__ . . S_LlliRUUT I NE LJiOS_£ __. _
COMMON/AOCON/KO,Kl,K2,K3,K4,KS,K6,K7,KS,K9,KlO,K11,K12,BLANK
____B...EAU:1L.PRQUE1c.ANJ AP • CLI.E.£.. L£DU.A P • P L0 lli_Ls.Ru..E......I...cAu..P-x. .
1 IAPES1,IAPES2,TAPES3,TAPES4
. . .___ .c.OMMJJHf AIAPLaIJ:~R03AP,C.ANLAP,C_L Tlief, poe IAP,PLOJAP'_,.SRf TAe_L__' ..__. . ....
1 TAPES1,TAPES2,TAPES3,TAPES4,INTAPE,IOUTAP,PUNTAP
_____ _. REAL":.8. _W_.__ . .
DI~ENSION W(2521
. -.D..IY_EliS.l mL. CLLG.lLSJ..1Q )J..CllJ:LES.L8.l..J..P...ElKDML8..L --'
INTfGER IN,GCODE,CCCDE,MCODE,GLAST,DLASI
__.LI.J.~1MO~IGERJ.:iP.P LVi . __ . _ _ . . . . ._.. _
1 ,Xl,Yl,Z1,X2,Y2,l2,DX,DY,DZ
2. __ .. _ _ t. XC, YCt Z.C ,.AREA, A~CS.tA~ CL.t.AL,.sf~WCL21.
3 ,IN,GCODE,CCOGE,MCODE,GLAST,DlAST,NPEN,IDASH,KD,NW
l± ...__ ..._.... ...JQ HilT $_, C.QUf.S.LE.E.NCOfu.QQ.A.S.tl..L8D.A S.ti. ._.__. . ... ._
5 ,NCluIT,NDECML,NTAPE
__ .6 __.__ .. , If BCLM_t.Ll NEl,NP.AG f. ,.NP LO IS ,Nc.A.RD.S ,_P_LLL .._.. _. __.. _. .__ . _ ..._.
7 ,MONTH,DAY,YEAR
c. ... __. . . . _.. _...__., .... _
._
C USE PEN # 1 AND DRAW A.1 ~ROSS
_.__.__--.C... ._'''_'' __...__. ~._ .. ~ . .~

REAL*8 XCROSS
------- ..__.. _. .. DI~LEN.s.l.QN_XC.ROSSJl3.L ...__.__ . . _ _.. .... .. _
DATA XCROSS/'D02$X-OO','050D08$X','+OOlOODO','1$X-0005','OY-00050'
...--... ----.-------~ __. -"_OQ2i..'i±..QQ.!..-l_ '.l.QQD..O.l...$Y '__,_'~_OOQ5..QL:" , , ' 0 OJ15_QD Q2...!.-L • $Z + 0 0 l.O.Q~ . __ - ---. ----
2 ,'D01$Z-00','050D02MO','0$ '/
--- ..__ ~ U N . c HB( 98, X.GRDli....."2'-1-'>o<.O..L.) .

GCODE=l
.-- ._.. GLAli::;:_L _ -----_._._--------~-
DCODE=2
 II
~ i I
~Z I
:,) I
If II
W II oc
a
ou u..p- ffi
OJ w '
::!: z1 oc !

! 0' i
\0'
!O'
'0'
II
i
i
i
;
 --------------

GERBER EllSTPROCESSOR LISTIN-G PAGE __ ':tL-

C
C
_. ~. .G.....- fUlliILN..E......-LQ_.D.U.M.P__ .D~U r . . BUf f.EB__ AND.. NN.CtL BLANK TAP E -----_.
C
-__. --.S_UllRUU_U_f'iE.......L.E AU_EJU..LL . __ .. . _
C
_. . J::Jl~Lt1Cf'li.AQCCNII<_Q..tJ\_hJS_.2..lJ.s~_1J\!tl_1S.5_,K
6 ,_K 7,K8, K'1 t l<_tQ...LKllLK12 ,B I. Ar:J.K. . . . .
REAL*8 PRCTAP,CANTAP,CLTAPE,POCTAP,PLOTAP,SRFTAP,
. L_ TAP£S!.1 T.APES2 t TAPES 3 t T~.P ES4 . . _
COMMON/ATAPTB/PROTAP,CANTAP,CLTAPE,POCTAP,PLOTAP,SRFTAP,
__________1- TAP .E_Sl.tI A_PE..$._Z, TAP.ES3,_ TAPE 54, I NT APE .1 IOU IAPt_PllNT AP_
REAL*8 W
-.-. .l1.lY~~lJJlL1ti2.~2..L_. . .__. . _
DIMENSION DIGITS(lOI,CODES(SI,PENCOM(S)
_...I_NT E\if B __IN J. GL CD E,O...G.ODEtJ1CDDEtGLAS Tt_D..LAS T
CGM~'ON/GERBPP/W
L__ __ __ __ __ _,_X 1 t),l, Zl'.X2, Y21 l.Z ,0 X,D Y t OZ - _._---,'.,-'. ._.-._ ..

2 ,XC,YC,lC,AREA,ARCS,ARCL,AL,SEQNO(21
..-- . .3.__... . d_ ~,.;2_CQ.QE; 1. DCQ.Pc..tMCO':);:, ~L,li. ST dnA.S It NPl;; Nd_.Q4$.Hffi..Q.iliW ..__
4 ,CIGITS,CODE5,PENCOM,DDASH,BDASH
_. 5 .1 NC112 IIt.N_CECML, NT A PE

6 , IF ROM, LIN EC, iW AGE- , ,'J PLOT S , NCAR 0S , PTLT

_.1 , MONTh, DA.Yt.yc;AR
C
____..__. .. ... . .-illl._IO (lOQt2_QQJ_tJ. . _. . . __ ..... ..._
C INITILIlE CARD SEQUENCE NUMBERS
.- ---------.. --__. . l..QO....J:_ALLeWIQN L'_GERfl..!...L__ ._____________ _ .__
CALL PUNSEQ(O.)
---_.- G... . PU.N.G.tL.BLANKS ... . _ ..
CALL PUNCHB( 72,SLANK,3,1)
_ _ _ _. 'c... P-Wi.Cl:L.4 EOB ' S . ._._. ----_._-----_._----
CALL PUNCHB(4,COOES(SI,3,OI
-.. - - - - - ------------_-G£L..IQ_9.23'i . . _. . . .. . . . _ -------------_. -------------~ - - -
C PUNCH AN EOB

-----_._-----------------------
 i '1'1 I
I
I
II
I
I
I
I

I ;
I I
I I
I
II
~
~I
I

~
Q .j

I
 "'ll' ~"'l~ ,
C'" '·"tI;.,.' .. ,
__________ A;~f;: , GERBER pes T PRoc;,~i~,BR,,:t I S~_,I~:G ,";{~:~I~,"'/:;,,~' P",1~,E" 44 ..
Ji.,,;,"v ,''«

~>-i~~'<:~,,':.~~ ".., ;t , "'-' ': -'Io'-~- .th· ' p ...' -,,\,.

c
C
_ .__._.. __. ... c ._ _-'-'R'-"'-OUTI NE lCL.LLS.J:. _.O_UTPJ.il..---ANQ . .--
C CALL FOR PUNCHED OUTPUT
_________, ~__________ v . . . _
SUBROUTINE PUTOUT(I)
.
-_.- -_ .. _._------ c . ---
COMMON/AOCON/KO,Kl,K2,K3,K4,K5,K6,K7,K8,K9,KlO,K11,K12,BLANK
__ .__ ._____________ _ R~~J,_!JLPRIU_~~NI.AP ,-CJ~_IAP.E ,.eQJ~ IAJ_tPJ,J)I~_~...t_SRF lAP --'-_.
1 TAPES1,TAPES2,TAPES3,TAPES4
____. . . ._c g MM0 NI ATAPT B I PR.C TAPJ_kAN T_.li1'..t.kh.TAP E, e.ctC TAE.JE.LQ TA.P..12R£1 AJ? .1._
1 TAPES1,TAPES2,TAPES3,TAPES4,INTAPE,IOUTAP,PUNTAP
.........._--... _--_._--- REAL*.8 ...w
DIMENSION W(252)
____ ,__. . lll.Mf.N.SJ..O N DIG I TSil.Q..Lt._GD DES ( 8.Lt. PEN C0 M.ilL__. . .
INTEGER IN,GCODE,DCODE,MCODE,GLAST,DLAST
___C.QM~tQiil.GllB.£lijL. ~__ _ . _ _.. __. ._._ -
1 ,Xl,Yl,Zl,x2,Y2,Z2,DX,DY,DZ
___________________________2______ ,XC,YC,ZC,AREA,ARCS,A~CL,Al,SEQNO(2)

3 ,IN,GCODE,DCODE,MCODE,GLAST,DLAST,NPEN,IDASH,KD,Nw
._,----- -------- ~. ._ _..Jlll_G I TS, CODES, PENCQMiD.DA-.S.fu.B..D.ASJ:i ~-

5 ,NOIGIT,NDECML,NTAPE
., .1;) ---------L.1£R011.LLl.N.EC..t~E.t..N.PJ.._Q.LS.t_N..c.AR.O.s.t2..Ll1
7 ,MONTH,OAY,YEAR
______ c .
DIMENSION PENIS)
DATA PEN/4HDOWN,4HUP _ .I._4HUf>_ .t4HOAs..li.t...4HUPl --------_ .•. _--~---

C TEST LINE COUNT

LINEC=LINEC+l •
IF(LINEC.GE.SO)CALL HEAD ~
C ---.ADVANC.E_INSTRUCTION COUNT .,.
IN=IN+1
_____ C BRANCH ON I
GO TO (100,200,300,400),1 r
-------
 ._~~~~ __ ~~~~~~~~~~~~_~_._._--

__ GERBER POST PROCESSOR LlSI ING PAGE 45

c wallE NEW_POSITION AND MOVEMENT
100 WRITEIIOVTAP,6100)IN,DX,DY,DZ,NPEN,PENIOCOOE),X2,Y2,Z2,ARCL,SEQNO
.6-lQQ.. £~.J1\T (lH 13X 1I.3...t3h3J£3......k3XltjL---.U t lA4 t 2X t 3 ( 3X 1E1l..5) t 3X t E12.5-1- _
1 2X,2A4 )
. . . . ._.. G.Q. TO lilllQ _
C WRITE DELTA MOVEMENT ONLY
._-J..2.w..0OloL.. Il RI TE( I 0 VT APt 620 Q) I ti.tJL~ t DYt DZ 1NuP...IoEo-l.:Nut~P__E..LlNul..loo!D~Cc.lo!O'_lolD~E..L)..I.1 .S....
E.lolLQuN.. w.O .
6200 FCRMATllH ,3X,13,3X,3IF9.4,3X),Il,lX,lA4,61X,2A4 )
___._...._. . .. . __.~CL~il._.HLQO _
C WRITE DISCRIPTION OF LAST SET OF MOVES IENDARC)
_. . 3..0iL.wBl.J_.EllO.U.IAPJ.Q.3JLQ.uJ;J...Y.k.LA~s..,_ARli . ... .
6300 FORMATllH ,9X,4HIXC=,E10.5,2X,3HYC=,F10.5,lH),30X,
. __ . ------------ 1 6HIARCS=,F1Q.5,5X,5HAREA=,Fll.5,1HL~ ~_

GO TO 9999
______ .____ 400 WBllE_ UOUlAP t 6400 l.LI'L_ . _ ---------_. ---
6400 FORMATllH ,3X,I3,3X,3Il0H** STOP **,2X»
.. .. __ ... . .__._ . -'ALI._£UNQUIJ1..L . . .~ _ ---_._--- ---_._---_.- -----_....._-
GO TO 9999
-----------~
L . SELECT DATA FOR PUN CHI N.G
1000 IFIDCODE.NE.K4)GO TO 1001
_....------- ._ _CAlL-M S H _
GO TO 9999
_H2O 1_ CALL_PWiO_Ul_LLL ~ . _
9999 RETURN
END

-_~~- ----_._---

-~--------~--~.-----,-;;;;:-c-".._---

,~ i' -~~"-~ \;; ~;~'~,:~' ~> ,,' -!!~:~ri;i ,-,' ,~, "-~., '<.- '~~

--------~_-
....,
\.JJ

._-_~_-----
 __~~ •. _.~ ~ - ~ •• I

PAGE ~ _
_ _ _ _ _--"'-G"",-,ER,-,-,B",-"E"-,-,R,---,--P~O,,,,-S T-l- PR0CESS0 R LI SIlil~
C
C
C ~LHiLI~ALE~~~
C
------S_llB_fillU_U_NE_D_ItSJ:i
C
_______________________~C~O~~~lM~iO~~ON/KO,Kl,K2,K3,K4,K5,K6,K7,KS,K9,K10,Kll,K12,BLANK
REAL*S PROTAP,CANTAP,CLTAPE,POCTAP,PLOTAP,SRFTAP,
_____________________-----l lAP£S_L_J AP~2tIAe_E-S3-'-lA~E_£~ ~_________ . . ~. _
COMMON/ATAPTB/PRGTAP,CANTAP,CLTAPE,POCTAP,PLOTAP,5RFTA P,
1 TAP E~lilt\ PES 2 t TAP ES~-LUE._E S!t-,_HillE-~tlll UTA PiPJJN TA-2 _ -------_._- --
REAL*8 W
_______. . ~ nil ENS l-OtLJti2'-""Sc.o.2.....1 .
DIMENSION DIGITSllO),CODESIS),PENCOMI8)
___________.._ _----.ll-J.LE.G~JLJlLj;Lill1E~QQEtJ1CO 0 E, GLAS T, 0 L~_ _ _
CCr-1MON/ GERB PP / W
________ .__~ ~ t ---'-~1L_)'j_'_LLX2....t_Y2t Z2, OX, DY, DZ _
2 ,XC,YC,lC,AREA,ARCS,ARCL,AL,SEQNO(2)
___________ 3 , IN diC.Q..QEt DCOD E, MCOD E, GL A51 I DL AS T, NPEN, IDA SH I KD..tlil.i
4 ,DIGITS,CODES,PENCOM,DOASH,BDASH
- - - - - - - - - - - - - _5 ~jlLGlLJ\~_D£Q1L t NT AEE _ -----------------------------
6 ,IFROM,LINEC,NPAGE,NPLOTS,NCARDS,PTLT
_______-tliONJ1L'-QAy_LLEA~____ _ _
C
________________ ~ ~ E N S I O N TDASHI21
EQUIVALENCE IODASH,TDASHll»
______ _ _r:__~_____ T EST TO I NlliLlI£llASl:L- _
IFIIDASH.NE.O)GO TO 20 '·:"'~·r·
'),
___ LDASf:L='-l-'K,--"l~__
,0
;'::i<~;~':~~\~,~J;' ,~i:>, ':tl~·E.~:~''':~1j.
DARCSM=O.
c S EI UP DASt-L VECTORS
20 XRATIO=DX/AL
_ _ _ _..i.yRAlifu.DYL=..A.....
L_ .....1

ZRATIO=DZ/AL -t="
 __~G~E~ POST PROCESSOR LISTING PAGE 47
C
C BEGIN DASH LOOP
----~----- --- ---------------------
C TEST TO USE FULL DASH LENGTHS
) I GO TO 2J1Q
______L~_lEl.D.AB&SM±AL~LDA£HilDA5J:t
C PROCESS FULL DASH LENGTHS
_ _ _. ......Ou.L......I..u.N......E.=.=. L-T""-!DtiS..ttilQ.A'='-'S"'-!H.wIL.--.....D=ALuR..lo<C-""S.L1M ---
DX=DLINE*XRATIO
___ D_\L~DlJliE_~.Y.RAllil __ _
OZ=DLINE*ZRATIO
_________________________~-'.D DE= I DASH ---_._------- -----------------------
C OUTPUT DASH
_ _ _~C~AL_L-PUNOUT{Kll
C SWITCH DASH MODE
~j2A_S-'i~l..D.A.SJ:i+ K1 u __ _ . _ _ _

IF( IDASH.GE.K31 IDASH=Kl

_. c.__ _ -'~.E_S EL_..Q.AE..C.£M__
DARCSM=O.
Coo CALCULATE._POINTS
OX=X2-Xl
__ _ -..l) y = Y'--"2~-_'Y'__'1"___ _ - - - - - - -----------_._-------_ .. _--
DZ=Z2-Z1
----- ._ _~L::_S_QlU.J.DX5<>l<2_:t.D....'L~~2.±.D.L't~2..l. . .. .__. . .__
IF(AL.LT. O.0005IGO TO 9999
GO TO 100
C
_____ -.C.... PRO CES S 'S_H.O.RL..L~I.I.1NJ....E_'. . . JO.L/.A"-"SLLHL..-. - _
200 DCODE=IDASH
_ _ _ _ _ _ _ _ _ _..:.-.........CALL PUNOUT (K 1) "'""<>;
~«".:......,....,~
_I- -r.' }C.~

C UPDAT E OARCSM ,_.

.D..ARc..s..M.::DARCSM+AL , .. ;~",~:- ..
C RESET DCODE
9993....._11CDDE=K4 --,
C RETURN FOR NEXT MOVEMENT \J\
 J II
~ctl
0-

I.
I i

I I
tDl
~I
j
~
~

~
I-
0
Z
W

I
I
! i
 - - - - - _.._--_._._--------_._---

G£ RBER P..DS T -.EROCESSQR LIS I I NG__ _ PA...GE. __It.9

C
C
___________._--L __ .. RQUllNE---liL CON DI TI O_t'i__DAIA~O~llffi ._. _
C
SUB R0 UI.li'J-f_-EJJNQ UI I I I )
C
. .cJ:J11MLLNLAQCON/KO, K1 ,~.K)_t..K..4 t K5, K~! K7! K8! K2_! K10! K11, K12! BLANK
REAL*S PRGTAP,CANIAP,CLTAPE,POCTAP,PLOTAP,SRFIAP,
_ _ _ _ _ _ _ _ _ _ _ _u 1 TAPES.L..TAPES2,TAPES3!TAPES4 _ _ .
COMMON/ATAPTB/PROTAP,CANTAP,CLTAPE,POCTAP,PLOTAP,SRFTAP,
__ 1 TA_e..E.S.L..TAP ES2 ! TAP E ~LIA PESit..Lilil.A PE, IOU TAP ~f.'! TA=P'--- _ --------,._---
REAL*S ·W
___>o<-QU'..E..t:iSlJJl:UU2.UL
DIMENSION DIGITSIIO),CODESIS),PENCOMIS)
_.. . 1NITG £iL1fu.G...c.Oli,.D..cJJD.E.,J~.GJlQE...t.G.LA.S.I..t.DU'->olS..LT _ -------_.-
COMMON/GERBPP/W
___.__._.
....-1 . . ,Xl.,Y..L..L1..L>t2.L't..2.t.L2..LDJuJ1Y.tlll . ._ ---- --------
2 ,XC,YC,ZC,AREA,ARCS,ARCL,AL,SEQNOIZ)
_____.3... , IN, GeODE, DC.Q.Q.E.L~E! GLAS T! DLAST! NPEN! I DASH! KD! NW
4 ,DIGITS,CODES,PENCOM,DDASH,BDASH
- - - - - _.. _._--- _____ .5..___ , NC IG1 T, NJ1.E.c.M Lloo-1-!'N-,---T-,-,A,,-,P-,E~ .
6 ,IFROM,LINEC,NPAGE,NPLOTS,NCARDS,PTLT
____. 1 ~_QNLH, OAYJ..fAB _
DIMENSION BLOCKIIOO)
_ _~D~I~NSION DAXIS(8)
EQUIVALENCE IDAXIS(3),DX),IDAXISI4),OY),IOAXISI5),OZ)
____L __
IB=1
;/:,-~\ GO TO
141 O,..2.93.9..t_:U.Qd3Jh..lt.3hlt.60, 470 ,-~8'Q) 'TI,:.i~. . (~~·~''';;f·~$' c'~"'-·
-----------
". ~ 410 BLOCK I I B) =CODES 11) \;~ _,-/ --';' ': -,"tv
STMTNQ=J N :'. .
CALL CONBCOISTMTNO,BLOCKIIB+1),3,200,1)
__ . IB=I.lli:L --.J
-..J
430 MOECML=IABSIMODINDECML,lO»
~--------------~----_._._-~----

_ _ _ _ _ _----!loGu"E.. uRc!.!.B.l.cER P-USl P-B.QC l: SS0R LIS TIN G U--'iL 50

DECMOD= 1 o. *.*-C-'M!..!.!OILJE....,C....,MC"-lL _
DO 459 IC=K3,K5
BJllil:ill =O"'-'.--.5"---__ ~
IFIDAXISIICI.LT.O.OIROUND=-ROUND
_________ .~. -.lMX15 ~__ DAX.1..sil..CJ ~DKMD~R DUN 0
DAXIS(IC)=FLOATIIDAXISI/DECMOD
IF (DA.~~-C-L.EQ.0. ) GO TO 45L-__.
BLCCKIIB)=CODESIICI
.. _.~ ~. ~_. ~_r;fJlj,,__GQNa.clHOAx.lilLU..r.J3J•.Q.CJlil.a.:tll.L-:...l:ULIG.ll._ _ ~.Q~ECML. Kl I
IB=IB+2+NDIGIT/4
_~ ~ ...!t5.9__ CilNLHill£_ _. . . ._
460 IFIDCODE.EQ.OLASTIGO TO 470
_____aLO..c.K..U.EU-=..P..f..L"KillH.J2QlU.__.E...L.1 . _
IB=IB+1
_ 0 L AS T DCilllE
= .__ ~_ ._------_._--------_.-~--

470 IFIMCODE.EQ.99.IGD TO 480

_______B.LO..C..K Cla.L=::..C.DOESJ lL .__ . _ - - - _ . - - - - - - - - - - - _ ..- - _ ..-
COMAND=MCODE
_____________ CAL L -.C.-QtiJiC.J:Ll CO MAN 0 • BLD CK(.1 B+...1..L)J..'. 6L2.L':J£0.L1 _
IB=IB+2
---~-~----_.---_.
. G..C11.D.E£1 . . _ -------~----- .-----_.. -.

GLAST=l
-- __ --- __. ~_~ OJ.: QDEE2 .~ ._
DLAST=2
MLonE.=99
480 BLOCKIIBI=COOESISI
_._--- --------_._-- _ _ _ _--LY..J...JB£l.B..:+-..L _
499 CALL PUNCHBI4*IIB-1),BLOCK,0,01 'CT~'"
YB= 1 . - <':, ~~. ,. -!1M. tit <;~::~~j~t: L ~ .;~ t'~2.t: <';l~ .~:, -~~-----
F
C CYCLE POINTS···- ;£\~~'" =.
- .a.X~l.=.=.a.X lL+.l.LD~____
... , . } .~. ~

Yl=Yl+DY
11=;21+DZ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _-:::-.1-.----
OJ
DX=O.
 -/
I

. ~-"

Lr}.
z:
0-1
f-I
v~
:J I
I, I
rY' .
0; t
~t
W:' z.
I
!,
U! . • • a::
d OOJ
a::~ /I /1,....0 ~ .-,
a. >jN'LIZ I
! qoccw i

CI"
er-
0'.
0"

,I
 ----------------------------------------------------_.--------

_____.. . .G EK8.ER.~OS_I. J)_ROrr~.B_._USlLN..G. ._____._. E~._ ..52 _

___" __. . ... .__.-..C... _

C
c.... If'-.lL_AN__ ERROR__ MESSAGE.
.__.BJlU.ILNE_TQ_PJ~ _
C AND TAKE IPPROPRIATE ACTION
___ . C ._ __ _ _
SUBROUTINE ERROR(Il
._ . . ._. .1:- ... .. _. _.._". ._... .._. . _. _.._. . -_., __ -__. __..._..._. _. _.. _ ... _.. ...._
COMMON/AOCON/KO,Kl,KZ,K3,K4,KS,K6,K7,KS,K9,KlO,Kll,KlZ,BLANK
REAL * 8. _P ReI APt CAN TAP ,C.L TAP E ,P OCT AP , PL 0 TAP, SR F.l AP ,_
I TAPESI,TAPESZ,TAPES3,TAPES4
._. __._ CGM~.QN/ AT APIBI P_RQJAP,.CANTA P ,C L TAP E,POC TAP ,P LOTA P,SR FlAP,
1 TAPES1,TAPESZ,TAPES3,TAPES4,INTAPE,IOUTAP,PUNTAP
_. ._ . _.._. .. _.. ._.. _H.£.AL*..8.._W . .._..__ . ._ __ . ._._._ __ ._. . __.. . ._" .._.._.._._ .. _ _._ _.._..
DI~ENSION W(25Zl
___ __ QlM ENS LO.i'LD IG lIS llQ} ,C.OLLES( 8J~ PEN COM18}
INTEGER IN,GCODE,DCODE,MCODE,GLAST,DLAST
CCt~MONI GEBJ3.PP LW __. __ _
1 ,Xl,Yl,Zl,X2,Y2,Z2,DX,DY,DZ
__ .__.... ._.. ...__.2...... _.. . _..~f.'i.c..Lz.C_,..8JU:_At.ARC s L.ABCL~.~LSJ~Q('illJ2. L_. . .
3 ,IN,GCODE,DCODE,MCODE,GLAST,DLAST,NPEN,IDASH,KD,NW
! t I D lG.ITS_LGDD ES. tPE.NCm-L, DDASJt, BDAS_H_
5 ,NDIGIT,NDECML,NTAPE
(L _ . _ _ f I FRO~,LLNEC, NPAGE ,NPLOTS ~l',ICARQS,_P ILl _
7 ,MONTH,OAY,YEAR
__ .____ _.__.. __ c _.__.,. __.__ .__ .". . .._._. . .__. ".'_" . .__.._.. ._. __._ __.__._._._.__
LINEC=LINEC+l
____.__ ._._ W_RLLfLl.QU IAe..,_6.QQ.ll.l~£Q.NCL_. .
6001 FORMAT(lHO,6H******,27H GERBER POSTPROCESSOR ERROR,I5,lX,72(lH*l,1
- lL.2.A4 .l.1J::L_j:~~~>!<~.. ...1._.__ ._
C TEST FOR FATAL ERROR
------_._._---- I E( I . IT. Q ) CALL....D.I SPAT .. _._...._.__. . ._. .. . _
C CORRECT ERRORS
---------- .._.LE.LL.£Q.....K.3J.cALL_E..ND_~ __ __. __. . .. .. _ ... - - --_._._--_. ---~
IF(I.EQ.KSlCALL FROM
- - - - - - - - - - - - --- "- ~ - ~ _ . _ - - - - - - - - - - - - - - - - - - - - - - - _ . _ . _ - - - - - _ . _ - _ . _ - - _ . -
-----._------------ - - - - - -_.
 - - _..._--_ ..

___-'2.fRBER POST PROCESSOR LISUNG PAGL~

_ _ _ _ _ _ _ _ _ _ _9~9~9"__L9_ RETV RN
C
. ... .. . .__ .J:_...._.... . G.flUi..EB POSTP..RO.cESSOR ERRO_R MESSAGES
C
,
________ . .. __ .. ..c.._.£RR.QIL1'iQ.L. .lLE SCR I2llllt'i...J:J£_.ERB..D.R _ _ -------~---_._--------_._------_._-- ---.~--_ .. .. -

C -------- --------------------
___ ._. . ._------.C_....__. .. ..
C 1 TWO FROM COMMANDS WITHOUT AN END
. ... .G... *
C 2 TWO END COMMANDS WITHOUT A FROM
C
*
C 3 FINI GIVEN WITHOUT AN END
. ._...... __._.. ...._..__...L ........_ . ._ .... . **
C 4 DRAFT COMMAND BEFORE FROM
.. __ ... .......C *
C 5 MOTION GIVEN PRIOR TO FROM **
_.. . . . .C ......... _.. _. ..._ _ __...._... __ ._ .. __....... ...._.. __..... ..._ ...
C 6 PARTNO AFTER FROM *
_ ...__.__.. _...._ .___ .... .__G..... . . _.. _. . . ...__...._. ._ _ . .....__....._ ... . ._ .... ._......_._._ _.
C 7 ILLEGAL MODIFIER IN DRAFT COMMAND *
___G... _ _ _ __ __.. _ _ . . .. _.._ . .__. ' ----- __ __ .__ _.. .
C 8 ILLEGAL PEN NUMBER GIVEN
C.....
* -,._,-----,_ ... ..
_----_ ..__ __.. _'~~------ ---- --_ .. - -_. - - . - ~

C 9 MOTION TO LARGE
. .C . ...._,___ ._._-. *.
C 10 MACHIN COMMAND GIVEN AFTER FROM *
. .....L_._ _. .. . .__ _.. . . .
C 11 ILLEGAL SECOND MODIFIER IN MACHIN *
_ __ C_.._.__ _._. ._ .. . . . . ._ . _
C 12 ILLEGAL THIRD MODIFER IN MACHIN *
C . _
C 13 ILLEGAL FOURTH MODIFER IN MACHIN **
_ _ _ ._.._C_.. _ ---- --- ---_. rn
I-'
C 14 FORMAT ERROR IN LETTER COMMAND
... _---------,--_. --_._-_._-~--_. ..
__ _------------_. ----_._------- ._- ----_._--~_._.- --_._--"-

-------_._-------
 --------------------------

________ G.E..fiB..ER. PO Sl PROC ESS0 R US TIN G P.AG-f.__5_~. . . _

c.
C COMMAND CR OPTION IGNORED
*
c ** CORRECTIVE ACTION TAKEN

~
C _ .. ._... _ - ------------ ~----- - - - "------ ~---
_.__ .•
-"'-- ---.-..---L-----.. ---
ENO

_.. _.---_.'-" _.. _.-----~._.

__._._----. - _. --~---~---_._--_.- .. _-- ---_.._._.--_..

_ • . ._. __ <--. ~~,_._.•• ~ _ _• _ •• _ _ ~_.~_•• .,_. _ _• ~_._~ •• _ . ~ _. • ._.~ • __ . _ ' _ . _.•• _ _ .. _ _ ~_ ,• • , ' - ' _ ' •. .'. _M ···_·_. " ••__

------_._-------
 .. --------_.._-----------,------------------_. -----

_~GEJlliE.f.L£.OST __j>R!&£S.SOR LIST ING PAGE_~ -----------

___________ -.L _
C
_______________L _
C ROUTINE TO PROCESS LETTER COMMAND
C
__. s.UaRO_UTlJiE._J...Ell£R _
C
___ L -------".- ._- .. - -,

CO~~ON/AOCON/KO,Kl,K2,K3,K4,K5,K6,K7,K8,K9,KlO,Kll,K12,BLANK
8.E AL *8 eR__CTAP ,__C_A.N.IA P_LCl._I AP f,POC_TAP ,.PLO 1A P,SR£I~.P L_ _ _
1 TAPES1,TAPES2,TAPES3,TAPES4
___ __ _ __ ____C_Q~J.,!QHLt\TAI?T8lP_RCT AP ,__CAt~_IAP_,- C_LIM:>E..J. eQ_C_I AP_,-_J?-ULIAP-t..s.Bf_L&E_L- ---
1 TAPES1,TAPES2,TAPES3,TAPES4,INTAPE,IOUTAP,PUNTAP
__ RE.~L*8 W __ _ . _
DIMENSION W(252)
DIMENSION OJ GUS (lQ l,c.OD£S L8J,_PENCOM L8)
INTEGER IN,GCCDE,DCODE,MCODE,GLAST,DLAST
__________________ ..c.D_MM.~LG.ER£J?P.L.W . .__. __. . .. - . -----------
1 ,Xl,Yl,Zl,XZ,Y2,Z2,DX,DY,Dl
___ 2 ,XC I vC t ZCtAKE A_, ARC S IARCL1_AL.1.S£QN.Q1.2J _
3 ,IN,GCODE,DCODE,MCODE,GLAST,DLAST,NPEN,IDASH,KD,NW
4. _ ,0 IG I IS_,C_Q.D_ES_LP ENCQM._, DDASf:JLB.DA_SJi. _
5 ,NDIGIT,NDECML,NTAPE
_______6 d.£B.Q.M_'-_LlN..E..C-t.J:J.P.A_G..E..t.liP..LOTSJ.NC-AA_QS.L1?.I.LL _
7 ,MONTH,DAY,YEAR,X,Y,SIZE,THETA,JFLG,NLET
.. -,. -
__._- ----_.._-- _._ .... _._-. ________ X=' rLCll____ _ -------
y=w(Z)
_________ _____SI LE-=.W-L3J. _
THETA=W(4)
_______________N.L.E_I_=.H W _
C CHECK SIZE AND ThETA FOR FEASIBILITY
__________________________ ~EUiL1J •.L_L__O'~D5.1_....G_Q.J 0 5 _ ---CO _
W
IF(W(3).GT.l.O) GO TO 5
--- _._ ..•-.--'-- ._--_ .. _-,,---~-_._--

------------
I
i
J.

I
I
I
 GERBER..2.QS.J PROCESSOR LI SI.lN.G PAGE 57

------_._---- c
C

C ROUTINE TO PROCESS PPRINT COMMAND

_.- ._ .. _--_.--------~-----~._._-- .... _ - - - - - - - --------_._-------------------_. __ ._~._. __.. _-- --,--,------
C
___________ SJ.U2Ru..Uli.fiLP_eJ1IID .__.. _ ---~.--_ ---_._-~._----~.>.-
. _.
C
___C _.. --.--- _._.-._-- - --- --_ .. _. -"'-.--_._- -_.- --._- -_. _. - - - , .. _.~ -
REAL*8 PRGTAP,CANTAP,CLTAPE,POCTAP,PLOTAP,SRFTAP,
L _ _ LAP1; ShI~Pf-S2 tIM:> E5_:l1 TM~£s..4. __ . __ . _. _
REAL*8 W
_. .. .__.. R-EAL~8-_..w_CJUL .__. . . .. __ __ _._., , ,__,, __ ,
INTEGER IN,GCODE,DCODE,MCODE,GLAST,DLAST,JFLG,NLET
_______._ LCGLCAL*L LWQRt.L8 L_
LCGICAL*l IL~T(4)
DIMENSION~(25~1
OIfwlENS ION
L( 252)
____ UJJ1.E.N.S..LDN....D.IGll.SJ.l_QJ.l.c_QDfSJJU 1.P_EN.C_01tL8 J __ . . _
COMMON/AOCON/KO,Kl,K2,K3,K4,KS,K6,K7,K8,K9,K10,Kll,K12,BLANK
_____ Cot"MONLtUAP I 8.J,Y ROTAP,G.ANIAP..tCLI APEt...POG..T APtP LOTAPt.SRFI AP--,-- ._
1 TAPES1,TAPES2,TAPES3,TAPES4,INTAPE,IOUTAP,PUNTAP
___ CGMM.ONICHA RTRIC HA liTR( 25 2...t..L8,3. 1_______________ __ __ __
COMMON/GERBPP/W
'---'-~'-'~
- . J. . .LXLL:Ll..tl.l...t...X.2 , Y2 ,L 2..ill.X..t.LLY._t_.l2l.__. ._______ __ _ _ _ -----_....... _------
2 ,XC,YC,IC,AREA,ARCS,ARCL,AL,SEQNO(2)
_~_. __ ... _ .3 -L1~..l- G.cUQf..tQCllD.f..t M.e 0.0£_ LGLA_s..I..t..D.LA.slt.NP.E.i'1_t...lDASJitKDJJ.LW .__ ...
4 ,DIGITS,CODES,PENCOM,DDASH,BDASH
-.. _.. --- -..-_.....-.- ..----..-... ---..-_. ---.5.... . t _NDJ.G.U.,_ !:'l.D£..CMLtN.I.A£.E . . .._ _ _ _
6 ,IFROM,LINEC,NPAGE,NPLOTS,NCARDS,PTLT
_ _ _. 1 __t...t1Q.tH_Ii.t.QAY.1_Y..EAB I X, y, SI l. E, THE I A, J ELG• NLET
EQUIVALENCE (WORC,IWORD(l»
-.. --.-- . . E~ _ ULVALEN.li_.l..lLETER-l._1LEl..LLU _______co _
------
\.n
DATA ILETER/O/

-----------_.~ ._~-_._-------_ .. _----- -_ .. --_._~~_._--- -,,---.-'-',- "----, ---~ ._----_ .. _--_..-------_. __ ._._~---_.
 -----------------------

_ _ _ GERBER POST PROCESSOR LISTING __ P~ __L.58!oL- _

_ _ _ .__.._. . 0AT.A~2L1-L-Ll2.L L( 97 ) , L( 194 ) , L( 195. ) , L( 196) ,L( 197) /1 , 5 ,3 ,9 .13 , 2...r.M

1,L(19SI,L(1991,L(ZOOI,L(2011,l(Z02),l(210),L(211)/7,6 ,11,7,7,7,71
_ _ _n 2.LLJ2-l_2_1.,_L12..L1 L,_LJ.2.l~ JJLL2J.5.Lti..J 2.l6 J_tJ•.J 2 17 ) I 4 , 6 t 5 t.l2J..8...tJ..2.L _
3,L(ZlS),L(227),l(Z28),l(229),l(230),L(231),L(232)/10,13,5,7,4,6,5/
- .. ._________ ~,-.L
j _2..ll.h.L.J2~~..LLLL2_4 .l_JLL_l242.1_t..LJ_2..4:U..t_L._L2.4~L.Q_L~.l_Q_,..6._t.lJ,.Ll!tL . .__
S,L(245),l(246),L(247),L(2481,L(249),L(2501/S,10,13,4, 17,121
-- .. .._L.... ._W~ E l ET.L~.F._p.1Lii~.r·tE. TER.S_.-.fll.S I Bl E --------_._--------.. ----_.
IF(JFLG.EQ.11 GO TO S
________._____ __ _ ._ _.GALL_ERR OR __U4L . . n______________ __ _
GO TO 9999
__2.._ THE TA=.O 17 453>tIHET1L _
STHETA=SIN(THETAI
________________. . UJiUA.=.G.US_Llli E.I A) . . _ ----------_._-_._--_._---_.. --_.-.__.. --
WRITE(IOUTAP,101 (W(II,I=l,NW)
______10. FeRMAT U HO, 2 2X,6HP eR I NT t2X-llLA6 I L1.._________________________________________ __ .
C GO TO START POINT
_____ _X2:: iC _ . __ ..._------ ---_._~ .------_._~._---

Y2=Y
-- _._ -- ... . . .__.. _. ._0. X=_X 2.::.XL _ ...__. ...__.. . .._. .__ ...__.__ ___ ... . . .__.. _
OY=Y2-Y1
D_l =0... . . . .. ... _.__ . ._
DCODE=2
CAL L PUT 0 UT ( 1 l. ----------_..-----_._--- "--_.-
C IDENTIFY AND PROCESS EACH LETTER .
- ---.----.------.--- -- . ._. NLE.I.=~ELt_lliL.E lL3.L..- . ... . _
DO 60 N=l,NlET
-__.. _. ._....-... ~w_l =_.LN ~U 1.8_._. .. . . .__. . .__._. . -------------
NIW=(N-(NW1*8»
. - --.- ------------- . _._.__.__.. . WUR.D. =Ji.LLN.w_L H:IJ _ .. .. . _.__._..
IlET(4)=IWORD(NIW)
_1E..11il1i.- 1 ) 42 , 5 Q..t..5.Q.
42 CONTINUE
...------ . -----.-----.----- JiRLIELIO_U_IAE_..f-4 It L l~'ORD...LNLWL_ ..__ . . . . 0).. _

44 FORMAT('0',5X,'THE FOLLOWING DATA IS FOR THE CHARACTER ',Al II) ~

"------
------------- _._.._------------------- ---------_._-----

__________-----.G..ER.aEIL.£.D.s.I--'?.B..OC.E SSO R __LLSTlliG PAGE 59

_________.__. ._.. LIN EC=:: LIN EC+3 .
LL=L(ILETER+l)
~""--._--- ---- ----- .__ ._. ..- " .. --~--,- 00..5..0. .K_ =:: 1. t.LL__.
DX=CHARTR«ILETER+l),K,l)
D.Y ~HAB.T RJ LlL.EI.EB.±11_, Kt-2..L .>0______ _. . ... . . .__.. __..__
DCODE=CHARTR«ILETER+ll,K,3)
._ .. ....__ .._.. __.... .. _.D.X_l=.=12X_ .._.._._.. .__. .__. .._ _. __.. ...__ .'__
OY1=DY
OX_::: lD.x l~C IH.E.IA::-DY l*STtiE_IA L __ . . .. __ ._._
DY=(DY1*CTHETA+DX1*STHETA)
. .. .'--- " .. ,-
. DX=D~*SlZE__ ___ .__ ._. _._,-- - -_ .. _. -- .. __ .-._.__ .__ ._------.-.".. ----,-- ._--
DY=DY*SllE
_._ .. _.__.__ .__.. DL=:Q A... • . . _ ..•. ..... •.... .•.._ . ._. . ._. ..... .__ •

X2=Xl+DX
Y2=Y_l+D_Y
CALL PUTOUT(l)
50_. ceNT LNUE. .' - ---"'--"._-' .. -.
60 CONT I i\IU E
..._QCOD E_=: 2..__._ ..__. . ._._.. . ._. . __ .~. .. '._,__ ~"'~_'C _. __

DX=X-Xl
___._OY = '( :-.Y.l. __
DZ=O.
_ X2=Xl+Qli-. _
Y2=Yl+OY
----._-. -. .. ._ .. ...-CA.LLellI'O"U.U1L. ..._____. . .
9999 RETURN
_..__.. __..... .._.._.. .__END..._. .._.__ .__... ._. . . ... _.._

---_.'---_ .. --~ - _.------_._-_ .. _---"-_.---------_. __ ._---------_._._~.---------- --_._----,---_._------------------~ ~-_.

-'l

_._--------- ----
_ . _ - _ . _ - - - _ . - - _ . ---_._--._------_. -------_.. -.------ ._---_.._---_._.- - - _ . - -----------_.- .._-------- -------_.+_. __._-_._----- ------_._.. _--
 GERBER POST £B-.UkESSOR L lSTlli(i P A!iE__ 1>.Q

C
C

C THIS ROUTINE SUBSTITUTES FOR ACRDPN/CARDPN

__ ~ ~._~_~~~ -y_ ___ ~ ~.~~~. ~~ ~ __ u __ ~ ~UBBJ1U TI NE_l~_AS_~CT ~_Q£ AJ:l~_U_~ __ R0 UTI .lli2 ~ __ ~ _. _
C THE OUTPUT TO CARDS OR TO MAG TAPE.
_.._. ~ .. __..__ ~ ...C . ..__ . .__.. .._._._. . .._ . ..__._. .... _...
SUBROUTINE CARDPNIA,N,M,I,D)
- -,. __ ._ ... .. _._-_.
_ __ ._--~--_.
__.. ~--------~-_ .. _. -_. -, .. -'--- .-._-- . __ .- ._-_._-----~~._._. _. -_.. _-_._. __ ._-_ .. _-~.-._- --_.- .. _. ~_._ •.. _----_._-_ .. -
COMMON/AOCON/KO,Kl,K2,K3,K4,K5,K6,K7,K8,K9,KlO,Kll,K12,BLANK
____. .__ ~REAL_~aPRQJM).1 CANLAP..'-~L1.A_E>_E_t_P_UC.lAP
..J.E1.0JAfl_l~ SR.f.l~~
1 TAPES1,TAPES2,TAPES3,TAPES4
._ _.__-.RE~_U'..a...TA£L£ll11t2l-. ._.... .. .. . .. _
COMMON/ATAPTB/PROTAP,CANTAP,CLTAPE,POCTAP,PLOTAP,SRFTAP,
-.- . ._ ~~. .1 .IAeEs.LJ-IlIP.E.S_2..1APEs.L.IlLe.EShlliIAP..L.Lillil.AE,PJ1NlAP . _
REAL*8 W
_._ .... _._----_.- --- -- --.- __ ._.~ 01 M.£NSI QN._W L2..52 , .. .. _... __ _ . .. . . .
DIMENSION DIGITS(lOI,CODESIS),PENCOM(SI
... .__ __ . _. ..1 N.IEG.ElLI N, GCOD E, DC O.Q.L MCO DE, GUS T, DL A S I - . . ._. .._.. ,__ _ _
CCMMON/GERBPP/W
_1. ._.__ __ ~.~ . . ~ ... ,-Xlt.'LLtLl.t.X2.,Y..2.,Z.2 , .oX .tD-'i.,_DL ....._.. . ..._.... _.....
2 ,XC,YC,lC,AREA,ARCS,ARCL,AL,SEQNOI21
3 ...1 LN tG_C..QUE...t.DCODE,_MCDDEt.G.LAS I.,..QLASTJ_f\l£Ef\I.. t.1D.AS.J:Lt_Klh.N1L
4 ,DIGITS,CODES,PENCOM,DDASH,BDASH
-------------~ ..-.. 'i....- ...t..NIliG..l.LJ:il:l.E.C11L.J liT APE' __. . _ ._------------ "-'" ---_..
6 ,IFROM,LINEC,NPAGE,NPLOTS,NCARDS,PTLT
~ ... .1. --.__ .... t.M.O.NIfu.DAY-l-YEA.R... .. -_.-----
C
..----.--------- IN I E GER~1I.£.E .._. ... .
REAL*S BIGOUT(lOOOI
------.------ 2
1NI.E..G.E.B.~1.ND..EXX ......(..... L..)_ _

LOGICAL*l OUTPUT(SOOO),TEMPI301,DOL
EQU_l~ALENC£ (8 I GCUU_l ) ,OUI£1lli.ll_L _ -~--------_._---_ .. -~-_.. -
CP
DATA APTAPE/20/,ICNT/1/,DOL/'$'1
--------- GERBER PO~T PROCESSOR LISTING PAGE 61 ._-------------------------
C
C
_____________ LQ-Gl.CA L ~1._Jtl Q).,lL. ~ • ---

LOGICAL*l AAA(Z),AA
___________ __ __E.QJ.Ll-'iA_UH-CE._LA A-l.AAAL1ULllriOll_LI~ LCU__ Lt.!.LliiD£ XXI_2J_ LA~...A_lZ_.L.L _
DATA INDEX/O/
____________L . _
C
__________. C _________IABLE._-T11__ T~AiiSLALE __.fRQ!"LEJ:KD__LC.__ TQ BC.D._
C
____ LDG I CAL~LT g TA.B_LL2_2Q L _ ~. __. , _ •. __ • .0 .•• _ _ - • .~_. .• _

INTEGER PUNTAP
---'-'-"-~---'-~- - f..QU.1.V.AL~Nc.~_.JIRIAftLtiLt.J A_6J.J;.LUJ..l.L.J ._ _ - _
c
___ . DATA TA.J3..LElj' _._. • .1.
_.21 __ ,, •' , •
•.-,_._
3 " $','
__. .4_ ._. ... . ._ .1.' __. ._..!...J.• . <%f. , .__ . .__... ._.. __", . _
5 ,'& ',' $$<
6 __. _. .t ·-:L______ 't_'... t.%' .•.
7 " ',8H #@'='
8 ___ _ t • .__ . ' l.~ __. .._. ....
9 , • , , ,
---- --.. - .. ._. . .._. .__ A..__... --L_'--__._. ._.t...!...._.. ...__.__..... !.. ..._._ . .__ .. __ .._ __ _... ._ .. ._._... ._..__ .__ ._
B t • , , ' •
____. . ... _.t..!...ABL.DEEG-'_l. ·_HL -' . . . . . . .
D " JKLMNOP','QR •
____ E . __ J_~ __ _S.IU_'LW.x.!J.~_L.-.. t . . _

F ,'01234567','89' /
- .__ ._. _l:-
C
________________ k . . . _ _ ---!XL- -
\.()
C TEST FOR WRITE EOF CALL

-_. __ .•--_._----
 GERBE R _E_Q.$l PROC ES SOR LIS TI NG PAGE 62

-------- _. __.. IF (M.EQ.KS)GO ~.~QQ~QL- __

C
. _ ..__. . . . l.ELti_~.G.T~_lJi.L N=ll__ ~ __. ._. ~ ._~ __~ ~ .
N4 = N*K4
C TRANSLATE DATA TO BCD CHARAC TERS
_ _._.__ ._._. . .
..Q.Q._.9-.2...JS=-L...N!L _
AA=A(K)
___ . . ._ .' . AtKL_= IRTA.6_LJl!-JDElttJ_L
99 CONTINUE
.._. . _. G .. _._. .__....._.....__. . .__ ,_ ._
C TEST FOR OUTPUT MODE
.-._ ..__.. .___ . . .lELN.IAP E..• NE.K.QLiiQ_IQ .2OJlQ .. _
6000 II = MOD(I,10000)
__ . WfUr E. (PUNIAP,66.o1 L._LA (Kl..t.K= Itl2.LtO..t.lL ..__
6601 FORMAT(72(1Al),lA4,lI4 )
GG I09999_. ._.__. ._ .. .__.. _ .. ._
C
_____ .. ... __.G.. .... .. . .__..-1iR1I.E._QUTJ?U_L__OiL..IAP-f._ UN I T 20..__.._. .
C'
.. .~ . --"_.~ .. _-~---_.
.2QQQ_ 00_ l.O... K = 1!-N4 --_ _- ','-'-'-'--- _._._._._ .. _---...__ __._--_._-------
OUTPUT(ICNT) = A(K)
~----"---_._~-----+
IOtT = I CJ'H _+.L ..._. ..__ .._._- - . _- ._-- --_..
IF (IeNT.NE.8001) GO TO 10 .
..-- -_. ---.-.-.-------_. ._.1.. __;;--3.0.... .__. . .. .__..__.. ._______ . . ._.._.. -...
J = 8000
--------------.. _..30_ IF _LOlilRUL LLL ...EQ. __DOLL-GD_J_O_ L.(L_. .__ _ .. _
TEMP(L) = OUTPUT(J)
...--.--.----. nu_LEULlJJ __==_...BUI'iK... .__..._._.. . .__.__. ... , .-
L =L - 1
---.-.------- L_=-......L.- _1'"---_ _. ---_ _---_._---_._----------- ._-------~---------

GO TO 30
- - -----.-----------.---------2Q.-JiRl.TE._LAETA..e..E.t..22..Q.1L__LB.IGDUT (_J.CN.Tl--,J CNT=l-l- 2 50) , (B I.GDll.Ti.J.CNIJ-I-_ _. .__ ..._ -.~--.-
1 JCNT=251,500),(BIGOUT(JCNT),JCNT=501,750), 0

-------------_._._._------------- -_._._.--------
 ·GERBER POST PIillrrS_S_QJL_.L lSI I~h_ PAGE 63 . _
___ _ ._ 2 LB I GOUT (JCNT >! JCNT=751 ,1000 > _ . _
2201 FORMAT (4(250AS),lH*)
_.__ . _._._.________IG.NL=_...l . ... ._ .... .. ._. ._._. ._. ._. .. .. .
IF (L .EQ. 30) GC TO 10
__ . . ._._.__.__...__ .-L_:::_.l.._ ±-...l.. . ....._.. __
DO 40 M = L,30
_.. __ 0 . . . ._ Q.lilI? UT ( I CNT) = T EM £.LLJ_ o ••_ • • • • • • • •_ _ ••• _ _ ._.0__._..0.. ..•._ _ '_.' . .._0_. .·•.- .
40 ICNT = ICNT + 1
lO J:..GtiLlliU..E _. _ __ •• ----- 0 ••• --_.. •. _.". _ _ • _._ ••• _.~, •. _

GO TO 9999
_.c __ _. ...__
9000 IF(NTAPE.NE.KO)GC TO 9200
....c...... __.__._.._. . _._._.. __ .._ _ _.__ _ __ ._.'..__ .. _~._.._._.. _. ._ ..__ . __._--------_.
C WRITE AN EOF ON PUNTAP
9600 WRIT E (PUNT4Pt.960U
9601 FORMAT(2H##,78X)
..
_ _---_. ._ .. _ ~ -_._.--
lC.NL.= 1 __
GO TO 9999
...C __ .__ 0' ._. . _• • • _ . _ . _ _ • • • _ _ • • • • • • • • • • • _... • • _ _ •••_ •••_ •• _ . . . . . _'. •••• _ •• •••• . _ . • ••••• •••• •• _ _ • • • •

C WRITE AN EOF ON TAPE 20

9200 DOLL K =:__ LCNJ.t.8QOO
11 OUTPUT(K) = BLANK
leNT = j __ . _ ._ . . ._ __ ...
WRITE (APTAPE,9201) (BIGOUT(K),K=1,250),(BIGOUT(K),K=251,500),
__--.1_...__ . ... ._ ...._._._.... .. __ LaLG.illlLlK.l..u.=-~O 1.750) L( BI GOllliK.L~.K.=:_7..2.L..LQQ..QL_. .. _..
9201 FORMAT (4(250AS),lH )
-- .-_._--- --. __ .... _-_. -._- ..._._._C_...__ ._.__.. . ._..__._. ._
9999 RETURN
.. ,
____ ._. --.END._ _ .__.. .__ ._.__.. _ _.. _--------- _._--._._._----_.--------_._._ .. _._-- _._-_ _---_ .. ._------

---- -- ------_.. _----------

.. -
------~----_
I-'

._- .. . .. ... _~-_._._---_._-----_.--

----- -_._ .. _------- . -~- --'-'--'----- ---_ ..------- - _. --_. - "----"'-'_..-' __._-_ __ ._ -----------------

-------- -~,---_. ---~_._.~._-_ ... _---

----- ---_ .. _.._..._------- .. _- -- ... _... _---_._. ~----_.- -_.. . -------- -- ----_._---_.- .__ ._~-_.-
 92

APP:':';:'DIX B

POST PROCESSO;1 VARli\.P.LES, Cm;STANT2" AND FLAGS

ARCAL - The incremental arc length.

ARCL - The cu~ulative arc len~th.

ARCS - Arcs for endarc.

DAREA - The total area hct~cer a~ arc and the X axis.
DCODE - Pen command.
DC ODE ,. 1 fen nO'll'!
DeaDE - 2 pen up
DconE = Lr· usod as fla;=: 70l~ iJ?AP'2/TJ\SH

DLAST - The la.st pon c omnJ.\~d.

m,~AX - The :,12.~d.rn1."n 3.110'.':2.1:'1e move -:n O"W rl.i rsction for one
command.
D~AX - 10 inches ~or a 1.3 ~or~at
D~AX ~ 20 inches for a 2.3 format
DO) - Increments the pen position.
DOB - Holds the pen posit~on to zero.

DX, D":, DZ - The irc¥"''':''icr't'"'.l 110'[:) 1,.rhich is rcquired to

move from the presen~ pen locatjon to the desired
I)eJl J_oc3.i~ion.

DXC, DYC - The 1nc:~r;::1':::~-ti:;.1 ella ~'''' i : tho coorrl.inat88 of

tho cer:t:;'~Jicl of ~F':. 8:~C 0 88.";::1,,,(1 'b J' ",-,'ei ir' ~,2CAL to
-the existinz 8rc.

GeODE - Unused.

GLi\ST - Unused.

IDASH

IFRm,l - Flag indic2.ti'!1g if 2. F::~O'} c 0f1i18.nd has bern mane

sir.ce .l~]lC la.st E!';~) c ornm(lY1c-l.
I?ROY '! -- 0 FT:(JT;I }l8.P I'""lO-t~ 1Je~j'1 n18,rl,(' ~i~'lCC -the last
J~r-:D •
IF'Ol'. _.]. PR(Y~}:8~ bc;e'l m2"le since the 18.8-1; E~TD.
 93

i
IZEROES - Identifies zeroes in output
format.
,TFLG - A flae; to indicate th0 para~,cters ]_n the LETTER
command are feasible.
LHmc - The nUl.1her of li"C's \'rhic h have been printed on the
part pr03ra~ listinZ. 0,-,(' e LP::~C 01l~~].S :fifty a new
page is calledo
M - 'l'he class for the p2.rtic~112_J:· d~1_+a beL ):,cad from the
CLTAPE file.
1'/1 ~- 1 ;{ C Ci-~I~S Tr ;- 1 I~:I",:TJ
fJ ~- 2 Sf~1CP

GCI)~S I,T ,-- J_ -I) ,.:... r Pfj1

Ii -- ? .... ~J ... oJ -,-.

l\r ._? f.':j'1.CIIIl\.!

i'-T __ ~ P..\.RTJ".!O
TT :- X:' l.£TTEl-1
1\1 f,
1,. --- j

J ~\r = 1
"i\1 '}
;. .. - - £-~

1\: .-- I!, 1';lT"'\.TT

),- __ r
1. ..L.l-• ..L
1'''
k ..-
r:
j

r: - (,

i\T
1'{ - fron

r;r)F:C}'.~L - Irj.o:n~~.~_~ic;~: r.; :~ .. ,~~~.T'.'~" n:r 1:,I~:.CO:~1 O "t11C T'~~;:l~t o~ .L

the; r1 c c ~_:·:~;;~.l I);) it: ~.~ 5. -~1-~0 Oi__ ~l~ rql ·t~ j~ 0 r·l.'_-~; -le • Th 2l'~ '~:Dl~C ~.TL
IS artjl):::'tc-;o -to .0 iCcl LJ; -~:h() o~ ·~:~p;__~t. :n:~~·~~2."1~.
~:DI~C:-'~L .. 3 ~c~'.J.l ~f'0l~·~.~~~:' t
r~'J=:~~','~L --: lO:~ c;li-:·:li~c~·tc t~:'~2,ili:·,··-· Z,~::CQCS
.~:I.: - 2 0'"=' eJ.i::~in2.-to 1'=~2.;J.~}.·· ZC~l"'oe::;,

NDIGIT - Tl1 0 -::.o~:.:al ll11r:,bc:2.~ of rli:;;itc< -i- c the o'Jtpnt format

(al\'7ays J:- or ;).

NFrilF - I(lp-'1tifie[~ the m'~;bs:.~ of places to t::c left of the

r.cch-laI poiY<:' in the output format.
r-ILE'l1 - TIl? nl}T~1,11er or Ie tteY's to be r.1r'2.~.vrl :cn the lettering
routine.
 94
d ced Iro m
Repro u"1l ble copy.
best ava a

l'.TP.;.'\.CE - DD.=C ,''':'1',-' - ./'...... y.~

, .~ ~-,

'........'

T 'I/'~.:l -~ ....... t :-' ,.-.. .]...... .1 "r"""- ~ , ,. ~

~ . ". ~.~ ._..1- . ..1. '_"_

7Tp~O~'~lS fr;-i~; l'~i">vl~>:: C _ O-~.... r'l()··l-r-_~ '1 y-, +1,('-, ~~ '. --:'"~ .1. ..··;~c~.L~, \'/11 '?, 1"2
0;"'0 J?J.O<:. "1·_.'::.~~i I':, :'."Jl;~l"';l ~,. '.'~. ; .. c·.·.
-, -~ ~
{l ~'''', '-l ~~ ~', ~ -\~}"-: 2. n
-;-:'"" ~~-\
~·l
. >
•

..-. .-. f- ,'-",

I·;T]IIpnR .-.. . ,-1 .~ ..L -: , ("'\

p p : ~.\.T'::-:;

!\TV! -

PTL~~ - ~r~.1')
pal..~-i;

SIZE
TJ-illTA

Xl , Yl , Zl The p'''',; r< "'~

(~'. v· l-
l.: v ];0 .....'. c: 00:"'(~ J. ) '-'.~ i:s .. • ~

X2 , Y2 , Z2 ~l n
'i1.),,1."- ~l ., r<
to;
:': ~V"-
..L,I.
"':) ,1 1''',n
J.-
i
'
, :) () ~ ',-r-
: ~ ,',,'
1,. ,-, ~. .
XC, YC
 95

APPENDIX C

SUBROUTINE REFERENCE CHART

,. . r
ROSS
EN u--c~EADER
ERROR
STOFf-I.--PUTOUT

~
PUNOUT
END DRAF EHROR
PUTOUT
STOP
HACHIN-ERROR
D&i\.FT
T
DA ) V
.r.n._Ll~
rf1 0--r---E"":'"::'on
-- L .J':',L •..:. ,• .1.

I'lACHIN H:~AT)

PARTNO PPRT1\TT
•
r,'cYDn
J.. -,-r..,ll.l...JJl
.1.;..
n
purrOUT--PUNOUT
l-pU'TOtTT
GERBEH LETTER rIOT10N--CPUTOUT
ERROR
PPRINT
DASH--PUNOUT

}ODLTA GODLTA--rTOTION
J.OTO GOT0--I'l 0'1'101'1

Main subroutjnes Sv.. broutin8S which Interactions

called by GER3ER, svpport the rnain between the
the controlltnc; S"uJ)J"C)1.1t 5. n.es • sllpportinG"
subroutine. subroutines.
 96

APPE:'JDIX ')

GERBER Cm1r:1A~m SET 8: INPUT FORUIA'r

$--------,13e[';innin,; and/or end of one motion command.

(end-of-block character).
x·,....-------,Reg:i...ster address character-means that the
nWTlerical infor:na-tion follo':linC is a move
vector in (±) X-direction to he actuated by
the "X" motor.
Y--------iSame as X, except that the vector is in (±)
Y-diroct.5_on to be 3.ctuatE?Q hy "Y" motor.
D----------iRegister nd;lres8 character for pen control-
means that the numerical irformation follow-
ing describes a pen condition which is
executed prior to any other functions con-
tained within a block.
MO 0 - - - - - - " i,l ZESO-ZEHO" - The rotop command-stops the
tape reader and the drafting machine. Motion
may be r,:;s1.1med without 1')88 of accuracy, but
only by a manually instituted "start".
X-Vector----F.umerical data, .5-di r3i.ts plus a sign, which
descrihes an incremental translation dis-
tance in the (t) X-direction. The.5 digits
represent 2 integer and 3 decimal digits, or
a maxirwm value of 99. 99? All units are in
inc 1'10:::; • (I-Iovrsver, the maxi::".um X f:1oti.on
possible is 59 inches.) The data must not
include a decimal point.
Y-Vector---...,Same 8.S X-Vector, hut in (±) Y-direction.
(The maximum Dossible Y motion is 39 inches.)

D-func ti on-~h;_ ~a :~: ~ ~{;lOW,~~-'~ liD II describes ~h? f~llow-

In,,,, l a " -,-,-,-~ pc" ~or turret) condItIon,,:
01 .- "Pen dO','!D" (dra'N)
02 = "Pen Up" (don't dravd
03 -- "j\.dvar:cc turret one pen posi ti on" (a D02
must have been previously commanded.)
08 = "Return turret to 'Home' position" (a
D02 must have been previously commanded.)
There are 6 pen posi tior..s; pen //1 (the "Home II
 97

pen) = blue
ball point; pc~ #2 = red ball
Y)Ol'
1:" '-It·t
.1 pC'~
~''''-'()()n
L) .;.
l ,I 1:)al l 1)01' n+·
ifJ -
.... \..,; -- ~· t - (-nen'"" Itn}/ c;;Q,. 5
IV' 1....
..... J ....") f'

= technical fountain pens (Operator must be

notified if these are to be used.); pen #6 =
coated mylar scribe (mylar scribecoat must
be supplied by user.)
 98

APPENDIX E

GERBER POST PROCESSOR INFORMATION FOR PART PROGRAMMING

This post processor program 1S designed to interface

the APT/360 numerical control programming system with the
Gerber 622 drafting machine.
The APT/360 command which invokes post processing is
as follows:
MACHIN/GERBER, 203
The card containi~g this command should immediately
follow the PARTKO card in an APT/360 program.
The GERBER Post Processor recognizes and processes the
following APT/360 commands:
PARTNO
MACHIN
DRAFT
All legal APT/360 motion commands
LETTER
PPRINT
STOP
END
FINI
Descriptions of the use and function of e8J~h of these
commands follow:
PARTNO
The PAR'IINO command must occur in the first card of
an APT/J{.O progr:::l1'YJ 8nd it mus t be puner-:ed into the first
~ ix columns of the card. The rena ining 71~, card c olum~s
. . b,e use d t 0 pr1n
m;.y .-l-
1,
~
a ,,1l,J.e 0'1" 0 t h
-l- .....
Jer ;1:.18n ':;1f·1.cat10n
..J -I. . at
tr:e beghming of the pO<jt pr0:cs:?or listin:';.
i.e. I PARTNO Ti~S'I' N/C ;)FAFTr'C; CAPABILITIES

The MACHIN command invokes post processing and is

used to select the format for the pU''lcheri paper tape output
of the post processor. The format of the ~ACHIN command iSI
o ,0 ,0
1.3 [,1 ,1
2.3 -,2J[ 1
 99

The di~its (2.3) select a 2.3 tape format; i.e., motion

commands as punched into the tape will consist of two in-
teger digits and three deci~al digits. The other choice
(1.3) selects a 1.3 tape format; i.e., motion commands as
punched into the tape will consist of one integer digit
and three decimal digits.
Either 2.J or 1.3, must always follow the word GERBER.
The digits within the brackets represent an optional
choice. In the first bracket the default option (no comma
and digits) means that the selected tape format will be
padded out with zeroes, both learting and trailing, as re-
quired. If (,1) is used, the tape format will eliminate
trailing zeroeso If (,2) is use~, the tape format will
eliminate leading zeroes.
EXAMPLE:
1. command: PAcnT1\T/"'~'DBEn
.'1, 11 ... " u.tJ;\! ,.. , 2 . •"
)
tape format: X00100Y12l2l
meaning: X+OO.100, Y~12.l2J (units/inches)
2. command: "rA.CHI1\'/r,':iH~PER ? 1 1
i'·". ... 1\ Jl..t[·~.i....· , ......... _ ,

tape format: XOOl':'"1212::'

meaning: X+OO.lOO, Y+12.123 (units/inches)
30 command: "AC}~I~/G7RP~R
j';... l' TLi ..
J. 0 1 2 ).LJ.;. , LJ • j ,

tape format: XlOOY1212J

meaning: X.+·nn 1 no v+," .1-<::.. 12':l ( un l t""/ol nc h e ....
v V • __ v , .t. '" ) j 0
u

4. command: I'.~ACIIn,T/GER?ER, 1. J
tape format: XOlOOY1212
meaning: X+O.IOO, Y+1.2l2 (units/inches)
The digits within the ~econd hr8ckct specify the desired
output. The default option (0) specjfies paper tape
wherea.s a 1 specifies T:1agnetic tape outp'Jt.
DRAFT
The DRAFT command is used to control the drawing pens.
The format for the co~mand is:

ON
Dr~AF'r/ DASH , PE~T ,n
OFF ,Er'~~ARC
ON lowers the pen to draw.
DASH causes dashed lines to be dra~n.
OFF raises the drawing pen.
Each pen command is modal, i.o., it cancels all previously
given pen commands, and remains in effect until a new pen
command is given.
 100

The options within the square brackets act as follows.

(,PEN,n) causes pen number n (n=l to 6) to be moved into
drawing position. The pen number is modal and may be
omitted from DRAFT commands as long as the current pen is
desired. (NOTE. Pen number .Q.!.@. is placed into drawing
position at the b~ginning of each plot (FROM command).
Thus, if the user is satisfied to use pen one, he need
never use (,PEN,n).)
(,ENDARC) will print, along with the listing of post pro-
cessor output, the total arc length, the coordinates of
the centroid, and the area beneath the pen movements since
the last DRAFT/ON or DRAFT/DASH command. The area and the
centroid are computed between the line of pen motion and
the x-axis. ENDARC may be used only with the DRAFT/OFF
command.
EXAMPLES.
DRAFT/ON
DRAFT/OFF
DRAFT/OFF, ENDARC
DRAFT/ON, PEN,3
DRAFT/OFF, PEN,2
FROM
----The FROM command is used within the APT/360 programming
language to initiate mbtion commands and is used by the
GERBER post processor to initiate a plot. It must be given
before motion commands are attemptert in any plot. Its
arguments specify the X, Y, anrt Z coordinates of the plot's
starting point. In addition, FROM performs the following
plot initialization functions:
a. Sufficient bla~k tape leader is punched for tape
reeling.
b. Number one pen is r.:oved into drcJ.l.\Ting post ti on.
c. A 0.100 cross is drawn at the FROM point.
d. The pen is raised and a stop code is given to en-
able the operator to check the setup before plot-
ting.
MOTION COMMAf'nJS
Pen motion is accomplishert through the standard APT
motion commands:
1. GO
2. GOTO
1. GORGT
4. GOLFT
5. GOFWD
6. GOBACK
7. GOUP
8. GODOWN
9. GODLTA
 101

x, Y, and Z information is used (rotary motions A, B, & C

are i~nored), but onJy two of these axes may be plotted on
the Gerber at one time.
Maximum travel lengths on the plotting table are 60 in. in
X (horizontally) and 50 in. in Y (vertically). If a motion
statement specifies a vector move of more than 60 in., that
statement is flagged and is omitted from the paper tape.
LETTER
The LETTER statement specifies the parameters used to
initiate lettering. The format for this command is:
w]1"')re
X,Y = coordinates of the lowr:r left corner of the first
character.
H = height of the characters. (maximum of l.O inch, minimum
of 0.05 ir.ch)
A = angle of lettering, measured counter-clockwise from the
positive x-axis.
N = number of characters (ircluding blanks between char-
acters) in the follo~ing PPRIN~ statement. Do not
court
•. the fl·rc~
~. c~v c'narsntnrc (PpDI M1')
~
tVl, .-::....t..."'....
(.l.C..\,,\_' .J'..... "~, .1\.,i • •

All parameters ~lU~3t be zpec ifie:i in the LET'rER statement,

includintS zeroes. Every LET '[,2P rontine mw:~t l)e followed
by a PPHIN'l' routine.
PPRINT
The PPRnT':p routi'lC specifics the ch2.raeters to be
drawn. The format fOT tr:is st2,teI'lent is:
PPRI~TXXXX • • • where
XXXX represents the dpsired characters. A maximum of 66
characters can be specified i~ one st2tement. Acceptable
characters are:
A thru Z
o thru <)
+ - (blar:J-;:)
EXAMPLE.
LETTER/2,J,.75,JO,17
PPRINTl'TDflEHIC.AL CQI";'l'HOL

These two statemer;ts specify that the words NUl'.'lERICAL

 102

CONTROL, which consist of 17 characters, is to be drawn at

an angle of 30 degrees with characters 0.75 inches high,
starting at X = 2 inches and Y = 3 inches.
STOP
The STOP command causes the Gerber stop code, MOO, to
be punched into the tape. This stops the plotter at that
point.
END
END is used to terminatp a plot. A 0.1 inch cross is
drawn at the current position. of the ?en, the pen is
raised, pen number one is moved into drawing position, and
a stop c oje is given. The pJ at p'1mber is inc remented by
one and the numl)er of C8.rd~3 and length of paper tape
punched is calculated and displayed. END also causes a
length of blank leader tape to be punched.
To continue motio""> after an END, another FRO!!;jpoint
initialization co~mand must appear.
FINI
FIN! terminates postprocessing for an APT job. The
total number of plots, total mIllibar of cards, and total
paper tape lenGth are displayed. FINI also causes a length
of blank leader tape to be punched.
GERBER Post Processor Error r.~essages

Error Number
1 Two FRO~ cOffi8ands without an END +
2 T'l'lJo END commands without 2. FHOM +
3 FINI ~iven without an END *
1~, DRAFT command before FROM +
5 Motion given prior to FROM *
6 PARTNO after FRO~ +
7 Illegal modifier in DRAFT command +
8 Ille~al pen number in DRAFT command +
9 Motio~ too large +
10 MACHI;,\" c 0171man:::. giver:. after FROI'~ +
11 Illefral second modifier in. MACHIN. command +
12 Illepal third modifier in filACHIN command +
,.)

13 Illegal fourth modifier in fvIACHIN command +

14 Format error in LETTER command
~} Corrective action taken
+ Command or option ignored
 103

1234557890+-

2 /~ n
~
j
H

.~ 0 ~ I
LL ' 01
I/~
~
.
W / ~ /"
8 y ~
EE · a
ZAx/V\/\n15CjD 1]
 104

APPENDIX F

JOB CONTROL LANGUAGE FOR SYSTEM rilAINTENANCE

The followi::1.g job control language is usec'l. to compile

the post processor source de~k:

(OS/360 JOB CARD)

(CLASS CARD)
II ;:;'XRC F:Onj"rTl1HC '.1.
J.,;J .LJ
PADK'~
',.'. Fopm_'''T<','<L-
I. 1. - "'I,p'
LJ.Jvn., 1,_.1'.,. ~',

/lroRT .SYSIN DD ~~
(SOURCE DESK)
/*
The following job control language is used to link
edit the post processor hex deck (first time only):
(OS/360 JOB CARD)
(CLASS CARD)
I/CREATE: EXEC PG1"il=IE':ILF980, PA~r.l== 'LIST, XREX ,SIZE= (300K,
72K)',REGIor=J80K
//SYSPRINT DD SYSOUT==A
I/SY ~c:!Lf'fOD
_"_ ! DD Dr<~T_C"VCJ
u; ;,·,·0..i..v _ •...""'~':p-;-~''''''n T:?mm7p
J~. ~L..t,;l\. • .w.c..--L·.J..l.~ ,,) ... - (TlITi'''!
.. l , TC'P_
'J'
1\,L,,1V, KT;'EP \..J..J ,

DELETE) ,
II lJ TlTIT
1",. == P::>'T'V'TT>
.1.\...1 1-1. .r." 'T()T .J..J= (f"I'r,m..
I, ".r) ' pT;>rr~TrT
·¥;i..i.~,_.\.L _.iL..~ \,)..)L1t=:.:i.rl
07T.) A~m")Co . . . . .,·~\,' SPA.C"" "" 1-1=
(C YL, (2 , I,.? ) )
//SYSUTI DD D ''· 0"" '" j': ):\,1,\., TTf'I
"OT,:,}r,,(,,"V ST-~'" J-'... v,t; =(CYT ..u, (6 ,
fn .:""T'l\(' ......
t' :::r:.~(.~.J..l.J :,~,. .L::"' ..... 1.;'.:,) jIl ,.:J.t'
,

6,3))
I r<YSLI 1:,'D DD 'IS
I l.:;.,.l "'_'::,v~ 1 . l
.'.~. J.._./,J..l.-
":;'n') r:r;- T') T)
v.. \.1..u..L.,), TC' ")_C'}.;p
..... ...I-~1-0 dL

II D, 1:)
~. DS~' 1\: =nvr<l
~ DJ""""
..L. ,.:') L• I""
I
')-c-F'
.L,...
:-'J..,':;
\..J r~ 1 i.. ('<:.:')
=...)

/ISY2LI1'J DD ~~
( H"i'X'
L~ ~
J.
'iF,'" K')
-l.'.-.JV

Er'.~T~Y GE21.~E}?PP
NAl'.ill GERBERPP
/*
The following job co~trol 18 laCe is used if addi-
tional linl<:: editing i~) reql.,ircd:
(OS/360 JOB CARD)
(CLASS CARD)
/ISCRATCH EXEC PGr,;=IElIPROGI.1,ccrm=(EVEU)
/ISYSPRINT DD SYSOU~l-:-A
/IAPTDSK D:J VOL=(PFIVA,:,=,P:~TAI~;,SE'~=ArT36o) ,DISP=(OLD,
PASS) ,
 105

II UNIT=PRIVATE
IISYSIN DD ;~
SCRATCH DSNAME=SYSl oGEHBER •LETTER , VOL=23lL~=APT360,
PURGE
1*
/ICREATE EXEC PGM=IEWLF880,PARM='LIST,XREX,SIZE=(300K,
72K)',REGION=380K
IISYSPRINT DD SYSOUT=A
IISYS1TlOD DD DS!';=SYS1.GERBER •LETTER ,DISP=( NEW, KEEP,
DELETE) ,
II UNIT=PRIVATE,VOL=(PRIVATE,RETAIN,SER=APT360,SPACE=
(CYL, (2 , 1 , 2 ) )
IISYSUTI DD DSN=&&IEKWORK,UNIT=SYSDA,SPACE=(CYL,6,6,
3) )
IISYSLIB DD DSN=SYSl.FORTLIB,DISP=SHR
II DD DSl\T=SYSl.DPCLIB,DISP=SHR
IISYSLIN DD -rc.
(HEX DECK)
ENTRY GERBERPP
NAME GERBERPP
I-Yc
The followinG job control language is used to run a
· part program to test the new post processo~:

(OS/360 JOB CARD)

(CLASS CARD)
I;~SETUP
I I EXEC APT
/ISTEPLIB DD
1/ DD DSf'T=SYS1.G3R3ETI .I..Jt~TTER ,DISP=OLD, lUTIT=PRIVATE,
VOL=(PRIVATE,
II RETAIN,SER=APT36o)
//APT.SYSIN D~ *
(PART PROGRAP1)
1*
 106

REFERENCES

1. APT Long Range Program Staff "APT Part Programming",

Illinois Institute of Technology Research Insti-

tute, 19650
20 Dyke, R. Mo Numerical Controlo Englewood Cliffs, N. J.:
Prentice-Hall 1noo, 19670
3. IBM Technical Publications Dept. "System/360 APT Nu-
merical Control Processor (360A-CN-lOX) Version 4
Operations Manual", International Business Hachine
Corporation, H20-0331-L~, 19690
40 IBfvI Technical Publications Depto "System/360 APT Nu-
merical Control Processor (360A-CN-IOX) Version 4
Part Programming Manual", International Business
Machine Corporation, H20-0309-J, 1969.
50 IBN Technical Publications Depto "System/360 APT Nu-
merical Control Processor (360A-CN-IOX) Version 4
Systems Manual", International Business Machine
Corporation, Y20-0080-2, 19690
6. Leone, William C. Production Automation and Numerical
Control 0 New York, No Yo: Ronald Press Co., 19680
7. Rempp, Katherine Ao "Numerical Control: A Bibliography",
University of Michigan Industrial Development Di-
vision, 19690
 107

8. Reichhold, Curtis "What is a Post Processor?", N/c World,

February, 19700
9. Smith, Do No and Peelle, D. No "Numerical Control Today",
University of Michigan Industrial Development Di-
vtsion, 1968.
 ..

..