1620 1311_AD APT_Numerical_Control_Processor_Listings 1311 AD APT Numerical Control Processor Listings

User Manual: 1620-1311_AD-APT_Numerical_Control_Processor_Listings

Open the PDF directly: View PDF PDF.
Page Count: 254

Download1620-1311_AD-APT_Numerical_Control_Processor_Listings 1620-1311 AD-APT Numerical Control Processor Listings
Open PDF In BrowserView PDF
JOHN MANtOTES
COMPUTER TECHNOlOGY DEPT.
PURDUE UNIVERSITY
CALUMET CAMPUS
HAMMOND. IN 48323

IBM 1620/1311 AD-APT NUMERICAL CONTROL PROCESSOR
LISTINGS

1620-CN-06X

DR. JOHN MAN/OTES
COMPUTER TECH N m E l l i j
PURDUE UN/V R
CALUMET CA
U 0
HAMMOND, IN

40 Saw Mill River Road
Hawthorne, New York 10532
WHite Plains 9·1900 (Code 914)

International Business Machines Corporation

SEPTEMBER, 1965

ADDRESS CHANGE:

ANY DISCREPANCY BETWEEN MATERIAL RECENED AND THE
MATERIAL ORDERED SHOULD BE FORWARDED TO THE PROGRAM
INFORMATION DEPARTMENT, NOW LOCATED AT 40 SAW MILL RIVER
ROAD, HAWTHORNE, NEW YORK - 10532

PROGRAM INFORMATION DEPARTMENT

IBM 1620/1311 AD-APT NUMERICAL CONTROL PROCESSOR
1620 -CN -06X
LISTINGS

TAB LE OF CONTENTS
PROGRAM

PAGE

AD -APT -INTRAN
ALPHA
WASH
DICT 1
DICT 2
DICT 3
ALSCAN
POSIMP
CALC
TYPERR
SIMPLE
COMPUT
POSTPA
OUTPUT
FINDZ
ZSURF
MACRO
CALL
REPLAC
FILE 1
FILE 2
FILE 3
FILE 4
ITDUMP
IT LOAD
POINT
RTHETA
RING
CIRCON
LINC
LINE
LMOD2
LMOD3
FMI05
FM2665
UNEQL
EQUAL
CIRCLE
FMZI
FMTANT
FMZ459
FMZ603
FM617
FM153

1
12
14
15
17
19
20
22
23
25
26
30
33
37
39
39
40
42
43
44
47
48
50
51
52
53
55
55
57
58
59
61
63
64
66
68
69
71
73
75
77
78
80
81
8Z
84
85

PLANE
PLFMZI
VECTOR

•

PROGRAM

PAGE

FM25
MATRIX
TABCYL
LTPTAB
GCONIC
ELLIPS
POCKET
LN/CON
LPTCON
LTNPRC
PTSLCT
MOVDAT
CANOUT
LISTAD
SQRTFA
SINFA
ATANFA
EXPFA
LOGFA
LINLIN
CINCIR
CIRCIR
DYDX
LIN CON
DISTF
UNITV
LeNON1
SELECT
NORMLN
NORMCR
NORMCN·
LNCUBE
FISH
LNSTRT
CRSTRT
TANF
SPSIS
STACK
STOL
ERPROC
FSPKG
SCUT
SFROM
SINDRP
SINDRV
SGDLTA

86
87
89
94
96
97
98
99
100
102
103
104
105
109
114
116
117

SGOTOI
5001

118

.,
II

120
121
122
124
126
127
129
130
130
131
132
133
134
136
139
140
141
143
143
144
144
145
146
151
152
153
154
155
156
157

"

PROGRAM

PAGE

STPOT
START
DSCOUT
ARELEM
LINDS
CIRDS
CONDS
TABDS
SOFFST
SENSE
LINCS
CIRCS
CONes
TABCS
PTBUFR
LROFFS
FBOFFS
DTDS
STRACT
LINLOC
PNTLOC
LINTAB
TBSTRT
ENDPNT
PARAM
CHORDL
XYFORM
PNTREF
ELIMF
AEDUMP
AELOAD
TANCON
CNSTRT
ZCOORD
ACI253
ACI255
ACI217
LCNON2

158
158
159
160
174
176
178
183
188
193
194
197
203
204
204
208
209
210
210
211
212
213
218
220
221
223
224
225
226
227
229
230
232
238
239
240
244
247

....,
.-

PACE

SYIISOl !ABU
~

..

9RCYl J
.CtYl2
lSURF.
TSAVEI
TDAUB
TOATU
STRIPE
SIMPLE
RETAOO
POS TPR
NOWRIT
NBLANK
MAPENT
LOlOAa
ITOUMP
INOATI
HILOAO
ERR OUT
!NDUB
01"504
CLSTOP
CHK"OD
ARGOSA
AODIT
AlREC
CAPAC
CHKO
CORD
DU
ERR
FIlE2
FOR"
HI SEQ
IND
LEFT
NCT
NEXT
NORM
HRf
NUMB
PSHO
RNO
SAVEl
SEQNO
SET41
START
SVM82
SYM87
TSTNO
XCALLE
XOIIINO
XEROI"
XHI
XLODEI
XNNE
XPROGX
UTOI"

00519

9RCYll
geCYU
UUAFO
TEMAlS
TOATAl

02115
OlSOI
02456
0]]'2
03350
0852.
0241.
10974
02416
07890
011H
1l1l0
12598
02416

on95

lIB6
02416
12110
08840
08072
08120
0175)
10528
07569
09292
OB576
10923
01883
01682
02416
01712
01636
07707
10420
01876
08816
09200
03345
09448
10112
03341
08071
07656
08620
07904
04301
04335
0'4'4
1102'
1097'
11690
00434
11256
00008

12914
III 12

00511
021n
onu
01696
OUU

TOATAl

onu

STUOO
SEfSU8
REPLAC
POSIMP
NNfOYF
MONITR
MACSUB
lCTAPE
INTRUP
INCRI4
GOALPN
ERROIM
OS"06
01"50]
CLENTI
CHKDOL
AL TEIIP
AOD2
AlSEQ
CHECK
CLI6
COSFN
DICT
ETC
FIL£4
FOUND
HUB
INIf
LOAOX
MLBR
NFLW
N02
NSEC
PIN
PUNC
RTYPE
SCAN
SETFL
SFIWP
STOP
SYIII]
TOATA
TYPE
XCNTR
XDNSC
XEREHT
XIDEHT
XlOPRII
XNOF IT
XIUNGE
XTEMP

12050
09664
02416
02416
12226
10UO
05188
07101
07904
10780
08656
03090
02416
on80
13030
09684
07126
OB2,.
07567
OB896
08632
02436
02416
08072
02416
07628
OB680
07976
01.40
08804
03329
08059
03327
07391
09620
01595
08852
08284
08996
07713
04303
0])33
10890
11001
00201
12198
1096'
12451
12894
11468
11169

.RCYL!
.tcno
TYPERA
TOATII
fOAU6
Tonu
STlifAv
SnSAY
PSHOWII
POI NTR
NNECOII
MEMORY
MACUV
UMLOP
INSRTI
IHCORE
FLZERO
ERASE I
DSU02
0111'02
CLEARZ
CUUIE
ALSERR
ADD20
8EGIN
CHK
COOE
CT
DIGI

EXIT
FlAGC
FSTIID
UTI
INIT2
lOGFN
NATI
NJUMP
N03
HSRF
PLACE
READ
SAYE
SCOSA
SET"
SFlAG
STORE
SYMB4,
TaU
WASH
XCOMP
XENTRY
XUIT
KINDEX
XNE
XNUOI"
XRESET
xvue

0051'
DZilI
02416

OHU
03112
0]U6
II5H
0'''4
10040
11046
00140
20000
07121
12"1
09516

I2sn

07680
11444
02416
10340
12830
11850
10940
08108
08204
07691
07715
01748
07684
00796
10822
07134
07731
10268
02451
07661
07607
07898
0)]51
07743
08120
05181
07163
08192
07769
09008
04305
OU . .
02416
11492
021)6
12414
12ltO
00030
11100
IIH6
1130.'

.RCnO
lSURFl
rsTUFF
TOATIO
TOAU5
TABOUT
SRTYPE
SEEMAC
PRoces
OUTPUT
NEQUAl
"EMG"
MACPIK
IWTEMP
IHFILE
ILNEXT
FINISH
ENTRY2
OS4501
0lM501
CLElRI
BACKIN
AlSCAN
ADD]
CALC
CHKD
CO~IIA

CTFLG
DIG2
EXPFN
FLCON
FUll
IAT2
INRED
VAl
NAl2
NO
N04
NSRT
PRIME
RECNO
SAVEl
SOSA
SETZ
SINFN
SYMB
SYIIB5
TERM.
WOROL
XCOSN
XEUS
XEXTNT
XlNMAP
KNECON
XNUENT
UCAH
XWRERR

.ccn J

00513
02521
01881
03412
0)362
07110
01597
OB"6
10224
0241.
011U
!lOU
0111'
01104
09984
07698
09820

!SURF'
TSTPUT
TDATA.
TOATA4
SUBT 12
SQUFN
RHURN
PRETEM
NS TFLG
IICORES
MUMAJ
LOMHIP
IWPREV
I NOA 14
IFJUMP
FILFlG
ENTRY I

02~21

02466
10870
1291~

09428
02416
08212
02416
08156
09752
onB8
07686
02H6
01617
10180
01627
09199
10277
01666
02461
01901
03349
08132
07640
08011
10816
08376
02431
08932
04315
07744
06091
11670
10"'9
12634
12422
00141
11160
11040
12262

01~506

DELD IN
, CHKSAV
AUNFN
AOCT
ALPHA
CAlll
CHK IF
CO~PI

C22
ENOL
FILE
FL2l
GPPR
INCR
KEVER
MCOUT
NEST
NOGET
NPII
NT
PRTNO
RGTPR
SAVEl
SEP
SETZZ
SSNO
SYM81
SYMB6
TNEST
ZEROK
xeSELF
XEUSE
XFIT
lLO
XNEOYF
XOVOFF
XSETPT

02111
02511
08108
OH02
03352
09360
01426
12282
07712
01146
11364
076B9
I271B
07699
07409
07745
07714
02416
10846
00000
08688
OH41
08600
02416
09892
09268
10468
10304
07381
OHI6
01670
099~6

10822
08352
01711
02532
01893
01622
07874
09492
10548
08041
10651
09224
03337
04289
04325
01718
07648
12762
11758
12530
12389
1)062
11512
11420

PAGE
01010010200103001040010500106001070
01080 ENTRY'
01090 ENTRY2
01100 SORTFN
01110 SINFN
01120 COSFN
01130 AUNFN
01140 EXPFN
01150 LOGFN
01160 ALPHA
011 10 POSTPR
01180 WASH
01190 ALSCAN
01200 FILE
02010 REPl At
02020 OUTPUT
02030 PaS IMP
02040 TYPERR
02050 OICT
02060 CALC
02070 SIMPLE
02080 ITOUMP
02090 FILE2
02100 FILE4
02110 TSAVEI
02120 NO
02UO OS4501
02140
02150 OSA506
02160
02110 OSA502
02180
02190 ExIT
022000]010 ZSURFX
03020 lSURFY
01030 lSURFZ
03040 lSURFO
0305003060 illEST
03010
010800)0.0 TOUA
03100 TOATAl
03110 TOATA2
0)120 TOATAl
0)130 TOATA4
03140 TOAfU
TOATU
03160 TOATA7
03110 TOATAI
on.o TOATU

on,o

IBM 1620-1311 AD-APT INTUN IIAlNlINE PROGRAM
THIS PROGRAII CONTROLS CALLING ALL INTRAN SUBPROGU~S

...................
...................

MAINLINE COMMON AREA
OSA MONITA,RETURN
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
os
os
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
DC
OSA
OSC
OSA
OSC
OSA
OSC

os

5
5
5
5
5
5

5
5
,2416
,2416
,2416
,2416
,2416
,2416
,2416
.2416

.2416
.2416
,2416
.2416
,2416
,24\6
.2416
5
5,C
INIT2
5.03071
0IM506.24
5,03101
0'"502·20
5,0)011
.00196

ZSURF 'LANE COEfFlClElITS

OS
10
10
OS
OS
10
OS
10
NEST "IU
OS
1
800
OS
fOATA fAIU
os
I
OS
3
os
12
Z
os
OS
2
OS
10
OS
10
os
10
10
OS
DS
10

02406
02411
02416
02421
02426
02431
02436
02441
02446
02451
02416
02416
02416
02416
02416

00005 J0980
00005 J2282

oooos

02416
02416
02416
02416
02416
02416
02416
02416
02416
02456
02461
02466
02461
02476
02471
02486
02481
00196

DODOS
00005
00005
00005
00005
00005
OOC05
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00005
00005
00005 J0268
00005
00005 Jono
00005
00005 JO)60
00005
00000

02501
02511
02521
02531

00010
00010
00010
00010

02~16

02532 00001
03332 00100
01B)
03336
03348
0]]50
03352
OUU
Dun
03312
0]]'2
0)402

00001
0000)
00012
00002
00002
00010
00010
00010
00010
00010

.'
OU~O \DAllO os

10
OHI2 00010
onllo 'QAfll DS 10
0)421 00010
04010
\
OS
IU
oun 00861
040211..'
, OUTPUT FO_IIU--US1NG TDAfA fABLE AS TEMPORARY srORAGE
04010 NSEC
OS
,'OATA-6,
HUIIIER OF ADDITIONAL SEctORS to RUO
oni? 00000
0 ..040 IIFl"
OS
,TOUa-4,
IIUIIIIII OF 'LOUING I'OlIlT IIOIIOS
, ..'\
03329 00000
04050 $SliD
OS
,TOU48~.
SOUIICE sunllENf
If :k
03))1 00000
OS
,TOUA. . ,
INTEIliNAl lIec~o NUIIIEIil
04060 RNO

_"IfR

m:~

ggggg

07HI
01181
01381
.0
OU86
5,0
OU9I
5,0
MACRO STAtEME"T I"P~t AREA
au."
DC
".1"4
01407
Ot
\2,99999999999'
CAIIO 011 TVPEIIIIITEII INPUT AIlEA
07
.. 09
OAS 7'
07567
os 16
07569
OAC 1,'
0"70
DC
I,'
07593
OS
Z)
RECOIID ANO SuellECORO T"E---TEN'OIllAIIY STOIIAGE
075U
os "
01595
os ,SRt"E-Z
$TOllAGE FOR IF OR JU""O STATEIIEN' IIUIIIIEII
01605
OC
8,10000000
01607
DC
2,1
07615
DC
8,0
076U
DC
z,-99
'EMPOIIARY STOIIAGE '011 NUMIER OF PARAMlfEII WORDS
01622
DS
5
07621
os ,
0162.
DS
I
07616
DC
8,0
016"0
os "
0764.
DC
8,0
TI!MPO"RY SfOllAGI! FOIl SOURCE SEQI/I!IICI! _ E a
07656
OS' 8
01661
OS
5
01666
os 5
07 . . .
DC
Z,O
01670
DC
2.0
01611
DC
8,0
07680
DC
20-99
07682
DC
07684
DC
Z,O
07686
OC
2.1
0"89
DC
).
01691
OS
2
076.,6
DS
,
07691
os 2
01
...
OS
I
ono~
os 5
01107
01708
OS
I
01112
OS
•

00050

04010,N'"
OS
.TOUUU,
IIAJOII RECOIIO " "
04080 IURf
OS
,TOU"",
SUIIIECOIIO fY"
OU49 00000
04090 NSR' 'OS
.TOA".II.
SUII'ACE
OtJ51 00000
04100'
S,III "IU----USIO to COL ... CT caNONICAl. 'alII TO $YORE
04110
OS
I
0428. 00001
0"120 $Y"81 OS
)
0428'1 0000)
O"UO SYMIIZ OS
\z
04)01 00012
O"UO SYMn os
Z
04)0) 00001
04150 SYMB4 DS
Z
04)0' 00002
0 .. 160 SYMn OS
10
04)U 00010
10
04)25 00010
04170 SYMR. DS
0""0 SYMIl DS
10
04))5 00010
04190
DS
8'1
05186 00851
0 .. 2000
MACSU8 TalLE ---USED TO STOllE 'ALUES FOR , MACRO
05010 SAve
os I
05187 00001
05020 MAC SUI DS
I
05\88 00001
050)00
LEVEl I
05040
DS
)00
05 .. 88 00300
050500
LEVEl 2
O~060
D5
)00
05788 00100
O~O 700
LEYEL )
05080
05
)01
06089 00)01
0~0900
IIDIIDL TAIU --USEO TO nORE ELEMENTS OF INPUT STATEMENt
05100 IIDRDL DAS I
06091 00002
05110
DC
50,0
061~1 00050
05120
DC
50.0
06191 00050
OSHO
DC
50,0
0~241 00050
06291 00050
051~0
DC
50.0
06141 00050
05150
OC
50.0
06391 00050
05160
DC
50,0
06HI 00050
05110
DC
50.0
06~91 00050
05180
DC
SO.O
065~1 00050
05190
DC
50,0
.06591 00050
05200
DC
50,0
06641 00050
06010
DC
50.0
06691 00050
06020
DC
50.0'
06741 00050
060)0
DC
50.0
067'11 00050
060~0
DC
50.0
06050
DC
50,0
068'1 00050
06191 00050
06060
DC
50.0
06941 00050
06010
DC
50.0
06991 00050
06080
DC
50.0
070
.. 1 00050
06090
DC
50.0
010'11 00050
06100
DC
50,0
07141
00050
06110
DC
50,0
071.1 00050
06120
DC
50,0
01HI
00050
061)0
DC
50,0
012'1 00050
061'0
DC
50.0

"'E

06150
06160
06170 ENOL
06180 'OEX
06190 1'1101
06200'
07010 INDA"
01020
01010'
070 .. 0 11010.'"
01050 'LSEQ
07060 ALREC
07070
01080
0709,,0
onoo SRTY'E
07110 "'YPE
on ZOo
011)0
011"0 NJUM'
07"0
01160 FLCON
07'700
01180 101'"
07190 IAT2
07200 FOUloiD
08010 HISEQ
080Z0 aECND
08010 lEIIOK
080400
08050 SEIING
08060 NATI
08010 NAT2
08080
010.0 'LIZ
08100
08110 FUEIIO
011Z0 EIIR
081)0 OIGI
08140 DIGZ
08150 MUMAJ
08160 CHK
08110 TEII'L5
08180 IlNExt
08190 IIIPIIEY
08200 III'ENP
0.010 Ilia
09020 LCTAPE
090)0 FDR"
09040 STOP
09050 fl'lFLG
09060 CODe
09070 MCOUT
090.0 MAtP'A
090'0 MaeSAv
09100 ALTEM'
09110 un
09110 'R.'EII
OtUO NEQUAL
09 ••0 "TWO

DC

OC
D5
OC
DC

SO.O

~O,O

z.o

u.

os

)

os
as

I

AS

1

as

as

os

os
OS
DS
DS
as

I
I

1

Z
S
S

I
I
I

onu

0111.
07115
011U
0111'
01Ul
01126

onll
onu
onn

on"

OOO~O

00000
00005
00005
OOOO~

OOOIZ
001 ....
00016
00002
00001

ooon
OOOO~

00000
00008
00002
00008
00002
00005
00005
00001
00008
00004
0000.
0000.
0000'
00005

OOOOZ
00002
00001
00002
00002
OOOOZ
00002
0000)
00002
00005
OOOOZ
00001
00005
0000)
00001
0000.
00001
00001
00001
00002
OOOOZ
00002
0000'
0000'
00001
00001
00001

2

"

nita 'ltn, DS
09160 hAtE os
09110 naM
DS

ou,.
on4)

',-I.

onH

I

:~m ~~Gbsl g~ •.
OSA
OSC

DS
DS
OS
DGII
OS
OS

'IGE
OOOO~

DODOS
00001
00001
00001
00001
00001
DODOS
DODOS
OOOOS
DODDS
00001
00001
000. .
00001
0000.
00001

01744
07U.
01746

I

09110 I" JU", os
091'0 IIU'I.G DS
09200 lIeu,.It as

100]0 SCOSA
10040
loota S"'AG
10060 "'lOur
10070
100tO
10090 NT
10100 N"
10110 'UI/"
lOUD
10UO
lOUD Nowair
101t0 ItOGH
'
10\60 Nol
10170 NO"
10UO
10190·
10100 stan

,"

0114.

I
"'n.II",

077.'
077S.
0776]
0776.

lill ,
,.UIOI

on,.

a

I

OU70
OU69
07170
07174

••
"•

;
,

...,/

-7661
-7666
-7.76

2
on"
07111 alDOl
al
Dun 00002
DC
1.0
ann 0000.
DC
".0
07190 00001
DC
1.0
OS
I
onn 00001
DC
S.O
0 ' ' ' ' 0000"
onol 00001
DC
1.0
anal U 00000
112
INITIIlllE fo Sf.af IUN
fFIl IECNO ....
INITULllf IECOIO 'OUNf
01904 I. 0"'0
11010
IN"lIlIlf fUOI INOIUTOR
rF" INO ....
07916 " on07
11010
rsrUFF.T'IOUT·II •• IN"lIllff INOU TlIIU
01928 16 07111
CF
01940 nOH69
11030
SFL"
110_0
01952 n OHO.
CF
lC
onu 060nOI
TFl nURF •• FueRO
IIOSO
07'116 06 onll
11060
ffL nURFY.FUElO
01981 06 01521
TFl UURFZ.'UEIO
liarD
01000 06 onll
11010
ffL ZSURFO.FUERO
01012 n 017~1
11090
Cf
CT
01024 52 0771~
FILfLG
11100
SF
I NI" ALI IE SEQUENCE NUMBER
If
SEONo,nRO" ..
11110
OBO 36 Z6 a "S6
fFM MAC"" •• 10.
INnlALlIE Cll~ MACIO COUNTER
IIUO
O.OU 16 0771'1
IfM MACSlY" 10,
11130
IN"IALIIE UVE MlCIIO COUNTER
0.060 16 01721
0.072 Jl 01745
CF
11140
IFJUM'
08014 15 00000
TON 0.0
11150
01096 16 01726
rFII
I~TEII,.1.711
11160
01101 \l 01716
Il TEM'.IOOOO
\lUO A0020 .11
01120
J1 07720
'~7E"'.I~.E'-I
••
11110 '"""00 TR
011J1 U 0.101
11190
INI 10010.0
0114'" 46 08156
1\z00
IV
I ..
0815. \l 07126
\l010
Al TE"'.I, 10
08161 47 01192
aNY su ..
12010
OIUO 16 07716
12030
"M .LYEN' ......
01 191 ~ I 00000
NOP
11040 SUM
OUO_ 10 OOSU
IIOSO IEGiN '~I
au 16 '" 00n6
oun 00002 '"

ou

""

"'E

·'Il

rcD STIlT
00110 STIRT
,It"U' Ifll IIOIt"R.OU30
a
"OUM.....
1l0.0
11100
fF
. allO,'LlEII'
11110 LOIOI Ifll IION"R,O)010
Ifll IIOIt"R.Ol020
UUO
Ifll IION"I,OI060
12UO
12140 .Nn
IIt"U"
ffL SIITY'E,FUZ
U"O
NST'lG IS 'LAGGED FOI T"E
IIfSf
12160·
Sf
IinfLl
IlllO
IlUO
0011 - .
5,0
11190 SAVEl DC
.NITIALUE PeINnl IN
fltEST ...
IlZ00
IZ060
12010

uoao

"4

,IR"

oun
08210
08ZJ\
08ln
08240
07904
07904
01'104
01916
01'1"
07940
01nl
07'16.
07976
07. . .

00005
00001
00006
0000]
00006

0-000
00-00
-77al

00000
COOOO
01680
oruo
07. . 0
0'610
COOOO
00000
016~1

000-0
000-0
00000
00000
-OOOJ
"0000
07561
00000
01400
000-1
01400

n ..a
00000

-Ill)

00000

-uu

•
IJ918J
-0]
- 0000'

17 10'1'0 -]2)0
. . OZ410 00000
l6 \lU'I 01726
n 10910 -1010
11 10910 -3020
17 10.10 -1060
~. 0790~ 00400
06 0 " " 01"0

01000 )Z on",
08007
0.01\ 0000'
'D.TI "IU
alai' 16 017l.
.NITIALIZE ,0oaESS '0 srO~E A MORo
nOlo
0.0'"" 16 0901"
I FUG AT 'STIIO . . . "arn , . fiRSt ilOIlO OF A STATEIIEIIT
nOlO·
01016 . , 0771"
SF
fSTIID
UOIO
0'00
lJO~O
0011 - "
01047 00005
5.0
130.0 SAVn DC
01041 II 01712
Sf
..RUEII
lJa60
.. urEII IS USED .11 01,.111111.111 '"E MarURE lit' I • OR - SIGN
lJal0.
01059 0000'
DC
5.0,.
IJaIO 1101
.IIPlEV IS USED TO OI'ECT A SUISCI.'"
SF
."PlE", ..
110'0
01060 JZ 016"
01067
nl00
DORI _4
01071 00001
niiO SAvn DC
',a
sra,
'IIDICA'IS
rilE
1110
Of
THE
STAfllIENT
\JUOFUI"
01072 II 07711
UUO CUTlIP Cf
SfOP
U140.,
IS sn Ge' lUCia .I0Il filE
0108" 1" 0771'1
1)"0'
eM
lI&e,." .. 10
08096 "7 09914
\J160
lME I..,ILI
08101 •• 01112
nllO '''PU' I
KnIA
...,IIT
•• U
.
.
.
.
SfATIIIEN'
INfO
nllo IUO
RAta . _ " ' ...
oallO IT 07409
01112 "7 0111.
13190 ..liNE INCl SE'H
. nloo.
COIIMIICE SCAli '01 " . " D••" .11 sTln-u,
CHIlO. . I.I . . .' .." "
0114" II Oller
14010
10
ADO,.....
all" U 01124
14020 e . . .
511
CHIIo.a
..
lolO
011.1
12 01167
14010
10
ADOi,e. .Dt>Il,U
01110 U 01112
140"0
'"
CHROeU.lolO
0""
12 oller
140'0
"CItCO
.
DUO" '"~ 0115,
.14060
All
CMd+ll,'tlO
OUIZ
11 011"
14010 AOO'
Ait
CMKO+U.2.10
.
0122" II 0 . . "
16010 AOU
Sif 1l1C0I0 " ....
LAS' CllIIKUI .01 nfl,our
160ta.
TOIl ClIQ+U...
OInl at 0 .....
14100
DC
1....
OU'" 00001
14110
IC"
au"" M 00000
,1""0
.A"
...
"H
'tA'.IIII1'
.
.
nflllllTlI
1""0
08'" J' 0'''0'
101 CHID.......
" u . our Il.COID . . . . OU1I at "a."
1"160

,FIt

""

!IA'"''

,PIt

.,fI.

."...-

00000

u.....

, . . ." . , .11 .".., 011111 . . . .sn.oll '" ....., AIIIA

00000

-0000
-60'1
00000
00000

00000

00000
000-0
OilOO
00000
00'00
00100
-y,.,
0"''''
000-1
0 .....
000-1
00000
000-1
000-1

00000
ooaol
00100
00000

'&I:E

6

14160 \UFL
14170
14"0
14190.
14100
UOIO
1'010
1\0)0

no.o.

"050 IlEVU
1'060
nOlO Slfl
15010

,,.,

seTn·u.INDU4-1

ono.

A..

O.Hl 1\ onOI 000-1

CLE ••

""
'"

"

til

THE I"'VT •• eA
SlU ••• IIIOU4-,

u n 'lion ....

UIIO
15190'
15200
16010
16020
I f>O JO.
16040 S fR.,E
160'0
16060
16070
16010 (HkO
16090 t TFLG

08J\1 16 0111'
08164 1\ 0""
DB H6 16 0 . . . .
olse. I. 0lJ'2
08400 H 01)64
D•• II H 011 ZO
01414 ,. 00000

5Ell ..... 10

' " 10
It
110

I\ISO
"160 TUNO
15170.

OU44 . . OUU 00000

onn

fa 'laos

..... u.o.

SfYI ••• INO&f4t"1
,"f
IIVEh"
l'ltl auo

1'1 JO
.,140

01]20 46 0lU4 01200

SETfLtl&.ltlO

•
suntu
oa.G - )

1'100

ISO'O

OU84 16 01101 -140.
011" U 09'" 00000
14 01t101 - " "

.""9
SfT'ltll,IIID&T40'41
lIIIIliCH TO sun '.0Ii1lA"
II
THHO
$'

till

atn

ec.
All

oaHI 46 0""

UOIIO.l.IO.

NUlllE.
01460
01411
08484
NU"IUS
084'6

I

PA,IIE
tLI6
FUG AT tT IOIOIUTES liD ORIGINIL
8NF SUJPI.CT
KEfP IN"INAL SEClUENCE Nv"au
AM
5EOIIO,,0I0
8
CLl6

let

onoe
08~10

DO.' .-)

44

onu

•Tfll

"99
AlTE"'.1l •• 10
Sca,.. I1.1 NOAT'"

s.. nCH

01180 17 10,.0
01192 11 024\0
OliO' . . 099.9
OUI6 16 on20

IflOO'
11010 01"'"
11020 StAN
IIOJO

•

",

...

,9'"

.,.,00

,,, ,..."

-...
""

a.". ,.

.HI 'N".1_

a.",
a.a., ••

"" "l1li'.6.11.6"

07636
016~6

01300
01636
01S66
COOOO
000-1
00000
00011.

oco-o
01200
-JOIO
000-0
00000
00000
-1200
-n.~

-1010
000-0

on. .

08160 16 onll 000-0
01112 •• OT.T6 00000

INITIAL III AOORlSS OF SCJ~
OIlZI 16 01 . . '
CALL IND LOAD ILStl.. SU.,"OIiUII TO COIIltffllCl SCI"
01140 17 10980
" " IOO~I Tl.DJ060
0.152 • T 02410
ITII ALSCAN ...... U
"S IN £1111011 OUfCTlD 101 AlSeAN
tIl
na .. lo.
01164 •• 0761l
OU16 . . 0"'"
110.0
Ie
CHECk
olin
. . 109.0
11
ALSfU
110'0
11060_
onEIIIIINI OIITVU 0' lloaO COlUtUo
0"'"
14 01. . 1
(H",l.tO,
11010 tMECa eM
01901 46 0 ••••
Ie
_I
11010
08910
.
, 09.,0
IH
"Jilt
11090
EUIlENT liAS I nNOl
11100.
41
00000
08.J2
NOP
11110 Sf'"
on". '1 00000
nuo
~I
00000
089'1'
0101'
linD
0 . . . . 49019"
SUIIAt
17
111.0
U07I"
019"
1 .. 'An
181'0 SEE"AC Cf'
ELEMENT
STOltE •••
11160
0'981 •• 09001
019. .
_G o-J
1'170
S'oal
THI
ELIIIE'"
tOlLlt"O
I
..
ILSCAN
11110.
0'''6 11 01'"
1. . .0 SPI .... Sf
I"'UY
. .".C. . . . .
11200 nOllI If
nOllI fHl! tlOIO TV"
:::~: , . 0 . . . .
I. 0110.
1.a10
"
l"nlO'.STOIIE ••
O.Oll II 090..
A"
STOlE ••• U.IO
19010
090.4
II
090'"
"
STa.E ••• ~.CI •• ll. StOllI f'" IlOilO ITSEL,
1.a10
090'11 I. 090'"
TOIl na.EH•• ,
,.a.0
_
f
l
" "liST 1IOl0 00 MDT CNlta FOR ST."III ..T
1.a,0090.. . . 09100
,.a60
.'" _".'STIIO
. 09010 , . 0.' . .
Tell 1".'0._01.
'9070
0"0"
n 07'"
C,
UTIIO
'90'0
tHltIC .011 liGHT ,.IIN AS SfCOIIO eHAII
til
ILltE IT ••• ID.
'9090
0.. 0. 14 0''''
09111 . , 0"'1
CHIt If
'9'00
IIu"nULlIf SCA. . .011 .UEN'HlSlS
I NIEO .1IOl0l. U' ••
'9"0
09'"
CMlta .011 If 01 JUIIII SlInCH
19110
09,60 .... 09100
STOIII 'HI ".""1.' tIUIIIfll
ffL .LCON. Sfol,.,.a It
19110
O' O"'Y
eNlca .OR . . 011 _TO "AflIIIIIT _ •••
01 O"'T
f SUI 'LtOIl.1I.IUIM'
lY. 4Y OJ'"
19160
C.
1
•
0.'1'
II 0 " "
'91 JD
OS
••
M'" 00000
... C.,It.IfM..
CIIKI '011 'MD CII' IIOIIlIlIST
19190 _ "
09100 .4 0.,,,
0.111 II 09014
All
SToal ••• a.lD
0.114 'I 090'"
ZODID SUII
o.U' II 090"
lUI
Sf 011 •••• u.'O
'OD.D

TFI,

01141

II 07656 000-1
. . onu 00000

on .... 0,.76

IIItIlO ALL SlveO---'UlN Off "ltRO
TfM MACSIV .. IO
IT
IIIIT
CAll AND LOAO "ASH SUI'"OGIIAII
" " lOON 1 ' •• OJ020
" " IIASH.INOIT4.U

00.00

II 01656 000-1,
49 OAIIZ 00000
46 01612 00100

'0

""O

-75'7
OUOO
00200
00101

""
" . ITfl
0lH6 J7 0140' 00100

lIYU

01521
tOll'ARE CUD SfOUEIICf IIUll8U
lOIS ALSEQ.HISEQ
08521 12 01561
C
HISEQ.SEQ,.O
08540 2. 0763b
8l
JYPE.,.
cno OUT OF UOVENU 08552 41 10190
TF
SEOOlO,HISEQ
08564 Z. 01656
10
SET41.ALSEQ-1
01576 H 0"'20
SF
CT t'.
I"DIClTE "0 ORIGI"AL STUEIIENT NO.
08581 JZ 01741
16100 AOtT
A"
SEO,.O.ltlO
01600 II 0165'
If>! 10
8
CL 16
08612 . . 01612
16110
ODRG '-1
01620
I",JO.
IHERE ARE STATE"ENT "UIIIUS ---00 NOT IIUE 'REVIOUS CHECK
16140 SETH TF" CHKO+l.4',lO
01620 16 Dun
161S0 t1l6
eM
"ACSAY,.lO,
I S A IIAtAO AE I'" SIVEO
OUll 14 01121
16160
BilE tH.SAV
OI6H 41 0161'
16170'
LOID AND CALL AL'HI SUIPIOGRA"
01656 17 10910
16110 'OAL'H 81M IION"A .OJOIO
It. I 90
ITII AL'HI;.610
OU6I 11 02410
16200.
AL'HA CHECkS FDA "'C UL IIOIIOS INO stU THIS IU~CH
81
....
1101,0 HUI
01610 ~. 0....
08618 41 00000
17010 'HIISAY OIIIP
170)0.
CILL IND lOID flU. SV".OGUII
170.0'
STORE A IIACAO SUTE"E"T
08100 11 10910
17050
"M 11011" •• 0)200
17060
ITN FILf2.I"OATI.67
08712 17 02410
Il070.
CllL AND LOAD ALPHA SVI'IOGIII"
CHfCW FOR TeR"AC
0172. 17 10.10
Il010
"" IOO"" •• OJOIO
01136 11 02410
17090
"" AVHA .. 610
If NO Ua"At SlWI NUT STATE"ENT
III 00
'NI' INIT. Tfllll ..

11110'
11120
111 JO
11140'
IllS0 OI"'OJ
111.0
"UR
HIIO NUT
17190

-7401

000-'
07641

-lOZO
-140'
00000
OOOkl

-1409
-J060
-99. .
000-0
01200
00000,
000-2
OIZOO
01100
00000
00000
00000
00000 •
00000
00000
00000
0169'

0.014
000.11
0714L
00001

on",
-IDt'
00000

coo-.

D"oo

- •• ,.
on...
0.0111

0'60'
DIlOO
00000
onn

000-.
00. .'

000..,

•

200]0
20040
20050'
20060
20010
20010 eMil"
20090
20100 CAPAC
20110
20120
20BOo
20140
20150
20160
20170
20\80 SUeTU
20190
20200
21010
21020
21010
210'0.
21050 BatKIN
21060
n070 NUM8
21080
21090
21100
21110
21120.
211]0 PUNO
211 ~o
21150.
21160 INSAU
21110
21180
21190
21200 SUSIY
22010
22020220)0
22040
22050
22060
22010 PUNt
22090
i2090
22100

22110
22120-

TIlM
DC

0'141 15 0.0111 00000
0925. 00001

STO_ft" •• 6

1. f,.

"'Cf

e_aNtH TO PROCESS THE STAnll'NT·
09260 4' 10224
0'268
0.268 ~4 09200
aquo 49 07916
0'1'2 11 0901"
CHECK 'OR MORDl UIU DVUFLOII
0.304 14 09014
8NH
SI/BTU
09316 41 09360
tAll AND lOIO TV'fAR TO TYPE UROR "USAGE
IlTM lOON I TA,O]090
09328 11 10.10
&Til TYPERR,I05,n
09340 17 02410
INIT
B
09352 49 01'76
OOllG .-]
09360
STOR£+6,12,IO
5M
09160 12 0901"
tHK,Z,lO,
CHEU TO SEE IF • NUMIER WAS STORED
C"
09)12 14 076'1
aACKIN
DE
0'1314 4' 09421
I ..
PLACE ,l,IO
0 " " II 071H
TF
SC ANt II, puce
09408 Z6 oean
IIUNCH TO CONTlIIU! SCAN
D7
01"'04. f.
09420 49 088'0
IIIITIALUE SCAN SINtE NUMIIER HAS IEEII nOIlEO
TF
SCANtll,fEMALS
09U8 26 0886]
BUIICH TO CONTINUE SCAN
87
01"504 •••
09,"0 49 088'0
PUCE,,,,,
ST~F. THE HOUEO NUMIER IN WORDl
Tf"
09 . . , 16 07741
TOM STORE>'6
0"60 15 090"
AM
TEJlUlS.2,10
09H2 II 076.6
IIUNCH TO STORE TilE NUMBER
1\
SFlWP, f.
09'8' 49 08'196
DORIl 0-]
09'92
SET PAR T NUM8ER PUAMElUS
HOI NSAT .1045,8
09492 16 01H9
INSRTltl2
1\
0950' 4' 09528
SET INSERT PARa.ETERS
TFIC ",SAT,I046"
09516 16 01149
TFM
NSAF, ,10
09521 16 01151
09540 16 01622
T'" NP'h144.8
TfM NRi,2,B
09552 16 0]]'"
IS A .atRO 8E ING SAVED
CM
MAeSlv .. IO.
0956' 14 07721
09516 41 09984
BilE
IN'ILE
CALL AND LOAD OUTPUT TO OUTPUT A RECORD
09588 17 10980
8TH MONITA ,01110
09600 17 OH 10
8T" OUTPUT,INOAT4-I,.T
IUNtH TO GET NflT IN'UT RECORD
B
H.. T.u
09612 49 07976
09620
DORG -1
PLACE,24,610,
CHft. FOR RIGHT PARENTHESIS
tM
09620 14 onu
09612 47 0968'
BNE CHIlDOl
09644 4' 09664
eNl' SETSUe,II/PREV
BRANCH TO STORE THE ELEMENT
8
SF.",', ...
09656 49 019'16
09664
DORG .-1
---SET TYPE TO -I
POS~IBlE SUBSCRIPf
II

PRotES

110116 o-l
eNl' NORM.IFJUMP
INIT
AM
SlORE<6,1".10
eM STOMEt6,ENOl, •

•

00000
01145
00000
OOOJ4
-1)81
01100

-1090
-0105
00000
OOOJ2
000-2
01200
000-2
01141
00000
0769~

00000
-00911
OCOOO
000-2
00000
OJ04'
00000
OJ046
000-0
0-144
0-002
&00-0
01200
-ll]O

-1408
00000
OOOK4
01100
01699
00000

.A&f
22130 SETSUB TON
22140
8

IWfEMP,-1,6
SFIWP, ••

OORG . - ]
22150
PLAce ,11,610,
22160 C"!tOOL C"
COMMA
22170
8'4£
eM IlNEXT .11,10,
22180

09664 15 0170" OOOOJ
BRANCH TO STORE T14E !LEMENT
09616 .9 089" 00000
09684

CHECK fOR DOll . . UGN 0968' 14 07Hl OOOH
09n6 41 09752 01200
CHECK FOR OOUILE DOlLAR SIGN
09108 I' 01698 OOOH
22190.
ONE DOLlU SIGN ----ITS. CON""UED
09120 47 08072 01200
8NE
22200
ETC
DOUBLE DOLLAR SIGN ---IF ITS FIRST NORD IGNORE
23010.
09732 4, 09224 017]4
81'tF
NOR'HZ4,FSTIIO
21020
097H
07976 ocooo
230)0
B
1"'11
09752
2)040
DORG .-)
CHECK fOR CO .... A----., SO IGNORE
2305009752 H 077U 000K3
PLACE,2l,610
23060 COliMA eM
0976'
08996 01200
2]070
BNE
SflWP
09176 32 01699 00000
SF
INPREV
23080
09188 11 07'" 000-2
PLACe,Z,lO
23090
A"
09800 26 oun 07""
SCAN+Il,PlACE
TF
23100
aRANCH '0 CONTINUE SUN
B
0114504 •••
2HI0
09812 49 08840 00000
09820
DOIIG .-3
23120
SET FINI PARAMETERS
23130'
09820 16 01622 0-000
23140 FINIS'" TFM NPw •• a
09832 16 03145 0-0"
21150
if" NRT,I~,8
09844 16 onSl Ouo-O
TFII IIS.F,.IO
23160
09856 II> 0])49 0-000
U170
'FA IISIIT . . .
LOAD ANO CAll OUT'UT TO OUTPUT • UCORO
2318009868 17 10'180 -1130
BIll IIOIIITII,03UO
2H90
09880 17 02410 -nn
aT .. OUTPUT, TOATU-t,n
23200
09892 .. , 00796 00000
24010 CALU NO!' EXIT
I NTRAN COMPLETE ---tau UElEII
24020.
SET CYlINOEII OUTPUT SECTOR
24030
iF. 9RenO,Io,IO,
09904 16 00511 OOOJO
CAN THf UITH~ETIC EU~fNT BE BVpASSfO
G'PR.lC TAPE ..
24040
0'1'116 44 09956 07701
09928 10 0051>5 -9"7
CAll lINK,'RHEM
'4090
09940 49 00716 00000
O'l94T 00001 LKo-ZIT
09954 00001 '
09956
10 00565 -997'
taU
lINK.I001/0AT
14060 ""PR
09'168 49 00116 00000
09975 00007 LkO-)'1
09982 00001 '
IIRING IN Neu "ACRO SfAfEMN' f.OfII PlU
24010.
LOAD AND CALL FIll .. SUI'AOG_'M
~40'O·
0'1984 If 109'0 -)ZlO
240'0 t"'11.e IITII MONlTftoOJUO
0.996 .9 02410 00000
8?
FIU4 .. 6
24100
LIIAD AIIO CALL IlL,,". SUI'AOGUII Til tHl!Ck Filii fERMAt
2.11010004 If 10'10 -JOIO
IITN "oMIT •• OIOIO
24no
10016 11 02410 000-0
aT" AL"HA, ,6&0
24UO
. . . GOAlPN, till"..
" 110 fE.,,1t SUII Till STlTE"'NT
1$140
100Z' •• 0 ••' . 01'"

"'I
4'

0"'

100.8 " Olfl'
100" I. 07'"
1006' 1'1 .IOU
100" . , lOll'

, . . . . . . . . .H

000·&
00000
·0000
01100
~o

...

10

"010
nOlO I'S"O

•

TF

IHH
SAVEl.SAVEl"

10100 .9 01916 00000
PUSHDOWN SEtrOR ADDRESS

101 II 26 0101l 08041
M'Clue.MACSUI.JOI •• I'USHooWN MACSUI U'U IOU4 JI 05111 0548.
SAVEl ..
101]6 I. 08071 -0000
n050
fULL
10141 41 10110 01100
n060
SAVU ..
10160 I. 01041 -0000
nOlO
If
Illn
10112 4'1 01916 00000
25080 FULl
TF
SAVU,SlVU ..
PUSHDDIIM SEefDIl ADDIIUS
10110 26 08041 08011
• 25090
Til
MAcsua.J01 ••ACSU'.601., PUSHDOWN M'tSUI T'ILE
10192 Jl 05419 OST89
2'100
TPM SAVEJ"
1020. 16 01011 -0000
25110
87
INI1
IOU6 4'1 01916 00000
25110.
tOM'LETE STATEMENT IN WOIIOL ----NOli '1I0CESS
25130.
I' MACRO STATEMENT IIE'LACE DUMM' VAIII'ILES WIT" CALL VALues
nuo "tOCES CM MACPlK .. IO
10224 14 01719 000-0
nno
liE
III HI
IOU6 4. 10168 01200
15160_
LOAD AND CALL SUI'1I0GII'M III'LAC
nll0
I'" MOHITII.OUIO
10248 11 10980 ~)IIO
25110
81
REPUC .. 6
1021>0 49 02410 00000
n190 IIIITI TFM L"" .. 10,
INITIALIZ. PAIIENTHeSIS COUNTERS
10268 16 10217 000-0
25200 LPAII
OS
lonl 00000
26010
TF
NATI,INRED
10280 2f> 01661 09199
TF
26010
LEFT>6.IIIIIEO
10292 26 10426 09199
CM
26030 tU
UfH6.U.610.
CNECK 'DR END D. IIORD LIST
1030. 1. 10.20 000K2
26040
BNE UfT
10).16 41 10420 01200
26050
TF
NATl,lEFft6
10328 U 01666 10426
26060.
LOAD AIID CALL CALC TO 'IIDtUS SlMPU STUEMEIIT
1/0010 0lM502 8T
IIONITR.DUS02"
10)40 21 10980 024.1
26080
B
CAlC .. 6
10352 . . 02410 00000
DORO 0-)
16090
10)60
26100
II'lF INIT,SFUG ..
MUST SI"'LE IE CALLED 10)60 44 07'Jl6 07169
26110
CF
SFLAG
10H2 JJ 0 T7 69 00000
26120
CF
ARGDSUI
10384 JJ 07754 00000
261 )0.
lDAO AND CALL SIIIPLI
26140
IT
MONITR,StDS'"
10)96 27 10.80 01168
26150
IT
SIMPlE.ARODSA., ••
10408 21 02410 01158
26160 LEFT
CM
9999.),10.
tHECK FOR PUNCTUAUDH 10"0 I. 09n9 000-)
26110
INE ADDIT
IOH2 47 10518 01200
26110
TF
oHO.LEFTt6 ..
INITIAL IlE SCAH FOR 'ARENTHESIS
10444 26 10474 10426
26190
AM
"18,U,IO
10456 11 10414 000J2
26200 tDMPi CM
CHECk FOR LEfT PUENTHES IS
9999" •• 10.
10468 14 0.9'19 000K4
INE RGTPR
nOlo
10480 47 105.8 01200
n020
TF" lPAII.I.lD
10492 16 10217 000-1
210)0
TF
IIATI.UfH6 ..
STOllE ADDRESS OF UFT PUfNTHESIS
10504 Z6 01661 10426
AM
21040
NAT1,n.10.
INCRE"EHT 10 LOOK AT NEXT WORD
10516 II 07661 000J4
LEFTt6.14.10
27050 ADDIT 'M
IOU8 II I04U 000J4
n060
•
Cll
10540 49 10)04 00000
OORG 0-3
nOlO
10548
CDII'I.6,4,610.
CHECK FOR IIIGH' ',REN 10548 14 104111 COO-4
nOlo 1t",1t tM
21090
INI AODIT
10560 4l 10528 01200
SfOllE ADOIIISS OF IIIGHT 'ARENTHESIS
nloo
Tf
NATZ,CON'I'6"
lonl 26 07666 10414
nOlO
"O~O

fa
eM
INE

"M

,--2

NAl2,21o,I0
10584 12 01666 000K6
LPAR.I,IO
10596 lZ 10217 000-1
SfP
10608 46 10652 01200
CLOSED SET OF 'AREN --lOAD AND CALL tYPERR
MONlfR,Ol090
10620 17 10980 -)0.0
10632 11 02410 -0106
TYPERR.IO •• 61
10644 49 079110 00000
III IT
0-)
10652
StAN IUIIElN NAfl-NAT2 FOR SlASH
e+18.NAfl"
10652 26 10610 01661
10664 14 09Q99 000-)
212()0
CM
9999, ).U
101076 4l 10822 01200
BNE INCR
28010
10688 II 10670 000J2
AM
$£P>I8.12010
28020
10100 14 1061- OOOK I
CHECK fDA SLASH
28030
CM
Sf"I8,21.610"
10712 41 10792 DilDO
28040
8NE INCII14>12
280S0.
CHECK PREVIOUS 1I0Ro FOR SystE" WOItD
28060.
LOAD AND CAll DICTI SUIPRDGRA"
ITII IIDHITII.O)O)O
10124 11 10910 -)030
28010
lon6 12 10610 000J4
SM
5EP,,,.14.10
21080
10148 26 107" 10670
280'10
TF
o'U.SfPtl8
10760 17 02410 -9999
nM DICf.9999.67
28100
aUNCH TO LOAD SIIIPU lon2 49 108410 00000
28110
87
01"'06 ...
INCREMENT TO LOOK AT NEXT WORD
SE"18,12.IO,
ZlIlO INCU4 AM
10780 II 10610 OOOJI
10792 11 10610 000-1
UUO
A" UP·".I.l0
lUNCH TO CONn...,E SCAH FOR SLASH
I
111.0
SEP>U",
10804 4. 10664 00000
10112
DOIIG -S
Zlno
10116 00005 -1661
DSA Nan.NUZ
21160 SOSA
10821 00005 -1666
10.,Z n 10811 00000
SDSl"
21110 'UGe: tF
10134 10 00565 JOtS)
Til.
21UO
10846 4. 001 . . 00000
1085) 00002 2K
10155 00005 JOI.I
10860 0000 I '
10861 00006 lJ97t3
10867 00003 -03
10870 00006 -0000'
lOll I
reo FLAGC
21190
10UI
OOllG fLAGe
28100
CHECK FOR ENO OF IICIIID 1.1 Sf
se,tll,NAYZ"
C
29010 INtR
10lU 24 10610 07666
10134 47 lalla 01200
Z90IO
INI INCR 14
nOlOLOAD AND CALL SI MPU YO REDUCE II NEST
10••6 21 10'180 01•• 1
19040 01M506.T
HOHITR.DSA506'5
lana 2l 02410 10121
29050
IT
SI"'LE,SOS"S,6
29060LOAD AND CALL POSI'"
19010 01"501 8'
HOHITR,OSAS01.'
10170 17 10'180 02.71
Z9080
8
POSIM,,,6
10112 4' 02410 00000
290'10
• DOlt, - s
10190
29100C'RO SfOUENtE eRRea ---- YYPE W'".INC NESSAGE
nllo tYPE
acn
10190 J4 00000 00101
2'1U.
WAn COIIO
10'.' J. 109U 00100
2.110
I'
CHaO
10tl4 4'1 oa"6 00000
2'1140 COIlD
Oat •• CARD SEll'
10.U OOOlt
I'll SOLOAO ANO CALL TY,••• SUlFlIOIIIa. YO TY,e N1SSAGE
2'160 ALSlall IlN HOHITII.OIOte
10t41 If 10.1. -soto
2'lUO
If
TYPfRR ,'LAtlt6
1 " " 11 on 10 on41
H1H IfC
OS
,CUTO'
01011 OOGOO
27110
2n20
27UO
27140.
2n50
21160
21170
21180
27190 SEP

SM
SM
8E
NO
aTM
BTM
8
DOIIG
IF

II

29190
2920010010'
10020'
100S0.
300401

00000

IlEAD I

100~0'

LINkAGE.,.

100601
]0070.
10080·
100901
loiool
101101
101101
101101
101401
]0150.
]01601
101 '01

AtS
IIDNtTlI,NNNNO,67,
IIONI fA,OSA-lIltS,.;

lEA"SABtE'ROG.I'
INON-UUAliU '1I0G·.1

liNN" IS tHE MONitOR I DIM NO. Cf cuLlO ,ADGUM

IUASULE '''OGUMS NEVER CALL OTHER PRO GUMS
INON-E.IlASA8U '''QGRA"S CALL DTNER '1I0GUMS '

m:.:

;1"aI.IkM:~mMlpm.m'.lh''''NeR

OS
DC
DC
OS

31110 DIMNO,

OS

SlUO ERAS
31140'
31150 MDNITII
31160
31110'
31180
31190'
31Z00
32010
32010

OS

3Z060

It,

FielD AT oUUU, IS EQUIVALENt to FOLLOIIING ...
DSAUL OSA U, , RnURN .OOREU TO CALLING '''OG.
OSC .. ,NNNN, MONITOR I DIM NO.
ose 1,1,
ANV NON-lElIa DIGit

]OiOOI
31010'
nOlO'
31030'
n040'
n050'
310601
310101
nOlo 10ENT
31090
31100
31110 RETAOO·

32030'
320 ... 0 CALLE
31050 SCAN

at"

I.eil

'NON-ERASAlLE '1I0GUMS "USt EK IT BV BRANCH
INDIRECT TO RETURN liN AD-APT SYSTEM CD....ON AREAl

10968 00005
10969 00001
10979 00010
RETURN ADDRESS FOR IIIANC"-EK IT PRODU"S
Ion ... 00005
SPS 11-0 "ONITOR PROGRA" DIM NO.
10918.00004 '
ERASAIILITY INDICATOR 10919 00001

5
I,'
10,0

5,--5.

4,--1.
l,- .

SF
DI;'No-~
OOllG '-4

10980
10987

0.5A

MAPEN.TIO'20-U

10991 DODOS HID.

NOP
TFM
BO

CNTR,NE,IO
CAlLN,!' ERAS"

IIUNCH IF CAlLING

)2,

10"15 00000

1099Z 41 00000 00000
11004 16 11001 OOOlO
PROGUM
11016 4] U85D 10979

NON-ERAS~8LE

11028 16 11046 JJ264
POI NTII ,MAPENY+ZooNNE-16
,DIMNO,,'
SURCH ERASABLE PROGRAM TABLE FOR a I M NO
11040 24 00000 10918
BUNCH IF OI~NO lOCArED
INMAP,.,
1105l 46 12422 01200

TFII

e

'BE

32010'
3Z0BO
32090
32100

AM
SM
INZ

I'OINTII-l ,Z, 10
CNTII,I,1O
SCAN",

3Z110'
3ZUO NuDIII

SM

POI"TII-.l ,Z, 10,

32130
32140

CM
'aNI'

11100 12 11045 000-2
POINTII,"APENT+NNE'ZO-20-16
11112 14 11046 H244
NEOVF",
,IRANCH IF ERASA8LE PROG. TABLE CapACITY ueEEDED
11124 41 13062 01100

32150.
3Z160

CM

POINTII,,68,

32170

BHE

MUDIM",

BRANCH

32180'
32190 NUENT
J2200 5 TOI II

AM
TF

'0INTR,1,10
POINTR,E·RAS,6,
POINTR,,, 10
VARB+6iHll04D·
NeORES+II.HI"

ni60
STORE olMNO,AND ERASAIIlITY
II17Z
11184
Ill'"
"
11208
SAVE LOAD ADDRESS

POINTII,HI,6,

STORE lOAD ACDRESS

11064·11 11045000-2
11016 12 11001 000-1
BRANCH I F END OF TABLE NOT ENCOUNTERED
11088 47 11040. OllOO
01 M NO NOT ENTERED IN ERASABLE PROG. TA8LE

'AGE

AM
33010
TFII
33020
TF
33030
n040'
33050'
. tF.
33060
UOlO'
tF
33080
AM·
H090
•
33100 LDOEl CALI.

nllo,
A"
33120
TF
33130
HUO VARI
8
.DIIRG
UI50
H160.
33170 MILOAO. AM
UUO
Tf
3319010
nzoo

~:g~go

SEARCH fOR UNUSED· TABLE ENTRY
111]6 14 11040 0-000
I~ ENTRV IS NOT lERO
11148 47 11100 01200

"

II 11046
DIGIT
Z6 11040
11 11046
16 11314
Z6 11315

OCO-I
10919
000-5
JUI6
004)4

LODUIU,DIMIIO
i li32 26 11281 10918
LOOE1+2t,OElOIM, •• ADO DIM NO. INCRE"ENl 11244 11 J1281·0-000
lOAO,O"
' .• , '.LOAD DUC-UPRED R~lOCATA8LE· ~ROGRAM •
lIZ56 10 00'65 JI275
11268 49 OOf16 00000
11215 00001 UD-OOO
1I2BZ 0000.1 '
;DINTII,',10
POINTR,ENTRV, ••

1128. ·.11 11046 000-.
11296 26 11040 02 U6
11 308, 4" 00000 00000
11316 .

STORE ENTRY ADDRESS

0-3 .
I'OINTR,5,·10
CDMI'+ n.HI "
SlUOD,EUS, ~'

M(lVE ".1 INDICATOR ,
.IR~NGH,

.

..'."

1 UI6 II 11046 000-5
.,HlZl Z6 H'03 00...,4

If NON-IIlASAllE 'EN'RV
. ' " . ,11340 43 12050 10979

tF
, ...010 MCORIS SII

. 1'0INT1\,"I'"
P,OINTR,,6,

. 1 un 26 11040 .0043.
nOlle NO. CORES t MI-lOAO AOORESS!· , ,
, '..• .11364 ·~i 110...0 00000

' ..040· ,
, ...050 IlEsn.: fF

'HI,~I",

RUTOlIl HI' 'INDICATOR TO 'EFFECT OVERLOAD
11316 2. 00434 u,n

' ...060.
34070.

' ..ala.

1409034100

''''110
''''120
",no
'4140'
"'150 SET"
34160
"'I fOe
"'liD'
34190.

14

CLUR NDN-EIlASABI.I 'RoGRAM ENTRIES IlHOSE HIGNEST,
. CORE EIICEEDS THI LOAD .DOIIESS OF TitE LAST LDADEO
ERASABLI! paOUAII
fFII ;1I0GX~.',
"" PIIOGX.~J,HI
•
. ClURl
DOIIG 0-3 '

Sf'"

SII
LO'II".10,.

'DINTR INDICATES ADDIIESS OF LOAD "Doins
11420 11 11041 000-1
, II~U, 2.,
UN'

ann

!lOVE l.O INDICATOR

.. t, .• ", " ..1 _

j ~

•

I!.ASf.AL~ PIlOUAMI IlMOIE LoaD AOOlleSSI!~ ,

AU USS THAll HIGHUT CORE 'OSitiON USED

•

7

1~200
i~OIO
)~020

EUStl

nOlo

:I~O~O.

350S0
35060

nil

UNO!

AM
CII

tp'"

til

.,

....

UIIO

cO..... ,.IIA ..'''nlo.... ·'.,O·,O
t1444
CO..... J.2.10
11456
tOll' ••• IIA,.N. .'O ..... UO.tt!·I.'O~IO
11461
SfNfA....
lUNCH ., IUSI ..O CO.... tUEO
11410

1I.'NtH ,.

.Nt"VI.INt. . . .

Sit ,aOGUII ENtItY ADDUSSU
lUH "

III .YSUM CO_liON lAtA

"=:~"'.f'

nuo·

46 Inu olttlO

114 .. ' 14 00000 -0000
'.OO.AII OeS'IOYED
11504 " U.,O OUOO
" ' " 4. l u n 00000
11524

eIlOIIl ...

INfIlU.I,.",& ..

nul'

ll4 ... , Hl50
II 114" 000-'
14 114" JJUO
"

"160 OVDf"

'IY

35170
35180
35190
35200
36010
36020
36030
36040
36050
36060.
,
36070 COSN

1I1It4 .014

16080
36090
36100'
36110 ERD.M
36120

I

C
IE

COMPU,PDINTII
UNGE-12 ...

36130.
36UO
36150

S"
BNf

COMPo,.5.10
e.ASE .CDII"6.1I.

...Iit.. .,

un. ,.

um••••••U·U

0241b 02136
Da421 02"111

n. mu,·"'"

11560 ~. 11'70 01200

DVI"fLOW
1 U72
11584
11596
11608
11620
11612
11644
11656
11668
11670

NOP
NOP
NOP

Nap

NOP

NOP
88
OORG

'-9

All

£IITIIV2,72.10.

'"
COIIP06.25.10
II
UNGE
OORG .-] •
SF

COII".6 .. 6.

37020'
37030
37040
3l05Q

All
C
I ..

CO"P+6.5,10
COMP.6.LOPRII.6
aANGE-12 ...

All

COIIIP.,.a.ao
LO.CON,o"II •

115U
11668
00000
00000
00000
00000
00000
00000
00000

11690 24 II U 8 II 046
NO EllAlUIi IF '"DGRAII JUST LOADED
11702 46 11456 0120~
lUNCH "

1171" 12 lI4" 000-'
'1I0GUI! NOT EUSED
11726 44 11158 IIHO
117S8 11 11498
II 750 49 11468

•

37090'
37100
37110
HUO
HUO.
37140.

nuo

37160
37110.
37UO
171.0
H200

]1030
]8040
]8050
]1060
)8070'
)8080
]110.0

IIIASE 'ROGII.II

'"O~ ~EIIOR'

11170
11782
IUIICH IF ".OGRAII NO' LO.DEC IV
117'4

11106 II 11 .... 7 000-1
IIE-OEFllle LO 1II0ICAlOII

COllP+'.a.l0
lUNGE

11110 II lIn7 000-1
11841 4' 11461 00000

_ I I 0-1

1I1~0

'ENTRY FOil C.LLING NON-EIIAS"L! ,.OGIIAII
POINTR ... APENHO.20-It
11850 16 11046 JH05
INOEX.POIIHII.Il.
'R.CH IF USED ellTRY 11862 44 11190 11040

SII
C
aME

'OINU.I.IO
OIMNO,POINTII.U
StOIN-Il ...

'"

POIIII'".'.IO.

C
8ME
SII
tF

POINTtI.HI.,
IIIIIGA" ...
POINTII.S.IO
POINTII ....

,.11

"OIIllTR-I.IoIl,

TF

~NTIIYIoPOIIITII.Il.

All
TF

POlllTA.5.10
COII,oll.'OIIll,".I ••

)8UO

7F

POI NTII .II£TAOO.I.

38140

"

H.. tOIl,oll ..

38150
38160

8
$lNTIIV. . '
DOIIG .-1

11814 12 11046 000-1
11886 2~ 10911 11040
IIIlICH IF 'ROGUIf JIlISf liE LOADED
11191 41 11160 01100
IIGII-EUSAILI 'IlOGIIIII I S IN ~f~O'"
11910 It 11046
11922 24 11040
11914 H n082
119116 U 110. .
CUAR EUSUIIE FLAG
\ 11958 )] 11040

se,

11.94 11 110111
RrSTOCE cOII'.la ISIIIULATE LOAOINGI
U006 26 1150)
REPL'CE RnU.1I .DDIIISS
12018 26 11040
IIfSTOIIE HI INDIC"Oll 120)0 26 00434
1204Z 4. II
I2CSO

OOO-~

00000

000-.
11040
1097..

1150]
n. 00000

'OIIlTII.IIUAoa,l.

18200'
3901039Ol0
39010
39040
39050
]9060 E..Dn,

SII
'F
'"
CII

CLEAII _eUSABLE
INtRIES IIHOSE LOAD
AODIIESSES .RE USS T"6N THI HI INDICUOR
'OINU-I.I.IO
120&2 12 11045
~NDT'I+I •• ,aIN'1I
12014 26 1212.
ENDTAI.'f,I.!O
12086 II 12127
ENp,.,ol,.NA'ENl+ZO.NNE-la
IZ09. 14 121111
SEf'hlZ...
IIIACH I" 1110 OF T"IU ENCOUNUREO
1l1I0 46 IIU2

390101.010
]90'0

C

INN

.111
1110. .1-24 ...

1M
""

1110 TAl. II. I" 10
'11IO'AI . . . ,,6TU.

All
I

ENDT.I.II.lt •• O
END. . . . &2

,'a'HI

000-6
00414
01200

11910 II 1I04!; 000-1
'''fIlY AOOCESS aN SVSTEM COMMON AREA
11982 26 OZII16' 11040

3817038180, sr•• DO fF

18190.

19110
391'0
391'0
)'H60'
19170 Illoea
3.. 180

oeooo

II 114~8 000-5
24 1149Q 12457
LO INDICATOR
4l 11456 OUOO

11111 2a a21l. la490

38100'
38110
18120

19100.
19110
]9120

ceooo

.11

CALLHE 'FII
IMF

38010.
)80Z0

oeOK'

l175e
11751 lZ 11490

H060·
H070
HO.O

01400
00400
00000
00000
00000
00000
00000
00000
00000

'FABRICATE ENnv ACOII!SS TO COSF SURR.
11610 11 02421 000P2
11682 '" U57Z ceooo
lIUO

OVOFF
DORO .-]

36160'
36170
36180
36190
36200'
HOIO ERASE

'"
47
41
41
41
41
41
41
42

StORE IIETUIII IDDIIESS

120tO 26 11040 10"4

'110"""

'NN

'RANCH

II' .lIfllY

-t

All
CII
Itt

IIOIN'II-hl.ao
POI .. T.......'N' ......' . . . ,
CALLII'+.,...
'.4IICM

II'

01100

12lZ2 24 00000 0041.
NEfO NOf ftE CLEARED
121]1\ . . UOI& OUOO

12146 12 12128
ClI. . IIOII-....SA.U ENfR' nON UIU
12158 16 uno
12170 II al121
lUll II' 120. .
111.0

OOAS

000-1
11046
OOO-Z
H270

11190 II
11201 14
_'Ras"LI 'IIOG. .II
IUl4 4f

000-'
·000OCQC5
00000

1104. 000-1
11046 JU6.
UBU
IIIU 01100

Plr.E

"

]9200.
.0010.0020 N"'EOVF TFM
40030
'IFM
.00.0

iTM

40050 WIIEIIR
40060

BTH

WRERII.II,NNECON ••
LD,IOOOO ..

AM

.0120
40130

8Mf

.OHO.
40150
40160
40170
'0180·
.0190
.020041010
'1020
.a030 LO
'10'0.1050
41060

17

liE-DEFINE

to
,

,

PAGE

18

UlZ. 16 12271 OOJ'O
INOIC""OIl

, UU8 16 IU .. 110000

(AU. EIIRDR '1I0CESS lNG, SU8'1I0GRAM i
fRROUt .. 61

CALL EXIT",

.0070 •
• 0080.0090.
40100·
40110 RETURN TFH

'Ar.f
e"ACITY NOt EXCEEDED

12250 11 10980 -1090
12262 11 02~10 -COOO

UIT AD-APT sYSTEI' CNON-RECOVERAllE

1227 • • 9 00796 00000
MONITII TAILE DVEllfLDW EIIIIDkl

_ENTRY FOR INDIIIECT RETUIIN to NCN-ERAsABLE ,IIDlls.
PDINTII,MAPENT-I.ZO-U"
sEAIICH FOIl LAST EXITED PROGRAM
11282 16 110.6 J3085
POINTII-I,2,10
lRANCH IF '1I0GUM 'NOT :::::0 II 110" 00a-2
--12,'OINTII,11.
12 '06 44 11294 110.0

sM
TF
TF

'OlNTA,5,I0
UIT+6,'0INTR,lh
'DINtR,HI,6,

SET IIElUIIN ADDRESS
saYE HI INDICATOR

12318 12 11046 000-5
12'30 26 12.20 110.0
12]42 26 11040 004H
12"4 26 1150] 00.34

tF

CDII'+ II,HI"

StOllE HI INDICATOII

sM
"

POINTR,U,IO
POINU .. 6.

DC

5,-1.-,

12166 12 11046 000J5
SET liON-ERA SAlLE PIIOGUII EIIT FLAG
una )Z 11040 00000
LD INOI"TOR
12]" 00005

AM
TF

POINTII,5,I0
HI,POINTA,U,

Ilno II 110" 000-5
IIESET HI INOICATOII to EFFECT DVEIILDAD
12402 26 00.34 11040
IIETURN to CALLING PIIOGRA"
12414 49 OOOCO 00000
12422

41070 UIT

8

"t.

41080
'1090.
'1100.
41111> INMAP
'11l0

DOIIG

.-3

AM
INF

01" NO IS IN ERASA8LE 'ROGRAM TAILE
'OINTR,I,IO
12422 11 11046 COO-I
INCDIIE,POINTlt,ll,
allANCH IF PROGRA" IS IN ~E~ORY
12H~ ~. 12862 11040

'1130.
41140
41150

CF
AM

'OINTR .. 6,
'OINTII,15,10,

41160

TF

TEMP,LO ..

411 70
41180
41190 ••
41200
42010

TF
S

~O'RM,LO ..

C
IL

TEMP,HI
NDFll, ..

TEM,,'OINTII,II,

4l0l0-

CLEAR ERASURE FLAG
1 " " 33 11040 00000
~DAO ERAS41LE PIIOGII4" INTO UP'ER "EIIDRY
12.58 II 11046 000J5
IF ILa-NO. CORES! IS IIOT LESS tHAN HI
12410 26 11169 12389
SAVE LO INDICATOII
12412 26 12.51 Il'89
12494 22 11169 11040
tEMP•• La-NO. CORES!
12506 24 11169 CO."
lRANCH IF HI EXCEEDS ILa-NO. CORESI
12'1 I 41 12 894 0\300
lIE-DEFINE LO INDICATOR

42030 FIT

12530 26 12389 111'"
.2040.
42050
.2060

'2070
.2080
42090
42100
.211042120 LO~OAD
.2130·

SM
tF

'OINTR-I.I.IO
TEMP,HI"

TF
TFN
I
OOllG

HI,LO"
VARB+6,LOLOAO
LODEl-36
.-1

SET HI

TF

HIoTE"' ..

RESTOIIE HI INDICATOR

'215042160.

4l110-

TFM
AM
CM
8P

~]030

LA"lO' C
BNN

43050.
43060
43010
43080
43090 LOMHI'
HIOO
.3110'3120
43130

,lOPR"
EXTNt-I2 .. ,

tF '

lDMHI'+II,U"~OP+6,11

U"LD'.5,l,10
LOMH I'. II, LAII~OP.6 ,II
lO
I
CSELF .. ,
IU .. CH IF HIGHEST CORE USED

431~0

SM
C
8E
SF
AM

UMLO'+6, ,6,
UMLO'+6,25,10
EXTNT
OOllG .-1

44110'
441.044200.
0010 ND'"

12682 26 Il12. 1266"
12694 11 12663 000-1
12106 21 Il1l9 Il66"
Il718 14 12389 -0000
UCEEDS 'RESENT LO
12730 41 Il162 0\300
12142 11 12663 000-1
12154 49 12634 00000
12162

12162 12 \266~
12114 24 \266"
aliANCH I' ENTItY IS SAME AS 0110110
12786 46 12810
12798 Jl 1266M
ERASE ENtllY
12810 11 12664
12122 49 12n4
12830

000~5

10919
01200
00000
OOOKS
00000

C~EAR NON-ERASAIU PIiOGtIA~ EN'tlllES MHOSE
HIGHESt call. UGEIDSfNE LO INDICATOII
128JO II 12956 J152~
U8U 16 12997 JZJn
12154 4. 12914 00000
U862

TFII
""
I

PROGI-II,ST"'"Y
'ROGX+U.~O
CUA'"
00II1 - J

44120441304U40 INCOIII All
44160

UMLOP+6,15,10
UMLO'+6,ERAS,.
EIIENHU .. ,

II

~'IIO·

44110

12598 26 OOH' 11169

12658 l~ OOCOO Il451
lRANCH IF 'REVIOUS LO UCEEO.S LOAD ADDIIESS
12670 . . Il622 0\30P

AM

A
CM
IN

43150H160 eSELI'
43110
.3110

441S0

.

12566 26 00H4 12389
12518 16 I 13 a. J2598
12590
11220 00000
12591

.."

AM
UMLO'.5,I,10
I
UTNT
OOIlG .-3

.3190 EIIENT
4]l00
•• 010
.4020
HO]O_
440.0"050.4060·
44010 CLtall2
'4080
44090
4'100

~O

12610 16 12664 Jl250
UMLO'+6.IOA'ENT+20-NNE-I.20-10
12622 II \2663 OOO-l
UMLOP.5,2,10
12664 J]eso
12634
UNLOP.6, "APE NT.20-NNE.20.NE-I.20-10
lRANCH IF ERASING CO"'LElEO
CLEAR2",
Il830 01100
12"6

4'020.
430.0

to

12542 12 110~5 OGO-I
12554 26 11769 OO.H

ERASE ENTRIES OF ERASA8LE PROGRAMS WHOSE HIGHEST
CORE IS GREATER THAN ~O INDICATOR. ANC WHOSE LOAC
ADDRESS IS LESS THU tHE 'REVIOUS ~O INDICATOR

~2140·

.2180
.2190
'2200 EXTNT
43010

SAVE HI INOIC4TOR

T.

PIIOG. .II CilUED IS IN MIllOn
POINTII-l." 10
ENTRYI,POlllla.'lt

12862 11 \lOU 00a-1

Ilf ,",.., ADORESS IN SYSTEM COIIMON AIIEA

UU4 26 02416 11040
"186 ". USJ6 00000
U194

,I
STNTllft"
00II1 ... ,
'
CALLED . .GOa.. MUST
1M

I.

LO'DlD'11i HI INDICA'OIl
"194 U

IlD4' 000-1

9

~~020
~S040'

n050
45060
450'0

••4,£

I
5f0IM.2~
OORG .-~

45010

eUAR,

4~oeO

45090'
45100
451100
45120 'IIDC.
45UO
45140

''''0'

4U60
45170
4\110
45190'
45200 tLENfI
46010
46020
460]0
46040'
46050 NEOVF
46060

TF.
aM

12406 44 11196 00000
12914
12914 1& utfn Hon
12926 II
000-'
. U918 14 11"" JJl"~
EN fRY CLEARING COIIPtF,eO
12'1 so U 00000 01\00

PROG.-I,MA~ENT-II'O-I'

U'"

...

'8'M

'"OGl-2.,.I0
'IIOGl-I,Ma'ENht.llEt20-1120-U
allANtH IF

IMF

ClUIltHa ...

I""NCH IF 'RDCUM NO' EX /lED
1"/02 4"

'RDGl-IoU,IO
PRDGX-I. ,f>
,ClfNtl ...

11914 11 1'9" nOOJ\
Ini6
24 ""''' ceooo
lUNCH ., ENfRY t~EARI~r.
IS lI'OUIIIEe
In", '"
91100

,

AM

IP

uno

AM
PRUG.-I,',IO
8
tlEAAltH
DORG .-]
5M
TFM

PIIOCK-I.U,IO
PIIOCK-I,,6'1I.

8

CLEAR IOU

OORG

.-]

TF"

WRERRt II ,NECON,'
NNEDVFtIl

B

~6070

11010 II u'ln 000-5
l1aH 4'1 119)8 CODDO
11010
110]0 12 1297l OODJ5
CLEAR 1I0N-EUSAftl' PROGRAM fNTRy
11041 16 Il'l7L -00011054. 4, 1Z'I16 OCOOO
I1U62
13062 16 12213 OOJ~I
11074 4q UIl8 COMO
13082
13082 12 lIGH 000-6
IJ09~ ~9 11160 ocoon
UIOI

'-3

DORG
~b080 MEMGa, SM
POINTR,6,10
~.090
5TDIM-12
B
46100
DORG _4
46110'
46110 NNE
OS
2,8
~6130 NE
2,10
46\ 40 MAPfNt OS8 20,NN£
~6150
DSB 20,NE
46160'FORMAT OF NON-ERASABLE
46110'

00008
00030
13110
11280

os

"61

eo-

~61900

MONITOR
01 .. NO

"6200-

41010'
47020'
47030
47040
47050
~1060

41070
41080
47090
41100
47110
H120
411 )0
471~0

471'0
47160
47170

41180
47190
41100
~8010

48010

480]0
48040
oa050
48060
OS010
4A080
48090
48100
48110
48110
48110
48140
48150
48160'

NON-lfRO
DIGIT

..U

DORG
DC
Dt
DORG
Dt
DC
DC
IlORG
DC
DC
DC
DORG
DC
DC
DC

MAP£NT.0·,0-19
5,-0
5,0
MAPEfIINE020+11020-4
LINLIII CORE LEIIGTH
5,228 ..
DC
NINF DIMNO
4,0211 ..
DC
1,0
DC
DU~MY LOAD ACCRESS
5,QCJ99'
••
UC
OORG MAPENT+NNE020+12020-~
MINF
CORE
LENGTH
5,92
••
DC
SINF CO SF OIMNO
.,0201 ••
DC
DC
ltD
DUMMY LOAD ACORESS
5,99999"
DC
DORG MAPENT+NNE020+ I 3020-4
SINF COSF tORE LENGTH
5,.88.,
DC
AlANF DIMNO
DC
4,0202 "
I,D
DC
DUMMY LOAD AODRESS
DC
5.99999"
DORG MAPENT+IINE020+1~020-4
AUNF CORE LENGTH
5,738 ..
DC
~,0203. ,
EXPF DI~NO
DC
DC
1.0
5,99999, ,
DUMMY LOAD AODRESS
DC
DDRG "AP£NT+NNE020+15OZ0-4
5,768, ,
EXPF CORE LENGTH
DC
LOGF DIIINO
DC
4.0204"
DC
1.0
5,99999"
OU"'" LOAD ACORESS
DC
OORG "APE NT +NIIEoZO+16.20-'
5,632, •
LOG' CORE LENGTH
'DC
4.0318. ,
REPLAC DI"NO
DC
DC
1.0
5,99999 ••
DU""' LOAD ADDRESS
DC
OORG MAPENT+NNE"ZO+17020-4
REPLAC CORE LENGfH
,,1t8lt ••
UC
TVPERR DINNO
DC
4.0309"
1,0
DC
5.99999. ,
DC
DU"N' LOAD ADDRESS
OORG MAPENT+NNEoZO+ 180Z0-4

DC
DC
DC
DC
OORG
DC
DC
DC
DC
OORG
DC
DC
DC
DC
OORG
DC
DC
DC
DC
DORG
DC
DC
DC
DC
DORG
DC
DC
DC
DC
OORG
DC
DC
DC
DC
CORG
DC
DC
Ot
DC
DORG

DC
DC

DC
OC

5.396
0lCT2 01""0
4.0304"
1,0
DUMMY LOAD ADDRESS
5.99999,.
MAPENT+NNE02D+19020-4
5.1192
4,0]05"
Dlcn DI"NO
1,0
DUMMY LOAD ADDRESS
5.99999 ••
MA PENT +NNE020+20020-~
Dlcn CORE LENGTH
5.520 ••
FILEZ DIMNO
4.0120, •
1.0
5.99999
MAPENt +NNEOZO+2Io20-4
F ILEZ CORE LENGTH
5,610, •
FllU OINNO
4,0121"
1.0
5,99999
MAPENT +NNE020+22'20-4
5,1656
4,0322"
FILE" OIIlNO
1.0
5,99999 ••
OU,,"Y LOAD ADDRESS
I
MAPENT +NIIE02D+230Z0-4
F ILE4 CORE LENGTH
5,128.,
4,0360, ,
PTSLCT DINIIO
ltD
DUMMY LOAD ADDRESS
5,99999"
MAPE"'T+NNEOZO>Z4'ZO-4
PULCT CORE LEIIGTH
5.110"
ItDU'" DIMNO
4,0121, •
1,0
5,99999, ,
DUIIM' LOAD ADDRESS
"APENT+Nlleozo+ZSoZO-4
nDUM, CORI UIIGTH
S,41~,.
OTDS OIIlNO
4,OZ51"
1,0
5,99999
MAPfHToIINEoZO+Z60Z0-4
010S CORE LENGTH
5,116,.
OPEN OIMNO fIELD
.. ,0,.

1,0

13404
13405
13HO
IlH6
13420
1)424
11425
I )410
11436
13HO
13444
13445
13450
13456
13460
11464
134U
13410
13416
11480
11484
13485
13490
13496
13500
13504
. 13505
13510
IHI6
13520
1352.
13525
135]0
13536
13540
1]504
13545
11550
13556
13560
13564
13565
11510
13516
13580
13584'
13585
13590
13596
13600
1360.
13605
13610
13616
11620
1362.
13625
13630
13636

13640
13644
lJ645
13650
lJ656
13660
1]664
lJ665
13610
13616
13680

'AtoE

22

00005
00004
00001
DODOS
00005
00004
00001
00005
00005
00004
00001
00005
00005
00004
00001
00005
00005
0000.
00001
00005
00005
00004
00001
00005
00005
0000.
00001
00005
00005
0000.
00001
00005
00005
00004
00001
00005
00005
OOOO~

00001
00005

00005
0000.
00001
00005
00005
00004
00001
00005
00005

lJ68~

OOOO~

lJU5
lJ690
13696
13100
13104
13105

00001
00005
00005
00004
00001

13110 00005
13116
U120
1312.
lJ725
13130
13736
13140
13104
13745
13150
13156
13760
11764
13765
13710
13714
13180
13184
13185
13190
13196
13800
13804
\3805
13810
U816

00005
00004
00001
00005
00005
OOOO~

00001
00005
00005
00004
00001
00005
00005
OOOO~

00001
00005
00005
OOOO~

00001
00005

DORo MA'ENT+IIN'·20~.2~20"
,.0 ••
DC

DC
DC

1l.56

OS
DS
DS

2.MONIT... "
.$CAII+6
'.41_

11001 00002
IIOU 00000
00414 00005

,,0,.

11

00005
00004
00001
DODOS

5,99999
""£"'+11111020+21120-4
OPEN CORE LENGtH FIELD 13820
UU4
OPEN OlMitO
4,O,t
l3an
ItO
uno
DUMMY LO'D ADDRESS
5,99999"
un6
MAPENt+NNEoZO+U.20-4
llhO
OP!II CORI LIllO'"
11844
01"" OIMNO FIELD
•• 0, •
1384'
ItO
U850
OPEN LeNGtH 'ULO
5.99999, ,

OORO
DC
DC
OC
DC
00II0
DC
DC

PA"E
00005
00004
00001
00005

'.0.,

00005
00004
00001
0000.
00005
00004
00001
00005

n160 DODOS

11

~6\10
~6190

U200
HOlD
57020
57010

ENTRY

OS

TEM'
lOPR"

OS
OS
OS

ollse

',lUe
5.euse+ll
,.I~"".n
.1~1

NEWN

OS
NI;EtO/! OS

,I~O

ERRDI" OS

.0)090
,2416
510.0 URDU' OS
51060 MEIIORV DS
.ZOOOO
nolO
DEND • STUTol4
no~o

' '\.r(:

011)6 OOOOS
O~lOI 0000_
11169 0000'
IHS7 0000'
OOIH 00000
001~0 00000
0)090 00000
OHI6 00000
ZOOOO 00000
019,.

~.0201

II

PAGE
rYPEKA
PARTNO
INSER T
01M50)
AOOII
CHEU
HUB
PUNO
Sf

OHI6
OI02)R
0099911
08780
00H811
00542R
08680
09492
008.2R

0101001020010)001040010500106001010010800109001100
01110 AlPHA
0112001110
01140 1.0011
01150 CF
01160
01110
01110
01190
01200
02010
02020
0203002040
Ol050 CHIIOF
02060
02010
02010
02090
OllOO
02110
02UO
02UO
02140
02150

cHllon

02160.
Oll'O
02110 'I.EAII
02190
OZlOD
OlDIO.
OJOlo
OlD'O AODl

TERMAC
OVFlO)
INOAH
CHKDF2
AD02
CHKOF
HUB2
110
TEIIM

00981R
003)~R
01~09

0020411
003l~1I

00\)6R
08968
00586R
07144

SY~BDl

TARLE

SETDIG
"ONITR
IFJUMP
BRBACK
AlPHA
ClEAII
INIT
SAVO
"OS

OOHU
02406
077~5

0096011
0000211
00210A
01976
0091211
00975R

,
SEE MAC
"ACSAV
FlURO
ADOTWO
8DIG
FIIU
"JUMP
SElF I
TUllO

oan6
07721
0098511
0085011
0014611
0101511
0'60'
0015411
00414R

RE"ARK
INSRTt
fiNISH
ADD II
CF
flCCN
PLACE
SUFl
TIIYO

OIOIIR
095 II,
09820
00026R
00038R
07617
OfTH
00818R
00554R

IBM 1620-U11 AD-APT •••••••

INTRAN SU8PROGRA~ ALPHA
THE FUNCTlO" OF THI S SU8PIIOGIIAII
IS TO CHECK FOil SPECIAl WORDS
PARTNO INSERT RE"ARK FINI TER"At
liNKAGE IS
8T" "ONITR.NN"NO
•
AlPHA
DC
CF
TF"
All
CF
CM
8HE

8V
C
8Y
BNE
TF"

882
BV

C
BY
liNE
TFM
B7
!IV

C

IV

8NE
,TfM
TfM
CF
C14

BIlE

I.,
All

00001 00002
ClEAII TERMAC INDICATOR 00002 )3 01144
ClEAII flAGS IN THE INPUT AllEA
0001~ J6 00044
CF+6.11;O"'4-1
00026 JI 00044
CF+6.2,10
00038 H 099'9
9999
00050 J4 00044
CF+6,1 NDlT4+141
00062 "1 00026
ADDII
00014 "6 00086
e+12
00086 2M 01419
INOAT4.10.REMAIIK+10 •• CHECK fOR RE"ARK
00098 "6 00136
CHKOF
00110 '" 00U6
CHKOF
SET ADDRESS IN IIAIIILINE TO INIT
HUI.6.INIT, •
00122 16 08686
RETUII" TO CAlLI "G PROGRAM
00U4 4Z 00000
00136 M6 00148
·.12
00148 2" 01419
lNOATHIQ. INSfIlHIO •• CHECK FOil INSERT
00160 M6 00204
CHKOFl
00112 M7 00204
CHKOFZ
HU'.',I"SIITI •• SET AODIIESS IN MAINU"E TO INSRTl
00n4 16 08686
ClEAR-II
00196 M9 00264
. . 12
00204 106 00216
INOAT4.10.'ARTND.10.. CHECK fOR 'ARTNO
00216 III 07419
OYHOJ
0022. 146 00])4
OVfU;J
00Z40 M' 00))4
_ ••• 'lUNO .. SI!T ADDRESS IN MAIN1.I"E TO 'IITIIO
00252 16 01.1,
" ' " 110 -eLlA' FUGS IN INPUT ARU
00264 Jt> 00212
ClEAR.', 'NOAT4-'
0021' ]J u99'~
9999
00288 J4 0028Z
ClEAR+.,INOAT4.1"
00)00 " ' 00114
IIOOZ
RETURN TO CAlLING '"0'11111
OOlll 4Z 00000
DOH. Jl 00212
CLU. . . . 2,lO
2.0
lER ... , ,

00000
-1408
000-2
00000
-15'cf
01200
01400
01021
01400
01200
-1916
00000
01~00

01009
01400
01200
-9516
OCOOO
01~00

ala)]

01400
OllOO
-9492
-H08
00000
-1566
OllOO
00000
OOo-Z

12

~A jt

030~O

81

OlOSO OYFLO) TFM

ClEAR
BOle.H,INOAH-I"

01060 10lC
03010

AOOIl,9999"
801e+II,2,10,

80
AM

03080
03090 10011

87
TFL
8NF
03110
TFM
01120 TUNO TO
01110
tf
Oll~O
tM
OllSO
BNE
AM
03160
03110 SETOIG TO
01180
AM
01190
SF
AM
onoo

BOIG
FLeON,FllEAO
CHEK4 tlFJUMP
SfTDleH.,FLCON-.
TPoS,80IG+ll,1I
TPOS
TPOS,l,lO
CHEU
80IG+I1.1,10
9999,801G+II,1I
FLCON, It 10
FlCoN-9
SETOle+6,I,10

04010
04030 tHEK4
04040 TAYO
04D50
04D60
04010 RO
04080
04090
D4100
04110
041Z0
0'130
04140
0.150
D4\60
04110
04180
04\9D
D42DO
05010 SETFI
05020
05030
05040
05050
D5D60
05070
0508005D90 SETF2
05100 AOOTNO
05110 SF
05120
D5130
05\40

TUNI!
TRYD+",INOAT4+141
RO,9999
TRYO+II,2,10
TRYO
TRYD+II,IO,IO
TRVD+II,,6
TRYO+II,II,IO
a+12
TRYD+II, TERMAC>lO,6
SETF!
SETF!
TER"
SETF2,IFJUMP
IFJUMP
fLCON,NJUIIP
SETFl
MaN ITR, 0 )090,67
TYPERR,15D,61
TRYO+I1,7'[0
TRYO+U, ,6
TRYO+II,7,10

onoo

O~OiO

0515005160
OS! 7D SAYO
05180
D5190-

All
BY

TFM
DO
SM
87
SM
SF
AM
BY
C
BY
8NE
SF
DNF
CF
FSUB
DE
DTH
DTH
SM
SF
AM

BY
C
DY
BE
TFM
AM
SF
ell
DNE
TFM
B8l
CM
DE

.010.110 i.IO

00326 "9 ()ol16 00000
SET UP ADDRESS TO tHECK FDA 1ST DICIT
OOl)~ J6 OO)~7 -7408
CHECK FDA A DIGIT
00H6 Ml 00118 09999
INCAEMENT TO NEXT POSITION
00158 JI OOlH 000-2
00110 "9 001~6 00000
DOH8 00 01617 00q8~
00390 H4 0054l 07145
00402 JI. 00480 -1608
OOH~ KN 00915 OOlSP
00426 L1 00975 00000
00438 J4 00975 000-1
00450 "7 005U 01200
00462 JI 00357 000-1
00414 2N 09999 OOH'
00486 1\ 07617 000-1
00498 lZ 07608 00000
00510 JI oo~.g 000-\

OOHa JI 001" DOU., I

00514 H9 00414
005U J6 00565
D0554 Hl 00586
00566 J2 OD565
D0578 H9 00554
00586 J2 00565
00598 L2 0056~
00610 Jl 00565
0002l H6 00634
00634 K~ 0056N
00646 ~6 00754
00658 III 00754
00670 12 07744
00682 H4 00838
00694 3307745
00706 02 07617
00718 H6 00838
oono 17 02400
00742 1702410
D0754 J2 00565
00766 L2 0056N
00778 J I 00565
a+12
00190 "6 00802
TR YO+ I1,F INI +6,6, CHEC. FOR F I NI
00802 KM 0056~
00814 ~6 D0838
SETF2
D0826 116 DD912
SA YO
AESET THE flAGS IN THE INPUT ARU
0081ft
~0868
SF+6,INOlT4-1.
00850 '\ 00868
SF+6,2,10
008~2 lZ 09999
9999
00814 H 00868
SF+o,INOAT4+141
D0886 H7 00850
ADOTNO
SET MAl Nli NE 8RANCH TO DIM503
HUB+6,DIM50h,
00898 10 08080
AETURN TO CALLI NG PROGRAM
0091D 42 ODOOO
CHECK FOR MISSING TERMAC
MACSAY"IO,
00912 14 D7721
00924 H6 00960
BRBACK
LOAD ANO CALL TYPERR SUBPROGRAH

00000
-1550

Oqqq')

000-2
00000
OOOJO
00000
OOOJl
01400
OOQ')7

01400

o l100

00000
01745
00000
0'601
01200
-3090
-0150
000-7
00000
oco- 7
0"00
01041
01400
01200
-7408
000-2
00000
-1550
01200
-8180
00000
COo-o
01100

par.e:
8TM
05200
DTM
00010
06D20 BRSACK TFM
06D3006D40
D6050 TPOS
D6D60
D6D70 FLZERO
DoD80 TERMAt
06090 INSERT
06100 REHARK
06110 PARlND
061Z0 FINI
OoI3D06140 INDAT4
00150 INIT
06160 PLACE
06170 TERII
06180 PRrNO
06190 HUB
06200 HUB2
D7DI0 INSRT!
07020 SEE MAe
07030 F INI SH
07040 01"503
01050 TYPERR
07060 MACSAY
D7070 MONITA
07D80 FLeON
07090 "JUMP
07100 IFJU"P
01110

BDl
l,D
DC
8,0
OC
2,0
DC
OAC 6, TER"At
DAC 6,INSERT
DAC 6,REMARK
DAC 6, PARTNO
DAC 4,F INI
COMHON AREA
,07409
OS
,07976
,07743
OS
,0774,
OS
,09492
OS
,08680
OS
,08968
OS
,09516
os
,08976
OS
,09820
OS
,D8780
OS
,02416
OS
,O77ll
os
,024D6
OS
,7617
OS
,7607
OS
,01745
OS
DEND ALPHA

os

009]6 17 024DO
D0948 17 02410
SET Mal NLINE 8RANCH TO FINISH
00960 16 08686
RETURN TO tAlLING PROGRA'"
00972 42 ODOOO
00975 00002
00983 00008
00985 00002
00987 00012
OD999 00012
010 II 00012
D1023 OOOll
01035 00008
wITH MAINLINE
07409 00000
07n6 00000
017<3 00000
01144 DODOO
09492 OOOOD
0868D 00000
08968 00000
09510 00000
D8916 00000
D9820 00000
08780 OODOO
02416 00000
07721 OOODD
02406 OOOOD
07611 00000
07607 00000
01745 00000
00002

MONITR ,03090,67
TYPERR,IZ9,67
HUB+6,FINISH"

-3090
-0\29
-9820
00000

13

f

'Ar.E

""eOl UIU
TYPUR OHl6
INOAH 01409
IILU oee04
,eMU 000. . .

SaUNI(

01010>

01080'

'I''''

01100
01110 IIASH

NBLANK on~'

AllfM' 07726
'lllU 0017. .

aREt oonOR

IIOVREC 00U2R
£lROR

SPEC

OOO~2R

ooaolll

1I0Nn. 01_06
INIT 01976

SUII'

Don,,,

leM 1620-1111 .0-ApT •••••••

01020.
01010'
01040'
010'0>
, 01060'
01010-

oon2R

INOAll 01)95
NEXT oaeu
USH 0000 ••

I

NT.:;'· SUiPROGA;M· wiSH

THE FUNCtiON OF THIS SU8PROGU" IS TO
COMPRESS THE IUNItS IN THE IN'UT sureMUIf
LINKAGE IS
IT" MONln,hllIlNo
IT" IIASH, I NDA TIt

INun IS "" liT ,aSnIGN 'H.I,,'UT ARea
DC

6,0
INO"'4+144, ,10,

00005 00006
SET RECORO MARK AT END OF INPUT AREA
00006 16 01") 000-0
01120
OC
1.',00011 00001
01110
SF
INOAT4+1ft4",
flAG RECORD MARk
00018 32 01553 00000
01140
CHECK FOR RECORD "ARK I" INPUT STATEMENT
8N" reHAK, WASH-I. 11,
00030 MN 00066 OOOON
01150'
LOAD AND CALL TY'ERR SUBPROGRA"
'
01160 ERROR 8TM MONITR,0)090."
00042 11 OHOO -3090
01110
8TM TYPERR,107,61
00054 11 02410 -0107
01180 'CHAR 8NR SBLANK,WASH-I,II, CHeCK FOR END OF I"PUT AREA
00066 liN 00152 OOOON
01190
8NF ERROR, WASH-I, II.
TeST FOR RECORD MARK IN STATEMENT
0001& It .. 00042 OOOON
8NF
01200
SPEC ,NBLANK"
CHECK FOR BLANK CARD
00090"4 0020e 01147
NO 8LANK CARO---SET MAINLINE 8RANCH
02010
TF" Ml8R_6,NEXT "
00102 16 08BI0 -8816
CF
02020
00114 L3 000 ON 00000
WASH-I"t
020]0
CF
NBLANK
00126 n 01147 00000
02040 STEMI' TF
ALTeMP,IIASH-I
00138 20 01126 00005
020S0.
RETURN TO CALLING PROGRAM
02060
B82
00150 42 00000 00000
02010 SBlANK CM
WASH-l,,610.
CHECK FOR 8L.NK
00152 J4 OOOON 000-0
02080
MOVREC
00164 116 00222 01100
8E
IIASH-I,2dO,
I NtRE"ENT TO NEXT CHARACTER
02090 pLUS2 AM
00116 JI 00005 000-2
Sf
NBUNK
00188 12 0714 1 00000
02100
TCHAR
8
00200 "9 00066 00000
02110
00208
02120
OORG --3
021]0 SPEC
8LANK CARD ---SET "UNLINE 8RANCH
TF" "LBR~t,INIT"
00208 16 08810 -1976
RETURN TO tALLING 'ROGRA"
02140Dono 42 00000 00000
021S0
B82
PREPAU AODRESS TO ELIMINATE 8LANK
0216000222 KO 00216 00005
xR EC _6, WASH-I
02110 MOVREC TF
00234 KO 00281 00005
XREC_I1,WASH-I
02180
TF
XREC_6,1,10
00246 J2 00216 OCo-l
02190
SM
00258 Jl 00281 000-1
XREC_lIo1,IO
02200
AM
MOVE LEFT TO ELIMINATE BLANK
03010 KREt
Til
00210 J\ 00000 00000
0028Z 00002
01020
OSC
2.49
002S8 00005 -0066
0]0]0
OSA TCHAR
TF"

PACE
0304003050 'OlBR
03060 INIT
03010 NEXT
030&0 N8LANK
03090 MONITR
03100 TYPERR
01110 INOA11
03120 INOAT4
01l)0 .L 'EM'

OU40

COMMON
OS
OS
OS
OS
OS
OS
OS
OS
OS
DENO

A~U

.0880~

.01916
,08816
,01741
.02406
,02416
,07395
.01409
,01126
IIASH

IIITH "AlfllINE

08804
01976
08816
01141
02406
02416
07395
07409
01126
00006

00000
00000
00000
00000
00000
00000
00000
00000
00000

J Ie

..

PAGE
SY"1I0L fABU
SRTYP! 01591
MUCH ODDS_II

.. UMAJ OOUSA
MJU oonlR

00006R

"YPE 01595

MAJOII 00227R
SPOT 00U1R

......•...•....•..•

I NTRAN SUBPROGRAM Dlcn
THIS SUBPRDGRAM DOES A TABLE LCDKUP OF AD-A'T SYSTEM WDRDS
TO DETERMINE IF • GIVEN WDRO IS A M.JDR SYSTEM WORD
IT" ..ONITR.NNNNO
IT .. DICTl.PUCE
PUCE I S THE ADDRESS OF THE WDRO TO BE LDDKEO UP

OIO~O-

01110
011)0

Dler

11M 1620-1111 AD-APT •••••••

0101001020OIOJO01050·
01060.
0101001080.
01090·
OllOO
01110 DIeT

ADSPOT OOI'OR
NUIIY 0020011

DC

T' ..

6.0
SPOT .. 9.

CF
TF"

5RTYPE-I
... TtH.6 .... JORtlO"

av
C

"12
9999.0ICT-l.ll,

00005 00006
INITIALUE NU"IER DF TRIES CDUNTER
00006 J6 00222 00-00
INlm·lIlE TO CO.. PARE

~~m :~S~::9:D~~000

000)0 JO 00060
00042 M6 000'4
COMPARE IIORD WITH SYSTEM IIDRD
00054 2M 09999
00066 116 00150
BV
ADSPDT
01160
00018 III OOLSO
8NE
ADSPDT
01110
INDEX TD REtDRO COIIRUPONOI NG TO 1I0RO FOUND
01l8000090 J) 00222
11M
5PDT.4.10
.
01190
00102 lJ 00099
AM
.,9.MJRT
01200
STORE IIECOIIO IN COM.MDN AREA
02010
TF
SIlTYPE •••• 11.
00114 26 07591
00126 )2 015.6
SF
SIlTYPE-l
02020
RETURN TD CALLING PRDGRAM
02030
88
'"~
00U8 _2 00000
ADD 1 TO NUMaER OF TRIES
00150,jl 00222
tHEtK TD SEE IF ENTIRE DlqlONARY HAS aEEN SCA~NED
02050·
00162 KM 00222
SPDT, MAXMAJ
t
02060
00114 M1 00200
BNH NXTAY
02010
STDRAGE
AREA
TO ZEROS
SET
tOMMON
SRT'tPE
.
.
.
.
TFM
02080
00U6 16 01591
RETURN TO CALLING PROGRAMS
02090
B82
00198 42 00000
INtREMENT TD NUT DICTIONARY IIDRO
MATtH.6.12.10,
02100 NXlRY AM
00200 JI 00060
IUNtH TD COIIPARE IIITH NEXT 1I0RO
MATtH-U ...
02110
B
00212 1'9 00042
00220
02lZ0
DDAG --)
02no.
tDMMDN AREA lilT" M'INlIN!
00222 0000)
02140 SPDT
DC
).0
015'15 00000
02150 RTYPE OS
,01595
01591 00000
02160 SRTYPE DS
,01591
00225 00003
02110 MAXM.J ot
3,58
02180OltTlDN.RY 1I0RDS
00221 00012
02190 MAJOR DAt 6.tLEARP
00239 00002
02200
OAt
I,X
00241 00010
0)010
DAt 5, TMARK
00251 0001Z
03020
DAt 6.REIIINO
00263 0001Z
0)030
OAt 6,FEDRAT
01140
01150 .. ATCH

-0231
01400
OOOON
01400
01200
000-4
-0.31
0009R
00000
00000
00-01
00225
01100
0-000
00000
000J2
00000

PACE

03040
03050
03060
03010
03080
03090
onoo
OJlIO
O)IZO
03130
03140
03150
03160
onl0
03180
03190
01200
04010
04020
04030
04040
04050
0~060

04010
04080
04090
04100
04110
04120
04110
04140
04150
04160
04110
04180
0419D
04200
05010
05020
05030
05040
05050
05060
OSoro
05080
0509,0
05100
05110
05120
05HO
05140
05t50
05160
05110
05110
0"90
05200
Oi>OlO

oat
OAt
DAt
DAt
DAt

oat
DAt
Oat
DAt
OAt
OAt
OAt
OAt
OAt
OAt
OAt
DAC

oat
OAt
OAt
OAt
OAt
DAt
OAe
OAe
OAt
OAe
OAe
Oat
OAt
DAe
OAt
D~t

OAe
DAe
OAC
OAt
DAt
DAt
OAe
OAt
DAt
DAt
o.e
DAe
OAe
OA'
D.t
bAC
OAt
DAt
DAC
DAt
Oat
DAe
OAC

OAC

Oi>OZO

DAt
DAt

Oi>OlO

OAt

I,X
5.0ELlY
6.MACHIN
I.X
5.SEONo
6,AUXFUN
6. TOOL NO
6,tODLNT
6.SPlNOL
6. TutUT
I,X
5. flLFT
I.X
5. flRGT

2,xx .

4, flON

], xxx

3.tUT
6.0NTCUT
3,XXX

3.END

2.,X.
4. STOP
6,OPSTOP
I.x
5.RAP10
6.INOIRP
6,INoiRY
2.IX
4,FRDM
6,GDDLTA

2.xx

4,GOTO
I.x
5,TOLER
I.X
"INTOL
6,OUTlOL
6.tUTlER
2.xx
4,PS15
4.XUX
2.GO
6,OfFsn

loX
"GOLFT

loX

5,GORGT
I,X
5,GOFIID
•• GOII"II
2.XX
4.LlNE
.,ClRCLE
6,GtONIC
6,"ICYl
.,VECfDll
6.ElLIPS
.,MU."
I ••

00215
00211
00281
00299
00)01
00311
00)23
00H5
00341
00359
00311
00H3
00383
00385
00395
00399
00401
00413
0041'1
OOHI
00431
0044)
00441
00455
00461
00469
00419
00491
00503
00501.
00515
00521
005H
00539
00541
00551
00553
00563
00515
00581
00591
00599
00601
00611
00623
00625
00615
00631
00641
0064.
00659
00611
00615
006"
00695
00101
00119
OOUI
001U
007U

00002
00010
00012
00002
00010
00012
00012
00012
00012
00012
00002
00010
00002
00010
OOOO~

00008
00006
00006
00012
00006
00006
00004
00008
00012
00002
00010
00012
00012
00004
00008
00012
00004
00008
00002
00010
00002
00010
00012
00012
00004
00008
00008
00004
00012
00002
00010
00002
00010
00002
000·10
00012
00004
00001
00012
OOOU
OOOlZ
00012
00012
OOOU
000112

l!i

06040
06050
06060
06010
06080
060'0
06100
06110
06120
06110
06UO
06150
06160

06110
06110

06190
06200
07010
07020
07010
07040'
07050 "JIlT
07060
01070
07080
07090
07100
01110
07120
071 )0
01140
07150
07160
07170
07180
071'0
01200
08010
0802,0
08030
08040
08050
08060
08070
08080
08090
08100
08110

08120
08130
08UO
08150
08160
08170
08180
08190
08200
09010
C1'J020
090)0

OAC

5,PUIIE

OAt

I,K

OAe

5,POINT
6,POCKET
6,NOPOS'

OAC
OAC

OAC
OAC
OAt
OAC

OAt
OAt
OAt
OAC
OAt
OAt
DAC
OAt

OAe

OAt
OAt

6,LUOEII
6,LOOPS'

6,lOOPIIQ
6.RESEU
l,U
.. ,CALL
I,K
5,MACRD
6,JUMPTO

DC
DC
DC
DC
DC
DC

DC
DC
DC

DC
DC
DC
DC
DC
DC
DC
Dt
Dt
DC

Dt
DC
Dt
DC
OC
DC
DC

DC
DC
DC
DC
DC

DC
DC

OOIU
00865
00875

00010
00002
00010
00012
OOOlZ
0001l
00012

OOOll
00012
00004
00008
00002,
00010
000\2
00002
00010
0000.

ltx

ODIn

.. ,ilKXX

00889
00...

6.CFMTYP
6.CFMPUII

DOH I 0001l
00923 00012

,.nulI'
~.I'

.ECORD

OC
Dt
DC
DC
DC
DC

00157
'00767
00769
00719
00191
0080)
00815
00827
00139
DOUI
0085'

TY'ES cO.lIrSPONOIIiG '0 SYSTI' NOlI OS

4.204
4,l05
4,206
4,209
4,210
4,215
4,219
4,222
4,225
4.no
4,2)1
4,2)8
4,401
4,lt02
4.403
4.410
4.411
4.421
4, 1t22
4,423
,",425
4,501
4,502
4,50)
4.504
4.505
4,602
4~604

4,605
4,606
4,611
4,701

4,70l
4,801
4,802
4,803
4.804
4.1001
4,100l

00'0' 01100_

00937 00004
00'41 oooo~
00945 00004
00949 00004
00'1" 000010
oon? 000010
0096IDO004'
00965 0000_
00969 00004
0091) 00004
00'H7 00004
00981 000010
00985 000010
00989 00004
0099) 00004
00997 0000 ..
01001 00004
01005 00004
01009 00004
01013 00004
01017 00004
01021 00004
01025 00004
01029 00004
olon 00004
01037 00004
01041 00004
01045 00004
010·"'1 00004
01053 00004
olon 00004
01061 OOODlt
01065 00004
010" 00004
olon 00004
01077 00004
01081 00004
01085 00004
0108'1 00004

PAGe

09040
0'1050
09060
09070
09080
09090
09100
09110
09110
O'lUO
09140
09150
09160
09170
09180
09190
09200
10010
10020
100)0
10040

DC

4,100)
4,100.
4,1005
4,1006
4,1007
.,100'
4,1009
4.1010
4,1101
4,1102
4,110)
4,1104

(lC

"'.1105

Dt

DC
DC
DC
DC

DC
DC
DC

DC
DC
DC
.... (.

4, 1101
Io,IlOI
4,1401
DC
4,1501
Dt
4,1901
Dt
4,2101
Ot
.,2102
DC
01110 DICT
pC

0109)
01091
01101
01105
01109
01113
01117
01121
01125
0112'1
olin
01137
01141
0114'
01149
01l5J
011"
01161
01165
01169
00006

00004
0000.
00004
0000.
00004
00004
00004
0000.
00004
00004
0000.
00004
00004
000010
00004
00004
00004
00D04
00004
00004

4

PACE

"".ot. unE
SRTYPE 01nl
MATtH 0005411

01010'
01020'
010]0'
010~0'

01050'
01060'
01010'
01080'
010901
01100
01110 DIeT

IIUMAJ 002"R
MJRr 00.5111

AOSPOl 00140.
NITR' 001.0.

DIeT 00006R
UVPI 015.5

MAJOII 002 t 'R
SPOT 00212.

II" 162o-1'Jll AD-." •••••••
INTRAN SU8PROGRAM 0lCT2
'HIS SUBPROGRAM LOOKS UP MINOR MODifIER IIOROS
IN tHE AD-APT OICTlCNARY
LINKAGE IS
11M MDNITII.hNNNO
1111 OICTZ.PUCE
PLACE IS THE "ODRESS OF THI MOllO TO BE LOOKED UP

00005 00006
INltlALUI NUMIIR OF TRIPS tOUNTfR
00006 J6 00212 00-00
SIITYPE-I
00018 ]] 07596 00000
CP
01lZO
011]0
'Fill M"'CH+,.IIAJOUIO" INITIAlIZE TO COMPARE FIRST SYSTEM IIORO
00030 JO 00060 -022'
.. u
OOOU M6 00054 01400
01140
8V
COIIPARE MORO NITH SVSTEM WORD
9999.0ICT-I,I1,
OIUO MATCH C
OOC54 2M 09999 oeOON
00066 M6 00140 01400
IV
ADSPDT
01160
BillE ADSPOT
000'8 101 00140 01200
01110
INDex TO REtORD CORRESPONDI NG TO WORD FOUND
011 BO'
00090 J) 00212 000-4
MM
SPOT .4.10
01190
00102 IJ 000 •• -0951
AM
99.MJRT
01200
STORE RECORD IN tO~MeN AREA
rF
SRTYPE .... II.
02010
00114 26 015.1 0009R
00126 32 01596 00000
SRTYPE-I
SF
02020
RETURN
TO
tALlIlIIG
PROGRAM
88Z
02030
00138 42 00000 00000
ADD I TO NUM8U OF Till ES
SPOT.I, ••
02040 AOSPOT AM
00140 JI 00212 00-01
CHECK FOR END OF DICTIONARY
02050'
00152 KM 00212 00215
02060
SPO'."UIIIAJ
00164 Ml 00190 01l0~
~XTRV
02070
SET CO~"ON STORAGE AIIEA TO lERO
SR TVPE •• 8.
02080
00116 16
0-000
RETURN fa CALLING PRCGRAM
882
02090
00188 42 00000 00000
INCRE""T TD NUT olCTlONARV WORD
MATCH+6. U .10.
02100 NXfRV AM
00190 JI 000.0 OCOJ2
aUNtH TU eO~"RE hEXT WORD
MATCH-12 ...
8
02110
00202 109 00042 00000
00210
ODRG .-3
02110
tDMMD~ ARE" WITH MAINLINE
Oll 3D'
00212 00003
011~0 SPOT
DC
3.0
01595 00000
01150 RTVPE OS
.015"
01591 00000
. 02160 sa TYPE OS
.01591
DOllS 00003
3.60
02110 MAXMAJ OC
DICTIDNARV WORDS
01180'
00111 00012
02190 MAJOR OAt 6.ATANGL
0022'1 00012
OAt 6.CENTER
02100
002H 00002
I.X
OAt
03010
00243
00010
OAC 5.CROSS
03020
00253 00002
0]030
oat I.X
DC
TFII

6.0
5PD' ....

...

D'S.'

PAGE

03040
03050
03060
03010
030BO
03090
01100
03110
03110
03130
031~0

03150
03160
03110
03180
03190
03200
0~010

04020
04030
040~0

04050
04060
04070
04080
04090
04100
04110
04120
041]0
0~140

04150
04160
0~1l0

04180
0~190

04100
0'010
05020
050JO
05040
05050
05060
05010
050.0
050'0
05100
05110
05120
051)0
OSl40
OS1S0
0Ola.0
051'0
Osa,IO
05190
05200
06010
06020
06010

OAC
OAt
DAC
OAt
OAt
OAt
OAt
OAt
OAt
OAt
OAt
OAt

oat

OAt
OAt
OAt
OAt
OAt
OAt
OAt
DAC
DAt·
OAt
OAt
OAt
OAt
OAt
OAt
OAt
OAt
OAt
OAt
OAC
OAt
DAC
OAC
OAC

Oat

OAe
OAt
OAt
DAC
OAt
DAC
DAC
OAt
OAt
DAC

oat

OAt
OAt
OAt
OAe
OAt
DAe

5.INTOF

loX
5.URGE

2.xx

4.LEFT
6.lEIIIGTH
I.x
5.MINUS
1.XXX
1.NOZ
6.PARLEl
6.PERPTO
2,xX
4.PlUS
6.RADIUS

loX
5.RIGHT
I.X
5. SCAlE
I.X
5.SMALL

I. X
5. TANTO
I.X
5.TlMES
6.TRANSl
2.XX
4.UNIT
,.xURGE
6.XS"All
6.XVPUN

loX
5.XVROT
•• VURGE
6.VSMAlL
•• ZURGE
.,UIIALL
'.UHETA
6.INTEIIC

loX
5.SlDPE

4.1. . 1
2.IN
).XXX
1.DUT
6.HOIlORE

2 ...
4.eCllI
1.XXX
JoeLI!
....EDIUN·

loU
4,HIGH

J ....

Oat

J.LOII
... XUI

OAt
OAC

... XXXI

Oat
Oat

2.'0
Z.ON

I.x ..

00255
00265
00261
00211
0028 I
00289
00301
00303
00313
00319
00325
00331
00)49
00353
00361
00H3
00315
00385
00387
00391
00)99
0040.
00411

00010
00002
00010
00004
00008
00012
00002
00010
00006
00006
00012
00012
00004
00008
00012
00002
00010
00002
00010
00002
00010
00002
00010
00~21 00002
00423 00010
,00433 00012
004~5 00004
00449 00008
00451 00012
004" 00012
00481 00012
00493 00002
004n 00010
00505 00012
00511 00012
0052' 00012
00541 00012
005U 00012
00565 00012
00511 00002
0051' 00010
00589 00008
00591 00004
00601 00006
0060' 00006
00613 OOOlZ
00625 00004
0062. 00008
OOU? 00006
00(4) 00006
0064. OOOU
00661 0000 ..
00665 00001
0061) 00006
0067. 0000.
00'" 0000.
001>910000..
001>9' 00001
0010S 0000"
DOlO' 00006

' I

"
06040
06050
06060
06070
06080
06090
06100
06110
Ollila
061J0
06140
06150
06160
06170
06UO
06UO
OUOO
07010
07020
070)0
07040
01050
.01060
01070
01080
010'10
01100
01110
01lZ0
011J0o
01140 IIJIIT
alISO
01160
01170
01180
01190
OlZOO
08010
080Z0
08030
08040
08050
08060
08070
08080
08090
08100
08110
06120
081 JO
08140
08150
08160
08170
08180
081'10
08Z00
09010
09020
09030

DAt
DAC
DAt
DAt
OAt
DAC
OAt
DAt

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

.. ,HI
... ))2
4.3))

09040
09050
09060
09070
09080
09090
09100
09110
091Z0
09130
09140
09150
0<1160
09110
09\ 80
09190
09200
10010
100ZO
10030
10040
10050
10060
10070
10010
10090
10100
10110
10llO
10130
10140

DC

4,347
4.'4.
4,34'
4.)53
... 359
4,360
4.361
4,362
4,363
4.369
4.311
... 372
4.H6
4,3.9
4.390
4,39\
4.3'1l
4.393
4.2001
4.2002
4.l003
4.l004
4.2005
4.2006
4.2007
4.2001
4.200'
4.l010
4.2011
4.2012
4.Z0lS

lOUD

3,OFF
2,U
~.PASY

I,.
"FlDOO

2, ..
.. ,MlST
] ....

OAt

I, TA'
OAt 6, SPlIHf
OAt J,.xx
DAt I.AlL
OAC 6,&fNOIX
OAt 2 . . .
OAC 4,aURG
DAt I,X
OAC 5,CINCY
OAt 6.CONCII0
OAt 6,OVlIEG
OAt 6,OYNPU
DAC 3,XXX
OAt J,ECS
OAt 6,FOSOIK
OAt 6,GECENT
OAt 6,"llll"
DAt 6,PUTTII
DAC 6, TIIUTU
OAt 3.XXX
DAC 3. TRII
RECORD TYPES COIIRESPCIIOIMG TO DICTIONARY
DC
It, ]01
DC
DC

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
Dt

Ot
DC
DC
DC

DC
DC
DC

DC

ot
ot
DC
DC
DC
Dt
• DC
DC
DC

DC
DC

ot
ot
ot
DC
DC

DC
DC
DC
DC

4,302
4,30]
4, ]05
.. ,301
4,308
4, )09
4.)10
4,)16
4.3IT
4,311
4,]19
4.)2)

4, )24
4, J2'
.. ,n6

00'1"
00955
00959
00'163
00967

.

0000 ..
00004
00004
00004
00004

00911 00004

00975
0097'1
00983
00987
00'191
00995
00999
01003
01007
01011

olon
01019
01013
01\)27
010ll
01035
0103'1
01043
01047
01051
01055
010S • •

INTRAN SUBPROGRAM OICTl
THI S SUBPROGRAM LOOMS UP FUNCTION COMPUTE WOROS
LINKAGE IS
8TM MONITR,NNNNO
81M OICn,PLAtE
PLACE I S THE ADDRESS OF THE WORD to BE LOOMED UP

010~0-

0105001060010100108001090
01100 01"

TABlE

.OSPOT 00140.
NURY 00190R

DC
TFM

6,0

00005 00006
INITULIlE NUIIBER OF tRlES MADE
00006 J6 00212
CF
SRTVPE-l
01110
00018 ) l 07596
TFM
'-'ATtH+6,MAJOR+10 ••
01120
INITIALIZE TO LOOM AT FIRST WORO
00010 JO 00060
•• l2
01110
BY
00042 M6 00054
01l~0 MATCH
9999,OICT-1t 11,
t
CO"PARE WITH SVSnM WORD
00054 2M 09999
Oil SO
BY
ADSPOT
000h6 M6 00140
01160
BNE
AOSPOl
00018 "7 OOHO
01l10INDEK THE CORRECT RECORD TYPE
Oll 80
MM
SPOT,4,10
00090 JJ 00212
AM
Q9,MJRT
01190
00102 lJ 00099
TF
SRTYPE.99,ll.
01200
STORE CORRESPONDING RECORD IN COMMON
00 l l ' 26 07591
SF
SRTVPE-i
02010
00126 12 01596
02020
B82
RETURN TO CAlLING PROGRAM
00138 H 00000
02030 AOSPOT AM
INCRE"ENT NUM8ER OF TRIES MAOE
00140 Jl 00212
02040CHECK TO SEE IF ENTIRE DICTIONARY HAS 8EEN SCA~NEO
02050
C
SPOl,MU"AJ
00152 KM 00212
8NH "KYRY
02060
00164 "7 00190
TFM
SRTYPE,.I.
02070
SET CoM"ON AREA TO ZEROS
00116 16 01591
BB2
RETURN TO CALLING PROGRA"
02080
0018B H 00000
02090INtREMENT AND CHECK hEXT DICTIONARV WORO
02100 NlTAY AM
MATCH+6,12,IO,
INCREMENT to NEXT WORD
00190 Jl 00060
MATCH-12.t.
BRANCH TO COMPARE NUT WORO
01110
00202 "9 000~2
02120
OQRG --3
00210
COMMON AREA WITH MAINLINE
0213001l~0 SPOT
oe
300
00212 00001
02150 ATYPE US
,07595
07595 00000
,07597
07597 00000
02160 SRTYPE OS
02110 MUMAJ OC
00215 00001
3018
OICTlONARY WOROS
02180l,K
00217 00002
02190 MAJOR OAC
00219 00010
OAe
5, SQRTF
02200
00229 OOOO~
OAC
2,U
01010
OAC
4,SINF
00233 00008
Ol02e
00241 00004
OAC
2,0
OJ010

03040
03050
03060
01010
030BO
Ol090
03100
01110
01120
01110
03140
03150
03160
O1l10

OH&O
01190
0)200
04010
04020
04010
0'040
04050
04060
04010
04080
0'090
04100
04110
04120
0'110
OH40
04150
04160
O~ 170.
O~180 MJRY

04190
04200
o~o 10
05020
05030
05040
05050
05060
05010
05080
05090
05100
05110
05120
05UO
05140
05150
05160
05110

SPOT, .9,

OAt
4,eOSF
OAe
5, A UHF
OAC
2, XI(
OAt
4,ABSF
OAt
OAC
I, •
S,lNTHF
OAe
2, XX
OAt
OAe
4,lOGF
2, xx
OAe
OAC 4,fXPF
OAe
2, xx
It, TANF
OAt
It, lXK.
OAe
OAe
2.1'
2, xx
OAC
4, SOR.T
OAe
3, x·xx
OAe
3, SI N
OAe
3, xxx
OAC
),eos
OAe
2,)(X
OAe
It,ATAN
OAt
3t xxx
OAe
3, A8S
OAt
2, xx
OAC
4,lNTH
OAC
3. XXX
OAC
OAe
3,lOG
), xxx
OAC
),EXP
OAe
)" xxx
OAC
OAe
3. TAN
RECORD TYPES CORRESPONDI"' TO SYSTE" NOROS
4,-901
DC
4,-902
DC
.c.,-QOl
DC
4,-904
DC
4.-90~
DC
4,-906
DC
4,-901
DC
.. ,-908
DC
'0,-909
oe
4,1901
DC

I,'

DC

4,~901

DC
oe

~,-902
4,~qOl

4.-904
4,-905
DC
4,-906
DC
.,-901
DC
4,-901
DC
• ,-90'
DC
DENO OleT

DC

00245
00253
00255
00265
00269
00217
00279
00289
00291
00301
00105
00313
00117
00125

00008
00002
00010
00004
00008
00002
00010
0000'
00008
00004
00008

00137
00341
00149
00355
00361
00367
003Tl
OOHl
00385
00191
00197
00401
00409
00415
00421
00H7
00411
00439

00004
00008
00006
00006
00006
00006
0000.
00008
00006
00006
0000'
00008
00006
00006
00006
00006
00006
00006

00441
00451
00455
00459
00463
00'61
00471
00H5
00479
00483
00487
00491
00495
00499
00501
00501
005ll
00515
00519
00006

00004
00004
00004
00004
00004
00004
00004
00004
00004
00004
00004
00004
00004
00004
00004
00004
00004
00004
0000 •

00-00
00000

OCOON
01400
01200
000-4
-04'7
ARE

0009A
00000
00000
00-01
00215
01100
0-000
00000

OOOJ2
00000

"'foe

OOCOIt

00008
00008

Don, ooop,

I !l

SYM"OL
rYPE~ft

01'> 16

TEMA" S

~.

OO}42~

MONi fA
ALPHA
tHKO)
EAOO
£RRT

T(,HK

AlOJH.
00618R
tHKNO 01030R
DIGIT OOf/SeA
eRROR 01620R
FINK
OIUOR
LOGO) 011 TOil
N0170 0094611
PLUS 0005411
SCAN 08852
0171)
STOP
IRO
016_31\

02006

IBM

010~0-

01050'
0106001070.
01080.
01090·
011 00.
01110
DC
01120 ALSCAN SF

6,0

."

.

01150

HM

CHAR.,lO.

01160 TEMP
0111001180
01190 PLUS
01200
0201002020020)0
02040
02050
02060 OPS
02010

OS

,--2

02100
02110
02120
0213002HO02150
02160 SCHIO

00015A
002'1411
E~OO
0141411
eTVPf 0129411
INO
01707
MINUS 0037411
DPS
000'l8A
POSH 00894R
SlGNE 01)02R
OOOl9R
Te~'

'EtIJRN 00lHA

to"SeN
CHK
CHK10
ERR
EX IT
INIT
liEGE
PAREN
REOPT
SIGN"
TRUNt

00n7A
01691
00810R
01682
01510R
01976
01560R
OOIl.R
0111"11
0091n
01600R

PAHEM 01117
ALSea .. 0000.'
Ol} lOA
CHKE
OECPT 01018R
fAAND 01107
EXP
00098
lWP
00187R
NEGM 0092611
PLACE 01143
SAVER 00202R
SAT
01510A
fSlGH 01'1111

1620-1111 AD-APT •••••••

,· ... 2
CHk .. 10,

02090 PAREN

CHU
CHKl

I HTAAN SUBPROGRAM At SC AN
THE FUNCTION OF THIS SU8PROGUM
IS TO SCAN THE ELEMENTS IN THE INPuT STATEI'EIIT
AND COLLECT A SYMBOL, NUMBER, Oil PUNCTUATIDII
8TH MONITR,NNNNU
LINKAGE IS
BfM UCAN,PUCE
PLAce IS THE ADDRESS OF THE FIRST CHARACTER OF THE WOAD

OS
TFM

01080

SHEAR 006~U
IlNOT o 16q8

0114611
0130511
OOHOR
FLAG 0046611
LOG10 Don4R
0080'111
ODD
POSE
0130611
SCHK~ DOl TaR
STAIP OOHIR

01010'
01020010)0-

01130 CHAR
OIHO

01~?6

00514R

'AGE

rA8H

00005 00006
AlSCAN IS flAGGED FOR THE FIRST WORO
00006 L2 00006 00000
00015 00000
(NllIALIIE CMECK INDICATOR
00018 16 016'11 000-0
INITULUE CHARACTER COUNT
00030 J6 00015 000-0
00039 00000

STORE FIRST CHARACTEA
TF
TEHP,USCAII-I,lI
00042 KO 000)9
CM
TEMP,10.10,
CHECK FDA PLUS SIGN
00054 J4 00039
00066 M1 00]74
BNE
MINUS
CHECK FOR OPERATION OR
SIGN
PRETEM HAS A FLAG IF IT IS A SIGN
BNF
SCHKhPIIETEH
00018 M" 00lT8
8
CHK2.,.
FL OAT A NUM8ER
00090 " ' 00294
00098
OORG '-3
Aes.er PRElE~ SWitCH oooqe U 01732
eF
PRETEM".
BAAIICH TO SPECIAL CHAUCTER
B
SCAKl"t
00110 M9 00118
OORG --)
00118
eM
TEMP,04, lO,
CHECK FOR RIGHT PARENTHfSIS
00118 J~ 00039
OPS
8E
00130 "6 00098
CM
TEMP,24.10,
C11ECK FOR LEFT PARENTHE SIS
00142 J4 00039
8E
OPS
001~4 M6 00098
THE HEMEIIT IS A SPECIAL CHARAUER NOT A LEFT OR RIGHT
PARENTHESIS
SF
PRETe,...",
SET PAETEM SW ITCH
00166 32 01732
SET CHK-] FOR SPECIAL CHAUCTER
Tf" CHK. 3.10,

OOOON
OOOJO
01200
07132
00000
00000
COOOO
000-4
01200
000"4
01200
~OOOO

PAf.£

02170 IWP
02180
021QO SAVER
02200'
OJOIO03020
030]00'3040
03050
03060
0'1010
030800)090 RETURN
03100
03110 tHK2
0312003130
011"0

001T8 16 07691
00187 00000
AM
ALSCAII-I ,2, 10.
INCREMENT TO NEXT ('.UCTER
OOIQO JI 00005
TF
ILNEXT,AlSCAN-I,II. STORE "EXT CHAut TEll IN ILNEXT
00202 20 07698
IS THIS THE END OF THE STATEMENT
IF SO INDICATE BY SETtl~G A FLAG AT STOP
tM
IlNEXT.22,10,
END OF STATE'ENT IS INDICATED 8V-002\4 14 01698
A 22 IN IlNUT
00226 "1 00250
BriE .+2'"
FLAG AT STOP INDICATES E"O OF SCAN
SF
STOP, ••
002]8 12 07113
SII
ALSCAN-I,2.10.
OECRE"ENT TO ADDRESS OF ElEMENT
00250 JZ 00005
STORE THE ADDRESS OF THE ELEMENT
TF
PLACE,ALSCAN-l.,
00262 20 01141

OS

000-3

,--2

000-2
OCOON

CCOK2
01200
CCOOO
000-2
00005

RETURN

TF

TE"AlS,ALSCAN-1

00274 20 01696 00005
00286 49 08864 00000
00294 16 01691 000-2

IIETURN TO "UNUME
SCAN+12,.,
SET CHK-2 FOR HUMBER
CHK,2,lO,
8RAlieH TO FLOAT THE NUMBER
00306 JP 001]8 -0005
BT" STRIP,ALSCAII-I
DIGIT IN INO INOICATES lAD NUMaER
80
ERAT.INO-2"
00118 Ml 00710 07105
TF
ILNEXT,ALSCAN-I.1I, STORE CHAUCTER FOllOWING NU~BU 111-0]150
00]30 20 01698 OOOON
IlNEIT
03160IS IT A lEGAL CHARACTER
ILNEXT,Z4,10.
OlliO NlITeH. tM
00342 14 01698 DOOK"
00354 III 00ZI4 DilDO
BNH SAVER+1l
03180
IllEGAL
PUNCTUATION
GO
TO ERROR
81
03190
ERRT",
00366 M9 00110 00000
CHECK
FOR
"INUS
SIGN
00314
J4 00039 OOOKO
TE",,20,IO,
03200 MINUS CM
00]86 "6 0001B 01200
PLUS.24
8E
04010
SEPARATE
ALPHA
AND
NUMERIC
FRO"
PUNCT
CM
TEMP.40,10,
04020
00398 J4 00039 OOOMO
00410
.,6
00466
01100
8H
FLAG
04010
IT IS PUNCTUATION
0404004050.
CHECK IF ITS THE FIRST CHARACTER OF THE WORD
00422 M" 00202 00006
8NF
RETURII-72,AlSCAN
04060
IS IT A DECI~Al POINT DOlo]' J4 00039 000-3
eM
TEMP ,03,10,
04070
8RANCH TO FLOAT A NUMBER
04010
IE
t"«2 •••
00H6 116 0029. Oll~'"
SET UP FOR SPECIAL CHARACTER
04090
8
'AREN •• ,
004S1 "9 00111 00000
00~66
DORG .-)
04100
IS IT THE FIRST CHARACTER OF THe IIOkD -- IF 51 SKIP OVER
04110.
DETERMINATION Of TY'E
041l0OO~66 14M 00~1' 00006
8NF
ALPHA,AlSCAN
04110 'LAG
ITS A SYMBOL OR NUMBER --CLEAR PRETE"
CF
PRETEM_,_
041.0
OOHa n 01132 00000
CLEAR FlnSt NORD FLAG 004.0 L) 00006 00000
CF
ALSCAN, ..
04150
TftANSFEft iST DICIT fa CHfCK INDICATOR
TF
CHK, TE"....
041.0
00502 20 01 . . ' 000)'
80'14 I' 07691 00000
TOil (HK"
04110
IS IT A NUMBER
04110.
eM CHK, 10, 10
00516 "
000'0
04190
auNt" fa PLOAT NUMBU
BE
CHU ...
04100

87
TFM

a'",

Plr.f
0\010

'F,M

00511 M6
tHK.I,IO.

OOZ'~

'J

01100

SET t .... l FOR A SYMaOL

00550 16 076'1 000-1
BRaNtH TO tOLlEtT NEXT t"ARACTER
00562 M' 00610 00000
05030 ALPHA SM
ALStAN-I.1010
0057~ J2 00005 000-1
05040
CF
AlSCAN-I. ,6.
CLEAR THE FLAG FOR 'HIS tHARAtTER
00586 L] OOOON 00000
05050
AM
ALStAN-I,a.'IO
oos,a JI 00005 000-1
05060
AM
tHARoI.l0.
INCREMENT CHaUtTER tOUNT
00610 JI 00015 000-1
05070SIX IS MAlIMUM NUMBERS OF CHAR
050eo
tM
tHIR,6.10
00622 J4 00015 000-6
aNH IOAL
050'0
00634 "7 00678 01100
05100
TFIII PLAtE.IOZ"
ERROR CONOI TlON
00646 \6 07743 -0102
05110 SEYERR TFM ERR.2.10
00658 16 07682 000-2
on20
87
SCAN+lZ •• ,
RETURN TO MAI"LINf
00670 4' 08864 00000
05130INtREMENT TO LOOK Al NEXT CHARAtTER
05140 AOAL
AM
AUtAN-l.2.10
00678 JI 00005 000-2
05150
TF
TEMP.ALStAH-I.ll.
STORE HUT CIIARAtTER IN TEMP
00690 KO 000]9 OOOON
05160
B
MINUS'2~
00702 M' oone 00000
05170
OORG --]
00710
TFM PLACE.IOl"
05180 ERRT
ERROR CONOITICN
00710 16 07743 -0101
05190
87
SETERR
00722 M' 00658 00000
05200
BU
Dono ~2 00000 00000
060 I 0 tOMSCN DC
6.0
00737 00006
06020IBM 1620-1311 ADAPT NUMERIC STRIP SUaROUTINE
06030RCS
06040LINKAGE - aTM STR IP ,COMStN
06050 STRIP TFL EXP.lRO"
CLEAR FLOATING-POINT 1I0Re
0073e 00 00098 OI6H
06060
TOM 5TR1P+19,,1I
Dono J5 00757 000006070
tF
LOGO]' 1\
00762 L] 01181 00000
06080
TFM CHKNO'U.OIGI T
00774 JO 010~8 -0958
TFM OIGlT+U.EXP-'
060'0
00786 J6 00976 -0089
CF
OUOO
ASSUIIE POSITIVE MANTISSA
S1G~II".
00798 LJ 00'25 00000
06110
ODO.COMSCN,ll,
MO VE ADD. U' AT ""ICH SCAN nGINS
00110 KG 00109 oon,
06120
tM
000,20.610
00822 J4 DoeOR OOOKO
06130
BE
BRANtH IF NEGATIVE MANTISSA
NeG"",
00834 M6 00926 01200
06140
tM
000,10,610
00846 J4 0080R OOOJO
8RANCH
LEAOII~G
+
SIGN
06150
BE
IF
POS .. " .
00BS8 116 0089~ 01200
06160 tHUD CM
000,70.610
00870 J4 0080R OOOPO
06170
ONE HOllO, ••
lRA"tH IF NOT LEADING lERO
008'82 117 00946 01200
000,2.10
0089~ JI 00809 000-2
06180 LOG70 AM
LOGO]+l1
06190
SF
00906 L2 01181 00000
tHKJO
00918 119 00870 00000
a
06200
07010
DURG
00925
--~
070201,0
07030 SIGNM Dt
00'25 00001
00926 12 00925 00000
07040 NEGM
SF
leADING - SIGN
SIGN" •••
009]8 "' 0089~ 00000
LOG70
07050
a
--]
00946
07060
DURG
07070_
BRANCH
IF
NeN-oIGIT
07010 Nono IL
CHKO]".
00'~6 117 011.6 01300
0~D20

8

ALPHU)6."

"

07090 DIGIT
07100
07110
07120

AM
TD
CM
811L

EXPoI.IO.
,000.11.
DIGIT'18.EXP-2
TRUNt ...

07130
071'0
07150 CI1XNO
07160
07170
07180

All
AM
tM

0IGIT'18.1.10
000,2,10
000,70.610

til
8NE

000.],610
eHKE ...

07190 DECPT
07200
08010
08020 REDPT
08030
080'0
08050
0806008070 CHKO]
08080

TFM
TF
AM
CM
8E
B
oORG

CHKNO'18.0IGIT+12
REOPT+6.000
REoPT~6. 2.10
9999,3.10
ERROR
tI1KNO-12
--3

CM
8NE

000,].610
EXIT-72 ...

080'0 lOGO]
08100
08110
08120

TOil
AM
eM
8NE

STRIP'I.
000.2.10
000.70.610
FINK".

OU30
08140
08150
08160
0817008180 FINK
08190
08200
0901009020 CtlKE
090]0

TOM STRIP'19,,11
511
EXP.l.10,
8
LOG03+12
OORG 0-]

til
BNE

000,45.610
UU-TZ ...

O'O~O ETVPE

CF

SIGNE .. 910,

09050
0'060
0'070
09080
090'0
09100
0'110

AM
000,2.• 10
CII
000,70.610
8L
TSIGN".
AM
000,Z.10
fNS OOO.UOO.6,
CM
,000.70,610
IL
$IT ...

O'UO
09\]0

AM
Mf

'09\~0

.1100

BNl

'"

I NtREMENT EXPONENT
5 TR IP ALPHA IIORO

00958 11
00970 2N
00982 J4
IRANtH IF 8 SIGNIFICANT OIGITS
00.94 M6
01006 'JI
01018 Jl
01030 J4
01042 46
8RANtH IF DIGIT
010~4 J4
BRANtH IF NOT DEe IMAL POINT
01066 117
01078 JO
010'10 KO
01102 Jl
01114 14
01126 M6
01U8 M'

09150

"
BY

EXP,EAOO,.
. ERROR".

09\60
09170
O'UO
0'1'0

MF
Sf
T.
80

'OP-'".

,txP-Z.SIGNM ••
'OMSCN.000,6
nlt.fXP· ...

01270
01048
01120
01120
0.999
01620
01018

01200
-0970
00809
000-2
000-)
01200
OCOOO

01146
011~6

aRANCH If NOT DECI'''L 'OI~T
01158
01170
01182
0119.
aRANCH IF NOT LEADING ZERO
01206
01218
DECREMENT EXPONENT
01230
01242
01250

J' 0080R 000-3
147
J5
Jl
J'

01438
00757
00809
0080R

01200
00000
000-2
OOOPO

147
J5
12
"'

01250
00757
00098
01182

01200
0000000-1
00000

01250 J2 0080' 000-2
01262 M9 01078 00000
01270

SM
ODO.2.10
8
OECPT
OURG --3

boO,2.10
EAoo.S1GNE"

00098 CCO-I
00000 0080R
00976 -0096
STRIPPEO
0\600 01300
00976 000-1
00a09 000-2
0080R OOOPO
00000 01300
0080R 000-3

01270 J4 0080R 000"5
BRANtH IF E TYPE NUM8ER
012112 M7 01438
ASSUME POSITIVE EXPONENT ADDEND
01294 L] 01302
01]06 Jl 0080'
o U 18 J~ 0080R
lRANtH IF NON-DIGIT
013)0 M7 01512
01]4Z Jl 00809
STAIP EXPONENt aDDEND OU5~ PI! 0080R
01366 J4 0080R
aUNCH " I-UGlY lOOENO
01378 M7 0l5.80
013.0 Jl .00809
SET SIGN EXPONENT ADDEND
01.02 PJ OI]U
ADJUST EXPONENt
01414 ZJ 000t8
IUNtH IF NUII.EII out OF RANGE
01426 116 01620
SET MANTISSA SIGN
01411 1J 00096
sn NIG....OROER 'UG
01UO U 00089
01462 KO 0015P
'UNC." I' NUMIU IS NOrt-lEIIO

01200
•
00--0
000-2
OOOPO
01]00
000-2
01]05
OOOPO
01300
000-2
0\102
01]05
01'00
OO'2!J
00000
00809

21

PAnf
09200
10010
10020 EXIT
10030
10040·
10050 UIGN
10060
10010
10080
10090 NEGE
10100
10110
10120.
101)0 sn
10100
10150
10160.
10110 TRUNe
10180
10190
10200.
11010 ERROR
11020
11010
11040.
110'0
11060 lRO
11070.
11080 000
11090 POS"
11100 SIGNE
11110 EADO
11120 POSE
11130 EXP
11140·
11150 INO
,11160 ERRNO
lIl70 SC.N
11180 ERR
11190 TYPERR
11200 PRETEM
12010 STOP
12020 PLACE
120)0 CHK
12040 IlNEXT
12050 reMUS
12060 1/f1T
12010 MOIUTR
11080

01H~

~] 01'10 00089
01486 16 00098 COORR
01498
01620 oonr
01510 U 00000 OCOOO
01512

TFN EXP.-n.lo
ONF EMOR, STlII P+l 9
68
00111; '-11

eM

M"

000,10,610
POSE ...

BE

eM

01512
8UNCH If POSITIVE EXPONENT
01524
01536
BUNCH IF NOT - SIGN 01548
SET SIGN EXpCNENf ADDEND
01560
01572
O15BO

ODO.20,1t10

BNE

eAROIt.1t

SF

SiGNE ...

8
OORO

pon

.·3

H

OO&OR OOOJO

ADDEND

146 01106 01200
J4 0080R OOOKO
147 01620 01200
L2 01302 00000
M9 01106 00000

TF
UDD,UOD-l
8
EMOO-U
DORG .-)

01580 KO 01105 01304
01592 M9 01402 00000
01600

TFN

01600 JO 00916 -1145
01612 M9 01018 00000
01620

B

DIGIHlI,CHKO)-1
CHKNO-12

DORO

.-)

TFM EUNO,I00,9
88
tt,
ooRG ·-9
DC

oe

01620 16 01101 OOJOO
01632 U 00000 00000
01634

£lIT

8.0
2,0

01641 00008
01643 00002

OS
5.STA.IP+l1·1Z.'
,lOG 70
os
,ETYPH8
OS
),SIGNE+]
os
,ETYPHlZ
os
10,98
OS
COIIMON AREA WITH "A l .. lINE
OS
,07701
,IND
OS
os ,08852
OS
,07682
OS
.2 .. 16
OS
,01732
,07713
DS
,07743
os
os
,01691
,0769'8
OS
,01696
OS
,07976
OS
,20\06
OS
DENO AlseAN

00e09
00894
01302
0130'
01)06
00098

00005
00000
00000
0000]
00000
00010

07707
07707
08852
07682
02416
01132
07713
07743
01691
07698
07696
07976
02406
00006

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

PAGE
TYPERR
RETURN
ERR 108
FUN
SHIZ

01010.
01020.
01030.

OZ416
02411
14062
14086
14182

SUBseR
REDUCE
AOoll
NAT!
SEH

14)06
14146

14378
01661
14214

SY~80L

TA8lE

SRTYPE
P051"P
Olcn
NAll

01597
11862
02416
01666
04301

""at

SQUHl
"ONITR
EXP2
P1I2
5'"8)

lH42
02406
14410
14206
0430)

SK IPER
ERRll4
flll
ATYPE
5Y"85

11862
14410
07610
0T59S
OHIS

IBM 1620- U II AD-APT •••••••
INTRAN

SUBPRoGRA~

010ll0-

01050.
01060LINKAGE IS
01070.
01080·
01090'
OORG 13862
01100
NATl,28,10,
01110 '0$1", SM

POSIMP
,THE FUNCTION OF THIS SU8PROGRA"
IS TO CO"PRESS THE STATE"ENT IN .. OROl
8Y REPLACING A NEST WiTH ITS EQUIVALENCE
BT "ONITR,05ALBl+5.6
81 POSIMP .. 6

1)862
SET POINTER TO ADDRESS BEFORE LEFT PAREN
1)862 12 01661 OOOka
All
NAT2,21,IO,
SET POINTER TO CHARACTER FOllOWING RIGH'
OIUO
13aT4 tl 01666 OOOKY
PAREN
011 )0'
CHECK FOil SU8SCRIPT OR FUNCTION
01140
e"
13886 14 0766J CCO-J
1)898 47 141~6 01200
8NE REDUCE
01150
INeRE"ENT TO CHECK FOR FUNCTION WORD
AM
NATI,IZ,10.
01160
13910 11 01661 OOOJ2
LOAD AND CAll olcn SUBPRoGRAM TO CltECI( FOR FUNCTlO" 1I0RO
011 10'
13922 11 02400 -30'0
8T" MONITR,O)050.67
01180
1393~ Z7 02410 07661
8T
0ICT3,N"'TI.6
01190
11946 14 07595 OCo-o
eM
RTVPE,,10
01200
13958 46 14 )06 01200
8E
SU8SCR
02010
CHECK FOR FUNeTtO_RTYPE-9
eN
RTYPE ,9,10,
02020
13970 H 01595 000-9
13982 46 14086 01200
020]0
•
8E
FUN
CHECK FOR ,F--U'fPE-19
RTYPE,19,10.
ell
02040
13994 14 01595 000J9
14006 47 14062 01200
8HE UR108
02050
OZ060.
IG"ORE IF AND PU"'IIE TO COMPRE 55 NE ST
14018 12 07661 000J2
SM
NAtltl2,10
02010
14030 16 0766J 000-1
TFH NAtl,1,610
02080
14042 06 01597 01610
TFL SRTYPE,Flll
02090
14054 49 141'" 00000
B7
REDUCE
02100
lOAD AND CALL TvPERII
02110'
14062
17 02400 -3090
8TN
MONlTR,O)090,67
02120 ERRIOI
14074 11 02410 -0108
8TII TYPERR,108,61
021)0
SUBSTITUTE
FUNCflOH
EQUIValENCE
TF
NAtl,SRTYPE,6.
02140 FIm
14086 26 0766J 07591
14098 06 01591 07610
TFL SRTYPE ,'liZ
011S0
14110 15 14211 00000
TOM !'112Hl
02160
PREPAIIE TO COMPRESS STATEMENT
$N
NAn,U,lO,
02110
14 liZ 12 01661 OOOJ2
SET ,.,PE-) FOR .. ''''''''ON
TF" NATl,J,6lG,
02180
14U4 16 0166.1 000-)
01190'
COM'AESS A NEST IN WOROL
DilDO RfOUCE All
NATI,14,10
03010'
" A NUNIER WfaE CALCULAtED ",e-02

22

PAGE
03020030 )0
03040
OlOSO SETIZ
Ol060

OTHER~ISe

A NEST NAIIE IS STORED 1101 WOROl
RTYPE"IO
141S8 14 01~95 000-0
SET4
14110 41 14214 01200
Pll2H2
IHB2 15 1421B COOOO
"ATI,SYM83,6.
SUBSTITUTE NUMBER CALCULATED IN COMPUT
14194 26 0166J OHOl
OJ010 'LIZ
AM
NATI.I2,10
14206 11 01661 OOOJl
TF
lolA fI, SYM82
030BO
SU8STITUTE NA~E FOR GEOMETRIC NEST
14118 26 0766J 04)01
AM
03090
NATloI,10
142)0 11 01661 000-1
NATI,NAn,bll.
OHOO SOUEU TR
TRANSMIT RECORD TO COMPRESS NEST
14242 31 0166J 01660
0)110
TFL
SRTYPE,FLU
14254 06 01591 01610
01120
B
RETURN, ,6.
RETURN TO C ALL I NG PROGRA~
14266 49 0241J 00000
OH30
DORG .-3
14274
0]140 SET4
TFM NAT1 • .ft.610
14274 16 0166J 000-4
OJI SO
TOM
PLlZ.IZ.2
14286
14218 00002
0]160
PL12
14298 49 14206 00000
8
DORG .-)
031 10
IH06
SAVE THE SUBSCRIPT '1010 ELIMIN'T.IoIESTI FROII WORDS lIST
0)160'
031 90 SUBSCR SM
NAHol2,10
1410b 12 01661 000J2
OJ200
14118 16 0166J 000-0
TF" NAT1,,610
04010
CM
SYM8S,Z,I0
14))0 14 04)15 000-2
04020
ee
EKP2
14342 46 14410 01200
14)54 46 14430 01100
04030
8H
ERA1H
~ATl,SYM85-9.6
04040
TO
IH66 25 0766J 04306
04050 AOOI)
SF
NATl, .6
14178 32 0766J ocooo
AM
14)90 II 01661 OOOJ)
040bO
NATl,llolO
14402 49 14H2 00000
04070
8T
SOUHZ
~ATI,SVMB5-8,6
Tf
14410 26 0166J 04)01
04080 EXP2
14422 49 IH78 OCOOO
040QO
87
AOOIl
14HO IT 02~00 -3090
04100 eRRll4 aTH MONITR,03090,67
arM HONITR,ll4,61
14442 17 OHOO -0134
04110
COMHON AREA WIfH MAI"lINE
04120'
O1t130.
OU61 00000
04140 NAil
OS
,07661
07666 00000
041 SO NAT1
OS
.07666
,07595
075H 00000
04160 RTVPE
OS
,07597
07591 00000
04110 SR TYPE os
07670 00000
,07610
04180 FLU
OS
,04)01
04101 00000
04190 SYMR2 OS
,04)0)
OHO) 00000
04200 SYHB3 OS
,04ll5
04llS 00000
05010 SYHRS OS
,2ltl1
02411 00000
05020 RETUAN OS
02406 00000
,2406
05030 HONITR OS
02416 00000
,2416
05040 TYPERR
02416 00000
,2416
05050 olcn
1)862 00000
,POSIMP
05060 SKIPER OS
1)862
DENO ,POS I HP
0~010
CM
BHE
TOM
TF

,6,

"

os

os

PAGE
SY~BOl

TYPERR 02416
TPR 14156
MACP IK 07719
FLlERO 01680
Ao02
14016
CALL
02416
ER T
14512
IN IT 07976
lPAR.
10271
HI STi 14512
A.TYPE 01595
IEMP 02451
po~

01010'
01020'
010)001040.
01050'
0106001010'

Oloao-

,TSAVE I
POSTPA
MACHER
ERRIH
A02
CHKRT
FUNC
lSI TI
HAC
NAlI

02456
02H6
14512
14112
14296
140BO
14216
119)2
14256
07661
SAve 05187
WORol 06091

SRTYPE
MONITA
HACoSA
CAlOS'

TABLE
07591

SI~PlE

0240b

MI50SA
IGNORE
ARGOS A
CAL
oSAPP

14670
14680
BR~AJ 14124
02416
olCT
GOFWo 14356
14492
JHI
MACRO 02416
NAT2 01666
SAvE 1 08011

02416
'''660
14116
13866
142)6
14650
!ATI 077]1
14216
JTO
MAJRT 14540
"JUMP 07601
SflAG 0716Q

RETURN 02411
fl'AJ 1'1 00 1"176
IFJUMP 07145
Aoo14 140)b
CALC
1)872
ERR
07682
IFS
14412
JUMP 14472
HCOUT 07111
PHASE 14512
SIMP
14104

IBM 1620-1311 AD-APT •••••••
I NTRAN SUBPROGRA~ CALC
THIS SU8PROGRAM SCANS THE SIMPLE STATEMENT IN THE "OEol
TABLE TO DETERMINE WHICH ROUTINE TO CALL TO PROCESS IT
lINKAGE IS
8T
~ONITR,OSAL8L'S.6
81 CALC •• 6
oSALBl IS THE RETURN AODRESS TO THE CALLING PROGRAM
DSAlelo5' IS THE ADDRESS OF THE DIM NUMBER CORRESPONDING
TO SU8PROGRAM CALC
AND 1 DIGIT INDICATING THAT IT IS A NON-ERASABLE PROGRAM

0109001100'
01110.
01120'
oORG 13862
01110
01140 ARGOS' OSA lolA TI.NAT2
01150 CALC
01160
01170
01180.
01190
01200
02010 !SIll
02020
OZOlO
02000'
0205002060
02010
0208002090
02100
0111002120 ,ADDI
02UO
01140
01UO '0014
02160
02110

13862
lJ866 00005 -7661
13811 00005 -1666
CHECK FOR COARECT NUMBER OF PAREN
lPAR,;10.
CM
13812 14 10211 OCo-o
13884 41 14512 01200
BNE ERT
11896 26 01131 01661
TF
tATI,N'TI
SET NAl2 BACK TO TYPE Of LAST 1I0RD
13908 12 07666 000J4
NAT2,l4,I0
SM
13920 16 01595 000-0
Tf" RTYPE, ,10
FOR
A
SYM80l
CHECK 1I0ROl
IATloI,610.
CM
13912 14 0173J 000-1
13944 H 140036 01200
AOD1~
8NE
INCREMENT TO SYIIBOL NAME
AM
IATI.UdO,
13956 11 017n 000J2
LOAD AND CALL DICtl SUBPROGRAM
LOOK UP SYMBOL I" DICTIONARY
1)968 11 02400 -)030
8TM MONITR,O)OlO,6?
13980 27 02410 01731
8T
01eT,lATI,6
liAS IT FDUND-"--I F sa IlItANCH TO IRMAJ
1)992
14 0"95 000-0
eM
RTYPE .. 10,
1400'1 41 14124 01200
BNE
8RMAJ
LOOP eACK to NUT 1I0RD
\4016 II 01731 000-2
AM
IAfl,2.IO
14028 49 U9U 00000
8
ISUI
14036
DOIIG "'3
C"
IATI.ll.610,
CHECK FOR 'END OF STATEMENT
14016 14 0773J OOOKl
14048 46 140ao 01200
BE
CHKRT
INCREMINT TO NEXT 1I0RO IN 1I0RDL
'M IATl,14,10.
OOOH
14060 11

onn

23

-------------- -

PAGE

01180

ISITI".

II~IoNCH

10 CHECK FOR SYIIBOL
14072 4't U"12
011"0
OORG . - )
14080
02200 CIIK'" CN
RTYPE"IO
14080 14 onn
0)010
aHE II£tURN,,6.
RetURN TO CALl! NG PIlOGRA~
140U 47 024IJ
0)020SET FLAG TO INDICA'£ SIMPLE NUST BE CAUEO
01030 SIll'
SF
SHAG
14104 32 01169
0)040
a
RETURII.
"nUIIII TO CALLING 'RDORA"
14111> 4" D241J
0)050
DORG --3
14124
03060.
INO£K TO CORRECT ROUTINE DePEMOING ON IITY'E
RTYPE.-5,,,
03010 '''MAl "N
14124 U
0)080
SII
99,IIAJIIT
14136 12 00099
01090
8
99,,11
14148 49 000911
03100
00110 --3
14156
03110.
LOAD 10110 CALL pOS,,'
OU ZO 'OSTPR 6T
IIONIfR.DSAPP+5 ••
14156 2? 02400
01130
11
POSIP" •• 11
14168 49 02410
03140LOAD AND tALL POSTp"
031'0 MAJIIOO 8T
110111 TR,III SOU+5.6
14116 21 02400
03160
81
POSTPA,,6
14188 49 OZ410
03110
SM
UTI,IIt,IO.
PREPARE TO LOOK AT liEU WORO
14196 12 07731
03180
ISln ...
8AANCH TO LOOK FOil SYM8DL
14208 49' 139)2
03190
OORG .-3
IHIII
03200FUNCTIONAL COMPUTE 1I0UTINE
04010 FUNe
TFN SRTYPE"IO
142111 16 07597
04020
a
SIMP
14228 49 HI04
04030
OaRG .-3
IH36
04040·
CALL STATE~eNT
04050.
LOAD AND CALL CALL SU8PROGRAM
04060 tAL
aT
MONIlR .CAlOSh,.6
14236 2T 02400
04070
CALL ,,6
aT
142U 49 OHIO
04080·
NACRO STATENENT
04090LOAD AND CALL NACRO SUBPROGRAM
04100 MAC
8T
MONI TR.MACDSh5.6
14256 27 02400
04110
87
MACRO •• 6
14168 49 02410
04120JUMPTO STATE~ENT
04130 JTO
BD
A02.NACP/K
14276 43 14296
04140
87
ERRlZl
14288 49 14332
AN
04150 ADZ
IA TI,2 ,10
142'16 11 07731
04160
eN
UTl,2,610,
CHECK FOR SUTE~ENT NUM8ER
14308 14 0773J
04170
8E
GOFWD
14320 46 un6
04180.
LOAD AND CALL TYPER. SU8PROGRAN
04190 ERRIU 8TN lION I TR.03090.61
14H2 17 02400
14)44 17 OHIO
04200
BTII TYPERR.1Z3.61
14)56 II 07131
05010 GOFIIO AM
undZ,lO
TFl NJUMP,UTl.II.
STORE STATMENT NU~8ER 14368 06 01601
05020
IFJUNP ...
INDICATE JU~PTQ stATEMENT
050,10
SF
14380 32 07145
05040
TF
StORE NEiT SECTOR ADDRESS OF MACRO
SA Vel , TSA VEl "
14392 26 08011
RETURN,,6.
RETURN TO CALLI NG PROGRA~
05050
If
14404 49 0241J
05060IF STA TEMEIIT ---14412 11 07731
AM
05070 IFS
IATl,I4tlO
STOllE ARGUMENT IN rellp
05080
7fL TEMP,UTI,II,

,I>,

on.. ,

00000
000-0
01100
00000
00000
OO-ON
J4540
00000
IUS'
00000
14665
00000
000J4
00000
000-0
1)0000

14685
00000
14615
00000
07119
0000'
000-2
000-2
01200
-3090
-Olll
000J2
0713J
00000
OH56
00000
000J4

PAGE
05090
05100
05HO
05120.
05\J0 JUMP
05140
05150 JHI
05160
05170.
05180 EAt
05190
05200llAJU

06010

06OZ0
06030 OSAPp
06040
06050 MnoSA
06060
06070 "AtOSA
06080
06090 CALOSA
06100
06110.
06120 OICT
06130 MONITII
06140 SIMPLE
06150 POST ....
06160 MACRO
06110 TYPERR
06110 IIElUII"
06190 CALL
.06200 IAn
07010 IFJUM'
01020 Jl4n
07030 NAJZ
07040 RTYPE
070.0 SRTypE
01060 IN IT

1"414 06 02451 07nJ
TEST--HIGH,lOIl,EClUAL 14436 02 02451 07680
TEMP.fUERO"
14448 46 14492 01100
BH
JHI
14460 41 14276 01300
BL
JTO
INCREMENT TO CORRECT STATEMENT NUM8EII OEPENDING ON ~1.lO,EQU
14472 11 0713 1 000J4
AN
IATI.14,IO
14484 49 14276 00000
87
JTO
All
IATl,2',10
1"492 11 07731 OOOU
87
JTO
1"504 49 14276 OCOOO
LOAD AND CALL TYPERR SU8P~OGRAM
8TM NDNITR,0]090,61
1451Z 11 OZ4DO -]0'0
8TM TYPERR,Il0,61
14524 11 02410 -0110
OSA MI STI,MI STI ,pDSTPR ,A002 ,MUIIOO, pOSTPII,'OSTPR,PD5TPR, POSTPR
14540 00005 J4512
14545 00005 J4512
14550 00005 J4156
14555 00005 J4016
14560 00005 J4176
lIt565 00005 JU 56
14570 00005 J4156
14575 00005 J4156
14580 00005 J4156
OSA FUNC, 5IM', 16NO~E .CIoL,"AC ,JUM',SI~'.PHASE,'HASE.pHASe
14585 00005 HZI6
1"590 00005 HI04
14595 00005 J4116
14600 00005 J4216
14605 00005 H256
14610 00005 J4472
14615 00005 J4104
146Z0 00005 J4512
146Z5 00005 J4512
14630 0000' H5U
14635
00005 J4412
IFS.PHASE.S1Mp
OSA
14640 00005 J"'12
14645 00005 J4104
14650 00005 J4D92
OSA CHKR 1+ 12
14651 00005
OSC 5,03121
14660 00005 J4196
OSA NAJMOO>20
14661 00005
OSC 5,03lZI
14670 00005 J40'Z
OS4 CHKRT>12
14671 00005
OSC 5.03161
14680 00005 J"o.z
0S4 CHKR H 12
14681 00005
OSC 5,03111
CDllIION IIITH IIAINLINE
02H6 00000
OS
,Z416
02406 00000
OS
,2406
02416 00000
OS
,2416
OZ416 00000
OS
,Z416
OZH6 00000
OS
,Z416
02H6 00000
OS
.2416
02411 00000
OS
,2411
0"16 00000
OS
,2416
01131 00000
OS
.01731
onu 00000
OS
,0174'
07661 00000
OS
,01661
016116 00000
OS
,01666
01595 00000
OS
,015'"
015'7 00000
oS
.01591
0"'" 00000
os
,0"76'

fsua

2

07070
070BO
07090
07100
07110
07120
07130
07l~O

07150
01\60
07170
01\80
07190
07200
08010
08020
080)0

MOROl
ItJU"P
"tOUT

ERR
SAVE
SFlAG
tSAVEI
SAVEt
PHASE
MACHER
MUTt
HURD
TEMP
lPAR
IGNORE
MACPIK

OS
0$
OS

.06091
.07607
.01717
,07682

0.5
DS

06091
01607
07117
01682
05187
07169

.05181

OS
OS

DS
OS
OS
OS
OS
OS
OS
OS
OS
DEltO

.01169
.0H56
.08011
.ERT
.EU
.ERT
.07680

02~56

.10277
.51MP+12
.01119

08011
14512
145\2
145 \2
07680
02451
10271
14116
01719

CAlC

U872

.01HI

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

PAroE
SY"BOl TABLE
TYPERR
ERRlles
ERNF
MOVE
SSNF

MONITR
ENDMAN
ERR
NE

00006R
00299R
00387R
000~2R

02406
13900
076B2
00030

MAPENT U238
CALLl 09892
00H4
HI
00008
~NE

MACPIK
CLEAR
INa
SfQNO

07119
00054R
07707
07656

ERROUT
CTR
INIT
SEn

00102R
oOOln
01916
00278R

00]61R

0101001020'
010)001040010500106001010.
01080.
0109001100
01110.'
01120·
01130 TYPERR
01140 eTR
01150
01160
01170 MOVE
01180 CLEAR
01190
01200
02010
02020.
020300
02040 ERROUT
020S0
02060.
02070
02080
02090.
02100
02110
02120
02130
02140
02150
02160
02170.
02110
02190
02200 •
03010
0)020 SET'

IBM 1620-1311 AD-APT •••••••
I NT RAN SUBPROGRAM TYPERR
THE FUNCTION OF THIS SUBPROGRAM IS TO tyPE At.! ERROR "ESSAGE
LINKAGE IS
aTM MONITR.~NltNO
8TM TYPERR,ccece
cccec IS THE ERROR CODe

DC

,.-2

"M

AM
TF

TE$~1 S~~~:R;:lit..

OS
OS

'TO SEE ,F IftTERYEIlTION IS

.

'

aNC' SET9
B7
lit"
TOIl CALI."h"U.

000-8
02'06
OOOJI
09999
-COOoeOKO
000-1
OllOO
07b~6

00000
00005
00101
00100
00102
00000
000-0
000-0

00210 Jl 00060 -onT

CLEAR+6,lteo20-'

INC) SET9
H

030300)040
117
0]050 ERRMES OAt
n060 SSN'
03070 ERNF

00005 OOOOb

. b.O

CLEAR OUT THE MONITR NON-ERASABLE TAILE
SO THAT RESTART MAY BE EFFECTED,
OOOOb J6 0001 ~
TFM eTR, NNE ,10
00015 00000
OS
00018 K6 00053
TF
MOVE+ll.MONITR
00030 JI 00053
AM
MOVE+lltll,IO
000'2 K6 00060
TF
CLEAlHb.9999
00054 16 09999
TFM 9999 .. 711
00066 Jl 00060
AM
ClEAR+6,20.10
00078 J2 00015
SM
CTA,I,IO
00090 MT 000"
8111Z ClUR
.
TRANSMIT THE SOURCE STATEMENT NUMBER IN ERROR TO THE ERROR
MESSAGE
00102 P] 00161
TNF SSNF, SEOftO
00114 Ll 00003
SF
TYPERR-3
TRAIISMIT THE ERROR NUMBO TO THE ERROR "USAGE
00126 PL 00387
TNF UHF, TYPERII-l
00U8 34 00000
RCTY
'
TYPE THE EUOR MeSSAGE
00150 1.9 00Z99
WATY EIIRMES
.
00162 34 00000
RCTY
001 n IS 0170'
tON IN0-2
00 186 16 07612
TFII ERR" 10
MACPIK .. 10.
CLEU M.CRD PICK INDlt~~~:B 16 07719

fa

0~~~~1t:~

002]4
OOZU
00258
Dono

oom 00060
Ml 00218 00]00
48 00000 lIODOO
M7 Dona 00100
4' 01916 OCOOO

Set INDICATOR
CALL UIT
_
.
oona IS 0,." 000011
TO CALL Ult.... UEAD OF THE ItEIIT SUBSYS'
.
00290 4' 01916 OCOOD
INIT
•••• "IOA
•• '
..... sOURte STATEM.If' NO.
OOZ" ODD'.
00361
'00000
,011141$."-'-2
DOIlY 00000

.SSN'.".'

03080 NE
03090 NNE
03100'
03110 SEQND
03120 INIf
03110 "APENT
03140 END"AN
0)1 SO CAlU
0)160 HI
03170 ERR
03180 IND
OlitO MONITK
0)100 MACPIM
0"'0 10

OS
OS

,30
2,8
(OfIIIDN AREA IIITH THE MAINLINE
OS
,07656
DS
,07'/16
OS
,13238
OS
.13900
OS
,09892
OS
.434
OS
,07682
OS
.07707
OS
,02"'06
0$
,0771'
DEliO 'YPEAR

00030 00000
00008 00002
07656
07916
1)238
\3900
0.892
DOH4
07682
07101
02"'06
071\.
00006

00000
00000
00000
00000
00000
00000
00000
00000
OODOO
001100

'ACf
SV"BDl UBLE
YECTOR
TSTRAD
TDATU
TARCn
SHAPE
PRJECT
POIDSA
NSTFlC
MAJDSA
FM2665
COM PUT
CALF
CODE
CIlC2
ERR
ERlt)
FILEZ
FOUND
lUI

LIN

NA"ST
POCK

SErEO
S'M81
SV"86

UTI

TREC
VAR,

02416
1617'"
03352
02416
15396,
\S672
16355
07146
16395
02416
02416
14192
01115
15748
07682
16154
02"'16
07628
07131
15648
140e8
15954
1]980
04289
04125
1]991
16106
156"'0

YECSUR
TRNEST
TDATA3
STORAO
SA¥NSf
PRECAL
POCKET
NEOUAl
L1NOSA
ELLIPS
COM05"
CAN

coon

DESI
ERRI
EII144
FlLE3
GEOMT
IjlT2
LINE
NEST
POI
SETID
SY"82
SVlla7
TO"'''

TZ

IIERM

\S854
14628
03350
1"'168
14156
14872
02416
07733
16365
02416
163)5
15974
14904
15216
15308
14276
02416
15328
07627
02416
02532
15488
14676
04301
04335
OUU
(420)
lU6.

VECOSA
TOATA7
TOATA2
SRTYPE
RETURN
POSNST
PljlOSA
"ONITR
leUPE
EllDS"
CIROSA
CGCTO
COM'
OleT
ERI03
ER3l6
FlCSA
GOEIIR
10
LINER
NT
POINT
SEfUP
S'"83
SVMDD
TFllE
UNDEF
IIflLE

16385
03382
03348

onn

02411
1"'496
16435
02406
07101
1641,S
16375
16285
15428
02416
145"4
16186
16345
1615'"
14389
15704
07174
02416
16094
04)0)
1470a
14451
15308
01n?

TYPERA
TOATA6
TOATAI
SlI'PlE
IIESCO"
POSN8R
OUTFll
IOAXNST
GOFILE
OIFCOO
CIRCLE
CHKF
CDMP2
DICTZ
ERlO'"
FilE
FII6J
HEREI
103

lin

PU
RTYPE
SSSl
SVM8'"
U.
TNEST
UPl
nURF

02416
03372
03136
B87Z
16250
14344
16010
14147
15072
16226
02416
15144
14004
02416
15468
02416
U544
14963
14)80
15874
1577.
07595
14180
0430'
1589'"
011U
15041
02"'1'

TSTlAO
TOATA5
TA80SA
SElOAT
PRTPUN
POKOSA
OUTDSA
MURIK
GCONIC
COHOSA
CAHOUT
CIR
CONIC
ELLIP
ERll2
FILEI
FORM
H2DSA
INIf
MeT
PLANE
SAYE
SVNl4
SYM85
UKEZ
TR
UP2

16206
01362
1644~

14580
15)16
16425
16455
02416
OH16
16405
02416
15798
15914
15934
1'308
02416
07712
U771
07976
01876
02416
\3979
141'12
0411'
ISO II
14915
1"'2'6

.1" 1620-IJIl AD-'" •••••••
01010.
01020.
I
;'LE
0(0)0.
THIS SU8PROGRAM PERFORMS AN OPERATION
01040.
INDICATED IIITHIN A NEST
OIOSO.
THIS OPERATION MAV IE TO COMPUTE SO"E
01060·
ALGEBRAIC OR GEOIIEfRIC DEFINITION
01070AND TO STORE THE RESULT
n1080LI_AGE IS
BT MDNITR,OSALBl.5,6
010'10·
8T SIMPLE,SOSA.IO.'
01100SOSA IS THE'''DDRESS OF THE fiRST ELEMENT
01110.
IN THE NEST
01120AND
OSALaL IS THE ADDRESS Of THE
0IUOluMENT IN 'HE NU?
011400
01150.
13862
OORG 13862
01160
13111 00010
10.0
01170
DC
13871 16 1"'010 13p60
COMP2 •• ,SIIIPLE-6.11
011.0 $IIII'll Tf
INITIALIZE EIIIIOIl 'DSIYlON
01190
IIIR"IO,
U I " \6 0'682 000-0
$fORE ADDRESS D"IRST ELE"ENT
Tf
."'I.SIMPLE-6,li.
OUOO
nl" 26 OTUI 13.60
STORE
600llESS Of LAST fLEMENT
02010
I"",SI"'LI-hll.
U'O' 26 076U
INITI"LUE NIST TAIU AOCRESS
02020
"M STOUO. . . . . " . .
13920 " 161"
" .. 'IALlIE JOUil UIU 'OINTE •
0110 JO
"M ..

Ni.AH· sui;iooa;M· si

un

""

"

",U

,..•.

-n.,

OlO\O02050
02060
010TO
01080 SAY'
02090 SEfEQ
02100 UTI
02110
02120 COIIPI
02130
02140
02150
02160
0217002UO
02190
02200 NAIIST
03010
03020
0)0)0
03040
03050 MAlNST
03060
03010
03080 SAVNST
03090 STOUD
03100 SSSI
03110 SVN24
03UO TZ
0)130
03140
03150
03160
03110
03180
03190 ERI4'1
03200
04010 UP2
04020
04030
04040
04050 POSNIIR
04060
04070
04080 10J
04090 10

139]2 110 01814 0-000
IN STATE"ENT
8NF SfTEQ.NSTFlG
1l.H 44 lJ980' 07146
TFN 'NESf ....
INITIALUE POI"TER lit NEST TA8LE
11.56 l6 On38 0-000
CF
'NSTFLG ...
CLUR FIRST NEST FLAG U968 n 07146 00000
OS
U979 00000
NEQUAL .. ,
CF
CLEAR EQUAL FUG
lJ980 33 07733 00000
OS
11991 00000
All
·.1-8.14.10,
INCREMENT TO SECOND ELEMENT IN NEST
13992 \I 14010 000J4
CM
999 •• ,.10.
IS IT PUNCTUATION
14004 14 09999 000-3
BNE SAVNST
14016 47 14156 01100
AM
CO"P2>6.12.10
14028 II 14010 000J2
CM
COMP2>6. n ."0.
IS IT AN EQUAL SIGN
14040 14 1401- OOOLl
BNI SAVNST
14052 H 14156 01100
INOEX TO SYMBOL NAME
TF
NAMS T+II.COMP2+6
14064 26 14099 14010
SM
NAMST+II.14.10
14016 Il 14099 000J4
TF
SYMU .......
SAVE THE n~BOL NAM& 14088 26 OHOI 09. . .
SM
NAMST>U.U,IO.
INDU TO SUISCRIPT
14100 U 14099 OOOJa
TF
SYMU.NAMST_U,Il, STORE THE SUBSCR I PT
14112 26 04103 \40911.
AM
UTI.U,IO,
SKIP OVER THE EQUAL SIGN
14124 \I 07731 OOOKS
NEQUAL .. ,
SF
INOICATE THEIR liAS AN EQUAL
14136 n077n 00000
DC
4,1000.·
141H 00004
B
$VNH
14148 49 14"2 OCOOO
OOIl.G .-3
141,.
A
STORAD+II. TNUT
14156 21 14179 01138
$YM82.9999 ..
STORE THE NEST AOCRESS AS NAME
14168 16 04301 -9999
SYM83,4,10.
STORE NEST TYPE- 4
14180 16 04103 000-4
SF
SRTYPE-I
14192 J2 01596 00000
DC
2,0,14203 00002
TF
SYMB4. SR TYPE "STORE THE RECORD TYPE 14204 26 04305 01597
CM
SRTYPE .. IO.
CHECK FOR SLASH TYPE STATEMENT
14216 14 07591 000-0
BE
UP2+12
14228 46 14308 01200
AM
IATI.,..IO.
INCREMENT IATi TO SLASH
IH40 II 071n 000K6
CM
IATl,Zl,610
14252 14 OlUJ COOK I
BE
BRANCH IF SEPARATOR IS A SLASH
UP2 •••
14264 46 14296 01200
TFM IIER"+11.144 •••
SET ERROR No.-144
14276 16 14519 OCJH
MER .... U
87
14288 49 14556 00000
AM
INCRE~ENT UTI TO MORD FCLLolllNG SLASH
UTI.2.10.
14296 \I 07131 000-2
INITIALIZE FORM TO ZERO
"M FORM,.a.
14308 16 07712 0-000
INITIALIZE ~INOR ELE~ENT COUNT
MCT"IO.
14320 16 07816 OCO-O
TF
TRANSMIT AOCRESS IN WOReL TO UTI
TATI.IATI"
14332 26 13991 01131
CHECK TYPE CF FIRST ELE"ENT
CM
TUI.2.610.
14H4 14 13q9J C00-2
BL' SYMOO
14356 47 14708 01300
BH
POSNST
14368 46 14496 01100
16 lun 000-1
FOR
A
NUMRER
14380
TFI! 10.3.10.
10 - J
,.-2
14389 00000
OS
CHECK FOR FIRST

'Ar.f

1

~EST

..••

""
""

""

',r.E
INCRE"ENT TO NEXT ELEIIENT
14392 II 13991 000J4
I NCREIIEIIT ELE"ENT COUNT
AM
MCT.I.IO.
04110
1440~ 11 01816 000-1
CALCULATE FORM COUNT
04UO.
14416 13 01112 00,0-4
MM
FORII.4.10
04130
14428 21 00099 14189
A
99,10
04140
14440 32 00096 00000
SF
96
04150
00000
14451
04160 TFILE OS
14452 26 01712,00099
FORM.99
TF
04170
IS THIS THE END OF THE NEST
TATI.UU ..
04180
C
14464 24 13991 07621
14476 46 I5n8 01100
BH
GEOMT
04190
RETURN TO CHECK NUT ELe.eNT
POSNeR,. •
04200
8
14488 49 14344 00000
14496
OORG '-3
05010
14496 14 1l99J 000-4
I S IT A NEST
TATl.4.610.
05020 POSNST CM
14508
46 14580 01200
SETDAT
05030
BE
IS IT A COMPUTE NEST 14520 14 01595 000-0
ATYPE,,10.
eM
05040
14532
46
14392 01200
103+12
BE
05050
SET ERROR NO.-103
14544 16 14579 00J03
05060 ER10) TFM MERM+II.103 •••
CALL
TYPERR
SUBPROGRAM
VIA
MONlTk
BTM MOIIITR.030.0.67.
05070
14556 11 02400 -3090
IIRITE ERROR ~E~SAGE
14~68 11 02410 00000
BTM TYPER" •• 6,
05080 MERII
14580 II 13991 000J2
TATI.U,IO
05090 SETDAT AM
TRANSMIT
CORRECT
NEST
TO
TDATA
TABLE
05100.
14592 16 14634 -J3lJ
TFM TRNEST+6. TOATA
05110
14604
21 14634 07874
A
TRNEST+6.IIT
05120
14616 12 13991 00000
TATI
SF
05130
14628
31 09999 ll99J
9'199. TATI, II
05140 TRNEST Til.
14640 lJ 13991 00000
CF
TATI
0~150
14652
11 1'1634 000-)
AM
TRNEST+6,Jol0
0'5160
14664 21 01814 1463M
UPDATE NT COUNTER
NT.TRNESh6,1 ..
A
05170
14616
16 1438. 000-1
10
•
I
FOR
A
NES
T
05180 SEnD TFM 10.1.10.
14688 12 13991 000J2
5M
TATI.12. lO
05190
14100
49
14392 00000
103+12
05200
14108
06010
OOll.G .-)
14108
14
U99J COO-l
CHECK
FOil
A
SY,MBOL
TATl.I,610.
06020 SYMOO CM
14120 41 14872 01300
BL
PRECAL
06030
INClEMENT
TO
SYMBOL
NAIIE
AM
TATI.U.IO,
06040
14732 11 1)991 OOOJ2
$AVE TOE SUBRECORD TYPE
TFL SAVE'SRTyPE ••
06OS0
14744 06 1397'1 075.1
LOOK THIS ~ORDU' III THE DICf!ONARY--IT, IIAY BE A IIODIFIER
06060.
LOAD AND CALL OIC12 SUBPROGRAM
06010_
14756 11 02400 -3040
8TM MONITR,030",O,6Y
060eo
14168 Z1 02410 13'191
.T
0ICT2.TAT1,.
06090
CHECII
TO
SEE
IF
I'
liAS
FOUND
ell
UVPI,,10.
06100
IU80 14
000-0
14792
46 14892 OUOO
CAlF
BE
06110
A IIOOIfIU IS 10 - 2 14804 16 14389 000-2
TFM fO.2.10,
06lZ0
REPLACf "OOIFIIII MITH EQuIVALENCE
TF
TAlI,SIITY'E, ••
06130.
IUI6 26 1399J 075"
14828 06 01597 13979
TFL
$AT'lPE.SAve
..
06140
141"0 11 U99& OOOJ2
,SM
"".12,&0
06"0
Sif
TY
..
'
•
)
III
ilOilO
LIST
06160
14852 16 U99J 000-)
14164 4. 1'1392 00000
06110
II
103.12
14812
06110
DORa "'J
141" 11 t3•• 1 OOOJZ
06&90 'RECAL AM
TUI,U,IO
04100

AM

TATI.14.IO,

.'

•

on,.

"" ''''',3,''0,

27

06200
8l
COO IT
I..aU 4' 14'04 00000
01010 CUP
TFL SRJYPE,UVE"
Rfsrou SUVP!
14892 01> 01591 13979
01020 coon CF
TR
14904 3) 14'15 00000
010]0 Til
1491S 00000
,"
01040
TOM CODE .. ll
1491. 15 01715 000001050.
SET
ARGUHENtS TO FILl SUBPIIOGUM
010100
TFII FLOU, TOAU
14'21 16 16345 -un
01010
TF
FlOSU5.UTI
14948 26 16no 13991
01080
CF
FLOSA+I
14952 3) 16H6 eeooo
07090 HEREl OS
14961 00000
01100
A
FLOU,NT
14964 21 16145 07874
01110
TO
T2,FLOSA
14971> 2S 1420J II>J45
07120
CM
U .. IO
14988 14 1420' 000-0
07130
BE
tlOFIU
15000 46 15072 01200
07140 UKU SII
T2,2tIO
11012 U 14201 000-2
071S0
BE
GOFILE
15.24 It. 1S112 01200
0711>0
BNL TAKE2
15036 46 15011 01300
AM
011 70 UP!
FLDSA,lolO
15048 II 16J45 000-1
on80
SF
Til
15061 32 Ilt915 00000
07190.
LOAD AND CALL FILl SUIPIIOGUII
01200 GOflLi aTII MONITR,OlUO,67
15072 17 02400 -3210
08010
IT
FILEJ,FLOSA+5,'
15084 27 02410 lU50
8Nf CHKF,TR
08020
15091> 44 lSI44 14'H5
TF
08010
HEREI,FLOU
15108 26 1~9U ln45
08040
SM
FLOSAtltlO
15120 12 16'45 000-1
08050
Til
FLOSA,HEREI,611
15132 U I6I4N 1496L
08060.
FILE MILL BAING A SV~80L' OR SVII NUMBER INTO TOATA
08070'
If IT WAS NOT FOUltD " WAS .UNDEFINED
INF UNOEF ,FOUND
080BO eHK'
IH~~ ~~ 15]08 071>21
011090
TFM OESI+6,TOATA
15156 16 15222 -un
A
08100
DESI+.,NT
15168 21 15222 0781~
08110
AM
DESI+I>",10
15180 II 15222 000-]
A
08120
NT,DESI+I>,Il,
UPDATE NT
15192 21 07874 I522K
OBI ]0
AM
OESI+I>,16,10
15204 11 15222 OOOJI>
OB140 DESI
CM
9999,,10,
IS IT A SCAUR QUANT lTV
15216 14 09.99 COO-O
08150
IH
SEfiD
15228 46 1~1>76 01100
08160
IL
ERRI
152~O ~7 I5]OB 01300
AM
08170
OESI+I>,10,I0
15252 11 15222 OOOJO
08180e
REPLACE THE NANE IN MOROL MIT" THE StAL A
08190
TFl TUI,DESI+6,611
1521>~ 01> lJ.9J 1522K
SM
08100
TATl,I2,IO
15211> 12 1]991 OOOJl
09010
rFM TATl.2,610,
SET TVPE • 2 FOR A NUM8ER
15288 16 U99J 000-2
09020
8
IDl
I~'OO 4' 14]80 00000
090]0
DORe . - ]
15308
090~0 ERIII
rFM WERM+U,IlZ,9.
15]08 16 14519 OOJU
SET UROR ND.-llZ
B7
WHM-IZ
15320 ~9 145,.. 00000
090'0
RTVPE, ,10,
0901>0 GEOM.T CM
CHECK FOR CO"PUT NUT 15]26 1~ 0"95 000-0
09070
8E
COMP
1"40 46 15428 01200
CII
RTVPE ,21t 10
09080
l'U52 " 01595 00 OK 1
15]1>~ 'IT 15391> 01200
09090
BNE SETAPE
MONITR ,OUTDU-' ,.
091 00 PUPUN IT
15J76 27 02~00 16460
09110
87
IUBI 49 02410 00000
CANOUT".
O~UO.
INDEX TO caLL SUBPROGRAM FOR VUIOUS
0'11 ]Oil
GEOIIETRV 'Y'IS
151'11> 1]0"97 ~O-ON
09HO Sna'E
SRTYPE,-".
Sli
09150
9.,CeOTo-,
15408 IZ 00099 J6280
9.,,6
15~20 49 0009R 00000
0911>0
8
15428
DORG
09170

'AGE

..

P.r.E

5

os

.,

u,

,.

""

.-1

LOAD AND CALL CCI'PUT SU8PROGRAM
lH28 Z7 02400 16340
15~40 ~9 02HO 00000
ISH8
15~"8 4J 15"1>8 011>82
15~60 ~9 15974 OCOOO
SET EIIROR NO.-I04
15~68 11> 14579 OOJO~
15480 49 14556 00000
CHECK fOR SI"PLE DEFINITION
15~88 14 01112 0-061
15500 11> 151>46 J5914
rFII VAR8+6.CAN
10010
15512 46 l55H 01200
FM6]
10080
8E
l.OAO AND CALl. PO lilT SUIPROGUM
10090.
15524 21 02~00 11>]60
MONI TR,,010SU',.6
10100
aT
15531> 49 02410 00000
81
POINT .. 6
10110
PROCUS SlIIPLE DEFINITION
10120.
155"4 16 04289 0-051
101]0 FII6]
TFII SVM81,51,I
15551> 15 0~]'6 00000
TDM SYM87+1
10140
15567 00001
10150
DC
1.' ,15568 11 0773 I DOOJ2
AM
IATl,12,lO
1011>0
15580 06 0~Jl5 01lJJ
TFL SYMBS.IATl,1l
10170
15592 11 011)1 OOOH
IATl,I4,10
AM
10180
15604 06 0~325 011JJ
TFL SVM86,IAn.1I
10190
15611> 11 071]1 OOOJ4
JATl,14,10
AM
10200
151>28 06 04"5 OlHJ
rFL SYII87,1"I,11
11010
156ltO ~9 00000 00000
81
11020 VARI
15648 14 01595 000J5
CHECK FOR nURF
UVPE,l5,IO,
CM
110]0 LIM
. 151>60 47 15104 01200
8NE LINER
11040
SUIPROGRAM
LOAD AND CALL LSURF
11050.
15672 17 02400 -lI50
UOI>O PRJECT 8 Til IION"R,OI150,67
151>84 17 02410 000-0
ITII ISURF .. 810
U010
15696 "9 15974 00000
CAN
17
11080
CHECK FOR LINE TANGENT TO TIIO CIRCLES
11090.
15704 14 07712 OK665
FOR",I68',.
11100 UNEII CII
15716 46 15748 01200
elTel
8E
11110
LOAD aND CALL LINE SUIPIIOGRAM
uuo·
15728 21 02400 lU70
111)0
8T
MONI TR,UNOS . .' , .
15l1tO 4' 014i0 00000
LINE ...
11l~0
17
Fill
•
.
,
SUBPROGRAM
LOAD AND CALL
11150.
15748 21 02400 15776
MONITR,HIDU+S,6
1111>0 ClfCZ IT
15760
02UO 00000
FM26U,,6
17
1I1l0
IS711 00005 J597.
11180 H'OSA OSA CAN
15772
0000'
OSC "OU41
11190
LOAD AND CAU 'UNE SUIPIIOGRAI!
11200.
15778 Z1 02400 "440
II0NITR,PLAOSA+',.
8T
12010'U
15790 "'I OZUO 00000
Pl.ANE,,6
12020
15798
120]0
DOR' - J
CIIECK fORIISI"U CIIICLE DEFINITION
ell
FORM,.S,',
12040 CIII
15798 14 07712 0-01>]
15810 \6 15646' J6174
12050
T'II YARB+.,TSTUD
15822 46 11544 01200
FII6)
Ie
12060
l.OAD AND CALL CIRCLE SUBPROGRAII
12070'
151]4 27 01400 161ao
MONI TR,CIRDU.',.
BT
12080
lSI46 49 02410 00000
8
U090
ClIICU ..'
1S"4
OORG - )
12100
VECJOII
SUIPROGRAII
LOAD AND CALL
lIllO.
15814 n 02400 16 no
IIONI TII,VICOs. .,,6
IZ 120 "IC SUII ar
I " " 49 024.0 0000.
VIeTOR ...
uuo
nn4
DORG - )
U140
LCIAO AIIO (ALL IIAJIIIX SUI"OGUII
12UO.

09180'
09190 COMP
09200
10010
10020
l00JO
100~0 ERIO"
10050
10060 POI

MONITR,COMOSA+',.
COMPUT,,6
DOR' --3
80
ERI04,ERR
CAN
81
TFM MERM+ll,l04,9.
WERM-12
81
CM
FORM •• :J.8.
IT
8

It'

•

•

28

12160 MAT
I.ITO
1218011190 TAB
12200
1301013020 CONIC
11010
11040.
13050 ELLiP
13060
I)OTO11010 POCK
Il090
IHOO.
IHIO CAN
UIlO
1)110
11140_
DUO OUTF IL
11160
13110
IHBO
U190·
U200
14010·
14020.
14030
14040
140'0.
14060 SETUP
14070 TREe
14080
14090
14100
14110 ERlll
14120
14110 TSTRAD
14140 £A1l6
14150
14160 TSTlRO
141 TO
14180 OIFCDO
14190
14200.
15010 RESCOM
1'020
\5010·
15040
150'0
1'060 CGOTO

aT

PM.E

MDHITR."ATDSA+S,.
"URIX .. 6

h

IHT4 n 02400 16400
I ~BB6 49 02410 00000
LOAD AND taLL lABCYL SUBPIIOGRAM
8T
"ONilR,TABDSA'S"
15894 21 02400 1"'0
81
TA8Cn, ,f>
15906 49 02410 00000
LOAD AND CALL GCeNIC SUBPROGRAM
Bf
MONI TII,CONOUo",
15914 21 02400 16410
8?
GCONIC, ,6
15qz6 49 02410 00000
LOAD AND CALL ELL IPS SUBPROGRA~
BT
MONI TR,ELLOS . ." .
159)4 21 02400 16420
n
ELUPS".
15946 49 02410 00000
LOAO AND CALL POCKET SUBPROGRAM
BT
MOHITR,POKOS'" ,6
159'4 21 02400 164)0
87
POCKET ,,6
15966 49 02410 00000
CHECK FOR A PREVIOUS EQUAL SIGN
BNF OUTF 1L+24 .NEQUAL
U9H H 16014 017))
CM
RTYPE. ,10,
CHECK '0_ A COMPUTE NEST
15986 14 01595 000-0
BE
OIFCOD
159U 46 16226 01200
LOAD AND CALL FILE SU8PROGRAM
BTM MON ITR .0 )200,67
16010 17 02400 -)200
BTM FILEZ,SY"BI.61
16022 17 02410 -4289
CM
RTYPE"IO,
CHECK FO_ CO~PUTE NEST 160H 14 on95 000-0
BE
RESCOM
\6046 46 uno 01200
CHECK FO_ PREVIOUS EOUAL SIGN
BNF SETUP. NEQUAL
16058 44 16094 011))
THE SYMBOL HAS ALREADY IlEEN STOUO IN THE CANON I.CAL FORN
TABLE ----NOli GIYE IT A NEST ADDRESS
STORAO+U,TNEST
16010 21 14119 07118
TF
SYM8,.STORAO+l\
16082 26 04301 14119
STORE SYMBOL AND DATA IN PROPU PLACE IN NEST TABLE
TF
TREe_6. STaR AD-II
1609' 26 16112 1411q
TR
999 •• SYM61-3,6
16106 )\ 0999R 04286
A
TNEST,SYMBI ..
UPOATE 'OINTER IN NEST TABLE
1611B 21 07138 0428q
C
TNEST.MAXNST
16110 24 077)8 14141
BL
RErURN,,6
16142 " 0241J 01300
SET ER_OR NO.-1l)
16154 16 1.579 OOJll
TF" WERH+ll,113,'ft
87
IIERM-12
16166 4. 14'56 00000
BNF TSTZRO,$VMB7-2 ..
BRANCH IF RADIUS IS NON-NEGATIVE
16114 44 16206 043H
SET ERROR NO.-3I6
16186 16 14579 OOL 16
TF'" WERM_II.316,9,
IIERM-12
B7
16198 49 14'56 ceooo
CAN,SYM01-'1, ,
BO
BRANCH IF RAO IUS IS NON-lERO
16206 4) 1'914 04]2'B1
ERll6
16218 4. 16186 00000
BTM MDNITR,01190.61
16226 11 02400 -1190
BTM FILEI,SYMBI,n
16238 17 02410 -4289
CDMPUT lEFT ANSWER IN SYMIS
TFL SYM82, SVMB5
162'0 06 04)01 0431'
TFM' SYM63,2.10
16262 16 0410) 000-2
RETURN TO CALL ING PROGRAM
RETURN, ,6
1621. 4'1 0241J 00000
B
OORG
16281
OSA LI N,C I R,CONIC, TAB,VECSUR, ELL I P
1628' 00005 J'648
16290 OOOO~ J5198
162.' 00005 J'914
16100 00005 J'8.4
16305 00005 J'8'4
16310 0000' J59)4

81

.-.

PAroe
DSA

15070

15080 COMOSA OSA
15090
OSC
15100 FLOSA OSA

COMP+20
,.03lU
9999. TATI

15110 POINT
15120 POIOSA
15130
15140 LINE
15150 lINDSA
15160
15170 CIIICLE
15180 ClIIOSA
15190 MATRIX
1'200
160 10 VECTOR
16020 VEtDSA
16010
16040 MATOSA
16050
16060 GtONIC
16070 COHDSA
16080
16090 ELlIPS
16100 ELLOSA
16110
16120 POCKET
16130 POKOS.
16HO
16150 PLANE
16160 PLAOSA
16110
16180 USCVL
16190 TAIDSA
16200
17010 CAHOUT
17020 OUTDSA
17030
17040·
17050 SVMBI
11060 5YI082
11010 SYMU
11080 SYIOB4
11090 SYM8'
11100 ERR

,2416
CAN
5,03251

HIlO
11120
UIlO
171100.
17150
11160
11110
17180
11190
112 00
18010
18020

UTI
IATl
FORM
TDAT A
TDATAI
TOATAI
TOATU
TOATU
TOATU
TOA TA6
TOATAl
CODE

OS
DSA
OSC
OS
OSA
OSC
DS
OSA
OS
DSC
OS
OSA
DSC
OSA
OSC
DS
OSA
OSC
OS
OSA
OSC
OS
OSA
OSC
OS
OSA
OSC
DS
OSA
OSC
OS
OSA
OSC
OS
OS
OS
OS

DS

DS

DS
DS

os
os

os

OS
0$
OS
OS
05
OS

OS

16115
16320
16325
16)30
16335
16336
16345
16150
02416
16355
16156
02416
16365
16366
02416
16315
02'16
16316
02416
16185
16386
1639'
16396
02416
16405
16406
02416
16415
16416
02416
16425
16426
02416
16435
164)6
02416
16H5

00005
00005
00005
00005
00005
00005
00005
00005
00000
00005
0000'
00000
00005
00005
00000
00005
00000
00005
00000
DODD'
00005
00005
00005
00000
00005
00005
00000
00005
00005
00000
00005
00005
00000
00005
DODO'
00000
00005
l(lo4ft6 00005
OlIO.

0~010

8E

04020
040]0
04040

AM
IAT1.I~.LO.
8
BRLOPI
DORG .-]
TOM NOP.9 ••

O~050

POIV

FUNCHK-12".

04060.
lOR ••••• 8RANCH ON
04070 IRLOPI 8NF '+32.LDP
04080
TFL
TEMP2. JVALUE ..
04090
04100
04110
04UO

a
SETOP
OORO .-3
TFL

TEMPZ.YVALUE ..

04110 SETOP
04140-

TD

LOP.NOP

aD
CM

NOTl.1 PDP
IATt,14.610.

aE
tM'

TSrSYM+36, ••

0~200

05010

BNE

NOTt-12
TSTSYM+l6".

TO

.+ll.LOP ••

0~150'

04160.
0~170
0~180
0~190

0~020

B

05010
050~0

NOTt

05050
05060
05010

DORG
BNF
TOM
AM
B

IATt.21.610.

'-3
TSTSYMU.,I PDP
IPOP.I
UTt.2.10.
TSTS'M

05080
05090'
05100 PPLUS
05110
05120
05130 PMINUS
051~0 IRLOP2
05150
05160

DORG __ 3

05110
05180
05190 IIORD
05200

8
DOR'
TO
TFL

SVLOP
-3
.+13.lDP,.
TEMP2.TVALUE ••

06010
06020
060)0

TFL
TO
8
DORG

TVALUE. TEMP2 I t
LOP.LSIG""
8RLOP2
.-)

TO
TO
80

060~0

wallo

PAGE
IS. PUNCfUATl ON

16670 It 01731 000-2
16682 I~ 0113J 000-1
UIIOR CONOITICN
16694 41 16582 01200
IIIANCM ON PUNCTUATION OF THIS NORD
1610. It 01731 000J2
TesT +
16118 14 0173J OOOJO
16130 ~6 11150 01200
16 7~Z 41 16834 01300
TEST'
16754 14 07UJ 000J4
16766 41> 16818 01200
TUT 16778 I~ 0173J COOKO
16190 46 11110 01200
TEST I
16802 I~· 0173J OOOK I
16814 46 11>958 01200
EIIROR CONDITION
1682. 49 16582 00000
16814
16814 26 16~8~ OH]J
16846 14 1648~ OOOJO
ERROR COHonlON
16"8 46 16582 01100
16870 49 17]]8 COOOO
16878
16818 15 16481 0000]
16890 16 16U~ OOOJ16902 12 07731 OOOH
CHECK FOR ASTERISK--IEXPONENTlAflOIlI
1691~ 14 0173J OOOJ4
8RANCH TO FUIoCTlONAL ROUTINES
16926 ~6 17326 01200
INCREMENT TO NEXT WORO 169)8 II 07731 000J4
16950 49 16910 00000
16958
DIVIOE--SET NEN OPERATION
16958 15 16~81 00009
LAST OPEEATION
16970 44 17002 I6HI
STORE PRESENT VALUE IN TEM'2
16982 06 1851] 1850]
1699~ 49 17026 00000
17002
SET FMUL DR FDIV
17002 25 11015 16471
ALNUS MODIFIED FOR FMUL DR FOIV
17014 06 18513 Ino}
11026 25 16~7I 16481
IPOP USED AS INCICATOR FOR FIRST
OPERATION AND ALSO CCNSECUTIVE OPERATORS
TEST ILLEGAL ALGEBRA
17038 43 11106 16470
CHECK FOR ASTERISK-- MULTIPLICATION
11050 14 0173J COOJ4
ERROR CONDITICN
17062 46 16582 01200
CHECK FOR SLASH--DlvIOE
17074 14 0713J COOK I
17086 47 11IIB 01200
ERROR CONDIT ION
17098 49 IU82 00000
11106
11106 44 16582 16~10
11118 15 16~70 COOOI
11130 II 01731 000-2
READ' NUT ~ORO
11142 4" 16546 ooono

TOM NOP.-I
aRLOP2
OORG .-3
TOM
t
BMF MORD.LOP
TO
·.11.LOP,.
TFL VALUE. TYALUE ..

B

tfOP.-z.

PAr-E
11150
• DR - ••• I.ANtH ON LAST OPERATIC"
11150 15 16481
17162 ~9 17182
11110
SU8TRACTlON-~NOP·-2
17170 15 16UI
17182 44 17226
SET FAOD DR FSU8
11194 25 17201
ALNAYS MODIFIED FOR FlDO DR FSU8
17206 06 1855]
17218 49 11282
11226
SET FMUL DR FDIV
17226 25 17219
ALNUS MOOIFIED FOR FMUL DR FOIV
1123B 06 11S13
17250 06 1850)
RESTORE TVALUE
17262 25 16411
UPDATE SIGN
1727~ 49 I Tl82
17282
SAVE LAST OPERATlCN ..... UPDATE SIO"
,.11282 25 16482
1129~ 25 L6471
TUT FOR END OF NEST I nolo ~l 18~02
17318 49 110)8
17326
FUNCTION DR •••••• PREPARE TO EXECUTE
INCREMENT TO NEXT WORD 1132. 11 07131
11))8 II 07131
CHECK THAT ARGUMENT IS A NUMBER
17350 14 07nJ
11362 41 18310
17374 II 07131
STORE THI ARGUMENT IN X
I HB6 06 18503
INDEX TO PROPER FUNCTION TYPE
17398 U 1648~
17410 12 00099
11422 4" 0009R

06050.
06060 SVLOP
06070
06080
06090
06100
06110'
06120
06130 FUNeHK
06140

a

LSIG".NOP
LOP.NOP
CPEND.IEIIO. ,
SETOP_12

AM
AM
CM

IATI.14.10.
UTt.2,10
IATI.2.610.

06150
06160
06110

8NE
AM
TFL

ERRFLG
IATt .12,10
X.IITt.tt.

061811

MM

I.FUN.5.9.

06190
06200
07010
010Z0 FTYPE

Sit

99,"18

•
99,,6
DDRG __ 4
OSA nOIll,BSIH ••COS.lAlAH, BAlS.8LNTH.ILOG

010)0

osa

OORG . - )

01040-

070,oe
.010.0

ISOII'

07010'
01010
01090
07100'
01110 GOI
07120

on.o

aNI'

I'"

I'M
ITM
ITM

EXPFUN.IUII •• U'

OOOOl
1641\
16411
18501
00000
16471
18503
18513
16482
00000
16481
16481
16469
OCOOO
OOOJ~

000-2
C00-2
01200
000J2
01nJ
00-05
J1428
00000

11~29

11413 00005 J7480
11438 00005 J7548
17~43 00005 J1592
17448 00005 J7652
11453 00005 Jl696
11458 00005 J1716
1146) 00005 J8210
11~68 00005 J8l].
17413 00005 J8Z26
l1UI 00005 JU96

EVAI.UATE FUNCTION
SQUARE ROO'
CHICII 'OR N&GATIVE ARGUIIENT
GGltx·a ..
11480 ~4
L060 ANO CALL TY,. . . SUI'ROGRAM
17492 17
MONITII.03090 ••7
1750" 1"
TY'E"",111."
I.OAD 'NO CALL SQ." SUBPIIOOUM
17516 11
MOHlTR.OZOOO."
17'28 11
SQUF •••• '
In~o ."

I ,LA"

OOOOJ
OCOOO

11516 18501
02400 ·3090
02 .. 10 -0117
02 .. 00 -2000
02~10 Ja50)
1. . 14 00000

31

Ol\~O

GOAG '-1

'0'

01\
07160 ISIN

onro

07110
07 . . 0
07200
08010.
08020 ICOS
080)0

ITM MONITII,02010,6Y
FHUL X,"I/UO.~
aTM SINF,_,61
TUST
a
DOIIG .-)
aTM MONI TR,02010,61
FHUL .1,'11110 ..

08040
I'" COSF,I,n
08050
8
TUST
08060
OORI .•-4.' .... U
NOP x,x
08070
'08080
DOIIG .-14
080.0 UNDS" OSA I'll
08100
OORG ."'3-"
08110 UUN ITM MONI TA,OIOIO,,,
08120
IT
"fANF, fANOSUIO,6
08UO
"HUL I, 180IPI"

.AGE
11548
LOAD AND CALL SIN' SUBPIIOGUII
n5~'

17 02.00 -2010

17560
17572
17S8"
17592
LOAD AND tALL COSP SU.,1I0GUM
17592
CHAIIGE ANGLE '0 UC'ANS
17604
17616
17618

03 1850) I8sn
17 02HO JUO)
. , 16614 00000

CHANGE IIIGLE

TO RADIANS

nu,

176"0
lr631
I76H
17652
17652
11664
CHANGE ANGLE '0 RADIANS

Ir 02400 -2010
03 18503 lUll
17 OIUJ JUDI
4. 16614 00000
'"

lun

00005

11 02400 -2020
27 02410 1765 I

17616 0) 18503
17688 4. 16614
17696
ABSOLUTE FUNCUCN ... CLEAII flAG
X-2
CF
17696 13 18501
I
TLAST
17708 49 16614
DOAG .-)
17716
COMPUTE LENGTH FUNCTION OF VECTOR
FHUL TOIU5,TDATn
17716 0' on62
TFL X,TOATA5
17728 06 18503
FMUL TDA fA6, TDAT A6
177~0 OJ onlZ
OqO~O
FADD x, TDAU6
17152 01 18503
09050
FHUL TDATU,TDAur
171U. OJ 03382
Oq060
FADD x, TDATAl
17176 01 1850)
09070
aSQRT
8
17188 ~9 17480
OORG --)
09080
17796
OQ090EXPONENTIAL FUNCTION •••
09100CHECK FOR FIX 011 FLOATING
TFM CT,8,I0
09110 8EXP
17196 16 17805
OQIZO cr
OS
,--2
17805 00000
09130
TFM CHKOtll, TVALUE-!
17a08 16 11831
OQ1~0 CHKO
80
CHKEXP,"99
17820 ") 1786~
09150
SM
cr,I,10
17832 U 17805
09160
SM
17a~~ U
17831
CHKO'U,I,10
09170
87
CHKO
17856 49 17820
OQl80 CHKUP C
CT,TVAlUE
17164 24 17805
09190
81
17816 ~6 IIIU
FIX
FLOAT I NG EXPONENT
,0920010010
NNOT I, TVALUE-', ,
CHECK FOil zellO EXPONENT
·80
17888 43 17920
17900 06 18503
100lO SEll
TFL .X,Fllt t
,1
87
TLAST
100JO
17912 ," 1661~
11920 ~) 1798~
ANOTZ, TEMPI-9
100~0 NNon
80
17932 44 1796~
8NF NPlUS, TVALUE-2
10050
179~~ 06 1850)
TFL X,FLE~9
10060
10070
87
rLAST
17'" ~9 166H
0 •• ,.- 0
1796~ 06 18503
looeo NPLUS TFL X,FLO ••
TLAST
17"6 49 16614
10090
87
08140
08150
081600
081ro
08110
08UO
0820009010 8LNTH
09020
09030

1850)

Jasu

TUST
8
DORG .-3

lAas

,.-0-

18H3
00000
00000
00000
on62
03362
0"72
onn
0))82
OH82
00000

000-8
JRSOI
09""
000-1
000-1
00000
1850)
OUOO
18~9~

18563

COOOO
1850~

18501
18571
00000
18SIl
COOOO

PAGE
10100 ANOH
101100
10120 fRRU6
10130
10140.
10150 CONT
10160
10170
1018010190
10200
11010 U
11020
110)0

8TM
arM

119Q6 11 02~OO - 30'0
18008 17 02~10 -0116
LOAD INO CALL LOGF SU8pRO.GRI"
18020 IJ 02~00 -2040
MONITR.OIO~O,61
18032 17 02410 J8513
LOGF,TEMPl,67
180~" OJ 11513 18503
TEMP!, rvALUE
lOAO AND CALL IX~' SUI'.OG.I ..
18056 17 02400 -2030
MONITR,020'O,67
18068 IJ 02410 J851l
EXPF,TEMp2,61
18080 06 18503 1851)
X, TEMp2
18092 15 16~1l OOOOJ
LOP,-1
18104 49 1661 ~ 00000
TLAST
F UED EX.ONENT
18112 ~~ 18148 18501
NUTI, TVALUE-2
LOAD AND 'CALl TYpERR SUIPRDGRAM
18124 IJ 01400 - 3090
MONI TII,O)090,61
11136 17 02410 -0115
TYPERII,115,.,
'UFOIIM FIXED MULTIPLY
18148 06 1850) 1850)
., TVALUE
18160 06 1859) 18513
TEMpJ. TEM.2.
18112 02 1850) 1856)
x,FLI
CHECIC IF DONE
1818" 46 18080 01200
sx
18196 OJ 1851) 1859)
TEMpI,TEMP)
18208 ~9 18172 00000
TAKEI
18219 DODD' J8262
IIAOIAN'24
18220 00005
5,02211
LOAD TANF SUBPROGIIAM
18226 n 01400 18224
HONITR,rANS"',6
tHA"GE ANGLE TO UD IANS
.,1'11110"
18218 03 1850) 185))
CALL TANF SUBPIIOGRAM
18250 11 Ol~10 J850)
TANF,X,61
18262 49 16614 00000
TLAST
CHECK FOil NEGATIVE ARGUIIENT
GOI,.-I"
18270 44 IBl06 18501
CALL AND LOAD "PEIIII SUIPIIOGRAM
18282 17 02400 -J090
HONITII,0)090,61
18294 17 02410 -0118
TypEIIR ,118,67
18306 17 02~00 -2040
HONTTII,Ol040,61
18)18 17 02~10 J850)
LOGF,.,6'
18330 49 16614 00000
TUST
LOAD AND CALL
SUBPIIOGRAM
18))8 17 02~00 -20]0
_nll,OIOJO,,,
ln50 17 02410 JUO]
EXpF,I,67
l.,u 4' 16614 00000
TLAn
18370
15 01682 OOOOJ
EIIII,-1
ln82 4' 11402 00000
CPEND
18390
0-)
18390 15 07612 00001
ERR, 1
'TOIlE COIlPUTEO VALUE IN SYIII'
SYIIIS,VALUE"
1"02 06 OU., ' " ' '
IIICOIIO LEN"H IN SV.M"
$\'1181,)1,1,
18414 16 OU19 0-0)1
1IU6 15 04116 00000
SYIII'-1
lIur 00001
10',.
IIfTUIIN TO CALLINI PIIOGB"
1... 11 46 IIno 0"00
BOUT

8TM
8tM
FMUL
8TM
8TM
TFL
TOM
87
8MF

8TM
8TM
TFL
TFL
FSUB

11140

81

11150
11160
11170 TANSII
11180
111900
11200 lTAN
lZOIO IIIOUN

FNUL
87
DSA
DSC

IZOIO·
IZO)O
12040
12050 BLDG
12060.
12070
12010
12090 GOZ
12100
12110
12120IIUO UPFUII'
12'40
121S0
12160 I!IIIIFLG
12170
1,.10
12190
12200 CpEND

UOIO
U020
13010
1l0.0o
13010

18010 18511

CONT, TE"P2-2

1I0~0.

11050 FIx
11060.
11070
11080
11090.
11100 NUH
11110
IlllO UKEl
11130.

1'98~ 4~

8NF

aT
FNUL
8rM
87
8..
8TH

8TM
8TM
8TM
87
8TM
8TM
87
TOM
8

DOl
I.
TOM
TfL
TFM
TOM

DC

BV

LOAO AND CALL T,pEIIII SUIpROGIIAM
HONI TII,O)090,61
TYPERR,116,6T

EX"

sn

•

PA~£

IlO&O

BXV

bOUT

13010
1l0S0I )090 BOUT
11100
131 10 lEND
DUO IPOP
I3UO lOP
IH40 NOP
III 50 lSIGN
13160 IFUN
1)110 TVAlUE
13160 TEMPZ
13190 •
13200
14010 0.0
14010
140)0 PI/180
14040
14050 180IPI
14060 VALUE
14010
1'080 Fli
14090
.. 100 FLE49
10\110
14120 FLO
14110 TEMP)

87

RETURN,,6

lltl""O-

1<150
14160
14170
14180
14190
1<200
1'010
15020
150)0
150'0
15050
15060
15010
15080
150QO
15100
I~IIO

15120
1'1)0
I ~I 40
15150
l' 160
"110
15180
15190

IAr2
IATI
SVM81
SVMB5
TOATA
rOATAI
TOATA2
TOATA)
TOATA4
TOATA5
TOATA6
TOATU
ERR
INIT
SQRTF
EXPF
ATANF
COSF
SINF
lOGF
UNF
TVPERR
MONITR
RETURN

IQ'~O

18462
LOAD AND CALL npUR SUBPROGRAM
BTl'!
MONITR,O]OIJO.6f
18HO
erN fYPERR,1l2,.,
18482
as I,COMPUH7
16'69
I,COMPUTt8
OS
16HO
os I,COMPUT>9
16HI
OS
I,COMPUhl9
16481
I,COMPUh20
OS
Ih82
oS 2,tOM'UhU
164"
10
OS
1850)
OS
10
lUll
OS
10, TVAlUE
18503
8,0
DC
18521
2,-99
DC
18523
DC
8,1"53292
1851\
2,-1
DC
18533
8,51Z95119
DC
18541
DC
2,2
18543
OS
10
18553
8,10000000
DC
\8561
2,1
DC
18563
DC
8,10000000
\851\
2,,.9
DC
18513
8,0
DC
18581
DC
2.-99
1858}
os 10
18593
COMMON NITti MAINLINE
os ,01621
01621
,01131
011)\
OS
04289
os .01t289
os ,04315
04315
03B}
os ,OB)3
OB}6
os ,Olll6
Oll48
os ,0)348
0}350
os ,Oll50
03)52
os ,Oll~2
03362
os ,OB62
03312
os ,03372
,OB82
OS
OH82
07682
os ,01682
01916
os ,07916
,2416
02416
OS
OS
,2416
02416
02416
os ,2416
os ,2421
02421
02416
os ,2416
02416
OS
,2416
OS
,2416
02416
02416
os ,2.16
,2406
02406
OS
02411
os ,2411
16462
OEND COMPUT

46 18HO 01500
~9 OHIJ 00000
11 OHOO -)090
11 02,10 -0122
00001
00001
00001 .
00001
00001
00002
00010
00010
00010
00008
00002
00008
00002
00008
00002
00010
00008
00002
00008
00002
00008
00002
00010
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

PACE
SVM80l TABLE
IVP III 16118
'[)A

""6

.nURN
N[S 1£0
F IlOS'
8ROAK
CS

0leT2
FLU

IATi
I'll ST2
NR T6

oun

SVMB'
TEMPI
TRl\

on72

02411
1\180
15924
11262
16102
01416
07610
011)1
17318
16654
11238
04305
174)1
158'0

TVPERR
TOATAS
POSTPA
HONITR
FEEDER
8120
'69
ERI21
FOUNO
INOEX
"HOOio
NSRF
PRAMT
SYMB5
reMP2
UNOEF

02416
0))62
14696
02406
17022
16538
16390
172910
07628
17H6
15120
03351
15144
OHI5
17441
17318

TE~PAD

15075

TDATAl,. OH52

OUTPUT
lCTAPE
ERRI20
ClFlG
C71
FilE
FRGO
INIT
NAT2
NSRT
RTYPE
TOAT
TENEQ
2AOO

OZ416
01100
16H8
150'0
16""'6
02416
16962
07976
07666
03349
01595
16026
15212
15136

TOATA8
SRTVPE
NUMBER
FUERO
ACOIO
COOE
C76
FllEl
GOOF
INSRT
NPW
OUTER
SETO
TOATA
TRAN

on92
07597
156B8
17406
15168
07115
16502
02.16
16202
15021
07622
15248
15668
033]3
15028

TOlTA7
SETOAT
r;OMORE
F Il rER
AlOAT
COUT
OICT
HONE
tlAlFI
"INOR
NRT
OUT2
SVMBI
TE"PO
TRYl

0))82
16618
11270
15930
16782
16094
02416
17396
17421
15524
OH45
11\90
04289
17411
14956

18" 1620-1311 AD-APT •••••••
01010'
01020INTRAN SUBPROGRAM POSTPA
010)0liNKAGE IS
BT MONITR,OSAl8l+5
01040B
POSTP'
01050'
UTI IS SET TO MAJOR NORD TO lEFT OF SLASH OR
01060POSSI8lY TO MAJOR MODIFIER WORD
01010NA T2 tlAS ADDRESS OS UST 101 NOR ELEMENT
01080'
0109014690
OORO 14690
01100
146" 00005
5,0
DC
01110
COUNT
CtlARACT£R
INITIALIZE
01120 POSTPA TFM HPW.,.,
14696 16 01622
INlTlAlNITUlIZE SURFACE TYPE
TFM NSRF .. 10,
01130
14108 16 0}351
INITIALIZE RECORD TYPE 1.120 \6 03345
TFM NltT •• 8.
01140
INITIALIZE SUIRECORO TYPE
TFM Nsu .. a,
01150
14132 16 0J)~9
INCREIIENT TO FIRST PARAMETER WORD
All
IAT! ,16tiO,
01160
14144 11 07131
14156 I' 01595
CHECK FOR TOLER
RTYPE,6,IO,
CM
01170
14768 47 14956
BHE TRVZ
01180
14780 14 07n?
SR TYPE ,2,10
eM
01190
14192 '" 14956
BNE TRY2
01200
SET CHARACTER COUNT TO 10
TFM NPW,10,.,
02010
14804 16 07622
1"816 IS 0331>3
TOM TOAUSH
02020
00001
1.827
020)0
DC
14821 16 on"
SET RECORD TYPE TO 6
TFII NRT.6 •• ,
02040
sueaECORO
",pe
TO
SET
TFII NSU ,4,.,
02050
14hO 16 03349
1.852 14 011JJ
IATl,Z,610
CII
02060
1486' 41 16178
aNE TYPilL
02070
14876
11 011)1
.10
UTI,n,lO
02080
SYORE THE TOLERANCE IN lOAlA5
TFL TOAUS.IUI,n.
02090
14181 06 0])62
14900 OJ on62
INTQl-TDU"/Z
FNUL 'DATU ,HALF I ..
02100
LOAD AND (ALL OUTPUT SUIPIIOOUII
02110OUTPUT I"TOL RlCOIlO
OlUO·

1.·.·

"

0-000
000-0
0-000
0-000
000J6
000-6
01200
000-2
01200
0-010
00000
0-006
0-004
000-2
01Z00
OOOJ2

onu
\142l

8TM

PAGE

I NSRf
01060 fRAN

os
ff

MONITR,OlUO.6?
1~'12 If 02400
OUTPUT ,TOAU5-•• 61
14914 11 02410
NSIIT.5,.,
SET SU8RECDRD Type TO ,
14916 16 0334.
OUT2
1"48 . . 11190
CHECK FOR TUCU'
IITYPE ,2,10
1495614 on9'
TRAN
1~968 41 15021
NSR T-2 ,10.10
'4980 16 0)147
SRTYPE.n.IO
14'92 14 07597
TRAN
uoo~ 41 15021
'UG AT LeUPE ••• loReLEI! "UST If CALLED
lCTAPE
15016 U 01701
15027 00000
STDIIE fHE RECOIID
IN OUTPUT ARea
NU.II "'PI"

03070 CVLG
03080

CP
"

NIIT-I
NSU,SIITYPE ..

ar ..
TFM

02160
02110.
02180 un
02190
02200
01010
03020
030300
030~O

010~O

CM
BNE
fFM
CM
8"1!
Sf

,"

,.

npe

0-00'1
00000
000-2
01200
OOOJO
OOOL.
01200
00000

15028 26 on45 on95
1;040

STORE THe SUI.ICORD TY"

I

-3130

-U51

n

on4. 00000

15052 26 03349
03090
CF
NSRT-I
15064 33 OU.8
Oll 00 TEM"O OS
15015 00000
01110
.
TFM NSRF .. l0.
INITIALIZE THE SURFACE TYPF
15076 16 0)151
03120
MN
INDEK 'HE CORRECT .RANCH •• ON RTYPE
15088 U' 0T595
03110
Sill
99.INOU
15100 12 00099
031~0
8
.9 .. 6
15112 4' 0009.
DaKG 0-)
01l~0
.
15120
O1l60.
RECORD TYPE 4---- ~AJOR 1'00lFIER
n 1170 ....004 ell
SRTYPE,10,10.
CHECK FOR CUT STITEMENT
15120 I~ 01591
TENEQ
03180
BE
15132 46 15212
8L
03190
OUTU
15144 41 H248
03200
CM
SRTYPE.Z1.IO.
CHECK FOR END STATEMENr
15156 14 0T591
0~010
8L
TENEQ
15168 41 15212
0~020.
ENO,STOP,OPSTOP OR RAPID
0~030
TFM NRT.2,8.
SET RECORD TYPE TO 2
15180 16 03345
0~040
SM
NSAt ,20.8
15192 12 OU"
040~0
8
OUTER
15204 . , 15248
04060
DORG 0-3
15212
04010'
CUT OR DNTCUT STATEMENT
04080 TENEQ $M
NSU,10,.
U212 12 03349
0~090
TFM NRT.6,.,
5n RECORD TYPE TC 6 15224 16 OB45
04100
SF
LeTAP!
15236 32 0 n08
04110'
LOAD AND CALL OUTPUT 5U8PROGUN
04120 OUTEII erlll IIONI1R,03130,67
15248 11 02400
04130
8 Till OUfl>UhTOATA5-•• 67
15260 11 02410
04140.
TEST IF OS DR CS TO BE OUTPUT
04\50
TFM NRT.l,.
15212 16 031H
04160
TFM
HSRT ,2,.
1'1284 16 On49
a4nO
CM
RfYPE,7.10.
CHECK FOR GO OR OFFSET STATEMENT
15296 14 07595
04180
BL
8RlAK
15308 47 11262
04190
BE
COOF
15320 46 16202
0~200
Sf
LCTAPE ...
AIIELEII ..UST BE CAllED 15332 J2 on08
LOOK UP AND STORE ALL PARAMETERS
0~010'
0~020 PRA.. T
C
CHECK FOR END OF STATEMENT
IATI.NAT2 ..
1534. 24 011H
I5n6 46 167U
0~030
8H
ALon

07591
COOOO
000-0
OO-ON
J1346
00000

OCOJO
01100
01300
OOOKI
01300
0-002
0-020
00000
0-010
0-006
00000
-3130
-3353
0-003
0-002
000-7
01300
01200
COOOO
01666
01100

PAGE
ADO 10 TO CHARACTeR COUNT
15368 11 07622 0-010
DnER~INE TYPE OF EU'ENT
05050'
SYMBOL-I NUMIER-'
'OOIF IER-3
0506015380 14 011lJ COO-2
0~010
CM
IATl,2,610
15392 46 15688 01200
05080
NUMBER
8E
15404 46 15780 01100
0~090
8H
NESTED
SYM80L ••• PREPAR! TO DO UBLE lOOKUP
O~IOO.
15~ 16 11 07731 000J2
05110
Alii
IATl,12.IO
LOAD AND CALL OICTZ SUBPROGRAM
0~120'
15428 17 02400 -3040
05130
alM IIONI1R,03040.67
.
U440 21 02410 07731
05140
8T
DICT2.IAn.6
liAS THE liaRD FOUND IN THE DICTIONARY
05150
CII
RfYPE .. IO,
1~4~2 14 D7~9~ COO-O
NOT IN OICT •••••••• LOOK IN CANON TA8LE
FILTER .. ,
05160
8E
15464 " 15930 01200
SET UP ADDRESS IN TDATA STACK
05170
"I! IIIINOR+6.TOlTA4,.
1 ~416 16 uno -3]52
I NCIIEMENT TO NElIT AVA ILABLE BLOCK
MINDU6.NPII, •
A
0~180
15U8 Zl 15'130 01622
TFL IIINOR+6.FUEIIO.6. CUAR THE BLOCII TO ZEIIO
0'1'0
15500 06 1553- 17406
15512 II 15~30 OOG-'
IIINOR+6.8.10
OUOO
5M
STORE THE 1I0RD EQUIVALENCE
. . . . ,SRTYPE ..
06010 .. INOII TF
15524 26 09999 07597
15536 11 15'10 OC0-8
AM
MINOIlo6.8.10
06020
sn EXPONENT TO 10'"
15548 16 1553- 000-5
TFM IIINOR'6,5,610.
06030
CHECK FOR MACHINE CONTROL TYPE
CM
RTYPE,20.10.
06040
15560 14 07595 OOOKO
15572 47 15668 01200
06050
8NE SETO
SET UP .. ACHINE TYPE PAUMETER
06060.
15584 12 15530 000-6
SII
MINOR+6 •• ,10
06010
15596 26 17411 15530
TF
TEMPO.MINOR+.
06080
15608 12 17411 000-'
Sill
fEMPO.2.10
06090
15620 26 1553- 1741J
TF
MINOR+.,TEMPO.6U
06100
15632 16 l741J OOOJO
TFM TEMPO.10.610
06110
15644 12 15530 000-1
5M
MINOR ••• 1010
06120
15656 n 1553- 00000
CF
MINOR+6 .. 6
06130
15668 06 01591 01610
TFL SRTYPE.FLll
06140 SETa
15680 4' un6 00000
06150
B
lAOD
15688
DOAG 0-)
06160
NUM8ER ••• INCREMENT TO IIIGTMOST POSITION
06170.
15688 11 011)1 000J2
0~180 NUIISEI All
l"n.12.IO
INITIAL IlE TO TDATA SUCK
061'0
T'I! "30.TDAU4 ..
InDo 16 uno -3352
I NCRE .. EN' to NUT IVA IU8LE BlOCK
06200
A
15112 21 15110 07622
STOlE THI NUMlel III THAT 8LOCK
01010
"L . .99.IAfl.ll.
15124 06 0 •• 99 0113J
INCREMNT TO NUT PAUNUER
All
JAn.l,IO,
01020 UOO
15?)6 11 01731 000-2
CNECK FOR DRIVING SURFACE RECORO
CII
01030
.
1,.,.8 14 on45 0-00)
15160 46 160•• 01280
8e COUT ..
07040
lUNCH
TO
OIlAIN
IIEIT
'ARAMElEI
8
070'0
'1IA"1 .. ~
1.112 •• 1.,.4 00000
1".0
DOIIG ....
01060
NUT
010700
15f10 II 011U OOOJ2
IATl.12.IO
07010 NUnO AM
STORe THE NIS' ADDRESS IN TEM~'O
TeIlPAO.IUltlh
070.0
Tf
05040 ADDIO

AM

.+18."'1".

34

1~7q2 26 15015 017lJ
I ~eo~ II 15015 OOOKO
IHITlAUlf TDATA SUCK 1581. U 15 . . 6 -33H
INCREMENT TO NEXT avAILABLE lOCATION
15828 21 15e~, 01611
071]0 TAli
9n.,
TEMPAD,II.
TR
STOftE THE PAUMETUS I" THE TOUA SUCK
1~8~O 11 09999 1501N
01l~O
SM
TEMPAO,ll,lO
15852 12 1501~ OOOJ1
A
07150
IIPW, TE"'&O.lI,
UPDATE THE N'W F I no
158'4 21 01611 150111
01160
SM
NPW.Jl,10
1587. 12 01622 OOOll
AM
TEMPAD,I6.IO
01110
15888 II 15015 OOOJ6
TF
07180
NS~F.TE""D,II.
SET THE SU~FACE TYPE
1"00 26 0))51 1507"
07190
I
2ADO
15912 '9 15716 00000
07200
OO~G
IH20
08010 FILOU OSA SY"'BI-J.""
1591. 00005 -~lU
15929 00005 -9999
SYMBOL •• LOOK IN CANON TULE
08020'
080}0 FILTER TF
FILDSA'5.IATI
1'930 26 15929 07nl
l,q~2 )) 15tH 00000
08D~0
CF
FILDS"I
LOAO AND CAn THe F IL El SU8PROGUM
0"05008060
159H 17 OHOD -3210
8T" "ONI U.0l210.67
08010
8T
FllEl.FllDSU5.6
15966 11 02410 15929
08080
INF U~DEF ,FOU,.O,.
NO FLAG INDlcnES AN UNDEFINED SY"8DL
15978 44 I nIB 07628
080QO
TF
NSRF.SYMIlt"
SET THE SURFACE TYPE
15990 26 Oll51 OHO~
CM
NSRF .. 10
08100
16002 14 Oll" COO-O
08110
8L
1601~ 47 11262 01100
8R8"
INITIALIZE TO TOUA STACK
08120 TOAT
TF" .+)0.TO".4-9"
16026 16 1605. -31H
INCREMENT TO NEU OPEN BLOCK
08110
.ti8tHP .. "
160)8 21 1.056 01612
TR
08140
99~9.SY"81)-9.,
STORE THE PAU"EYERS IN THE TOAU SUCK
16050 )1 09'" 0~106
NPW,$YMB1 ..
UPDATE THE CHAUCTER COUNT
08150
16062 21 07622 04289
16074 11 01.22 OOOL I
SM
NPW.H,IO
08160
08110
2AOO
160U ~Q 151]6 00000
8
.-3
1609~
08180
OORG
CM
1.09~ 14 on" oeO-4
08190 COUT
NSRF.~.IO.CHECK VALID SURFAce
8H
16106 ~6 16178 01100
08200
TY" LL
16118 17 02400 -11 30
OQOlo
BTM MO.;I TR .0)1)0.67
BTM OUTPUT. TOATA'-',67
16130 11 02410 -31H
09020
CHECK FOR ENO OF STAtEMENT
090]0
C
14T1.N.'2 ..
161~2 24 01131 07.66
16154 ~6 17262 01100
8H
8RBU
090~0
47 16202 01200
161U
BOlE GOOF
09050
LOAD AND CALL TY'ERA SUIPROGRAM
OQ06009010 TYPiLL 8TM MONITR.01090,67
1611' 11 02400 -)090
oTM TYPEU,Ul,61
09080
16"0 17 01410 -OUI
09090_
GO O~ OFFSET SUTE_ENT
SE' THE SUIREeORO TYPE TO )
D9100 GOO,
T'II NSAT.:t •• ,
16202 16 0))~9 0-00)
ARELfM MUST aE CALLEO 1621~ 12 0710. COOOO
SF
LeT.PEt.,
09110
SET THE CHAUCTER COUNT TO reN
TFM H'W,lO,.,
09120
16226 16 076ll 0-010
CHECK TYPE OF NEXT ELEMENT
091 )0
eM
IATI.2,610.
\6238 I' 0113J COO-'
16250 46 16118 01100
TYPILL
091~0
BE
1616' 46 15110 01100
IH
NESTED
0"150
SYMBOL ••• LeQK UP IN DICTIOllAn
0"160-

07100
07110
07120

AM
TFII
A

~."f

fEM'AD,lO.IO
iR11+6,lDATU-9 ..
'-')1+6,N'W, •

.-)

PAGE
16214 11 onu 000~1
LOAD ANO CALL 0lCT2 SUBPROGRAM
16286 11 0'600 -)0'0
BTM MO .. I TR .03060.61
162.,8 21 OZ~ID 07131
8T
0IeTZ,IATI.6
IF NOT FOUNO lOOK IN CANON TA8LE
CM
.. Ty"e.,IO.
16310 14 01"5 000-0
16}21 66 159]0 01100
FILTER
10020
8E
SRTYPE ,21,10,
CHECII 'OR TA"'TO MODIFIER
100)0
CM
14 01591 OOOK?
In'6 U 16178 01100
Bl
TYPILL
100~0
16358
U
1619001100
8H
C69
10050
16310 16 15027 0-006
SAVE 6 IN INUT
TFM JNS~T.6.'.
10060
16312 49 16538 COOoo
a
8720
10010
16390
OORG 0-]
10010
CHECII FOR TO MODIFIER 16390 16 07597 00009
SltTYPE •••• 1O.
10090 C69
C"
16402 47 1617. 01300
Il
TYPiLL
10100
1641. 46 16446 01100
8M
C7I
10110
16426 16 150270-001
SAVe) I'" INSaT
10120
TF" I .. SAT,) •••
nna 69 IU3a COOOO
8
1720
10130
16446
OllRC - J
10140
160n97 000't
16466
0'"
..
OOIFUI
CHECII
FOR
SRTYPE,ll.IO,
lono cn
C"
16458 6' 1617. 01100
TYI'ILL
ilL
lOUD
16470 46 16502 01100
8H
C76
10170
16411 16 15017 0-005
TFM IHSIT ,5,.,
101a0
$AVE 5 '''' INSIIT
16494 6. 16538 00000
D7l0
8
10190
16502
OOIIG - 1
10lOO
CHECII ,Da PAST MODIFIER
SRTYPE.76,ID,
CM
11010 C76
16502 16 07597 000P6
16516 H 16178 01100
liNE TYPILL
11020
16526 16 15027 o-OO~
SAVE 4 IN I"'SRT
TFII INSRT •••••
110)0
INCREMENT TO NUT PAIlAMEYeR
All
IAn.2,10.
11040 8120
16538 11 07731 000-2
16550 14 077l~ 000-2
CHfCII fUMEIIT TYPE
IATl,2,610.
CII
11050
16562 41 1"02 OUOO
ilL
CS
11060
16574 46 16611 01200
SElDAT
8E
11070
FOR
NEST
TYpe
1'''6 .4 077lJ 000-.
I"Jl,4 •• 10,
CME'"
11080
1659. 47 16178 DilDO
SHE TYPILL
11090
16610 49 1670Z 00000
CS
81
11100
INtRfllENT TO p'RAllfnR IIORO
IAn,Il,IO.
11110 SETDAT AM
16618 11 07731 000J2
STORe PAUlinE. WORD I'" TDATA5
TFL TDATU,IATI,ll,
UIZO
16630 06 03362 01n~
16662 11 07731 000J6
Sill' PAST INTOF
IATI,16,10,
AM
III }O
1665.
16 0])45 0-006
SfT
AT"E
TO
6
.r,
•.••
TFII
IlUO NIT6
sn SuaPACf TYPE Ta ZERO
TfM NSII' .. lO,
11150
16466 16 onn 000-0
LOAD ANG CALL OUTPUT SU8'RDeIlAM
111601667a 11 02400 -JUO
8TH _ITI,O)UO,67
11110
16. .0 n 02410 - u n
aTN OUTPUT ,'OATA!t-9.61
11110
CHeCK Sua'AC' IECORO
11190e
SeT RfCORO TVPE '0 )
1610' 160n6' 0-00)
TFII
lUOO C;S
RUTOAI 'III SU'.ICORD TV"
nolO
'f NSIT,lldR'"
1"'1~ 26 0))49 15021
Clllca IIlIIt IUIIIII' TYPE
CII
I"T1o".IO.
110'0
16U6 14 071JJ OOo-Z
167" ~. 16111 01200
TYPIll
120]0
.E
16150 U 15710 01100
",UTtO
8H
120"0
IVII80L ••• lDOl 11 UP III e a _ TA8U
uoso.
1"61 II onJl OOD~Z
IATl,U,IO
120.0
16714 49 15910 00000
PlUeR
11010

09\ 10
0918009190
0'>200
10010

AM

~

IAn.Il,IO

16".

'M

... '.I.a.

....

"

35

110800
11090 AlOAT
11100
12110
IlllO
11110

CN
BE
Il

CN

IL

1l1~0

8H

IlUO
12160
11170·
1l1l0

CN
lHE
""

"N

IlI'O

12200

C"

UOIO
11020

.HE

8D

110100

""

1l0~O fARUO
aT ..
13050
130600
CN
11070 "'GO

11080
1)090
111000
11110
1l1l0
III lao
I JI~O 'IEDEA

BE
1M

1l1S0

rFN

11160

TFN

IlIl0
111800
13190
13200
14010

TFL
TFL
TFL

140200
140)0

aT"

IT"

BT"
TF

TF"

BTM

1~040

14050

T' ..

U060

T;

14010
140800
140'0
UIOO
14110 0
IloilO OllU
141 lO
14140
14150

TF"

TFL
TFL

CM
aHE

eM

BNI

FAGO
OUTZ
NSUtll,1

oun

IRe AM

IOU, •• '
"PILL
NSU.I, ••

ALL 'HE OAT. HIS Iffll ACCU.Ul'TfO
CHECK FOI , IECORO T"E )
16112 14
161 •• 46
16806 . ,
1611. J4
16nl/."
l684' ~.

I"". I.

'AA' IURfACt

" ... U

I'Slfl

SIT SUIUCO.. " . , nI I

on..,

0-_
16•• 2 01~0
11190 01JOO
0))4' 0-011
11"0 .~O
1"'2 06100
onu 0..<00_
161" OllOO

",U' '6

onu 0-001
SIT RICORO '''E TO'
16f98 " OU.S 0-00)
CHECK Faa 'LI"t .U.'~f
.
.
IUO' U .nll 000-.
"
16914 4. , .... 01210
'UIIO
Oun,TDUn-t"
CHECK 'OR IEAO C COC"ltIEH'
I n " 4) " " 0 olin
LOID IHD CALL T"UI S-.'''OGUII
HOIIIU,0)090,n
16918 11 02400 -)0.0
T'PE.R,12D,61
16950 11 02410 -OliO
filOlO, GOTO,GOOl TA, IMDI ",.IIIOI.V
N'N,IO •••
CHECK FO" '''O'EII HUIlAEA Of 'I'I"ETEAOS
16U2 14 016U 0-0)0
16974 46 'I n.o 01200
Dun
FUOEII
16 ••• 4' 17021 01100
LOAD IND CILL THE 'YPlA. SUB'.OG....
16998 11 02400 -10'0
"ONI fll,O)O'O,61
TYPERR,UO.61
11010 L1 OHIO -0110
Oll'''UT FHOUTE IEflllE GI
'NSAT,NIU e,
SIVE THE SUI.ICORO
'HSRT
17022 26 15011 0))49
SET THE RECOle TYPE TO I
1101~ 16 II))'" 0-002
HSIT,I009,1,
HSAT-1009
170U " OH49 OJOO'
HPN,IO,I,
ONE PARAIIETER 1t0AO
110n "'. OT622 0-010
SIVE THE FlaST TNO 'AAA"'T£R'
11010 06 11411 03)62
TEMPI. 'O.T.,
\1011 O. 17441 onu
TEMP2.TO" ••
'UT THt FEEOUTE III TMI FlAST nOCl(
TD.TU,TOUII"
110.4 06 onu 0))92
LOAD 1100 'ILL TME OUT'UT S~'P.'GRlIO
IIDNI TA,O)UO,61
11106 11 OZ~OO -lllO
11111 11 8Z410 -1)~)
OUTPUT.TOA'As-t,.'
HU,S,I.
SfT THE . . COAD "',. ItlllL TO t
n 110 .. 0))4' a-Oaf
NSRT, INSRT ..
RESTOAE THE SII.ReCo.o T'~I
1714Z 26 0114. 15027
THRfE PARiMETlA 1I0tiDS \1.,. It OUll 0-030
RUTORE tHE FlUT TtIC! """UiRS
11166 o. onu 11411
TOI"S,TE""
11111 06 0))71 1'441
TDIU6,TE"PZ
LeiO AND CILl THE OUTPUT SUIPAOGAI.
111QO 14 01149 OJOlI
NSRT,10n ••
I1Z0Z 4T I7ll.1 OUOO
OUT)
11214
14 on51 COO-'
NSR,.',IO
IAIIiCH If fUMfllT IS IIOT I ""All
NO'MORE •••
IUU 4' U270 OUOO

HRT,,,.,
IIUf,',IO.

""I '0'N

PI\GE

14160 Dun
14110
14180 IRBAl(

8TM

aT.
8

DORI 0-)
14190
TOATAs-•• n,10
14200 NONOIIE CM
IE
1~010
our)".
n0200

UUI 17 02400 -JUO
17258 11 OZ410
CALL'~G 'ROGUII
OZ41J coooa
nzu
11210
UUO 14 nU4 OCONl
IAIIICN I' T. .CUTlIIOIIORf
n28246 I In. 01200

MONITR,OJUO,6T
OUTPUT,TOATAS-•• 6'
REfURIi TO
RETURII,,6.

-u"

••

CAll T"EAa SUI'ROGR'" VIA IIONITR
11294 11 01400 -l090
W.'fE fa.OR "ESSAIE ••• EIIT
17106 11 01.10 OOJll
LOAD 1100 CllL TNE T"fAIl SUIPROGRI..
ISO SOUIoDfFINEO S''''OL
1S060IT. ,MONITa,010'IQ,61
1'111 11 02400 -JO'O
1~10 UNOf'
,T. T'''EIIII,111.61
l1J]0 17 02410 -0111
UOIO
lSO'IO INDU OSA NISTl, . . . .".'. .N', .. ISn ••NQD4,'A... T.'.... ',OUfU,OUTf.
11)46 00005 J1J1.
'1151 00005 Jll62
17156 00005 J'144
17)61 00005 Jl111
11166 00005 J5I20
'1111 00005 J'l.4
11116 00005 JSJ44
1 nil 00005 J5241
l1JI. 00005 JS2.1
1,10000000
ISIOO
at
" " . ~?:lG8
In
•• OOOOZ
\Suo FlONE at 2,1
17404 0000'
1.0
lSllO
DC
11406
00001
I,D
15110 FUfRO at
11411 00005
1'1.0 TEMPO os
11.1'
0000.
1,50000000
Inso
at
nUl 00002
2,00
ISl60 HAlFl DC
(0"11011 IRU
IIIIIILIIII
Inl01201016 00000
15110 Fan os
,24'6
12416 00000
l'U90 OUTPUT os
OZ416 00000
1S200 TYPER. OS
.2010"
OZU. 00000
,2416
16010 FILE
os
0'416 00000
,2416
16010 OICT
OS
02406 00000
.2406
160)0 .01l1TA as
024U 00000
.14U
160"0 IIfTllAlI os
o))n
00000
.OU))
16050 TO'" os
on4' 00000
160.0 IOU
OS
.on4'
0))4' 00000
'6070 Nsn
os .0))....
OUSI 00000
.0nSl
16010 IISIIF
OS
1",9500000
.015.,
16090 A""f os
on..,
00000
,01591
16100 511"" os
InOl 00000
.0770.
16110 .." . " DS
17UI
00000
I.IZO I.n os .onll
0"66 00000
.016••
16111 IIAU ·os
01'"
00000
,016Z'
16160 'OUIID DS
04,.900000
.04219
16150 n ..l l os
04JO'
00000
"160 nllM os ,04:10'
04n" 00000
.0411'
'61" SYIIB' OS
on.,
00_
16110 COOl os .0771'
01622 00000
II'"
os .07622
0
"
"
00000
16'00 IIIIT
os
00""
0'''0 00000
11010 Flll
Os
.016"
on" I10OOO
non lOAfA9 01
I~Q)O

IS040

ERUI

IfN

MONITA,0]090,61.

IfN

'''EII.,IZI,'',

,

II"..

,2."

,Al"

.0""

170)0
17040
17050
11060
17070
17000
17090
I nOD

TOATU OS
tOATl. OS
TOl"7 OS
tOlTU OS
TEMP I OS
TEM'Z OS
111$12 OS
Dleu
ilLIG
OEND

os

'AG'

oliu

.0))6Z

00000
OlHZ 00000
OHU 00000
0))91 00000
11411 00010
11441 00010
I HII 00000
OZ4U 00000
14'"

,oHn
.ouu
.0))"

10
10
,UNDE'

.1416
'OST,.

•

UGE
SVI<8 0 L TABLe
TESTIO 0051211
'UTSEC 0069211
ourpuT 0000611
BAKU ODS 1111
INIT 07976
NSEC 0))21
0))41
RHO
TOATA 0))))
IIIIEX 0041611

02411>
OOU211
0069711
0))99
0060911
"u 03H5
ReCNO 07640
SSND 0))37
TSEeT OOU'II

TY'eRIt
snour
'urCDR
ENosec
eXNES

01010.
01020.
OIOlO.
01040.
01050010.0_
01010-

oloeo.

01090.
01100
01110 OUTI'Ur
01120 TFLIt
011 )0
01140
01150
01160

TOUAS
'UTOS.
OUTeON
CAlU
Nfl II
IISIt'
ItTYPE
TfLII

onu
0068911
DO.,."
09192

0))2'

0)151
075.5
0001511

SUY'E
,urcoll
MONIU
CHKI4
NO
h5RT
SEONO
TMARK

01597
0067611
02406
004501t
02461
0))49
07656
oonoll

SHUC
'urODA
INOAH
DIGIT
NPW
purlT
SEfG
nEe

00282R
00684A
07409
08007
07622
00H8R
00306.
00n61t

JI" 1620-UlI· .D-AP' •••••••
I NfRAN SUIPROGII.M OIiTPUT
fill S SUIPROGIIAM OU'PUTS ONE IIECOIIO IN '0-.'" Fnll"AT
LINK.GE IS
ITM MONI'II,NNNNO
ITM OUTpU'.TDAT&~-9
TIIU",'" IS THE .OOResS OF T14f FIRST
110110 OF 'HE IIECOIIO TO 8E OUTPUT
DC
SF
OS
Til
TOM
DC
rF

6,1)
NPII-2

,--z

'" TOOUI ,OU'CO........ 1111 TI 'L UI OUT'U' CD'
NSllfOl

I.·.·

00005
00006
00015
000 II
000)0
00041

00006
32 01620 00000
00000
LJ 00615 00662
15 0))52 00000
00001

SETU' OUrl'UT SEQUENCE NO.
00042 2' 0)137
SErup
OUTPUT ReCQRD NUMBER
TF
011 70
00054 26 on41
INITIAL liE SECTOII COUNT
TFM
01110
0006' I ' 01327
SlOllE ItO. fLOATlNe; 'OIN' IIDROS
011.0
'F
ooon 26 03129
00090 n 07620
........
z
CF
01200
0010l U 00015
TFLII,Nflll
TF
02010
TU r FOil MOllE THAN ONE Sfe TOIl
SM
fFLII,7.10.
02020
00114 J2 OOOLS
00126 106 00~32
8H
TESTIO
020)0
snu' StCTOII COUNT IN ~Ol
PUrsIC,NSEC ..
02040 fSECf Tf
OOU' .6 00692
00150 L1 00,91
PUTSIC-I
Cf
02050
OOIU '/i 006'1
AM
'UTSEe.I,.
01060
eHICR '01 'AII'NO lIeCOIIO
CM
NSRT.IIM!h"
02010
00114 14 0)349
001.' . , 005"
rue
liE
020ao
CHICR fDA INSERT IIECOIIO
NSIIT.IIM••••
eM
02090
001 ••
0))49
·00110 "' oona
Tue
02100
IE
CHECR
'011
ItO
f~OAl'ING
POIN'
1101105
01110 SETour CM
00222 14 07622
oon4 M' 00,.2
II
SUSfe
02110
CAl.CUUff 1'05"ION OF 'UIIINA"'" IIECOIIO IIH.
02UO001 . . liD 00276
TF
TM&RIl. . . OU,I'U,-&
0<1140
oon. . . oona
01150
"
TMA. . . . . N'II
Sff
ucoao
MU.
011"")'
Dono ISO. . . .
071'0 ,,, .... 'OM . . . .
SSNo,seONO ..

.........

''I

01656

01640
000-0
01621
00000
0))19
000-1
01100
onzp
00000
00-01
OJO'"
01100
OJ046
01100
0-000
OUDO
00005
07'21
00000

37

02110
DC
1. 6 • •
01100.
CAl'YlATf 'OSITION Of ,.OU, "'aK
0220Q SH$(t TfN SHG. . ,HSfC-ltlOO
0)010
•
SETGH,NSEC

sn

OlC~O.

tDN

010'0

IlGII •
CALCULATE NUT OUTPUT SECVOI AOCRUS

01080
03090.
01100

OU \0
03120.
0)110 PUflT

A

aL

99"

PU10SK,NO
PUfllSK ,ENOUC"

eN

00212 J6 OO1l2 -1426
002.' KI 00)10 0)"1

GROUP MUK

0'0]0 SET'

OJO'Oo
0)0'0
0)010

'AGE

00Z81 00001

00)06 15 0.' •• 00000
OOlIY 00001

00318 II 00689
CHECK TO SEE If OUT'UT AREA EXCEEDEO
ooHo HOD. . .
OOh2 ~1 oon8

PI/TIt
LOAD AND CAll SU .... OGUM "'UI

U"

I'"

IIDNlt~.OJO"O.67

TV'fRft,I.Z,.,
OUTPUT ONE IEeOlO 1/11 AD-APT

PUT

PIITOOW,lIte

0)1.0

AM

AEtNO, "I.

On50

A

MO,NSEt"

'OR""

02."
-)]99
OUOO

003" U U.OO -J090
00 ..,. " ot_IO -OIU
00]1' 10 00 •• , ·O~OI

00)40

~.

INtaEMEN' UCO~O _UMelll
00.02 II
I HeRUENl Sfe 'O~ COUNT
00~I4 21
00426 II
0043. J5
ClUA CROUP ~"K
CHECK FOR FI HI
00450 I.

oOUO -O"t

07040 0-00\

OSOIO PUTOSK

024.1 0))21
AM
10001010
02.61 000-1
TOM
SErC., .. 6,
DOli K 00000
CM
~RT.l",.,
pn.~ 0-014
8HE BAKER
oaUl '" oo~u 01200
INF
BAKER,tUUt" ,
CHECK If NON .EeOYERA.lEERROR ceCUREO
00~14 .. ~ OOS18 0"'13
WRITE MESSA'E-AO-AP' UECUTION INHllnEO
Ren
004.6 14 00000 00 I 02
WAfY EKMES
AD .... L9 0060. 00100
81
BAKER
00510 "' 00518 00000
00518 116 00510 01400
IY
"12
InURN TO CAlLI lOG PROGUII
182
OOHO 42 00000 00000
THI SLOOP CUCULATES THE NU"BU OF SECTORS MORE THA" ONE
TO 8E OUTPUT
AM
IOSEC,I,IO
00512 I I 0]]21 000-1
so
THII.IO.IO
005H J2 00015 OOOJO
00556 07 OOUI 01100
8"" TSEe T
8
TESTIO
00568
00n2 00000
DORIO .- 3
00516
TRANSMIT THE PAl THO OR INseRT ReCORD TO 'HE TOATA TABLE
TFII OUTPUT-I.TOAUS-.
00576 J6 00005 -un
TR
TOATU-•• IHOU4-1
00588 )1 0)35' 01~OI
81
snOUT
00600 "' 00222 00000
00609 00054
OAC 21"O-APT EXECUTIOH IHHU"£O'
00666 00005
DC
5.020,00
DC
00669 0000)
DSA NSEC-I
0061' 00005 -)326
00615 00001
DC
1.'
OUTPUT COHTROl 'iElOS
00616 00002 20
DOW ,PUTODA"N,A
00618 00005 -0684
0068) 00001
ODA ,.PUTOSK,PUTSEC,PUrcOR
00684 00006 0~O619
006.0 OOOOJ 092
006'1] 00005 -06"
00 . . 1 00001
DC
I.'
00689 110000
OS
,PUTODA.'

050.0 PUTSEC
05100 PUTCOI
OH 10'
05120 TDATA
OSI10 NSEC
05140 NFllI
051'0 RNO
05160 SSNO
0'110 TOATA5
05180 INIT
051.0 HAT
05200 NSRT
06010 NSRF
06020 "ECHO
064)0 "~II
06440 "TYPE
06050 SRTYPE
06060 SEOHO
06410 'NO'T4
06410 ENOSEe
060.0 NO
06100 TYPER"
06110 MONITII
06120 OI"T
061)0 CAlli
06"0

os
• PUToO . . .
OS
,PUlOo •• I'
COllHON AREA IIlfH '''I''lINE
os
.0)]31
os ,TOATA-6
OS
,TDATA-4
OS
,TOATA.I
os .TDATA . .
OS
.0))62
os ,07U6
os ,TOATAoU
OS
,TOATAtl6
os .TOATA.'.
OS
.07640
OS
.07622
os .075.5
os .075'1'
OS
,0165.
OS
.01409
os ,139'
OS
,OZ461
OS
,OZ416
os ,OZ40.
os
,01007
os ,0"92
D~O OUTPUT

0)160
0)170

OH80 CHKI'
03190
01200
0.010.
0.020 NREX
0.0)0
04040
0.050 BAKU
0'060'

0.010
0.0.0.
0.0'00.100 TESllO
0.110
04120
0.1 )0
0...0
04"004160 TREC
04110
04180
0'''0 EXMES
0'200 OUrcON
0~010
O~OZO

0'0)0

0'0'0.
05050 PUTOON
05060 PUIOO'
0~010

M.

,.0

.

00692 00000
00n1 00000

o))n

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
o,u~ 00000
01S'" 00000
01591 00000
0765600000
01409 00000
0)]99 00000
02461 00000
024'6 00000
02406 00000
0.007 ooo~
09.91 00000
0000'
03321
0)329
0)341
OBH
0)]62
019T6
033.,
0))49
OBn
01640

lSUAFI 01'21
fllf.AO 00159.
SYM81 O~))S

01010.
01020.
010)0'
010.0'
01050.
01060.
01070'
01080'
01090
01100 FINOI
01110
01120
011 3D
011.0.
01150
01160.
01110'
01\80 '_JECT
01190
01200
02010
02020
02010
020_0
01050
02060.
01070
02080
02090
01100 FLIERO
02110 STEMP
02120.
021)0 SYMR5
01l_0 SYM86
021 SO SYMB7
02160 ZSURFX
02170 ZSURFY
02180 ISUAFZ
02190 lSURFD
02200

nUAFV 02HI
f 111101 '00002R

lSIIRf

J(

f.l1.'if')l

SHMP OOI6Q.

g\,RfD 02511
~y.ft' OHU

PRJfCI 00052A
$YM86 04ll'

IBM 1620-1111 AO-API •••••••
INi;iN·SU8;ROGR;;·,iNOI
THIS PROGRAM PROJFCIS A POINI DEFINED 8Y XOY
TO A PLAlle PREVIOUSLY DEF IlIIeO 8Y A !SURF SUTE"fIIIY
LINKAGE IS
8TM "DNIIR,~NIIIIO
ITH FINOI .. IO
DC
2,0
TFL
STEMP,LSURFI ..
FSUB STEMP,FLIERO ..

00001 00002
STORE 1 CoEFFICIE"I
00001 -h 00169
TEST IF I COfFFICIENI IS IERO
0001. -K 00169
8Nl PAJEeT
00026 M7 00052
TFl SYMB1.FllERO ••
SET I Of PO lIn TO lEAD
00018 00 OH15
RETURN TO CALLING PROGRAM
882
Doe 50 .2 00000
CALCULATE 1 FROM GENERAL PLAIIIE EQUATlOII
loID-AX-IYlIl
TFL SYMR 7 ,lSURFD
OOOH 06 0411~
TFl STEMP,SYMR5
OOOh' -h 00169
FMUL S TEMP ,lSURFl
00016 -1 00169
FSUB WMB7,STEMP,
DOOAB OK O.H~
TFL STEMP,SYMR6
00100 -h ODin
FMUl STEMP,lSURFV
00112 -1 00169
FSUB SYM87,STEMP
00114 OK 0.11'
FDIV SYMB7,lSURFl
00116 09 0~115
RETURN TO CALLIIIIG PReGRAM
88
0014 B U 00000
DORG 0-9
001~0
DC
8,0
00157 00008
DC
2,-Qq
00159 00002
DC
10,0
00lh9 00010
COMMON AREA WITH MAllillNE
OS
,0.115
0411 5 00000
04325 00000
OS
,O~]2'
04))5 00000
OS
,OH1S
OS
,02501
02~01 00000
OS
,02511
02511 00000
02521 onooo
OS
,02~21
OS
,onll
02511 00000
OENO FIND!
00002

oall
OCIS9
01200
00lS9

oooeo
02511
0411'
02~01

00169
04125
02511
00169
02521
OCOOO

.ic;.f
SY"BOl TABLE
lSURFZ
TOATA8
RETURN
FORMA
lSURF

LSURFY
TDATAl
MoNITR
FORMB

01'S21
0])92
02411
000710R
0000211

01010'
0102001010'
01040_
0105001060'
010700108001090'
0110001110
0112001130 nURF
01140
01150
01160
01170'
01180 CAlf till
01190
OIZOO02010 FORMA
02020
020)0
020~0

02050 GONOII
01060
02010
02080
020.002100
02110OU20 FO_MI
01110
02140
02150
02160
02lTO

ozuo

02190
02200 CIIOlll
01010
0)020010)0
010100
O)OSOe
01060 FORM
OlOlO TO'T'~
0)080 rOATAS
01090 'OA' ••

02511
01182
01.06
00178_

lSURFX
TDATU
CALERR
GCNOW

02501
OH7l
OOOSOR
OO\2U

lSURFO 0251\
YOAU5 onu
CNOll 00270R
tAT! onll

TYPERR
TDATA4
fDA"
INIT

02'16
OllU
07712
07.76

IBM 1620-1111 'D-APT .......

...................

INTR'" SUBPRoGRA" lSCRf
THIS PROGRAM SETS THE CDEFFICElIiTS OF • PLANE O~'D
WHItH , POINT DEFINED BY X+Y WILL BE PROJECTED
THE COEFFICIENTS A,8,C,D OF THE EQUATION A.+8,..Cl'D
ARE SET IN ZSURFX,LSUAFY,lSURFZ,lSUAFD RESPECTIVElY
l.IIUGE IS
8TM MDNITR,IINNNO
" " ZSUAF .. IO
00001
DC
2,0
CHECK FOAM FOR TYPE OF lSUAF DEFlIIITIC"
00002
CM
FORM,I,'
00014
BE
FORMA
00016
CM
FORM,25S,.
on018
8E
FORM8
LO'D AND CALL TYPE._ SUBPROG.'M
00050
BYM MONITR,03090,67
00062
aT" TYPEAR,lZO,67
PLANE DEFINED BY NESTED PLANE DEFINITION
0007.
CM
TDATU,8,I0
00086
BE
GONOII
00098
IT" MONITR,03090,6T
00110
BTM TYPEAR,301,67
00121
TFL lSURFll,TDATAS"
STORE. COEFFICIENT
0011~
TFL ZSURFy,TOATA6"
STORE Y COEFFICIENT
001106
TFl lSURFI,TOATAT"
STORE I COEFFICIENT
OOISI
TFl ZSURFD, TDATU"
STORE CONSTANT TER"
RETURN TO CALLING PIlOGRAM
8T
RETURN,,6
00 If0
PLANE DEFINED 81' COEFFICIENTS OF PLIIIE EOUA'ION
AM
UTl,12,IO
00178
TFl Z$UAFx,IUI,ll,
STORE I COEFFICJ.fNT
00190
AM
JIll, 110,10
00202
TFL lSU_FY,UTI,lh
STORE" CDIFFICII"f
002110
'"
IAT1011o,I0
00U6
TFL ZSU_FI,UTl,lh
$TORE 1 COE'HCIEIIT
OOHe
80
CIIOT,,15UIIFI-9..
CHECK .DR lE_D C COe"ICIENT
.
Dono
8T
tALUIl
00161
AM
IAll ,110,10
00210
ZSU_FO,UTI.Il.
STO_E CDIIStA'"
00282
RnURN TD "LUNG 'ROGU"

'F"

DC

'1__

2,~9

OSA -RETURN
COMMON AIIIA WI'" "'INLINI
os
,07712
OS
,011S2
os ,01162
as
,Ol)T2

00002
14 07711 0-001
"6 000'4 01100
\to 07712 0-2"
M6 0017. 01200

\1 02400 -)090
\1 02.10 -0120
I~ on~2

000-8
00111 DilDO
021000 - 3090
02~10 -0101
02501 onu
02Sl1 01111
Oz'lZl 0}181
11ft ontl 01n2

1'6
\1
If
06
06
Oft

"'I

OIIoIJ 00000

11
06
11
06

000J2
tU71J
OOOJIo
OlUJ
,OOOJIo

011ll
onol
07nl
onu
11 eHnl
06 01'21

OlUJ

onu

M) 00170
lOt 00050 COOOO
·11
ooOJIo
06

onu
onu on,,,

ooz""

00001
00)00 OOOOS

OlTU 00000
OHS2 00000
on62 00000
OHn 00000

-",.I
3 !j

01100
03110
03120
031]0

ZSURFD

os

lAu

DS
DS
OS
.2~06
OS
.2411
,07916
OS
DEliO nUR'

"PERR
NONITII
RETURII
INIT

O~IO

OH82
03)92
02501
02511
02521
02531
07111
OHI6
OH06

.OHIZ
.03192
,02501
.02511
.02521
.02531
,01111
,2416

TOAUB OS
ZSUAf. OS
lSUIIFY OS
lSURFl OS

Oll~O

aliSO
01160
0]110
03180
01190
0)200

'AGE

TOAUl OS

00000
00000
00000
00000
00000
00000
00000
00000
00000
Ol~ll 00000
01916 00000
00002

PACE

Sy~80l TA8 l E

VARDON
IIxTVAII
ADOTW
INIT
SIIUMB
SYN&l
VAReT

01010010200103001040010500106001070010800109001100 I14CRO
01110
01120
01130
01140
01150
01160
01170_
01180
01190
OllOO UVSUI
02010 SAVIIAII
02020
02030
020~0

NXlVAR

02050
02060
02010
02010
02090
02100
0211002120
02UO
021~0

TYPERR
MONITR
CODE
MACRO
SSYM8
$YII83

00856R
00156R
00600R
07976
00732R
04301
0091411

,nVAII

02150
02160
02110
02UO
02190
02200 STORI

02H6
02~06

07115
OOOOOR
00824R
DU03

SAVSU8
MAeSAY
FILE
NAr2
STORE
SYM84

00108R
07121
02416
07666
00336R
04305

SAVNA~ 00120R
GETVAR 00264R
FIlE2 02416
NU~8
00660R
SY~8
00432R
TRANS 00792_

RETURN
FllERO
UTI
PUNe
SYM81
TWHV

OHII
0093111
07111
00528R
04289
009~1I

IBM 1620-1311 AD-APT •••••••
IIHRAN SU8PROGRAM MACRO'
THIS PROGRAM HANDLES STORING THE FIRST PART OF A MACRO
AND SeTS AN INOIC"OR TO SAVE THE STATEMENTS fOllOWING
UNTIL TERMAC
LINKAGE IS
8T ~ONITR,OSAL8l.5.6
87 MACRO. ,6
INITIAUZE MACAO VARIABLE SCAN
00000 J6 00342
INITIALIZE MACIIO LENGTH
00012 16 04289
00024 16 04305
SET MACRO INDICATOR
TFII $YII84,5,IO,
INITIALIZE VARIABLE COUNT
" " VARCT •• 10,
00036 J6 00934
00048 12 07731
INDEX TO IIACRO NAIIE
SII
un,40,10,
CHECK FOR VALID IUIIE 00060 14 0773J
CM
IAll" ,610,
00072 116 00108
Be
SAVSU8
LOAD AND CAll Type_. SUIPROGRAII
00081t 17 02400
8TII 110111 Til ,03090,67
00096 17 02~IO
BTII TVPERR.\Z6,6T
SAVE THE SUBSCRIPT
00108 26 04303
TF
SYMU.IATl,llt
00120 II 07731
All
IATI.ll,IO
SAVE THE IIACRO NAIIE
00132 26 04301
TF
SYMa2,IAT1,11.
INDEX TO fiRST VAU .... U
AM
'''lt30,10.
00144 11 07731
00156 11 ann
IATI,14,10
AM
CHECK
FOR
E_O
Of
VAUAIlLE
LIST
IAn.NAU ..
C
00161 2. 07731
00180 116 ooe,.
81f
VARDON
CHECK FOR LEGAL VA_IABLE
CM
IATl,I,610.
00192 14 0773J
00204 116 002604
Be GElVAR
00216 14 0773J
CII
IATI,22.610
0022. ,.. DO'"
8E
VARDON
LOAD AND CALL TYPE •• Sua'ROGUM
00240 " 02.00
BTH MONITR,OJ090,67
00252 11 02410
8TM TV'ERR,125,61
INCRE"IN'
UNUM
UF
IIACRO
All
SYMII.ZI •••
00264 11 au ••
IIICllllleN' TO IIIXT "ACSUII POS! TlON
'"
00116 JI 00)42
TY'S-Ol
00211 J6 00)4K
$ToR£.',I,610.
" " STOII.6,12
00300 Jl DOH2
,10
All
00312
U 017n
IAn,II.IO
II"
00U4 itO 01)411
STORf.6, TUELV,.
"
STORI
THI
VAIII.ILI
IIAIII
. .99.IAn.ll.
"
TFM

STORe.6,SVM84 ..

TFM

SYNBl,21t8,

-4305
0-021
000-5
OCo-O
OOOMO
000-1
01200
-3090
-0126
0773J
000J2
0773J
OOOLO
OOOJ4
07666
01100
COO-I
01200
OQOK2
OIlOO
-)0003010
0)080
0]090 $VIIB
0)100
03110

AM
CM
8L
8H

03120

AM

vARCT,l,lO,

OlUO

CM

VAReT,.,IO,

5TOR£+I>,2,IO,

!ATI,2,10
UTI.2,610
SVMB
PUNC
LOAO ANO CALL TVPERR
8TM MONI TR ,03090,61
8TM TVPERR,IZ5,61
TFII STORE-I,,2,610
All
STORE+6,12 ,10
TFL
STORE'.,FLZERO,6,

0)1'0
031S003\1>0
03110
0)180 PUNC
03190
0]200

eNH NXTVARoIZ
LOAD AND CALL TVPERR
8TII HONITR,03090,61
8TII
TYPERR,1Z1,61
CM
JATI,3,610
AOOTN
8E
CM
UTI,22,610,

04010
04020040)0
04040
04050 ADOTW

BE

0~0l>0

0~010

04080·
0~090

04100
O~IIO

NUM8

04120
0~1l0

04140
04150.
04UO
0~ll0

04180 SNUMB

SYMB
LOAD AND CALL TYPERR
8TM MONITR,03090,61
TYPERR ,128,61
8TM
AM
lATI,UdO
eM
UTI,33,610,
BE
NUM8
LOAD AND CALL TYPERR
8TM "ONITR,O]090,61
8TM TVPERR,128,61
AM
IATI,2,I0
CM
IATI,2,610,
SNUMB
SSVM8
LOAD ANO CALL TVPERR
8TM MONI TR ,0]090,67
8TM TVPERR ,128, 61
TF
STORE+6,IATI,61I.
8E
8L

05010
05020
050]0 TRANS

TOM TRANS
AM .STORE+I>,12,IO
AM
IATl,I2,IO
TF
STORE+6, TWElV,6
TFL STORE+I>,IATI,I>U,

050~0

AM

IATI,z,lO,

05050
05060 SSYMe
05010
05080
05090 VARDON
05100

81
TOM
TF
81
AM
TOM

NXTVU+\2
TRANS,2
STORE+6,IAn.6ll

05110
05120.
05\30

DC

1.· ••

04190
0~200

SNUMB.2~

STORE+6,I,10

STORE.6,,6.

oonl> 26 o~.,q
I"CREMENT TO NexT FIElD III MAC5UB
003~8 JI 00]~2
00)60 II 07131
00372 14 011lJ
00384 Ml 00432
00396 116 00521
SUBPROGRAM
00408 11 02400
00~20 11 02410
00432 Jl> .00)4K
0044~ JI 00)42
STORE ZERO FOR NORNAL VALUE
00456 -0 DO)4K
INCUMENT VAR JABLE COUNT
00468 J I 00914
CIIICM POR TOO MANV YARIAILIS
00480 J4 009H
004n N7 00168
SUBPROGRAM
00504 11 02400
00516 11 02410
00528 14 011lJ
00540 MI> 00600
CHECK FOR END OF MACRO
00552 14 077)J
00564 "6 00432
SUBPROGRAM
00516 11 02400
00588 11 02410
00600 II 01131
CHECK FOR EQUAL SIGN 00612 I~ 0113J
00624 M6 0061>0
SUBPROGRAM
001>]6 11 02400
00648 11 02410
00660 11 0173 I
CHECK FOR NU~BER OR SYM80L
00672 .14 077)J
00684 MI> 00732
00696 M7 0082~
SUBPROGRAM
00108 11 02400
00120 11 02~10
STORE THE NUMBER OR SVMBCl
00132 K6 OO]~K
00H4 J5 00792
00151> JI 00)42
0071>8 11 07131
00780 KO 003~K
STORE TilE NUI'8ER OR SYMBOL
00192 -6 00]4K
INCREMENT TO NEXT VARIABLE NAME
00804 11 071) I
008\6 M9 00168
00824 J5 00192
008]6 K6 OOHK
00848 M9 00156
ooesl> J I 00]42
SET RECORO "ARK AT UD OF MACRO

OIHJ
000-2
000-2
COO-2
OUOO
01100
- 3090
-0125
000-2
000J2
00912
000-1
CC0-6

Ollno
-3090
-0127
000-]
01200
OOOKl
01100
-)090
-01l8
000J2
OOOL]
01200
-]090
-0128
000-2
000-2
01200
01300
-]090
-0128
011]J
00000
nOOJ2
COOJ2
00941>
071)J
000-2
00000
00002
0713J·
00000
000-1

PAGE

051~0

05150
05UO
05110
05180 FLZfRO
05190 YAReT
05200 TWEl V
01>010.
06020 CODE
06030 SVMBI
01>040 SYMR2
01>050 SVM8)
06060 SVM8~
06070 MONITR
01>080 RETURN
06090 FILU
06100 TYPERR
01>110 FILf
01>\20 IATI
01>\30 NAT2
06140 INIT
06150 MACSAV
0."0

00868 J5 00)4K 00000
00879 00001

LOAD AND CAll FILE SUBPROGRAM TO srORE MACRO
00880
8rM MONITR,OHOO,61
008'12
8TM FllE2,SVM81061
Ooqo~
SET MACSAV SWITCH
TFM MAtSAV,Io10,.
RETURN TO CALLING PROGRA~
B1
RETURN,,6.
00916
009]0
oe
8,0
00932
oe
2,-99
009]~
OS
2
00946
DC
12,0
COMMON AREA WITH MAINUNE
07715
OS
,07715
04289
OS
,04289
04301
os
,04301
04]03
OS
,04]0]
04305
OS
,04]05
02~0l>
as
,02406
02H
I
as
,02411
02~1I>
os
,2"16
02~16
OS
,024 16
02416
OS
,02416
07131
OS
,07131
07666
OS
,01666
01916
OS
,01916
07721
OS
,01121
00000
DENa MACRO

11 02~OO -3200
11 02410 -4269
16 07721 000-1
49 02~IJ OCOOO
00008
00002
00002
00012
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

1

PAGE
TYPE_II 02416
"ACPIII 07119
E~OV'R 00'14711
CODe 07715
fOUND 0162'
N'CSI 05191
SAVE 05117
SYlla oonoll

T!lATeD OOIIoZR
C;UVAR OOH0R
ADOZ8 00534R
E~U 0035411
00594_
HIT
MACS4 05201
SAVEl 08011
UTI 0094211

SY~,(ll

U8~f

RnURN
FiLlER
CAll
ERROR
IAlI
NAU
SAVU

OHl1
0023411
000 lOR
00890R
or731
01666
08041

MONITR 02~06

flLDU 0000411
CHECII 00674R

FI'E
IHIT

02"016

07976
001l2A
SAVE! 080Tl

HU~8

"ACSUB
ERROR I
CHIIS!
FILEl
IIITO
OUT
SEVAlI

05188
00914R
0011411
02416
00806R
00810R
00"""

01010·
1811 1620-1311 AD-APT •••••••
01020.
.1111 • • • • • • • • • • • • • • • •
01010INTRAN SUBPROGRAM CALL
01040THIS PAOGRAM CALLS A IIACAO FROM THE 'ILE
01050.
AIID SUBSTITUTES THe CALLED VALUES FDA THE NOAMAL VUlA8LE
01060VALues
01070_
LINKAGE IS
&T MONITA.OSALBL+5.6
01010•
CALL
0109001100 "LDU DSA "AcsuB.n99
00004 00005 -518B
00009 00005 -9999
01110 CALI.
CHECK BLOCK 3 fULL
00010 14 08071 -0000
CM
SAVel".
BNE ERROA
01120
00022 N7 oono ·01200
OIUO
CHECK BLOCK· Z FULL
00034 14 08047 -0000
C"
SAVEl".
01140
BE
CHKSI
00046 "6 00114 01200
BLOCK 2 FUll---PUSHUP aLOCKS AND SECTOR ADDRESSES
01150TF
SAVel. SAVEl
01160
00058 26 08071 08047
01170
TR
IIACSUB+601,"Acsua+301
00070 31 05789 05489
TF
SAVEl.SAVEI
01110
00082 26 08047 080 11
01190
TA
MAcsua+10I.MACSUI
00094 31 05489 05118
01200
17
TRATCD
00106 N9 00162 00000
SAVEl ...
CHECII BLOCK 1 FULL
00 11~ 14 08011 -0000
02010 CHIISI CM
02020
BE
TRATCD
00126 "6 00162 01200
BLOCII I FULL----PUSHUP aLOCKS AIIO SECTO~ AOORESSES
02030TF
SAVU.SAVEI
02040
00138 26 08047 08011
TR
MACSUI+301.IIACSUI
02050
001'0 31 05489 05188
02060 TIIATCD CF
FILOSA+I
0016l L3 00005 00000
TRA
00174 10 00565 -01'11
02070
00186 49 00716 00000
00193 00002 2K
00195 00005 -0201
00200 00001 '
00201 00006 IJ97U
00207 00003 -03
00210 00006 -0000'
TCD TriAlCO
00162
02080
00162
02090
DOlI' TRATCO
00162 J6 009H -5UI
02100
T'II ENOVAR.MACSI-)
INDEX TO "ACRO NA"E
00174 11 01731 000J6
,II
IAll.16.10.
02110
CHECII FOil VALID HA"E 00186 14 0773J 000-1
02120
CII
I"TI.I.610.
lIE
Fll TEA
00198 "6 00214 01200
02130
LOAO AND CAU TYPEIlIl SUIPIIOGIIAII
02140ITII IIONITR.03090.67
00210 17 02400 -1090
02150
00222 17 02410 -0133
8TN TVPERR.133.67
02160
INCIIE"EIIT TO SY"IOLIe N.~E
02110 fiLTER A"
IATl.Il.IO.
00234 11 077]1 000J2
00246 KI> 00009 on3l
TF
02110
FllOSU'.IATl.

00258 l3 00005 00000
FllDSA+I
00270 32 05117 00000
SAve
LOAD AND CALL FILE SUBPAOGRA" TO IRING A "'CRO I NTO BLOCK I
00282 17 02400 -3210
BTII MONITR.03210.67
00294 2P 02410 00009
8T
FllE3.FllOSA+5.6
BIlAlltH ON UNOEF I NED "'CRO NA"E
00306 "4 00914 07628
8NF ERROR1.FOUNO
COMPUTE ENO Of "ACRO 00318 III 00947 05191
A
ENDVAII."ACSI ..
I~CREIIENT
TO
FIRST
VAIIIABlE
'"
IATl.2.IO.
00330 11 07731 000-2
00342 116 00942 07731
01010
TF
TATI.IAlI
CHECII fOR ENC Of VARIABLE liST
TATl.NATl ••
030'0 IHDEII C
00]54 K4 00942 07666
00366 "6 00870 01100
01100
IH
OUT
INITIAliZE START OF ""CSUI TABLE
01l1000378 J6 00'09 -5221
TFII SEVAR+11."AeS4....
03120
CHECII FOR LEGAL VARIABLE NAIIE
CII
TATI.1t610.
03UO
00390 J4 009411 000-1
00402 116 00438 01200
BE
GETVU
03140
LOAD "NO CALL TYPE_. SUIPROGRAM
0315000414 IT 02~00 -3090
01160
BTII IIONITR .03090 .61
00426 IT 02410 -0114
all 70
IlTII TYPERR,U4.61
INCREMENT TO CHECK Fall EQUAL SIGN
TATl.U.10.
03110 'ETV'II AI,
00431 JI 00942 000J4
00450 J4 009411 000- 3
CN
TATI.l.610
Oll90
00462 "7 00890 01200
0]200
BItE EIIROII
00474 J2 00942 000-2
511
TATl.Z.IO
04010
00486 "6 0049' 01400
av
-+12
04010
COII"'RE VAUUU NAIIE WITH IIACRO YAAlA8l
TATI ....9 •••
04010 SEWAll C
004'18 K4 0094K 09999
00510 '" 005)4 01400
AOOli
04040
BV
00522 "6 OOSH 01200
HIT
04050
BE
INCRE"ENT TO IIEXT VARIABLE IN M"CSUB
seVAII+U.28.10.
04060 '0021 All
005)4 J I 00509 OOOKS
CHECK fOIl END OF ""CliO VARIABLE LIST
SEV.R+ll.E~"AR ..
C
04010
00546 11M 00509 00947
00558 Hl 00491 01300
SEVAII
IL
04010
lOAD AND CALL TYPERII SUIPROGRA"
0409000570 17 02400 -3090
IlTII IIOH ITII, 0)090.61
04100
00582 IT 02410 -OU6
04110
Il'" TYPEilIt. 1)6. 6J
CHECII FOIl EQUAl SUISC. . "
0412000594 J2 00509 OOOJ2
SEVAII+U.12.10
SII
O'UlO HIT
00606 J2 00942 000J2
TATI.12.10
511
04140
006\8 ,," 0050R 0094K
SEVARoll. TATI.IU
04150
C
00630 "6 00674 01200
CHECII
04160
81!
INCaE"EN'
TO
NEIT
V
..
RI
••
LE
0411000642 JI 00509 OOOJ2
SEVAII+ll,12.10
04110
AM
00654 JI 00942 OOOJ2
TATI.Il.IO
04190
All
00666 119 00534 00000
ADDU
04200
17
00674 J I 00'09 OOOJ4
SEVAII+U.14,10
05010 CHfca All
00686 JI 00942 ooon
JA1'1,2t.10
05020
AH
00698 110 005011 0094K
SEVAR+ll,TAT1.611
05010
TF
00710
.n 00'109 OOOJZ
seVAII+U.lZ.10
05040
All
CHKK Faa ''''IOl 011 NUllllEll
'ATI,I.IIO.
05010
til
oolZ2 J4 00'1411 000-2
00714 "' OOl12 OllOO
IE
05060
001"6 117 00.50 01100
SVIII
IL
05010
LOAD AND CALL "'.1111 IVlPIOGaAII
0501100
00'" 11 02400 -JO.O
1\'11 IICICnll.OJO'ilO.6't
CI'109O
00170 17 02 .. 10 -0115
I'" "'llIa,,,5.17
02190
02200
0101003020
030)0
0104003050
01060
03070

CF
SF

.

"100

-

'AGE
O~IIO0~1Z0 NUMB

"OOIFY
TOM
AM
TFL

OH30
0'\40 INTO
0515005160
OH10
05180
0519005200 SYMB
06010

O~

CODE

TO TFL

INTO, •
TATI,12,IO
SEVAR+lI. UTI ,611,

STORE THE S Y~80L

00182 J5 00806 00000
0019~ JI 009~2 000J2
OR NUHAER
00806 -0 0050R 009~K

INCREMNET TO HEKT WORDS
AM
SEVAR+lI,I4,IO
00818 JI 00509
AM
UTl,2,IO
00830 JI 009U
B7
ENDER
008~2 109 00354
MODIFY OP CODE TO TF
TOM
INTO,2
00850 J5 00a06
87
NUM8+1Z., •
8UNCH TO STORE SYMBOL OA NUMBER
00862 "9 00794
AM
MACPIK,I,IO,
INCREMENT MACRO NEST INDICArOR
00810 II 01719
AETUAN TO CALLING PROGAAM
RETURN,,6
87
00882 4'1 02HJ
LOAD AND CALL TVPEAR SU8PROGRAM
8TH HONITR ,03090,67
00890 11 02400
BTM TYPERA,UT,6T
00902 17 02410
LOAD AND CALL TVPERA SUBPROGRAM
8TM MaN ITR ,03090 ,6T
00914 11 02400
8TM
TYPERR, UI,U
00926 17 02410
os
5
00942 00005
CO""ON AREA WITH "AINLINE
OS
,05188
05188 00000
OS
,MACSUB.3
05191 00000
,08011
08011 00000
OS
,080~T
OS
080H 00000
,08071
OS
08071 00000
,01916
os
01916 00000
,07715
07115 00000
OS
,07628
OS
01628 00000
,05187
05187 00000
OS
,01666
OS
01666 00000
os
,01719
07119 00000
,024\6
os
02~16 00000
,02~06
OH06 00000
OS
,02411
OS
OHII 00000
,MACSUBtl9
05201 00000
OS
009H 00005
os
5
,01731
01131 00000
OS
OS
,02H6
02U6 00000
02416 00000
os
,2~16
OEND CALL
00010

06020 OUT
06030.
O~OOO

0605006060 ERROR
06010
0608006090 EARORI
ObiOO
06110 UTI

0612006110
06140
06150
06160
06170
06180
06190
06200
01010
01020
07030

MACSUB
MACSI
SAVEl
SAVE2
SAVel
INIT
COOE
FOUND
SAVE
NAl2
MACPI K
010~0 TYPERR
01050 "ONITR
01060 RETUR~
07010 MAC54
01080 ENOVAR
07090 I ATI
07100 FIlF
01110 FILE3
01120

OOOJ~

000-1
OCOOO
00002
00000
000-1
00000
-3090
-DIU
-3090
-DUB

PAGf
SY~BOL

TEMPAO 00483R
CHKEO 00140R
1~1T2 10268
SUZIE 00360R

00478R
AGAIN 00448R
HIT
00B2A
SETOP 00396R

TEMP~O

UBLE

REPLAC OOOOOR
CO~P2 00184A
ITSI 00116R
sy~e

00~28R

"ACSUB 05188
ENOER 00~68R
"ACSI 05191
'wCRDL 06091

CHKTVP 00048A
EQUAL 00ll2R
"ACS4 0~207

IBM 102a-UIl AD-APT .......

010100102001030-

I NTAAN SU8PROGRAM REPLAC
THIS SUBPROGRAM SEARCHES THE STATEMENTS
0100\0_
IN A CALL EO MACRO FOR VARlA8LES AND AEPLACES
01050THESE WITH THE VALUES INOICATEO BY
01060THE CALL OR ~OR"AL VALUES INDICATED BY
01070THE MACRO DEFINITION
01080THE ELEMENTS OF.THE STATEMENT ARE IN WDROL
01090_
AND THE CALLEO OR NOAMAL VALUES ARE IN THE "ACSUB TABLE
01100BTM "ONITR,NNNNO
LINKAGE IS
01110I
REPLAC
0112001130INITIAliZE TO FIRST IIOAC IN WOROLIST TA
01140 REPLAC TFM CHKTVP.,;,WOADL..
00000 J6 0005~ -6091
TEMPNO,MACSI"
STORE MACRO LENGTH
00012 ~6 00H8 05191
TF
01150
CALCULATE AOOAESS OF LAST POSITION
011600002~ J6 00483 -5\88
01170
TF" TEMPAO,MACSU8
T£MPAO,M"51
00036 Kl 00483 05191
A
01180
9999,22,10,
CHECk FOR END OF IOACAO
01190 CH~TYP CM
00048 I~ 09999 000.2
ENDER
00060 106 00~68 01200
01200
BE
CHKTYP •• ,1.610.
CHECK FOR Sy~eOL
00072 J4 0005" 000-1
02010
CM
ITS!
0008~ 106 00116 01200
8E
02020
IifjUyp.'. , ... 10.
"" •• MlIiT TO NUT WOAD IW WD.jj~Ut
Alii
910)0

000'" Jl

020~0

8T

02050 ITSI

AM
TFM

02060
02070

CH~EO

02080
0209002100
02110
02120 CO"P2
021)0

CN
SNl
A"

81
BV
C

021~O

BY

021S0
0216002170 MIT
02180
02190
02200
01010Ol020
0)0)0

SNE
Slit
SI!

C
BE
AM

,,"

CHIITVP,..

OOO'~

GOOH

BRANCH TO CHECK FOR SYMBOL
OOIOB 149 OOO~B 00000
CHIITYP'6,lZ,10.
INCREMENT TO SYMBOL NA"E
00116 J I 00054 000J2
CHKEO'll,"ACS"I~,. INITIALIZE TO FIRST VARIABLE IN MAC SUB
00128 J6 00151 -5221
TE"PAO,9999"
CHECK FOR END OF "ACSUB TABLE
00140 J~ 00483 -9999
COMP2
00152 M6 0018~ OUOO
END OF MAtSUI TABLE SKIP TO NEXT WORD
CHKTYP •• ,2,10
00164 JI 00054 OCO-2
00116 109 00048 oeooo
CHKTVP
. . \2
00184 "6 00196 DI~OO
(HKEQ+lI,CHUYP'6,6Il, COMPARE SYMBOL NAMES
00196 K" 0015J OOOSH
"'GAIN
00208
00448 01400
AGAIN
00220 lOT 004~8 01200
INDEX TO SUISCAIP'
00232 J2 00151 000J2
CHKEQ+Il,IZ,IO
002~4 J2 00054 000J2
CHKTVP+6.12,10
CNKTYP'6.CHKEQ'U .61l.CDMPAU SlIeSCtllPTS 00256 KM 0005" OOISJ
00268 ". 00)12 OUOO
EOUAL
INClEMENT TO NEI' WOAD IN M"SUB
00280 Jl 00151 OOOJ2
(HIIEO'lI,12,IO
00292 J I 00054 OOOJl
CHKTVP'6,12.IO

"6

OlO~O

B7

AGAIN

03050 EQUAL
03060

AN
eN

CHkEO·ll,l~.IO

OO)O~ "9 OO~~8 00000
00312 JI 00151 OOOJ~
CHKEO+U,l,610,
CHECK VAlUE--NUMle. OR SV"80L
OO)2~ J4 OO15J 000-2
0)070
8l
00336 141 OO~28 OUOO
'VHB
01080SET 0' CODE TO TFL
010.0
TOM SETOP
OOHe J5 OOH6 00000
03100 SUllE
CHKTYP+6,CHKEQtll,6ll.
REPLACE THE YALUE IN THE WOROLISf
00360 KD OOOSM OOI5J
01110
CHKEQ>lI.I2,10
00172 JI 00151 000J2
A"
OH20
0038~ JI 000'" QOOJI
A" CHKTYPo12.IO
03130 SETOP Tfl CHKTYP+6,CHkEQ+ll,611
00396 -0 0005. OOUJ
A..
OH~O
(HIITY' •• ,Z,IO,
INCUMENT TO NUT WORD IN "OROLIST
OO~08 J 1 OOOH 000-1
Oll 50
81
CHKTV'
00.20 119 OOO~' OelOOO
03160SET OP CODE TO Tf
03170 SVM8
TDM SETOP.2
OO~28 J5 00396 00002
031&0
8RANCH TO STORE VALUE OO~~O 149 00360 00000
87
SUlIE;"
03190 AGAIN AM
CHKEO<1I,28,IO,
INCREMENT TO NEXT WORO IN MACSUB TABLE
00~~8 JI 00151 OOOKS
03200
CHKEO
81
00460 "9 00140 00000
04010_
COMMON ARU WITH .AIHLINE
04020 ENDER B1
00468 49 10261 00000
INU2
O~O)O INI12
OS
,10268
10268 00000
04040 WOAOL OS
.06091
06091 00000
O~050 TEMPNO OS
00478 00004
0~060 TE"PAO OS
5
0048' 00005
04070 MAeSU8
OSl88 00000
,05188
0~080 MACSI
05191 00000
OS
.MACSU8»
0~090 MACS4
05207
00000
OS
,"ACSua.l'
04100
00000
DEliO REPLAC

'Ac;e

"

.

os

PII',f
SVM80L TABLE

TYPERII
PUTOUT
OOXOSK
H8FONO
eOOEMO
AOOIl
COMP.
HIT
IN.
N04
OUTW
SErIH
UBIN

TSTUFF
OursEC
OOXCOR
ENOCAN
CHKSU8
A004

07881
02034A
0210)R
01799
0111611
0096811
oex
07883
INA
02050A
NFLAG 00268A
NTiM 00169R
PIN
07391
SKIP 0108411
TOEl anil>

02~16

OO180R
02095A
0007~A

OC632R
OIOMR
00932R
0125611
02041R
07901
0201111
00752R
01316R

0100\0-

0105001060_

01010_
0108001090_
01100
01110 FILE
01120
01110 COOEl

07770
02039R
02~06

Ol07lR
OOOHR
OOOHR

OOOIOR
02055R
08059
0208lR
0127611
0122411
02U .. R

TA8COR
OOXSEC
INOEU
DEXCOR
AOOT
COOEI
FOUND
INSEC
NO)
OUTA

01284A
02098R
0206611
02079R
00336A
00076A
07628
OlO,8R

07898
02026R

sereN 0016011
SVOSK 02109R

INTRAN SU8PROGRAM FILEl
THIS IS THE SUBPROGRAM THAT STORES OR REPLACES A SCALAR ELf 14
LINKAGE IS
8TH HOIIITR,NNHIlO
IITM FILEI ,NAflE
NAME IS THE ADDRESS OF THE SYM80LIC NANE TO 8E
STORED OR REPLACED
DC
CF
SF
AM

0115001160
01110
011 so IAC"AG
01190_
0110002010
020Z0
020]0.
020~0 H8FONO
02050
020«00.
02010 CODEl
020ao
02090
OllOO
02110
02110.
021lQ
021.0
021S0Oll foG SETOM

lin ..

00009 00010

10.0
FOUND
FILE-S
FILE-loU.IO

011.,0-

0".0

TABOUT
OUTCOR
"ON ITA
OEXOSK
BACKAG
COOEl
FILE
INDSK
H02
OOEXW
RET
SU8Z
TFIU

IaM 1620-U11 Ao-APT •••••••

010100\020.
010]0_

02110
02UO

TEMPNO 0211911
OUTOSK 01031R
NOWRIT 07890
DEXSEC 0207~R
Blcno 00624A
CLOUT 0084811
ENOEX 01999
INCOR 02063R
NaGEl 07893
OOEU 0209011
PUTO 00'52R
STUF.F 00360R
TENZ 0212911

COOEMO
8
OORG - J
FILE-I,U,IO
SM

00010 )3 07628 COOOO

t2

00022
00005
00014 Jl 00009
IRANCH TO COOEMO TO SEE IF THE SCALAR
HA ..E HAS aEEN PREVIOUSLY DEFINED
00046 149 00632
00054
00054 J2 00009
BUiltH TO coon TO STOllE OR REPLACE THE
SCAUR
00066 M9 00076

ooon

00000
000J2
00000
000J2
00000

IIETUIIII TO CALLING .. "OGUM
00014 U 00000
00016
coon •••• STORE OR REPUCE A SCALAR
TeMPNO.FILE-I.II.
srORE THE LENGTH IN TEMPNO
IF
00076 KD 0211'1
00088 J2 00009
flLE-l,),lO
SM
00100 KD 02114
TF
TFllE,FILE-l
SET THE COilE aDDRESS 1'1 El D
OUTCOR,TFIU ..
TF
00U2 110 020)'
TEMPNO • l£"'NO • 100 OOU" Jl 0211'9
..... . TEMPNO,IOO.I,
COMPUTE POIITIO" 01' GROU' .. ARK
00 1St kD 00166
Tf
SfTG"'6.I'IU-l
00141 IIJ 001 ••
Sf 110M•• , rEM'NOoll
A
SET GROU" .. AU
00160 15 0 . . . .
TOM "'9,
OOlll 00001
0c;M
•
00169 00000
OS
,-2
"
OUTSfC,YIMPNOoa •• SIT THI UCTOII UNGTH
00172.0 020)6

"no

00000

OOOOR
000-)
00009
02114
0-100
00009

0'117
00000

02117

02200
0)010
01010
0)0)0

Cf
TFII
A
CII

030~O
8L
0)0.0.
0)060·
0)010
"II
0)080
"II
030.0 ,,'UG T~
01100.
OIlIO 'UTOUT ,uT

01110
aUla.
031_0.
OlUO
on60
0)1 10 ADDT
aUla
01190 STU"

TDII
all'
n
A
AM
TPL

03200
04010

All
Tf

04020

All

040)0

All

04000

All

00050
04060
040100
04010

CII
811E

04090

TfM

0'100

TFM

04110
041200
04\)0
OOHO
0.\500
041600
04110
04110
0'1900
O'ZOO PUTD

TPM

A
CII
8L
&TM

""
PUT

05010

All
AM
Tfll
O~O'O
TFII
0~050 IAUTO 81
0~060 COOEIIO ""
0.010
""
0~020

050)0

lJurSEt-1

auros., ••
OUTDSK.N02 . . .
ourOSK.IIIOClN ..
NFlAG

00184 LJ Olon
IlilfUlllf THE SECTOR AOOlns FIHO
00 196 J6 02031
OUTOSK • aUTOSx 'N02
00201 KI 010)1
CHeCII FOil TAalE OYf..FlOW
00220 J4 02011
00212 117 00168

00000
-0000
01059

-1799
OUOO

• ••••• ' .. SlE OVERFLOW

lOAD AND tAU "PEAR SUBPROGRAM
00144 11 02400
00256 17 02410
OUTDSK • INDSK
00261 KO 02011
nOAI OR Re'LAce 'HE UCOAO
OUTw,nc
00280 10 00 •••
00292 .R OOUO
stYG" . . , •••
CLUR GROUP MARK
DOlO.
00160
CHICK TO sn " TM IS IS A IIh SYMaOL
. . " NOT 00 NOT CRUTI ENTRV IN INDE.
ADDY.,OUND
001l. M4 00316
MUONO
00 UI 119 00074
Noa, TlMPNo-a"
0031" 2J alan
UPDATE NO'
00148 JI 02114
T~ILE.I1.IO
TSfUF',,, ILl ,.11. STOllE TilE SYllaOL UIOE ANa SuesCRIPT
00)60 00 D711J
TSTUfF.Z.IO
00]12 II 0"11
TSTUFF.TEIOPII0-I.6. STORE THE SECTOR UNGTH·
00)14 20 07UJ
INCREIIEIIT TO IIEXT ENTRY I~ TABle
.
0039" II 07.81
UPDATE TOUL NO. ENTRIES
TOU.I.IO.•
00408 II on86
OEX,&.10,
UPDATE NO. ENTRIES IN BUFFER
00420 II 01811
CHECK fOR fUll IUfFER 00412 I' DUll
OE •••• IO.
IIACKlO
00"" 107 001>24
aUFFER fUll ... PREPARE TO OUTPUT TO Fill
OOXOSII.OUOO ..
INITIAlIZE SECTOR ADDRESS
00456 J" 020.5
INITIALIZE SECTOR COUNT
00461 J" 01091
OOXCOII. UIOUT ..
INI TlAllZE CORE ADDRESS
00480 J" 0210]
OOXDSK • OOXOSx • N03 00492 II I 020.5
OOXOSK.NO) ..
CHECK FOR UIU OVfllflOW
0050. J6 0209'
OOXOSK.ENOU
00"" III 00552
'UTO
TAILE OVOFLOW
LOAD AND CALL TV'EII. SUBPIIOGRAM
00528 " 02~00
1I01l1T1I.OI090 •• '
OO.~O "
TVPERR.U9.n
01410
CUTPUT INDEX IUFFE. TO FILE
00552 10 00. . .
ODEXW.IIBC
00 . . . 4A 00520
NOWRIT • NOWRIT • I
NOWRIT.I.9.
00'·76 II 07890
NO) • NO) • I
110).1.10.
00'88 II 01898
00600 16 0788)
OU • a
DEX. ,10,
00612 I" 01111
TSTUfF.TABOUT."
001>24 M9 00074
HBfOND
00612 J6 00169
liT III .. 10
OO •• ~ \6 01901
..a •• ,10.
MONI TR .0]090.67
TV'EU .141. '"
OUTOSI!.I NDSII ..

J'

- 10'0
-01"
020"
-alai
-ao 17
00000
07"21
aoaoa
0211 7
OOOH
021110
COO-2
02117
000J4
000-1
000-1
000-6
01200
-1100
00-01
-"70
07 . . 1
-1999
OUOO
- J090
-01"
-o,,,
-2011
00-01
000-1
000-0
-1181
00000
COO-O
DOG-O

'AGE
05010

05120

TFII
TFII
TF
TFII
C

051)0
0.140

liE
C

0'150
on600
051 TO SETlII
05110
05190

liE

05200
06010

TFII
TFII

060Z0
06010
06040
01>0.0 CLOUT
06060
06010
060100
06090
06100
06110
06120
06 no COIIP6
061.0
06"0
0.160 AOII4

A
TFII
All
TF
CII
...

06170

A

06110
06190
06100
07010
070Z0

All
C
lIE
All
CII

010)0
01060 AOOII

IE
All

070S0
010'0 $II"
07070

11
All
C

070.0
010'0

IE
CII

07100
01110
01lZ0
01UO
07160 CMII sua
011'0

Ie
All
Tfll
11
All
All

0~090

05100
O~IIO

TFII
TFII
Tfll

SK
11011
All
IV
C
IV
liE
All

on60

C

U110

IE

00n6 J6
00668 16
00610 KO
00692 16
PIN ••
CHECK FOil END .OF
SYMIIOL NAMES
PIN, fOE •••
00104 24
001\6 ""
lin
CHECK NO. Of GETS. NO. WRITES
NOGET • NOWII IT ..
OOUI 24
00140 116
TAlCOII
INITIALIZE COIIPAUIIG ADDRESS
COMP4", TA,,".a1
00752 JO
Ili0SK • a
NOGET 0 0

INDSK •• ,

NDGn .. 9.
TFILE.FILE-l

"'1" •• 10.

NTIN • 0

00164 .I.

OUOSK.OllOO..

Ol055 -COOO

0189) 00-00
02114 00009
on91 -0000
on9l on . .
01176 01200

OTan 01190
Olln 01100
009)1 -1121

oot ••

INITIALIZE SECTOR ADDRESS
00116 J6 Ol071
SECTOR COUNT. t
00781 J6 02074
OEXSEC.7.9.
INITIALUE
CORE
"mOIlESS
DEXCOII.UIIN ..
00800 JO 02079
OEJOSK • OEJDSK • 11114 00112 KI 02071
OElDSIl.NII4 ..
00824 JO 00es6
CLOUT••• TAlIN-l
00n6 JI 001'4
CLOUT.". 10010
00141 20 099. .
. . . . . ffNl
00160 JII 00.,4
CLOUT.6,TAIIN. . . .
001" 117 oon.
CLOUT-II
IIIING INDEX UIU INTO UIIII
00116 l6 0206"
IIIDEXA
00.9, L6 020"
11I0E"
_
• NII4 .7
0090. 11 07.01
M04.I.lO •.
·.12
CO..' . .I SYIIIIOL NA"E
..... 'F1U.I ..
00944 106 009••
AOII4
00956 116 01116
CHIISUII
INCIIE"ENT TO SECTOR LENGTH FIELD
(011"6.'.6.10.,
00.61 JI Don.
IIIOSII.tDII'6.,.lh INDSIl. INDSIl • SICTOR LENGTH
00"0 IIJ 01055
PIli • PIN • I
00992 11 on. .
PIN.I.10.
CIIICK '011 END 0' T.ILE 01006 14 01]'1
,.N.TOEK ..
01016 M6 01276
IIET
NfllI • NflN .1
01021 Jl 001"
NTlII.I,lO.
CNICK I' SIlIPPING TO IE PU'0II1110
IITlII.,.lO.
010_0 J4 00169
010S2 "' 010.6
$IIIP
INCREllellT TO liEU SYIl.OL NAME
COII'6.'. U.IO.
01066 JI Don.
010" "' 00920
COlO"" 12
NOGIT. NOGEr • 1
01016 II onn
NOGfT.I.IO.
CNECK I' NO. GETS. NO. WRITES
NOGU oNOIIlI ITo.
0109. 1_ 07191
TAICOII
OUOI M6 012."
CO"'.. '" UIIII." ••• CNlCK .011 IND 0' TAIIN UIU
01120 JII 009).
01lJ2 "' 00"2
SETlII
01166 .Il 0091.
COIIP6' •• 6.10
all" J' 00169
linN. 0
IITlII .. IO.
011. . ". 01066
ADDU
OIU' Jl Don.
COIIP6.'.ZoI0
01111 JI 02116
TfILhZ •• O
OlZOO III Ollill
IU .COIIP...
1. CNICK aUIStIIl"
0121' "' 01'"
"IT

:::~~

'I'

,.6&

000-0

-1100
00-01

-u",
07901

-l]I~

OOOJO
0212'1
-10 as

01200
00701
00701
OOG-7

;: ::::~ :!1~e

01600
DilDO
DOG-"

009]0
000-1
01'"
01200
OOG-I
00G-6
01200
OOOJI
00000
OOG-I
01 ••0
01100
-2011
01100
000-6
OOG-O
00000
DOG-I
000-1
00918
01200

0"100

sua ..

51!

(0*"'''.4,1, lO

Jl 009)1 COO-2
01116 Jl alII" 000-1
01200
OO.U 00000
Oll~'
08010
01756
08020.
SYlleDl FOUND •••• SU FlAG " FOUND
080]0 Hif
Sf
FOUND
01256 JZ 0162 • 00000
01040
• icue;
8
00OS4 00000
01161 ".
08050
01116
00_' ... )
01116 ~, 00054 00000
00060 MU
n
01010.
INITlAlll! (QNP'" 'ODUSS TO IS' EIII'RY
080ao.
IN eUHU
080'0 TUCOII 'FII CO"'4.6, 'UOU,t"
0'21~ J6 00"1 -nil
01100
01196 J6 00169 000-0
NTlN" 10
08110
CO,,1>4-1I
B7
01108 II. 00"0 00000
08120
I,D
DC
OUU 00001
OIUO fAUN DC
I,D
OUI6 00001
50,0
01140
DC
01 J6t. 00050
OIUO
DC
50,0
01416 00050
50,0
DC
01160
OH61> 00050
01170
DC
50,0
01516 00050
50,0
DC
08110
01566 00050
01\90
DC
50,0
01616 00050
08200
50,0
lic
01666 00050
50,0
09010
DC
01116 00050
09010
DC
50.0
01766 00050.
090]0
50,0
DC
DIU6 00050
09040
DC
50.0
01866 00050
09050
DC
50.0
01916 00050
09060
DC
50.0
01966 OOOSO
09010
DC
4 •• 0
02015 00049
09010
DGM
02016 00001
09090 OUT"
DOW .OUTA • • ~.A
02011 00002 20
02019 00005 -2016
0202~ 00001 •
09100 OUTA
ooA • 0,0.0.0
02026 00006 0-0000
02012 00001 -00
020J5 00005 -0000
DC
09110
020.0 00001
10'
OUTose
os
,OUTA.'
09120
010l! 00000
091)0 OUTSEC os
,OUT . . .
020)4 00000
,OUTA.l)
020)9 00000
09140 OUTCa. os
09\50,INA,
,N,A
09160 INN
02041
00001 20
DO"
020'1 00005 -2050
02041 00001
DDA .. INOSK,INSEt.I"COIl
02050 00006 0- 20n
09110 INA
02056 0000] - ' I
OlOst 001105 -'06)
02064 00001
09\80
DC
10'
02055 00005
5.0.IHA.~
09190 INOSK DC
ltO.IN •• ,
02051 OOOOJ
09200 I"SfC DC
0206] 00005
5,O,INA.U
10010 INCOII DC
10020·
100]0 INQUA oDA •• 0fXOSK,DExSfC,oExCOR
02066 00006 0-2071
02072 0000) -14
02075 00005 -2019
I, •
02080 00001
10040
DC
02071 00000
.INOEU.5
10050 DEXOSK OS
02014 00000
,iNoEX"1
10060 OUSEC OS
01019 00000
,INDEUtl)
10070 oueoll os
071 qO

O1l2~

SM
nlLf,l,lO
8
ADD4
DOftG -1

""f

4

"'

."ue

""

.

PAGf

1001010090 OOEIM

00..

.ODE.A,.H,A

10100 OoEU

ooA

• ,oOXDSK ,ODUfe,OOKcoR

DC
os
OS
OS
DC
DC
Tf"PHD DC
DC
lOUD TI'"
10190.
10200 FOUND OS
HOIO "'BliuT OS
1I0l0 TS rUFf' os
OS
HOIO OU
11040 TOU
OS
OS
11050 ~I'"
11060 HOW." OS
11070 NoefT os
110.0 ND2
OS
11090 NO)
as
OS
11100 N04
11110 fNOCAN OS
11110 110'" , . OS
lIUO TYP, •• OS
HUO fNOU OS
OEIIO
111fO
10110
10110
10110
10140
10150
10160
10170

ODlose
OOXSEC
OolCOR
svose
TFILE

02081
0208]
02088
020QO

OZOQ6
02099
02100
02095
02091
0210)
02109

1. '
,ODEXA.'

,ooe.A ••

.0OfXhU
5.0
5.0
5.0
10.0

Olll~

02119
02119

00002
00005
00001
00006
0000]
00005
00001
00000
00000
00000
00005
00005
0000'
00010

COMMON AllfA WlfM "AI"ll'"
.0762.
.07170
.01111
,0788)
,OU"
.01191
.011.0
,07891

.80'.

.07S9'
,07.01

.u••

,02406
,OZ416
.199.
Fill

0762'
07170
07881
0788)
07)56
01191

07'''0
OU.,)
DaD 59
011 ....

onol
Din.
02406
02416
01 ••9

_,0

00000
00000
00000
1'10000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
_00

.

20
-2090
0- 2095
-98
-210)

OJ

TYPERR
OUTSEC
OOICOR
AOOT
FILE
N04
P!fII
TOU

02416
0056411
00593R
0024611
00006R
07901
01391

TSTUfF
OUTOSK
NOWRn
881
FDUIID
OOEU
PUTO
TFIU

on ..

01010.
01020.
01030.
01040.
01050.
01060.
01010.
01080.
01090.
01100.
01110
01120 FILE
OIUO
01140 CO DEI
01150
01160
01110
01180
01190.
01200
02010
02020.
02030 SErGM
02040
02050

02060
02010
02080
02090
02100
02110.
02120.
02UO
02140

SY~80l

TABLE

TE~PNO

0059911
00569R
02406
OOO'OR
07893
DOS 71 R
0011""

OUTCOR
MONITII
COOEI
NOGEl

oouv
SErGM

U80UT
OOXSEC
ENDCAN
OU
NOl
OUU
STUFF

01110
0058811
01199
01883
08059
0055611
0021lR

PUTOUT
OOXOSK
BACK TO
ENDEI
N03
OUTN
SVOSK

0022211
OQ585R
00546R
01999
018"
00548R
00604lR

11M IUG-1311 AD-APT •••••••

INTRA"· sui;RDGR'M-;iLEZ
THIS SU8PROGRAM STDAES A GEDMETRIC CANONICAL FDAIII
A IIIACRD,OR A SCALAR ELEMENT
LINKAGE IS
8TM MONITR,NNNNO
ITM 'ILU,NAME
NAIIIE IS THE ADDRESS OF THE CHARACTER LENGTH PORTION
OF THE RECORD TD IE STORED
DC
CF
SF
TF

6,0
FOUND
FllE-'
TEMPNO,FILE-I,II,

00005· 00006
00006 33 01628
00018 l2 00001
STORE THE RECOAD LENGTH IN TEMPNO
DOD 30 KO 00599
Sill
FILE-I,),IO
00042 J2 00005
TF
00054 KO 00609
TFILE,FILE-1
TF
STORE FIRST CHAR IN CORE IN OUTCOR
OUTCOA,TFILE"
00066 KO 00569
TE MPNO ,100,8,
TE"PNO • TEMPNO • 100 00018 JI 00599
COMPUT ADDRESS OF GAOUP MARK
SErGM.6,FflE-l
00090 KO 001Z0
TF
A
SErGIII.4, TEIII'NG-2
00101. KJ 00118
SET GAOUP MARK
TOM 9999,
00114 IS 09999
DGM •
00125 00001
TF
OUTSEC,TEMPND-2", SET UP SECTOR COUNT FiElD
00126 KO 00564
00138 13 00563
CF
OUTSEC-I
OUTOSK • 0
00150 J6 00561
TFM OUTOSK" ,
A
OUTOSK,N02,,
OUTOSK • OUTOSK • N02 00162 XI 00561
CHECK FOR END OF CANON TABLE
CIII
OUTDSK,ENOCAN"
00114 J4 00561
00186 Ml OOlll
PurDUT
IL
• ••• TA8U OVERFLOW
LDAO AND CALL TYPEa. SUI"ROGUM
eTM • MONItR,OJ090,6?
00198 11 OHOD
00210 11 0'410
8TM TYPERR,Uh61

ITO'"

DZUO.

0'160 'uTDIIT 'UT
02110 ADDT
02180
02190
02200·
03010 STUFF

01881
0056111
018'i10
OOSUII
07628
00580R
00.. 14R
0060911

A
TOM
AM
TFL

..

GANDI"CA~

'00 III CANON UIU

00000
00000
OOOON
000-3
00005
00609
G-IOO
00005
00591
00000
005U
00000
-CODa
08059
-In'll
OUOO
-30.0
-0141

00222 10 005U
00234 4R 00520
00246 lJ 08059
00258 J5 001200210 JI 00609
PAEPARE TO MAKE AN ENTRY IN INDEX TA8LE
TSTUFF,TPlLE,6U,
STORE THE SYM8DL NAIIE AND SU8SCRIPT
00282 00 01UJ

-CZ45
-0548
00591
00000
OOOJl

000-2

OUTII,II8C

UPDATE NOl
CtE AR GROUP MARK

N02,TEMPNG-l"
SETG".6,,6,
TFILE,n,lO

006011

PAGE

03150
Oll60.
0311003180
03190
03100·
04010 PUTO

aL

TSTUFF,2,I0
OOZ94 11 01811
TSTUFF,TEMPNG-Z,6, STORE THE NO OF SECTORS
00306 20 0118J
INCREMENT TO NUT POSITION IN TA8LE
TSTUFF,I4,IO,
00318 11 01181
UPDATE TOTAL NUMIER OF EIHR I ES
TOU,I,IO,
00330 11 OU86
UPDATE NO. PRESEIHLY IN BUFFER
OU,L,IO,
00342 1I 07813
CHeCK TO SEE IF IUFfEA IS FULL
DU,6.10.
00354 14 07813
00366 1111 00546
8ACKTO
.REPARE TO OUPUT 8UFFER TO FILE
SECTOR. 01800
00318 J6 00585
0010SK,01800"
SECTOR COUNT. 1
00390 J6 00588
00XSEC,I,9,
CORE ADDRESS • TAaOUT 00402 J6 DOS')
DDXCOR,TABOUT"
OOKOSK
•
ODXDSK
•
N03
00414 II I 00585
OOXOSK.N03"
CHECK FOR TAILE OVERFLOW
OoloSK.ENOEI"
00426 J4 00585
004)1 Ml 00414
"UTD

PUT

DOUV,IIBC

04020
04030
041040
04050
04060.
04010 I I I
040.0
04090 DUTil

AM
All
TFM
TFM

NOIIRIT ,h"
N03.hIO,
DEI,,10.
TSTUFF.TAlOUT.U

BI
DDAG - 9
DOW .OUTA "N.A

O
00486
00498
00510
0052Z
00534

10 00565 -0~97
411 00520 -0511
11 07'90 00-01
II 01898 COO-I
16 07883 000-0
16 07881 -711)

00546
00548
00548
00550
00555
00556
00562
00565
00510
00561
00564
00569
00571
00513
00518
005'0
00586
005.9
00594
00585
00588
00593
0162.
00599
00604
·00609
DO''''

00002
00005
00001
00006
00003
00005
00001
00000
00000
00000
00002
00005
00001
00006
00003
00005
00001
00000
00000
00000
00000
00005
00005
00005
00000

U

00000 00000
20
-OS"
•
0-0000
-00
-0000

20
-05'0
'
0-0'1.5
M8.
-0595

I

PAGF.
05070 TASOUT
0~080 TSTUFF
05090 OEX
05\00 PiN
05110 TDU
05120 HOWRlr
05130 NOGET
05140 H02

OS
OS

,01770
,0788\
,07681
,01391

DS
DS
OS

tl9'1'1

07110 00000
07881 00000
onu 00000
01]91 00000
01386 00000
07890 00000
078'1] 00000
08059 00000
0789. 00000
0190\ 00000
01799 00000
02406 00000
02416 00000
01999 00000

fiLE

08006

.07386

OS
OS

,07890

,07891

OS
OS

,8059

05150 NO]
HO~

OS

,07901
,1799

05160

,07898

05110 ENDCAN OS
05180 MONITR OS
05190 TV' ERR OS
05200 INOh OS
06010
OENO

,02406
,0241'

PAGE
TYPERII
TA8COII
OEXSEC
100012
CLOUT
FILE
INoSK
NO]
SAVE
SK IP
TElll

02416
0085411
0162011
00466R
0025011
OOOIOR
0160lR
07898
05187

TSTUFF
NOWRIT
OEXoSK
10002
COHP~

FOUNO
INSEC
N04
SAVEl
SUIIZ
TFIU

00~a611

0&654R

·01010010200103001040.
01050.
0106001070.
01080'
01090'
01100'
01110'
01l20'
011]001140
01150 flU
01160
01l7001110 COOE"O
01190
01200
02010
02020
020]0
02040

TSAVEI
MONITII
oEXCOR
10004
CORE
HIT
IN"
NTIM
SAVE2
nOSK

OH56
02406
0162511
0037011
01627A
00658R
0158711
016~~R

08047
OIUU

fE.PHO
INOElA
CODEMO
882
OEX
1"10
NOGEl
PIN
SAvn
TAIIN

0163211
0161211
000341\
0085211
07883
015'1.11
07a9]

on"

01071
00. . .11

lABOUT
ENOCAN
cHI(sua
8RUK
ENOEX
IHCOR
N02
RET
SETIM
TOEX

07770
01799
0057UR
0083811
01999
016MR
08059
00840R
OOIHR
01311>

laM 161a-Ull .O-.PT •••••••

...................

00009 00010
00010 H 0762B 00000
00022 l2 00005 00000

OC
CF
SF

10.0
FOUND
FllE-5

TFM
TPM
TPM
TFM
TF
TFM
C

00014 16 07901 000-0
00046 J6 01644 000-0
00058 J6 01601 -0000
00010 16 07193 00-00
00082 KO 016H 00009 .
00094 16 071'1 -0000
CHECK fOil END Of INDU TABle
00106 24 07391 07186
00 \18 "6 00,40 01200
RET
CHECK THAT NUMBU OF GETS • NUMBER
NOGEl. HOl/R IT ..
00 \)0 l~ 078U 07190
WRITES
fAaCOI(
00142 M6 00854 01200
PUPUE TO liltiNG INDEX ",alE INTO TAalN
COI!'4.6,UIIIN+11" INITIALIZE COIIPARING ADDItESS TO FIRST
OOU", JO 00340 -01"
INTRY IN T.IIN 'AILE
DOL . . J6 01644 ooa-o
HTiM • 0
H,," .. l0,
INITIALIZE SECTDII AOORUS
DEXDSK,OIGOO ..
00111 J. 01611 -&800
00190 ... 0,62000-07
SECTOR COUNT • 7
DEXSEC,T,9.
00102 JO 01625 -01"
COR! ADDRESS • TAIIH
DEXCOAtTAIlIt"
OUOSK • DUDS« • N04 00214 III 01617 OT901
DUI'ISK,N04 ••
CLE •• OUT T.IIN "ILE
00226 JO 00256 -0'8'1
CLOUT •• , TAliII-I
Gon • .II COU6 OOOJO
CteNT+6,IO,IO
00290 20 0 . . . . 0lU4
..,..,. TiNl

INITIALIZE

BE
C

0207002010
020'10-

lIE

02100 SETI"

TfM

0211002120
021J0

TFII
TfM

ClUO

TA8lE

INTR.N SUBPROGRAM FILE)
THIS SUBPROGRAM SEAltCHES THE INDEX UBLE FOR A GEOMETRIC
CANONICAL FORM,A SCALAR ElEM!NT,OR A "ACRO OEFI"ITION
ANO BIIINGS THE COIIRUI'ONOING IIECORD INTO THE CORE POSITION
SPECIFIEO
8T" MOIIITR,NNNNO
LINKAGE IS
BT fllE3,DSAL8L+5,6
OSAl8L IS THE AOORUS IN CORE THAT THE RECORD IS TO BE
BIIOUGHT INTO
OSAlBl.' IS THE AOORUS Of THE s,"'OLIe NAIIE CALLED FOR

02050
02060

OllSO
02160
02170.
02140
02190
OUOO CLOUT

0788\
07890
0161711
0067011
OOlHR
07628
01604R
07901
0&011
0062611
0164211

SY~80l

""

TfM
A
TFI!
A"

'f

H04" 10
NTlM" 10
I"OSK"
HOGET, ,'I
TFllE,FllE-&
'IN ..
PIN, TOU"

paGE"

eM

ClOUT'6.f'81~'6 ••

TOM
BNF

CLEAR GROUP MARK
00766 J5 OOOOM 00000
CHECK TO SEE IF SECTOR ACDRESS MUST BE
00118 M4 00838 05181
SAVED
00190 H 05187 00000
SAVE
00802 KJ 01601 01604
UPDATE INOSK
INOSK,INSEC, ,
00814 20 08011 01601
SAVE SECTOR ADDRESS
SAVEI,INDSK"
00826 26 02456 08011
SAVE SECTOR ADDRESS
TSAVEI,SAVEI"
RETURN TO CALLING PROGRAM
00838 42 00000 00000
008~D 41 00000 00000
RETURN TO CALLI NG PROGRAM
00852 42 00000 00000
PREPAAE TO CHECK SYMBOLS IN BUFFER
00854 J6 00340 -1181
1:0"P4'6, TABOUT"I
00866 J6 01644 000-0
NTIH.,lO
00878 M9 00)22 00000
CO"P4-12
00885 00001
1,0
00886 00001
1,0
009]6 00050
50.0
009B6 00050
50.0
010]6 00050
50.0
01086 00050
50.0
011 16 00050
'JO.O
01186 00050
50.0
01216 00050
50,0
01286 00050
50.0
0lH6 00050
50,0
01386 00050
50,0
01436
00050
50.0
01486 00050
50,0
01516 00050
50.0
01585 00049
49,0
01586 00001

00262 J" 00H6 -1585
BNE ClOUT-ll
002H Ml 00218 01200
OJ020
UI~G INDEX UBLE I~TO UBIN
0303000286 l4 01612 00101
INOEXA
SK
03040
00298 L6 01612 00702
RON
INOEU
03050
UPOATE N04
00310 II 07901 000-1
AM
N04.7,lO.
03060
00]22 H6 00H4 01400
03010
BV
"12
COl'PARE SYMBOL NAHE
OO]H 2M 09999 0164K
9999. TFllE, 11,
0]080 COMP4 C
00]46 "6 00)10 01400
0]090
A004
BV
00]58 H6 00578 01200
BE
CHKSU8
01100
INCREME~T TO SECTOR lENGT~ FIELD
AM
CO"P4'6,4,10.
01110 A004,
00]10 JI 00340 000-4
00)82 KJ 01601 0034INOSK,COMP4'6.11, UPDATE INOSK
A
03120
00394 II 01391 000-1
P1N,l,10,
PI~ • PIN' I
AM
Oll]O
00406 24 01391 on86
END OF TABLE
OH40
C
PIN, TOfX"
00418 "6 00840 01200
ReT
03150
BE
OOHO JI 01644 000-1
AM
NTIMtI,lO,
0)160
NTIN - NTIM • I
CHECK IF SKIP MUST BE PERFORMED
NTIM,6,IO,
CN
03110
00442 J4 01644 000-6
00454 .6 00486 01200
BE
SKIP
0]180
INCREMENT
TO
NEXT
SYMBOL
NA"E
COMPH6,12,IO,
0)190 AOD12 AM
00466 JI 00]40 000J2
00478
M9 00322 00000
COMP4-12
87
03200
004A6 II 0189) 000-1
NOGEl • NOGET • I
AM
NO Gel 01,10,
04010 SKIP
•
~O
WRITES
CHECK THAT NO GETS
NOGEl ,NOWR IT ..
04020
C
00498. 24 0789) 01890
00510 "6 00854 01200
aBCOR
04030
BE
COMP4+6, UBI N'695, ,CHE CK FOR ENO OF TABIN TABLE
CM
04040
00522 J" 00]40 -15BI
00534 M6 00154 01200
04050
BE
SeTlM
00546 JI 00]40 000-4
AM
COMP4+6.4,lO
04060
00558 J6 011>44 000-0
NflM • 0
TFIe tntM,.lO.
04070
00570 M9 00466 00000
04080
Al
AOO12
. PREPARE TO CHECK SUBSCRIPTS
0409000518 JI 00340 000-2
COMP4+6,2,10,
04100 CHKSU8 AM
00590 J2 01642 000J2
SM
TFllE,12,IO
04110
tF ILE ,COMP406,6I1, C.ECK FOR EQUAL SUBSCRIPTS
04120
C
00602 KM 0164K 003400614 M6 00658 01200
04130
8E
HIT
CHECK
NEXT SYMBOL
UNEQUAL
••••
RETURN
TO
SM
COMP4'6,2,IO,
04140
00626 J2 00340 000-2
00638 JI 01642 000J2
AM
TFILE,I2,IO
04150
00650 .9 00370 00000
ADD4
04160
B
00658
DORIO --]
04170
SYMBOL AND SUBSCR I PT HAVE 8EEN FOUND
0418000658 32 07628 OCOOO
FOUND
04190 HIT
SF
I NCREMENT TO SECTOR LENGTH F I ELO
AM
COMP4+,,2,10.
04200 AoD2
00670 J I 00]40 000-2
'TRANSFER SECTOR LENGTH TO INSEC
TF
I~SEC,COMP4+6,11,
05010
00682 KO 01604 003400694 l ] 0160] 00000
CF
INSEC-I
05020
TRANSFER CORE POSITION TO INCOR
TF
114COR, FllE-6"
05010
00706 Ko 01609 OC004
FIlE-8,COMP4.6,l1, COMPUTE GROUP MARK POSIT IGN
05040
A
00118 KJ 00002 00]400730 J5 OOOOM 00000
SET GROUP MARK
05050
TO" FILE-6".,
OOHI
00001
05060
OG"
BRING CANONICAL FOR" INTO ~E"OAV
0501000742
10 00565 -0165
INII,RBC
05080
GET
00154 4R 00566 -1581
OlOIO

suu

PAGE
05090
05100
05110·
05120
05110
05140
05150
05l6005110 BRSAK
05180 RET

CF
A

TF
TF
8B2
NOP

05190BB2

FllE-6,,6.
BRUK,SAVE"

05200 882
0601006020 TABCOR
060]0
06040
06050
06060 TABIN
06010
06080
06090
06100
06110
06120
06110
06140
06150
06160
06110
06180
06190
06200
01010
07020010]0 INII

DOli

07040 INA

OOA

"INOSK,INSEC .tNCOR

01050
01060 INDSK
07010 INSEC
01080 INCOR
0709001100 INoEU

OC
OC
DC
DC

5,O,INA+S
),0.IN4'.
S,O,INA'13

DoA

"DEXDSK ,OUSiC',oUCoR

TFM
TFII
B1
DC
DC
OC
DC
DC
DC
DC
DC
OC
DC
DC
DC
DC
DC
DC
DC
DG"

07110
DC
07120 DEXOSK DS
07130 DU SEC DS
01140 OEXCOR OS

I, '

1,'
,INOEU.'
,INOUUS
.lNDf . . . . )

0115007160
01110
01180
01190

one,)

CORE
TEMPNO
SVDSK
IF ILf
NlI"

O>\-tl'dl T.fhl

DS
DC
DC
DC
DC
DC

1
5.0
5,0

5.0
2.0
~o,o

01581
OU89
01594
01596
01602
01605
01610
01601
01604
01609

00002
00005
0000 I
00006
0000)
00005
00001
00005
0000)
00005

20
-15OJ6
'
0-1601
004
-1609

01612
01618
01621
01626
01611
01620

Dun

00006 0-1617
00003 020
00005 -1625
00001
00000
00000
00000

01627
01632
01631
01642
016 ...
0ln4

00001
00005
00005
00005
OOOOl
00010

Oe02nOOOlO fOU~O
060'"0 T ABOUT
oeo~o SAVE
08060 SAVE I
08010 SAVEl
08080 SAVEl
08090 TS TUFF
01100 De.
08110 , IN
08120 TOU
06110 NOWA IT
0"40 NOGET
01150 NOZ
08160 NO)
0.170 N04
06180 TSAVeI
08190 ENOCAN
08200 MON I T~
09010 TYPU~
090Z0 ENOU
09010

tO~"ON

OS

.Oll.7.a

OS
OS

.07710
.05181
.08011
,08041
,06071
,07881
,0788)
,07)91
,07386
,07890
,01391

0$

OS
OS
OS
OS
OS
OS
0$

OS
OS
OS

ARIA "IT"

'AGE

~'I~ll~f

01.Z6
01110
0'187
08011
080'"
06071
07881
0768)
07391
01386
07890
0789)
08059
078''10

.80"

,07691
,07901
,024"
OS
,1799
OS
,OHO.
OS
,OZ416
,19,.
OS
OENO FILE

OS
OS

07~01

OHS6

01799
OHO'
02416
019'1.
00010

•

00000
00000
00000
00000
00000
00000
GOOOO
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

'AGe
sY~80l

MINSEC 00120R
INOATI 07)95

01010_
01020010 30-

MINOS_ OOII7R
COOEMI OOOOOR

TA8LE

MINCOW OOIO}R
8~AlN 10004

MINOOA 00112.
GETIT 0004'~

MINCOR 00125.
SAVEl 08011

IBM 1620-1311 AO-.PT •••••••

INTRAN SUBPROGRAM FILE4
THIS SU8PROGRAM IRINGS PART OF A "AC~O INTO THE IN'UT AREA
010~001050.
LINKAGE IS
8TM "ONIT~,NNNNO
•
FllH
010600101001080 tOOEMI TF
"INOSK,SAVEl ..
SET UP SEt TOR 'OORESS IN CCA
00000 K6 00117 0.011
01090
TF" "INCOR,INOATI-l •• SET UP CORe ACORfSS IN OOA
0001l J6 00115 -7)92
01100
TFII M1HSEC,2,9,
SET U' SECTO~ COUNT IN OOA
OOOH J6 00110 OO-OZ
SET GROU' ,uu
0111000036 15 01592 00000
TOM INOAn.l97
01120
00047 00001
01110
O'M
BRING IIAtRO STAToeNT INTO IN'UT AREA
01140.
00048 10 005U -oon
01150 GETlT GET III NOOII
00060 4R 00566 -010)
01160.
CLE'~ OUT GROU' MA~.
00072 15 0759Z 00000
01170
TOI'I INOATlH97
00084 11 08011 OOO-Z
All
SAVEl.2ol0
OIUO
RETURN TO IIAINliNE
01190.
00096 49 10004 00000
8MAIN
01200
87
00103 00002 KO
02010 IIINOOIl DOli ,MIHDDA, ..... A
00105 00005 -OIIZ
00110 00001 '
00112 00004 0-0117
Ol020 IIINOOA OOA ,.MINOSK.MINOSK.IIIHCOII
00111 00001 J17
00L2L OOOOS -Oil'
00Ll6 00001
02010
DC
00117 00000
.MINDD0\+5
OZ040 IIINOSK OS
00120 00000
02050 IIINSEC OS
."INOO'"
oOln OOOQO
,IIINOOA.n
02060 IIIMCO~ OS
COIIMON AREA lilT" IIAIIILINE
02070.
08011 00000
02010 SAV~I os
,08011
0719S 00000
02090 I~OATI as
.01)95
10004 00000
02100 IliA IN os
,10004
00000
02110
OENO CaDEll I

.. '

$11

PAGE
SV"BOL U8l.E
REH02 00092R
(OUNT 001l6R

RESTDI

lIess

01010.
01020.
010300104001050·
01060.
01070 1l0UM' TFIO
01080
01090

TF"
TF"

01100
01110
01120
01130 RESTOI

TF"
TO"
87
TO"

01140
SM
01150 REST02 TOM
01160
01170 COUNT
01180
01190
01200

AM
All
A"
CF
TO

02010
02020

A"
TO

02030 TREC
02040

TR
8NR

02050

TO

02060
0'010

SM
TO

02080 POSN

SK

02090

WON

02100
02110
02120
02130

AM

AM

SMBNl

0006G~

00391R

OUTPUT 003 lbR
""00 oooon

IlOU'"
POSH

OOOOOR
0024811

ALF." 0047311
UEC 0011.11

II .. 11>20-1311 AD-APT SU8'ROGUM'OR INTUN
EXECUTJON-INTEUUPT MODE MEIOOIIY TO fiLE DU"'
RCS
LINKAGE IS

81

1l0UIO' .. ,

SUBPROGU' ENTRV
NMOO, ,1O,
CLEAR MeMORY 'COULE COUIIT
00000 J6 00009
OUTPUT.S,OHoO
000\2 J6 00)11
OUTPUT+U",
INITIALIZE IOE,ORV ADDRESS
00024 J6 00389
TRECU,-1
00036 J6 00194
0.0. ,
CLUR POS IT IC" 00000 00048 15 00000
COUNT
00060 "9 00116
TItEC+6 .. 6,
RESTORE POSITION "'00-20000-1
00068 J5 001911
TREC+6.19999
00080 J2 00194
TREt+6, ,6.
RESTORE POSITION NIIOO.ZOOOO-20000
00092 J5 0019"
TREC_6,19999
00104 JI 00194
NMOO • NIOOO _ I
HMOO.l,lO.
00116 JI 00009
TREC+6.1.10
00128 JI 00194
TREC_6
00140 l3 00194
RESTOZ+II. TREC_6.1I. SAYE POSITION "IOOO·20000-Z0000
00152 KN DOlO]
TREC_".19999
00164 JI 00194
RESTOI-II. TREC_6.1I. SAYE 'DSITION NMOO·20000-1
00176 KN 00079
00188 3J 00000
.AlFII"-1
RESTOI ...
8RANCH IF NO RIt IN POSITION 00000
00200 liS 00068
TREC_6,RE STOI+II,6 ,RES TORE POSITION ""00.20000-1
00212 KN OO"M
TREC+6.19999
00224 J2 00"4
TREC+6,REST02+11.6.RES TORE POSITICN NI'00.20000-20000
00236 KN 00""
OUTPUT •••
POSITION AR' FOR CISK WRITE
00248 L4 00376
OUTPUT •••
OU'" 20K TO DISK 1100 SECTORS I
00260 L8 00376
OUTPur.).2,10.
"OOlfY SECTOR ACORESS 00272 JI 00379
OUTPUhI0.20.10.
"OOIFY MEMOAY ADDRess 00284 JI 00386
NIIOO,I,IO
00296 J2 00009
BUNCH IF DUMP NOT COMPLETE
POSH, ••
00308 M7 00241

000-0
-1400
-0000
-OOOJ
00000
00000
00000
J9999
00000
J9999
000-1
000-1
00000
0019"
J9999
0019"
00072
00000
00079
J,t"9
00103
00701
00102
000-2
OOOKO
000-1
01200

02HO.

02150
02160
02110
02180
02190

onoo.

RCTV
RCTY
WATY MESS
H
CALL EXIT

0)010 OUTPUT DDA

00320
00332
00344
00156
00368

,0.0)400.200.0

14
30
L9
48
49

00000
00000
00391
00000
00796

eOloz
COI02
00100
00000
00000

00316 00006 11-)400

PAGE
00)82 00003 KOO
00315 00005 -0000
0]020 "ESS

OAC

01030·
030'0 H"OO
03050 ALFR"
0)060

2.1 TDUMP.'!
OS
OS
2."ESS-41-2
OENO IlOU"P

42 ••• AD-APT

INTRAN £KECUTlO" INTEUI,IPTEO

2

_.'

00391 00084
00009 00002
00473 00002
00000

51

SV~BOl

9RCYl ) 00519

911CYl2 00H7
9CCYll 02111
IHPUT2 1421&
COU~T 13912
POSHI U960

QCCV12 02115

INPUT) 142~2
Cl MAP 140)2
Nil DC U'I2I

010100102001010'
01040
01050 ITLOAD
01060 COUNT
01070
01080 TREC
01090

9ftCVll 005n
'!ceYlO 02111
INPUTl 14264
lNIT 07974
POSHZ 14152

9ACYlO
HOHI TR
CElDIN
MesS
POSH)

00513
02404
00000
14301
14114

9CCYl)
I TLOAO
ALFIIM
MOO

nEe

01117
13'100
14381
14104
139]6

18" 1620-1311 AD-APT PROGRAM 'OR I"TRAN
EXeCUTlON-REINSUTE MODE FILE TO ME"ORY DUMP

DORO 13900
TDN 0,0, •

RCS
13900
13900 IS 00000 00000
U91Z 1I 13921 0-0-1
11924 II I )44i kOOOO
11916 31 -OOOJ 14380
IN POSITION 00000
13948 45 1)912 00000

AM
4M

HIIOD,I.810.

CLEU POSITlCN 00000
HMOO-IIMOO+l

TA
BNA

-I.ALPRM-I.Z
COUNT ...

BRANCH IF NO

Tue •• ,~oooo

01100Oil 10 P05N1

SK

INPUTl ...

01120

RON

INPUTl ...

Oil 30

RON

INPun ...

01140
01150
01160
01170 CLMAP
01180
01190
01200
02010
02020
02030 MOD
02040
02050
02060

TF
AM
SF
TFM
TF
AM
TF
AM
TFM
AM
AM
SM

CLMAP+6.MONITR
CLMAP+6.U.l0
CLMAP'6
999~,,111

·+15,MQPHTR

81

"23.U.l0
.']0,9999
·.11,2,10
9999 .. 111
INPUn ..... 20.IO,
INPUT)+\0.20,IO,
NMOO.l.IO.
POSN), ..

SK

INPUT), ••

02090

RON

INPun ...

02100
02110
0212002110 POSNl
02HO
02150

MOD
8
DORG --l

02160
02170
02180
02190
02200
03010.
03020 INPUll

RClY
RClY
WATY MESS
HIlT
8
DORG - l

02010.
02080 P05"2

"'(~E

UOLE

MM
TF
SK

OOA

9CCYLO.20.10
INPun.4,99
INPun ...

AM

POSITION ARM TO CYLIIIDER 00
13960 34 1~26~
LOAD CORE POSITIONS 00000 THRU 13899
1)972 ]6 14264
LOAD CORE POSITIONS 14~00 TMRU 19~99
U984 ]6 14218
1)996 26 14038
14008 11 14038
14020 32 14038
14032 16 09999
1,044 26 14079
14056 11 14019
14068 26 14098
14080 11 14097
'"092 16 09999
MODIFY SECTOR ADDRESS 14104 11 14296
MODIFY MEMORY ADDRESS lH 16 11 14102
~MOO'~MOO-I
lH28 12 Iln I.
8RANCH IF MEMORY FULLY REINSTATED
14140 46 141B4

00701
00702
00702
02406
OOOH
00000
-00002406
OOOJI
09999
000-2
-000OOOKO
OOOKO
000-1
01200

POSITION ARM FOR DISK REAO
14152 34 14292 00101
LOAD 10K TO ~£~OAV 1200 seCTORS I
14164 ]6 14292 00102
14176 49 14104 00000
14184
14\84 I ) 02111 OOOKO
1<196 26 14296 00099
RE pas IT I ON ARM TO CYLINDER AT DUMP TIME
1.. 208 14 14292 00701
14220 ]4 00000 00102
14232 34 00000 CO 102
1~2H 39 lH07 00100
14256 49 01976 00000
14264
14164 00006 0-1400

.0. )400.119,0

,.GE

03010 INPUll DOA

.0. )5~ •• 56, 1 ~400

0)040 INPun ODA

.0.1400.200.0

03050 MESS

OAe

38 ••• Ao-APT INTRAN £KeCUTlo"

05
OS
05
OS
OEND

2.COUN1+9
2.M£SS+)702

0'060-

01010 NMOO
01080 AlFRM
O}O~O INIT
03100 "ONITR
01i10

,07916

.02401>
ITLOAD

RESU~EO

'.'

H270 00003 J19
1421) 00005 -0000
1~278 00006 0-1544
14284 0000] -56
14287 00005 J4400
14292 00006 O-HGO
l~l98 00003 ~OO
14]01 00005 -0000
lUOl 00076
13921 OOOOl
14381 OOOOl
07Q76 00000

&2406 00000
13900

52

PAGE

"

fYPERR
RTHetA
LHILI"
FllERO
CHKCIA
CCDU
liNt
MAY I
RTOSA
TDATA

02416
02416
02.11.

172_~

TDATA6
RETUAN
lINCiR
ERRlOI
CENTt I
FINDZ
L INKD
ONC IR

03312
02.11
02H6
16710
17088
D2_16
16497
16517

169"9

SYII8I

O~289

XV

16HI

01680
16812
16507
02.16

oun

01010.
OIOZO·
010)0.
01040.
01050.
01060.
01070.
01080.
01090.
01100.
01110.
01120.
011 30.
01140.
01150.
01160·
01170
01180
01190
01200
02010
02020
02030
020_0
02050
02060 LLDSA
02070
02080·
02090 LlNKD
02100
02110 CCDSA
02120
02130 ONCIR

Sy~eOL

TABlE

TDATA~

03362
\6676
16804
17028
17224
07712
1735]
165H
04315

IIX'FOR
LEVELl
0110205
tAtANG
FORM
LlTAI
POINT

SY""
XVI

OnS2
02~O6

16939
02416
16916
UTI 07731
LLOSA 16467
POLAR 16956
SY"16 0~)25

SIRSIR
L"'CO"
INfl Ifl
tlRCIA
AFORM
INIT
L IC I
RING
SYM87

16896
OH16
16980
02416
16756

07976
I6U2
02416
OltU5

11144

1111 IUo-1311 AD-APT •••••••
••••••••• I.' II •••••

INTIIA" SUIPIIDIIUII POINT
IT IIDNITA,DUL8L.'
LINKAGE IS
•
POINT
THE FDLLOWING PDINT DEFINITIONS ARE ALLOWED
PDINTlX,Y
POltlTlx,Y,l
PDINT/INTDF,LI,LZ
POINT IKLARGE ,ll/TDF,Ll,Cl
FORM-I65
POINTlXLARGE,INTOF,CI,C2
FORM- I6!I
POINTICI,ATANGL,A
FORM-27
PDINTlCENTER.CI
FORM-9
POIIiTIRTHETA,XYPLAII,A.A
FDRM-175
DDRIl
DC
OORG
NOP
DORG
NOP
DORG
NOP
DORG
OSlo
DORG
OSA

ost

16462
30,0

IM6Z
16491
164B6
16486
16416
16476
16466
16"66
16463
16467
16493

--29+5-6-6
SYMB6.0
--21
TOATh80,SYMes
--21
TDATA6,TDATU70
*-14
TDATA5

•• '.6-'"

MAYl
5,03291
MAYl
5.01271
MAYl
.5,O)Z81
SVMBI.5108,

02150 POIIIIT

DS"
DSC
DSA
DSt
TPM

02160
02170
02180
02190

TFL
TON
DC
AM

SYMB 7 .FUERO ..
SVNB7.1

SET SYMn

UTI,12,IO,

INCRE~ENT

02200
03010
03020
03030

CF
CM
BE
CN

XYl

021~0

TOAU4
"CHITR
LCCNOS
tlRCON
CALtON

1,',-

FORM,IT"e.

SET SVM81

CHECK FOR

POUR

FOR .... l6' •••

CHECK FOR

00030
41 04125 00000
41 03413 04315
41 03372 01401
00005 -]]62

16497 00005 J7244
16498 00005
16507 00005 J7Z44
16508 00005
16511 00005 J7Z4~
16518 00005
TO 51 FOR PDINT RECORD
16!12~ 16 04289 0-051
TD lERO
16516 06 04315 07680
16548 15 04136 oeooo
16559 00001
TO 1ST ELEMENT
16560 II 07731 OOOJ2
16572 ]] 11l~~ 00000
FOR" 175
16584 I~ 07712 0-1 n
16596 46 16956 01200
FDR~ 165
16608 14 07712 0-165

"AGE
030~0
BE
03050
CM
03060
BItE
SF
03010
03080
B7
03090 NXTFOR CN
BE
03100
CM
03110
BE
03120
CM
03UO
BNE
03l~0
03150 XV
B7
03160 AFORM CII
03110
BE
031800]190 ERUOI BTM
03200
BTM
04010 LEVEll CM

04020

BHE

O~O)O

CM

040".0

BE

0~050-

0406001t070 L1CI
8T
040BO
B7
0~090 CHKt IR CM
04100
041100412001t1l0 SIRSIR
04HO
04150 CALCDN
04160
04170 LCDNOS
01t\&0
010190 AlOSA
0"200
050100502005030 POLAR
05040
05050050600507005010 INTlIN
05090
05100
05110

BHE
aT
87
liT

8T
OSlo
DSC

OSlo

Dst
BT
ITII

CII
BNE
CII
INE
05120 0111205 aTII
05UO
BT
05140
INA
05150UM
051.0
8'M
05170
0'1.0.
05190OSIOO CENrea CM

16620 ~6 16804 01200
16612 14 07712 0-061
16644 47 16676 01200
NXTFOR
16656 32 I n4~ ceooo
XU
16668 49 111"" 00000
XVI
16616 lit 07712 0-037
CHECK FDR FDR~ 37
FORM,37, ••
16688 46 16980 01200
INTLIN
CHECK FDR FDA" 27
16700 lit 07712 0-021
FORM.27.S,
I
16712 46 17224 01200
CATANG
tHECK FOR IFOR~ a5
16724 14 07712 0-015
FORM,1S,I,
16716 47 16156 01200
AFORM
1674. 49 17144 00000
XVI
167U 14 OT7l2 0-009
CHECK FOR FOR" 9
16768 1t6 17088 01200
LOAD AND CALL TYPERR SUBPROGRAM
16780 17 02400 -3090
MON ITR, 0 3090, 6J
IU92 11 02UO -0301
TYPERR,301,6J
CHECK &ST SURFACE FOR LINE
TDATA~,a.1D,
16804 14 D3352 000-1
16816 47 16872 01200
CHKCIR
16828 14 03393 000-3
TDATA" . . a.). ao
1681t0 46 169a6 oa200
CAlCON
INTERSECTlDN DF LINE AND CIRCLE
LDAD AND CAll L INC SUBPROGUI'
IIONITR.L1I1KD+5.6
16852 27 02400 1650Z
L1NC .. 6
16864 ~9 oZ~ID 00000
TDATA4.2,10.
CHECK 1ST SURFACE FOR CIRCLE
16872 14 0))5Z OOo-Z
16884 ~7 16780 01200
ERRlOI
INTERSECTION OF TWD CIRCLES
LOAD AND CALL lUNG SUIPROG. ."
IIONITR,CCOSA+!h6
16896 27 OZ400 165lZ
RING .. 6
16908 ~9 02~10 00000
IIONITR,LCONDS.,,6
16916 21 OZ40D 169~~
UVCON .. 6
16928 49 0241D 00000
IIAYI
16939 00005 J7244
5.01551
16940 00005
IIAYl
1691t9 00005 J7Z44
5.03261
16950 00005
PDLAR COORDINATES
LOAD AND CAU litHEr. SUBPROGRAM
16956 Z7 02400 1695,4
IIONITR ,RTOSA.' ••
16968 11 Ollt ID 000-0
AlHETA .. 610
INTERSECTlDN OF TWO LINES
LDAD AND CAU LlNLlN SUBPROGRAM
tHECIl THAT 10TN ELEMENTS ARE L I liES
16980 14 03352 000-1
TDA TA~." 10
16992 47 16780 01200
UIUOI
17004 I~ OJ39) 000-1
fOAT&~.~I,l,IO
17016 n 16780 01200
ERAlOI
17028 17 02400 -20'0
IIONITR.02050.67
1704027
02410 16492
LINLIN,LLDSA+Z'.6
AECORO IIARII INDICA'ES LINES ARE PARALLEL
IIAYZ,SYNes ..
17052 45 IT2~4 0431S
LOAD AND CALL nitER!! SUBPRDGRAM
.
IT064 17 02400 -3090
IIONITR,O)090.n
17076 17 02410 -0306
TY'ERR.)O.,.?
'OINT/CENTER.CIRCLE
CHEtll THA' EUMEIIT IS A CIIICLE
17011 14 O,"Z 000-2
TDATU,Z,IO

z

LEVELl

FORM,6), ••

CHECK FDR

FOR~

63

53

PAGE

ERftlOI

06010
06020

eNE

TfL

SYPI&5.TOAU5"

STORE II Of CENTER IN

01>0)0

TFL

SVM86, TDATA...

STORE

17100 47 16110 01200

S'Mes

11112 06 04)15

u

06040
06050
0601>0

XVI

TfL
AM

06010

TPL

06010

aNI'

06090

AM

06100

TFL

0611006120
061100614006150 CA TANG
06160
06110.
0618006\90'
06200 MAYl
07010
07020
01030
0704001050
01060 FLZERO
01010 MaNITR
07080 RETURN
01090 RTHEU
01100 LINC
01110 lINCIR
07120 CIRCON
01130 TYPERR
07140 RING
01150 CIRCIR
07160 lINLIN
07110 lIUB
01180
01\90
012QO
08010
08020
08030
08040
08050
08060
08010
08080

FINOl
SYMBI
$Y"~S

SVMS'
SVM81

UTI

81
8T

87

BTM
8TM
OSC
OSA

os
os
os
os
OS
os
os
os
os
os
os
os
00

os
OS

0'OS
OS

os
os
OS
os

11124 06 OH25

TO CHECK FOR 1 COORDINATE
11136 49 172440 00000
STORE • INS YMIS
l1U4 06 04115 OlUJ
I NtREMENT TO NEH ELEMENT
17156 11 07711 000J4
S'MB6.Ull,n,
STORE , COORDINATE IN SVMB6
1716! 010 OH25
MAYl,nz ..
CHECK IF Z COORDINATE WAS S'ECIFIED
11180 44 112H 17144
IAll,I4,10,
INCREMENT TO NEXT ELEMENT
17192 11 07711 COOJ4
SYOIU.IAfl,lI,
STORE 1 COORDINATE IN $YOI81
112M 01> OH35 OlUJ
RETURN TO CAUINIi PROGRAM
RETURN,,6
17216 49 0241J 00000
POI NT It I RClE. AT ANGl, ANGU
LOAD AND CAU CIRCON SU8PROGAAOI
MONITR.ONCIA.5,'
11224 21 02400 16522
CIRCOH,,6
17236 49 02411! 00000
LOAD AND CALL MATZ SUBPROGRAM
TO CHECK FOR PREVIOUS ZSURf CEFINITION
AND TO SUPPLY Z COORDINATE
NONITR.03l40,61
172104 11 02400 -3140
FINOl,,610
I7H6 17 02410 000-0
2,49
17268 00002
-RETURN
172H 00005 -241J
RETURN to CALLI NG PROGRAM
F ILL LAST SECTO~
78.11352 0001a
,1680
07680 00000
.OH06
02406 00000
02011 00000
.0Hll
02416 00000
.0H16
.02416
02416 00000
,02416
02H6 00000
02416 00000
.OZ"lf.
02416 00000
.OHI6
,OHI6
02416 00000
,02416
02416 00000
,01416
02416 OOOOQ
,02416
11153 00002 02
11355 00005 -2416
11360 00001 '
,02416
02416 00000
,010289
04289 00000
04)1, 00000
.00)15
.OHU
04)2' 00000
04335 00000
.OHn
07131 00000
.01731
.03]33
03333 00000
,03352
03352 00000
03)62 00000
,03362
03312 00000
.03H2
,01112
07712 00000
02416 00000
.2416
0797. 00000
.07916
MAYl.. "

OS

08110

DEND POINT

OS
OS

on62
onn

8RANCH

SYM8S.lATI.1I.
IATloI4.10,'

TDUA
TOATA"
TDATA5
TDATA6
FORM
060~O LN/CON
08100 INIT

os

K OF CENTER IN SYMe6

onu

'ACE

54

ATHEU 11362
IATi OJ?) I

OLl40
01150
01160
01170

MNjTR OZ406
0412'

COS,

azul

AtS

'TloPOINT/RTHETA,XY'LAN,R,THETA
INAME RTHEU ... NON-EIUSA8LE Df".e SUR'ROG . . ,,"
liD NU~8eR 01Z6.0ELDIM
.STORE CORE I~'GE
ITHEU . . .
LINKAGE - I

011.0 IU6I

UilO
011Z0'

'11110 11498
M
0431~

IBI' 1620-1311 All-APT OfFPRE SUBPAOGU~ FDA OfTfNMINING
A POINT DeFINED BV A StATEMENT OF TilE FOR~ ....

01010.
01020·
010 300104001050.
01060010700
01080.
010901
01100_

oLI 10

UTURH 02411
SlNf 02416

I""
SUaPROGU_ ENTRV
IATI,Z8.14,10
17HZ II 07131
X,Pl/180
17374 06 04315
THETA IN RADIANS
XtlATltlLt
InA6 01 0431'
V,I,.
THEra IN .AOIANS
11398 06 04325
MONI TR,02010,67,
CAU S INF-COSF SURROUTINE VIA MONITA
17410 17 OHOO
Y-SINFITHElAI
17HZ 17 02410
BY" SINF,V,67,
XoCOSF ITHET A)
I HJ4 17 024ZJ
BT" COSF.)(.67,
SM
IATltl4,t0
I7H6 IZ 07131
X-RoCOSF I THETA)
FHUL X,IATI,II,
17H8 03 04115
FMUL Y,IA'l,llt
Y-RoSI NF I THE TA I
11410 01 04125
B
RETURN,.6,
RETU~N 10 ~ONITR
I H62 49 02~IJ
ll",AQ
DO~G 0-4

R THfTA AM
1FL
FHUL
TFL
8T"

01180
01190
OIZOO
02010
020Z0
020]0
02040
020500
02060
02010 '11180
020800
02090
02100 UTI
02110 X
02120 Y
OZI30 MONITR
02140 SINF
02150 CO SF
02160 RETURN
OZ170

OC
DC

8,17H]2QZ

OS

62 "
,7131
,4l15
,X+IO

OS
OS

as
OS
OS

os

OE~O

-2010
-HZ'
-4115
000J4
077JJ
01HJ
00000

11<96 00008

2.-1

os

000H2
I H98
0771J
0431'

FILL LAST SECTeR

l7",Qe

OOOOZ

1~hO

00062
00000
00000
00000

i

017"~

0") 1 ~
(H,)2'1Ij

.2406

0111i06 00000

,2416
.2HI
,2411
ATHEYA

02416 00000
0"11 00000
0"11 00000
l'l62

.AGE
TYPERR
RfTURN
01"207
IAn
RING
XBOSA
VBOSA
liNT

01416
02"11
1750.
07131
11456
17427
171043
18056

TOAlA7
"ONI TR
CIROSA
INIT
SYM85
XBIG
YBIG
21NT

OtOlO010200
010]00
010'0001050010600
010700
01080'
01090
01100
01110
01120
011]0
01140
01150
01160
01170
01160
01190
01200
02010
OZ020 CIROSA
020]0
020'0 OU207
02050
OZ060
02070
OZODO
02090 K80S ..
02100
02110
OZI20
OZUO
02140
02150 \'80SA
021"0
02170
0218002190 RING
02200
03010
03020
OJ010-

TABLE

roATA6
ERR307
CIRCIR
ITSXI
SYM86
XL IT
nIT

03112
18066
02416
17980
OH2.
17820
18000

TOAU5 0]]62
ER~301 17636
0lG2 18020
ITSYI 17800
TDATA 0))31
18111
XI
VI
\81"

TOAU4
OSA201
flAG
MUIF
IEMP
Xl

yz

0llH
11411
00079
02416
18121
18151
18161

18H 1620-1311 AD-APT •••••••

.••.•....•....•••..

INTRAN SUBPROGRA" RING
aT MONITR,DSAUL.5
LINKAGE IS
8
RING
THIS SUBPROGRAM CONTROLS FINDING
THE ItHERSECTlON OF TWO CIRCLES
OORG
DC
OORG
NOP
DORG
NOP
DORG
NOP
OORG
NOP
DDRG
NO.
OORG
OSA
OORG
OSA
OSC
OORG
HOP
OORG
OSA
OORG
OSC
OORG
HOP
OORG
OSA
DORG

list
CM
aNE
CM

INI!

01040-

OIOSO DIM201 I'll
1>1

(HObO

o),no

03362
02,"06
17367
07916
0.315
11660
17840
11540

SY~BOl

8N
e IReolC 1731>2
K

0101001020010]0010~0-

onn

onu

'OAU4
COSF 02421

II

OUI2

PAGe
TABLE

IIETURN 0241\
EAlOI 17526
SlNF 02"16

PlIl80 11559
H

•

03362
04US

MDICITII 02401>
IATI 017)1

V

OHZS

18" 1620-1311 AD-APT DEFPRE SUBPROGRAM FOR CETOMINING
A POINT DEFINED 8V A SUTEMENT OF THE FOR~ ....
RCS
PT I-POINT Ie 1. AUNGL. THETA

01050oNAME CIRCON ••• NON-ERASABLE OEFPIIE SUBPROGRAM
01060olD NUMBER 0)28+0ELDIM
0107001080-STORE CORE IMAGE
01090LINKAGE - .
CIRCON,,6
01100DORG 17362
01110
11362
01120SUBPRDGRA~ ENTRY
OIUO ClRCON eM
TDAU4.2.IO
17362 14 03352
011~0
BICE ERIOI, ••
BRANCH IF ELEMEICT IS 1C0r A CIRCLE
11314 "
I7U6
0115001160
AM
lATI.28.IO
11386 II 077)1
0\170
TFL
•• 1'11180
17398 06 04115
FMUL x.UfI.lI.
0\180
THETA IN RADIANS
17410 03 0431~
v,., •
01190
TFL
THETA IN RADIANS
11422 06 OH2S
01200
CALL SINF-COSF SUBROUTINE VIA MONITR
BT" MONI TII,02010,61.
17434 11 02400
8TM SINF,V,61,
02010
YoSIICFCTHETAI
17441> 17 02410
BTM CDSF,.,61,
02020
.-COSF ITHETA I
17458 17 024ZJ
020)0
FMUL X,Rt.
X-RoCOSF ITHETA I
17"0 0] 04)15
020~0
FADO X,H,.
X-H 0 I 04]25
02010
RETURN,,6,
8
IIETUII" TO MeN IT It
17518 49 0241J
02080
DORG - )
17526
0209002100 ER)OI BTN MONITR,0)090,67,
CALL "PERil SUBPROGRAM VIA MON ITR'
11526 11 02400
BTM TYPERR,)OI,n.
02110
~R ITE ERIIOR MESSAGE ••• EX IT'
11538 IJ 02~IO
02120_
02\)0
DC
8,17451292
11557 00008
021~0 PI1l80 DC
2,-1
17559 00002
0215002160
OS
FILL UU SECTOR
2 ..
11561 00002
02110 TDATA4 OS
;n52
03352 00000
OZ180 IAn
OS
,7731
071]1 00000
02190 X
OS
.4315
04315 00000
02200 Y
OS
,.+10
04125 00000
0)010 H
OS
,3362
01362 00000
0)020 K
OS
,3372
01172 00000
03030 R
OS
,nez
03382 00000
a )040 "ON ITR OS ,2406
02401> 00000
03050 RE rURIC OS
,2411
02~1I 00000
0)060 SINF
OS
02416 00000
;2411>
0)010 COSF
os
,2421
02421 00000
0)080 TYPFRR os
02416 00000
,2416

COO-Z
01200

oeoKS
17559
077lJ
OHIS
-2010
-4)25
-4315
03382
on62
0)]82
0])12
00000

-J090
OOLOI

PAGe

01090

DEND CIRCON

In6Z

\

,

I

PAut'
$y~aOL

TYPEIIR
MOllnR
0lM206
ITSXI
SYM6S
XBIG

YOIG
21 NT

OHIt.
02406
IIH8
179H
OHIS
IT654
17834
11514

01010'
01020'
01010.
01040.
01050.
01060_
0107001080'
01090_
01100
01110 DU206
01120
01130
011"'0
01150
01160 nOSA
01170
01180
01190
01200
02010
02020 nOSA
02030
020"'0
02050
02060
02070
02080
02090
02100
02110
02120
02130
02HO LCOSA
02150
0216002170 llNC
02\80
02190
02200
03010'
0)020 0111206
0)030
0)0"'0

O)3n
02"'16
1601'"
1719 ...
SVH86 04325
~lIT
11814
YLIT 11994

lOAUI>
L1NCIA
DIG2
ITSVI

FLAG
LCOSA
TOAU
XI

17 ... 09
Oll]]
18115

VI

IIU5

00019

TOAU~ 03352
EAR)OI 17630
IATI OlTlI
liNe 17"'50

TEl"

Xl
Y2

18155
11125
IIIU

ReTURN
OSAZ06
INIT
!'UIF
XeOSA
vaOSA
liNT

DHlI
17366
07H6
OZ416
IlH7
17391
11050

..............••••.

INTAAN SU8PROGU!4 LINe
THIS ROUTINE CONTAOLS FINDING THE INTERSECTION
OF A LINE AND CIRCLE OEFINED IY
POINT/XLARGE,INTOF.LI.CI
LINKAGE IS
8T MDNIT~,O$AL8l.'
e LINe
OO~G

17362
0114206+24
5,02061
oORG OSA206.5.5')-11
NOP xl.SYMn
DORG '-14
DSA X2

OSA
OSC

OORG

OSC
oORG

NOP
OORG

OSA
OORG
DSC
DDRG
NOP
OOAG
NOP .
DORCi
NOP
PORG
NOP
DOAG
OSA
DORIl
CM
BNE
CM
8NE
8T
8T
8NR
CM
SE

03010
03080
03090
03100
03110
03120
03\30'

8E
CM
SE
CM
SE

0."'0

TDATU 03362

ERRlO? 11082

18" 1620-1)ll AD-APT •••••••

03050 21NT
0)060

031~0 ERAJOI
03150
03160'
03170 xatG
OJI80'
03190
03200
04010
04020040300"'0 ... 0
0"'050
0"'06004070
0408004090
04100
0"'110
04120
0"'\30'
0"'1"'0
0"'150 ITSYI
041600"'110
0"'1800"'190 XllT
04200
05010'
05020 YlIIG
05030.
050"'0
05050
05060
0507005080'
0509005100
05110
05120051 )0
05HO05150
05160
05110
05180
0519005200
04010 ITUI
0602006010
06040ObO~Q YLIl

TABLE

eM

BTM
BTII
TOIl
TFL
fSUB
8Z
8TM
BT
TFL
FSUB

HZ
TFL
TFL
B7
1FL
B1
TDII
87
TOM
TFL
nUl
Ii

8TII
IT
TFL
FSUI

8Z
TFL
lFI.
87
TFl

81
TOIl
11

17162
17366 00005 J1522
11361 00005
IHn
11316 "'I 18115 OHI5
11313
11117 00005 J8125
11388
"5.'-'"
1,1
17188 00001
0+5')-11
Inn
Yl, SVM86
11392 41 181'5 0"')Z5
-\4
17189
Y2
1719) 00005 J8145
"S')-4
11404
1,7
11404 00001
"5'9-11
11"'38
X2,V2
11438 "'I 18125 181"'~
-21
11428
XI,YI
17428 "'I 18115 18\35
-21
I1H8
TOAlA.80. TPAU>90
17418 "'I 0)413 0342)
--21
17408
TDAU6.TOAU.70
11"'08 41 0))12 0)403
.-14
11405
11409 00005 -))62
TDAT"
.>5.9-+
I1HO
CHECK THAT elEMENTS ARE liNE AND ClAClE
TDATA4.I,10
11450 H O'HZ 000-1
11"'62 41 17630 01200
EARJOI
11 ... 14 14 0)393 000-2
TDA TA4.410 2.10
17486 ... 1 176)001200
ERRlOI
DETERMINE INTERSECTION Of liNE AND CIRCLE
HONITR.DSA20'.5.6
.
17498 27 02400 17371
17510 27 02HO I7H9
LINCIR.LCOSA.40 ••
RECORD MARK INDICATES 2 INTERSECTIONS
DIG2.flAG ..
17522 45 18014 00079
CHECK FDA XLARGE
17534- 14 0773J COOll
IATI.J10610.
11546 46 116,... 01200
XUG

PAGE
17558 14 077)J
11510 46 1781'"
17582 I'" 071lJ
CHECK FOR YlARGE
175H "'6 11834
17606 I'" 0173J
CHECK FOR YSMALl
17618 "'6 1199~
LOAD AND CALL TYPUR SUBPROGRAM
17630 17 OHOO
MONITR,03090.61
17642 17 02"'10
TYPERR,lOI.61
UARGE •• SET DIGIT TO PICK LARGE X
176H 15 17188
XBDSA+11.7
DETEA~INE IF Xl-X2 ••• EflROR
17666 06 18155
TEMP. Xl
17618 02 18155
TEMP,Xl
17690 46 18082
ERII307
lOAD AND CAU MUIF TO DETERI'INE
LARGER OR SMALLER OF 2 SCALARS
17102 17 02"'00
MONITR,021J0,61
1771~ 21 02410
MAXIF, XBOS . . 11.6
ANSWER IS IN SYM85
17726 06 18155
TEMP.SYMB5
DETERMINE IF Xl IS ANSWER
17738 02 18\55
TEMP,Xl
17750 ~6 11794
ITSVI
17762 06 OH15
x2 •••• SYM85-X2
SYM85.X2 ..
1771'" 06 0"'325
X2 •••• SYM86·Y2
SVM86,V2, •
RETURN TO CAlli NG PROGRAII
17786 49 02"'IJ
RETURN .. 6
17194 06 0...,25
Xl •••• $V"86·Yl
SYM86,Vl,.
RETURN TO CALLING PRO·';.""
17806 "'9 02"'IJ
RETURN . . .
xSMALl
SET DIGIT TO PICK S~AlL X
1781'" 15 17368
,lBDSA> 11.'
17826 49 17666
XIIIG+12
PICK
LARGE Y
TO
DIGIT
YlARGE
sn
11834 15 17"'04
Y8DSh 11 ,1
CHECK TO SEE IF Yl-Y2 •• E."OR
118"'6 06 18155
TEMP,YI
17858 02 18155
TEMP,V2
17870 46 18082
EII1I307
LOAD AND CALL MAXIF SU8PROGRAM
10 OETERMI NE LARGER OR SMUlER OF 2
SCALARS
11882 17 02"'00
MONITR,02UO,61
11894 27 02410
MAXIF, Y8DSA+U.6
.NSWER IS IN SYMB6
17906 06 18155
TEII'.SYM'6
DETER"I"E IF Yl IS ANSWER
17918 02 11155
TEM', VI
119)0 46 17914
ITSXI
17942 06 04315
Y2 ••••• SYMU·U
SYMn,X2 ..
SYM86-Y2
17'1'4 06 OH25
SYMIU" VZ"
RETURN TO CALLING 'ROGRA"
17966 49 OH I J
RETURN,,6
179H 06 04315
Yl •••• $Y,...5.Xl
Sy",.,.Xl, •
.ElURH TO CALLING PROGRA ..
11916 49 024IJ
RETURN . . .
VSll.U •••• 5fT DIGIT fO PlC~ SMALL Y
179'14 U 17'104
Y80Shll ••
1.006 U ITa. .
nu;+u
IAT1.3Z,610,
XLIT
IA1I.35,610.
YBIG
IATl.)6,410.
YLiT

CHECK FOR XSHALl

OOOll

01Z00
COOl~

01200
00016
01200
-3090
-0)01
oe007
18115
181lS
01200
-2110
17)88
0...,15
18115
01200
18125
18145
00000
18135
00000
00006
OCOOO
00007
181)5
181"'5
01200

-21)0
17404
04325
18135
01200
18125
18145
00000
18115
00000
00006
00000

51i

~

06070 0lG2
06080·
06090_
06100
06110
0612006UO liNT
06l~0

06150.
06160
06170.
06\80 EARlO7
061'10
06200
07010 II
01010

una u

07040
07050 VI
07060
07070 Y2
07080 TEMP
070'10
07100.
07110 MONITR
07120 RETUR"
07130 L1NCIR
071"0 MAXIF
07150 TYPERR
07160 TOATA
07170 TOATAt,
07180 TOATAS
07190 TDAU6
07200 FLAG
oao 10 INIT
08020 sY"n
080)0 SYM86
08040 tATI
080~0

PAGE

eo

DIGIT INlllr.AffS I IHTEflSfCTIDN

lI"ftFllG, •

1801~ ~1

on

NO INTERSECTION
ltAO AND CAll TYPERR SUIPROGRAM
MOliITA,030'lO.'7
18026
tVPERR
18038
••••• I INTERSECTION
SYMn·ll
18050
SVMB5.Xl ..
SYM86-YI
1806Z
5VIII86"I ..
AerUlI.. TO CALL IIiG PROGRAM
kETUAN . . .
18074
LIlAO AHD CALL TYPEAA SUePAOGRAM
18082
MO"tTA.Ol090,"
180'14
TVPEAR,307.61
18113
8.0
18115
2.0
18111
8.0

DC
DC
DC
DC
OS
OS

8.0
2.0
8.0
2.0
10
6 ..

DS
OS
OS
OS
DS
DS
DS
DS
DS
DS
DS
DS
DS
OS
DENO

.02406
,02"11
,02"16
,02<016
,02416

BtN

,31.,67

ITM
TfL
TFL

It
BTIII
&TM
DC
DC

._,81

j,1l

Be

02406
02411
02416
02416
02416
OB33
0))52
03362
03372
00079
07916
OUIS
04325
07731
IUSO

,0))52
,OB62
,03172
.79
,01976
,OUI~

,O~325

,077]\
LINC

It

0007'1

02~00

-30'0

onlo -ou'

06 OHI5 18115
06 0,)25 \lIl5
4'1 Ol'IJ 00000
17 02400 -30.0
17 02410 -0307
00008
00002
eOO08
~oou

181 n 00008
1813500002
18141 00001
18145 00002
181~S 00010
18161 00006

Fill LAST SECTOR
COI'MON AREA WIT .. MAINLINE

,ann

11

IIO~O

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

.'CE
SYIIBOl TABLE
XVIXYI
TABPEP
LTPTAB
CYLOSA
C]ON
GOCAN
LMOD)
PIP2
SYMBI
XVDSA
Y2

TYPERR
RETUR"
UNPRC
ATANF
EUOI
HIDSA
MDD3D
PITCI
SYM85
XYKY

16846
16'158
02"16
17263
17273
16786
D2"16
16'102
0"289
16675
U328

02416
02"11
02416
02"16
16822
17333
17253
17106
0~315

1670Z

TDATA6
PITCON
LPTCON
CIRK
FI'I05

UTI

03372
17086
02416
17198
02"16
077]1
11\30

OKPT
PlTn 1705~
SYM86 0"325
17Z98
Xl

ICATA5
PER PAil
LMODSA
CCNK
FeRM
LINE
PTROK
/lETR"
TANF
Xl

0]362
17218
1666S
17178
07712
16462
16982
16810
02~16

11318

TOATA"
"ON IT II
LCNONI
COSF
GCOND
L"002
PIPTI
SEU2
TDATA
Yl

OH~2

02406
02416
02421
17283
02~16

\70S"
16HO
O)B]
luoe

laM 1620-1311 Ao-.. PT •••••••

...................

01010·
01020·
010]0.
010"0·
01050.
01060.
01070.
01080.
01090.
01100'
01110.
01120'
01130·

I NTRAN SU8PRDG. . " LI NE
LINKAGE IS
BT MDNITR,DSALBL'5

B

LINE

THE FOLLOWI"G L1"E DEFINITIONS ARE ALLOWED
LINE/X,Y,l,X,Y,Z
FORI'-"D95
LINE/X,Y,X,Y
FORM-255
LINE/PTl,Pll
FORI'-5
LlNE/PTI ,RIGHl, TANTO,CI
FORM-I05
LINEIRIGHT,TANTO,CI,RICHT,TANTD,C2
lINE/PTI,AfANGL,A
FDR"-27
LINEIPTI,PARlEL,LI
FORM-25
L INE/Pll,PERPTO,U
FDRM-25
LINE/PAIILEL,LI,XlARGE.D
FORM_I'5
LINE/SLOPE,M,INTERC,I
FDRM-\87
L INEIPTI,ATANGL,A,U
FDIIM-I1S
L INE/PTI, TANTD, fA8\
FDIIM-n
lINE/PTI,PER'TD,TAII
FORM-25

01l~0.

01150.
01160-

01170'
01180.
01190.
01200.
02010.
02020
02030 LINE

DDRG 16~62
AM
"n.12,10,

02040
02050
01060

TOM
DC
TFM

02070
02D80
02D90
02100
02110
01120
02130
02140
02150
02160
02170
021.0
02190'
01200.
0301003010

CM
BE
CM
IE
CM
IE
CM
IE
CM
lIE
CM
8E

"

16462
I NCREMENT TO FIRST ELEMENT
16~62

11 0773\
15 OH26
16485
00001
1,',SET SYM81 TO LENCT .. OF LINE RECDRO
SYM81,4108,
16~86 16 04Z89
16498 14 07712
CHECK FOR FORI' ~095
FDRM,4095,_,
16510 46 16846
XYlXVZ
16522 14 077U
CHECK FOil FORM 255
FORM,255,8,
165H 46 16102
XUY
16546 1~ 07712
CHECK FOR FORI' "5
FORM,U5,8,
16558 "6 17210
PER" ..1+12
16510 14 077U
C"ECK FOR FORI' 105
'ORM.IO~.'.
16582 46 11106
PlTCl
16594
14 07112
tHECK fOR FOIlIO 25
FOIIIII,25,8,
16606 46 16951
TAePEP
16618
14
OllU
CMECK FOR FoaM 5
FORM,l".,
16630 46 16902
'1'2
HANDLED
IN
THIS
NOT O"E OF 'HE FORMS
SUIPROGIIAM
LOAO ANO CALL LIIDDZ SUI'ROGIlAIO
16642 27 02"00
MON1TR,lMODSA+S ••
SYMB601

16U~

000J2
OCOOO
0-041
O"O.. ~
01100
O-lS~

01200
0-15'
01100
o-III~

01200
0-02\
01200
0-005
01100

59
1•• 70

P.GE

03030
03040 LIIODSA
03050
03060
03070
03080
03090
0)100
03110
03120
03130 XVOSA
03140
0)150.
03160 n.n
03110

B7
DSA
OSC
DORe
NOP
OORe
NOP
OORe
NOP
OORC
OU
DOlle

O)lIO

tPL

0$1.0

All

03200 SHU
04010

TFL
AM

04020
040)0-

TFL

Tl'L

A"

0~040-

04050 GOCAN
0~060

0~010

RETRN

04080.
0409004100 ER301
0~1I0
0~120

04UO

nun

04HO
04150
0~160

8TM
8T
8NR

8TH
8TM
TFL
AM
TFL

AM

87
TFL
TFL
TFL
TFL

0~170 PlPi
04180
04190
04200
05010
87
05020 TAIPEP tM

LMOD2 . . .
RETRN
5.0Hll
LMOOSA+5.' ••-.
S'M86,O

166H ~9 02~ 10 00000
16665 00005 JUIO
16666 00005

"'21

166h

Y2,5VM85

1668~

8E
CM

05010
05010

BE
CM

05090
05100 P\PH
05110
05120
05UO PITeON

8NE
AM
8T
87

05140
05150 PITCI

81
CM

LPTCON,,6

05160
05170 OKPT

8NE
tM

ER)OI
TDATA4.51,2,IO,

05180
05190

8E
CM

CIRK

05200
06010 CONK
Ob020
060)0 ClRK
Ob040
06050 PUPAR
06060
06070
06080 MOD30
06090
061 00 eYLDSA
Obll0
06120 C30N
06130
06140 GtOND
06150
06160
06170 Xl
06180
06190 VI
06200
07010 X2
01020
01030 yz
01040 HIPSA
07050
07060
07010.
01010 TD4 lA,
07090 TDA TA6
07100 TAIIF
07110 AUNF
07120. tOSF
07130 UTI
07140 SVM81
0715Q SVM'"
07160 SYMI6
on 70 MONIlII
01110 REf URN
07190 LCNDNI
07200 TVPERII
0.010 fORM
01020 TOATA
01030 LMOD2
01040 UDOl
01050 PITTI
08060 L "TAB
0110 10 LPTCON
080'0 'DATn
o.o,o./~ TNPRe
oa,.,.. MI05

8NE
8T

ER301
MONI TR ,GCONDtS ••
LTNPRC .. II
MONI TR .HIOS405.6
FMlOS. ,6

8T
AM
8T
87

DSA
DSt·
DSA
DSC
DSA
OSC
DSA
DSC
Dt
DC
DC
DC
DC
DC
Dt
Dt
DSA
OSC
OS
OS
os
OS
OS

os

OS
OS
OS
OS
OS
OS
DS
DS
OS'

T04TA~,9,IO,

T04lA~.51.],10.

1AT1,I~.IO

.MONITR,M003Dt5.6
LMDD3 .. 6
RETRN
5,03321
RETRII
5,03511
RErRN
5.3571
RETRII
5,03561
8.0
2,0
8,0
2.0
8.0
2.0
1.0
2.0
REfRN

5,o:n31
22,.
,03362
.03372
,02416
,02~11I

,02421
.07131
,O~209

,04315

,OU25
,02~06

OS·

.02",11
,02416
,02UII
,07712
,onn
,024111
.02416
,,.PT1
,2U6
,2416

os
os
os

,241'
.2416

DS

OS
OS

D"

D~

04125 OCOOO

166H
166H 41 1130a 11)18
16671
16675 00005 J1298
16701
POI'" DHINEO tv • AND V COORDltlUES
Xl,UTl,ll,
STO~E XI IN H
16102 06 11298 0113J
1'\1'1,14,10.
INCII£MENt TO liEU fUIIENT
161 14 II 0173 I GOOH
STo~e VI IN ~,
YI,Ufhll,
I.'" 06 1"01 O"IJ
IATl,14t10,
INCREMENT TO NEXT ELEMENT
16738 II 01131 OOOJ~
X2,IATI.II,
STORE X2 IN U
16750 06 Inl8 onu
INCREMENT TO IiEXT ELEMENT
IA",14.IO,
167112 II 07131 000J4
STORE V2 IN V2
n.IATl.ll.
16774 06 17321 07UJ
LOAD AND CALL LttNI SU8PROGRAM
TO PROJECT LINE '~ROUGH 2 POINTS
MONI TII,02120,67
16786 17 02~00 -2120
LCNON1,XVDSU25,II
16198 27 02~ID 16700
RETUIIN,S'MU.6.
RETURN TO CALLING PROGRAM
16810 ~5 024tJ 0~)t5
IF PDINTS ARE NOT COINCIDENT
LOAD AND CALL TYPERR SUBPROGRAM
MONITR.0)090.67
16822 17 02400 -]090
TVPERR.)DI,n
16834 17 02410 -0301
Xl,IATI,II.
STORE XI IN Xl
16846 06 17298 0773J
IATI,I4,tO,
INCREMENT TO NEXT ELEMENT
16858 II 07731 OOOJ4
STORE Yl IN VI
VI.UTI.tI.
16870 06 lHoa 0771J
UTI ,28.10.
SM I P OVER I COOROIN4TE 16882 II onn 000M8
SETX2
16894 49 110750 00000
STORE XI IN XI
16902 06 11298 OB62
Xl,TOATU"
$lORE VI IN VI
VI,TDATA6"
16914 06 IH08 0]n2
STORE X2 IN Xl
X2. TDATA+'O ••
16926 06 17U8 03411
STORE Y2 IN Y2
16938 06 17328 0342)
V2. TOATA+90"
GOCAN
16950 ~9 16186 OCOOO
TOATA~,9.10,
CHECK 1ST ELElfENT -POINT
16958 14 03352 000-9
ER301
16910 4116822 01100
CHECK 2NO SURFACE -LINE
TOATH.51.I,IO.
16982 14 03~0) COO-I
'PERPAR
1699~ ~6 17218 01100
T04TA4·51,3.IO,
tHEtK 2ND SURF AtE FOR CONIC
11006 14 0340] 000-]
PI TCON
17018 46 17086 01100
CHECK 2ND SURFAU--TABCYL
TOATA4.5I,~, 10.
170)0 14 O]~O] 000-4
17042 47 16822 01200
ER3DI
11054 IL onn OOOH
IA",14.10
17066 27 02400 11268
MONITR,CYLDS-'5,6
17078 ~9 OHIO 00000
LTPTA8 .. 6
17086
21 02~00 17278
MONITR,C)DN" . '

05050
05060

B1

~I

41 11328 OHIS

YI,XI
"'14
XI
·"·1>-4

8NE
CM

B7

1669~

166'H

"21

050)0
05040 PTROK

IT

1

,UU

17098
CHECK 1ST SURFACE -POINT
17106
17118
CHECK 2ND SURFACE CIRCLE
17130
17142
C"Et~ 2110 SURFACE eCNIC
11tH
17lbb
11178
17190
17198
11210
17218
17230
17242
1725)
172'4
17263
17264
17213
172H
17283
17284
17296
17298
1730b
17308
17316

PHI
17326
llHI
1733]
t733~

HLl LAST SECTOR
CDIIMON WITH "AINuIiE

17360

49 02UO 00000

"Gf

14 OHS2 OOO-q
H 16822 01200
I~
~6

03403 000-2
HU8 01200

03403 000-]
11>822 01200
02400 11288
02~10 00000
02~00 17318
02UO 00000
07731 000J4
02~OO 11258
~9 02~IO 00000
00005 J6810
00005
00005 J6110
00005
00005 J68\0
00005
00005 J6IIO
00005
00008
00002
00008
00002
00008
00002
00008
00002
00005 J6110
00005
00022
14
47
27
49
27
49
II
27

03]62 00000
03372 00000
02416 00000
02~16 00000
02421 00000
01731 00000
04289 00000
0~315 00000
04325 00000
02406 00000
OHII 00000
0241. 00000
OHI6 00000
07712 00000
on)] 00000
02416 00000
02416 00000
17054 00000
02416 00000
02416 00000
anu 00000
OZ.16 00000
OiU.OOOOD

Gil

•• GE
01110

DENO LI"~

PAGE

SY"BOL TABLE
02416
02411
lal06
07712
17542
RAO
17702
TonA 03333
18086
va

TYPERR
RETURN
A
FORM
INTO

Ol0100102001030_
010 .. 0010500106001070010800\09001100
01110 LM002
01120
01130
01140
01150
01160
0117001180
01190
0120002010 UANG
02020
OZ030
02040

T04U6
PI1180
ATANG
FTAN
LMOD2
SETS5
TEMP

03372
180'16
17458
1771"
17362
17830
18126

TOATA5
MI.H8
FLH'I
GOGO
MAS
SYMe5
TNUMB

03362
18066
laU6
17'1"4
17'134
04315
18056

TANFOS 17635
MONIfR 02406
FL~UL 17578
GO TAN 17506
MULX 17890
SYMB6 0"325
VERT
17786

TANOSA 17625
AUNLI 17642
18046
FLI
UTI 07731

141

18116

UNF
Xl

02416
1801.

IBM 1620-Ull AD-APT •••••••
I HTRAN SUBPROGRAM L"002
THIS SUBPROGRAM HANOLES THREE LINE DEFINITIONS
LZoLINE/PTI,ATANGL,A,LI
L )oL IHE/SLOPE ,I,AUNGL ,5
LINKAGE IS
BT MONITR,OSALBL.5
B
L"002

17362
17362
17374
173B6
CHECK FOR FORM 109
1734a
17410
CHECK FOR FORM 181
17"22
LOAD AND CALL TYPUR SUBPROGRAM
MONITR
,03090,61
1743"
8TM
11446
ITM TYPERR. 30 10 67
L INEIC IRCLE ,ATANGL, ANGLE
STORE X COOROINATE
17"51
X1.TOATA5,.
TFL
11470
STORE Y COORDINATE
Vi. TOATA6 ••
TFL
17482
INCREMENT TO ANGLE
II. H.2I,10.
AM
STORE THE ANGLE IN TNUMB
TNUMB.IAll.n.
TFL
1749"
LOAD THE UNF SUBPROGRAM
0205017506
lION I Til. TANOSA.!! ••
02060 GOTAN aT
CHANGE THE ANGLE TO RAOIANS
FMIlL THUMB.PI/1IO"
02010
17518
CAU THE TANF SUBPROGRAM
0208017530
TANF, TNUII8 •• 1
&TM
02090
175"2
T'IUM8.5.10
CM
02100 INTO
SLope
INFINITE
BY
lUNCH
IF
VEin, ••
8NN
02110
U554
SYMIS
STORE
THE
SLOPE
IN
SYM8S. TNUMB ..
TFL
02110
17566
17578
02130 FLMUL FMIlL XloSVM85
11590
FSUI n,Xl
021<1>0
17602
SY"a6
•
Y-SYMes-.
S,/lB •• VI ..
TFL
OlLSO
IIETUIIN TO CALLI NO PROGRAM
0216017614
IIETU_N,,6
87
OZI10
17.25
INTO
02UO TAMOSA OSA
11626
02190
OSC 5.0zau
11635
02200 UMFOS OSA 'TAf4 .. ::tit
17636
03010
OSC 5.02211
LI NE"OINT.AT ANGL.L INE
0;02011'''2
STOIII
Xl
IN
Xl
Xl.TDATAS
..
Tn
03030 ATANLl
UU"
nORE Yl IN Yl
TfL Yl.TDA"'. . .
03040
OORG
CM
8E
CM
BE
CM
8E

17362
FORM,27 •• ,
AUNG
FORM,109,1.
AUHLI
FORM,1I7,B.
MAl

CHECK FOR FOR" 21

14
46
II,
46
II,
4'

07712
17458
017.12
176"2
07712
17934

0-021
01200
0-104
01200
0-187
01200

11 02400 -3040
11 02"10 -0101
06 11076 03362
06 18016 03312
II 07731 OOOKS
O' ·18056 0773J

11 02400 17.30
0) 18056 18096

11 02410 Jaos.
II, 18056 000-5
DEFINITION
46 11786 01300
06 04315 1805.
0) 18076 OUIS
02 18086 18016
o. 04)25 1I0IA
". 02ltU 00000
OOOOS J1S42
00005
DODDS

00005

nne

06 1107. O))Al
06 ltoe. 0)) 7Z

Ii I

OlO~O

03060
03010

AM
tFL
tFL

0)080 UO

"MUL

03090'

OllOO FtAM

81'11
TFL
tFL
FI!UL

IHCRfIlEHt TO ANGLE
11666 11 077)1
STORE THE ANGLE IN A
1767. 06 18106
STORE THE SLOPE OF THE LINE IH III
1769006 11116
CHAMGf THE ANGLe TO RADIANS
.,Pl/ltO ..
11702 0) 11106
LOAD AHO CALL tHE TAMF SUBPROGRAM
MOHltR,TAHPas.".
17114 27 02400
TAMF.Io,n
17726 17 02410
Nl .. IU-.
III,A ..
17738 O~ 1.116
TEMP .. -I
TEMP,FLl ..
17750 06 18126
tEMP.MI ..
tEST FOR SLDPE OF -I
11762 02 IIIU.
SET$$
17774 H 17UO
SYII85,I'LE4t,.
SLOP!
I,OE'"
17781> 06 04)15
$YM86."l.ua
1719. 06 04325
SYM86,MI ..
17819 O~ 0,)25

~~'D

ImIMl,,,..... 1:=11 :

af

11TH

03110
0)120

FMUL
TFL
FSUa

03110
03140
03150

03160 YEU
03170

03110

UUI m.t

17

IAtI.UolO,

•• UTI,!I.
MI. tOATU80 ..

sn

to

~etURNA"

tYNB5+sLe,.

e,

OOOK'
077)J
O)H~

18096
11640
JUOII
18106
18046
11116
01200
11136
180116
18076

2' '!11IJ 00002
tlf8.#'
N~I •• U••• 181i.

17842 01 04)15 03413
17854 09 04315 18126
17866 14 04)15 000-5
04040
IRAHCH IF SLOPE INFINITE BY DEFINITION
17878 411 17786 01300
04050 MULK
FMUL Xl,SYM85 ..
Xl • Xl-SYMIS
17890 03 18076 04315
04060
Fsua VI,Xl ..
VI • VI-Xl
17902 02 180.11 18076
04070
TFL SYMa.,n ..
SYMI6 • VI
17914 06 Dun U086
04080RETURN TO CALLI IIG PROGRAM
04090
87
IIETURN .. 6
17926 49 0241J 00000
04100LINE/nope.SLOPE,INTUC, INTERCEPT
04110 MA.
AM
UTI.H,IO
17934 11 07731 OOOH
C
IAT1,FLE49.6,
CHECK FOR VERTICAL LINE
04120
17946 24 0773J 18136
INIt GOGO
04130
17958 47 17994 01100
LOAD AND CALL TVPERR SUBPROGRAM
041408TM MONITR.03090,67
04150
11970 17 02400 - 3090
IIlM TYPERR,326,67
17982 11 02410 -0321>
04160
TFL 5YM85,IAT1,11,
STORE THE SLOPE IN SYNB5
04170 GOGO
17994 06 04315 0773J
18006 11 017)1 OOOKe
AN
UTI,28.IO
0'U80
rFL 5YM811,IAT1,11,
STORE THE INrERcepT IN SYM86
04190
18018 06 04325 0173J
Ref URN TO CALLING 'ROGRAM
04200RETURN .. 6
18030 49 0241J 00000
05010
87
8.10000000
18044 00008
05020
DC
18046 00002
05030 PLl
DC
2.1
10
lB056 00010
05040 TNU". OS
lB064 00008
8.-10000000
05050
DC
2,49
180611 00002
05060' MI.fU DC
18071> 00010
05070 Xl
OS
10
18086 00010
05080 Yl
OS
10
18094 0000.
8.1745)292
05090
DC
18096 00002
05100 Pll180 DC
2.-1
181011 00010
10
05110 A
OS
18116 00010
10
05120 Ml
OS
18UI> 00010
10
05130 TEMP
OS
18134 00008
8,10000000
05140
DC
18136 00002
2.49
05150 HE4' DC
FILL LAST SEcrOR
181110 0002~
Z4,.
0511>0
OS
COMMON A1EA IIITH MAINLINE
05lTO04020
04030

05180
05190
05200
011010
011020
06030
01>040
06050
01>060
06070
06080
01>090

FOIV $YM85.TEMP"
5YMU,5.10
8NN VERT .. ,

eM

UTI

OS

SYM85
5YM81>
RETURN
TOATA
TDATA5
TOA TAl>
MONITR
TYPERR
TANF
FORM

OS
OS
OS
os
OS
OS
OS
OS

,07731
.04315
.04325
,02411
.03133
,03362

,03372

,OHO/>
.02H6
,02411>
,07712
OS
OENO LII002

os

07731
04315
04325
02411
0333)
03362
03372
02406
02416
02416
07712
1736Z

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

P."E
SY~90l

TYPE~R 02416
MON ITA 02406
CHKXS 18122
Fll
18410
18430
"I
suar 18158
VERT
17714

0101001020010300104001050010600107001080010900110001110
01120 LM003
01130
01140

TOAUb
HORIU
OISlO
FORM
PIPlI

SYM8S

TABLf

on72

TOAlAS 03362

18258
17166
07712
17526
04315

HZERD 07680

VERH 18178

ERA
182H
HORIZ I71H
SCALe 1193.
SY~86 04125
X2
18390

RETURN
AOO
EAllO
IAT!
SETS5
TOAU

Y2

02411
18102
17838
07731
17n8
03333
le400

PIPAll 17410
tHKA
18326
FlH9 18460
LMOO3 11362
SORTF 02416
TEMP
11420

II,. 1620-1111 AD-APT •••••••

....••..•••••..•...

INTRAN SUBPROGRAM LMOO3
THIS PROGRAM HANDLES 3 LINE OEFINITlCNS
Li oLINE/PT1,PARLEL,LZ
LioLINE/PARLEL,L2,XLARGE,O
L3 0 LINE/PT1,PERPTD,LI
8T MONITR,OSAL8L-5
LINKAGE IS
LMOO3

e

OOR;
CM
BE
CM

BNE
01150
0116001170 P1PALl TFL
01180

TFL

DI190

TFL

17362
17362 14
11314 46
CHECK FOR PARLEL MODIFIER
17386 14
17398 47
PIPLl
LINE/POINT,PARLEL,LINE
STORE x COORD OF POINT IN X2
X2,TOAfA5 ..
17410 06
VZ,TOATA60.,
STORE Y COORD OF POINT IN Y2
IH22 06
SYMB5,TOATAUO,;
STORE SLOPE OF LINE IN SY~B5
17434 06
17H6 14
SYM85,49,I0
BRANCH IF LI HE IS NOT VERTICAL
e+2"" ,
11458 47
17470 02
SET YZoO.O
'Y'2.Y2"
11482 03
X2,SYM85
17494 02
Y2,)(2
17506 06
SYMB6 • Y2-SYMB5.X2
SYM060, YZ"
RETURN TO CAU I NG PROGRAM
17518 H
RETURN .. 6
LI NEIPOI NT, PERPTO, LINE
STORE x COORD OF POINT IN X2
X2, TDATA5 ..
17526 06
STORE Y COORD OF PO I NT IN Y2
V2,TOATA6"
17538 06
STORE SLOPE OF LINE IN TE~P
TEMP,TOAUUO"
11550 06
17562 D2
CHECK FOR ZERO SLDPE
TEMP, HURD ..
17574 46
HORIZ
IN
TEMP
RESTORE
SLOPE
OF
LINE
TEMP,TDAlA_aO ..
17586 D6
VERTICAL
LINE
CHECK FOR
TEMP,HEII9 ..
17598 02
1761D 46
VERT
17622 06
TEMP,Fl1t.
TEMP - I
17634
32
TEMP.
-I
TEMP-2., •

17362
FOAM,us,e,
0lS10
UTI,U,610,

01200
020lD

eM
BN

02020
02030
D2040
02050
D2D6002D70
02080D2090 ' I ' l l

FSU8
FMUL
FSUI
TFL

02100

TFL

D2110

TFL

D2I20
02130
02140

8l

D215D

FSUB

D2160
0217D
02180

BZ
TFL
SF

D2190
02200 SHU
03010
03020
03030
030400)05D
0306003070 VERT
03080
D30900310003110 HORIZ
03120
D3130
0314003150 DISlD
03160

FOIY
TFL
FMUL
FSUa
TFL

SYH65.TEMP,.
TEMP,X2
Y2,TEMP
SYH86e Y2 ...

81

RETURN .. 6

TFL
B7

TEMP,FLZERO
SETS5

TFL
TFL

SYM85,TOAfA5
SY"B6,TOAU6 ..

03170
03l6D
03l9D
03200

AM

IAfl.42"lO.
_.)5.IATl
•• 23.2.10
•• 36, ••

87
TFL

FSUB
TFL

CHECK FOR

FOA~

US

07712 O-I~~
17766 01200
0773J OOOH
17526 01200
18190 03362
18400 03372
04315 03413
04315 000M9
17482
1840D
18390
184CO
04325

01100
18400
043U
18390
18400

D241J 00000
11390 03362
18400 03372
18420 03"13
18420 07680
17734 0120D
18420 01411
18420
1771"
18420
18418

18460
012DO
1841D
00000

18420
DOllS
1842D
18400
04325

0341 ]

PAGE

TF

D4D1O
D4040
D405D
0406D
D4070
04080
04090
D'100 SCALe
04110
04120
0413004140
04150
D4160
D417D
04180

04190
04200
05010
05020
OSO)O
05040
O~OSO

ADD

05060O~O70

050"0 CHUS
!r:;r,QG
OS ~ CI!,

TEMP,FLE"t9
TFL
FSUB Y2.Y2 ••
SETS5
87

SH
BNF

04010D402D UJlO

TEMP, TOAT,+aO ••

TEMP. -I/SlOPE
SYM85 - TEMP
SYMB6 - Y2-SYM85-X2
RETURN TO CALLING PAOGRAM

17646
17658
17670
17682
\1694

17706
LINE IS PERPTO VERTICAL LINE •••
17714
17726
LINE IS PERPTO HOR IlONUL LINE
SLOPE • 1-'0··48

09
06
0)
02
06

49 D241J DOOOO
SLOPE-O
06 \8420 07680
4" 17658 00000

17734 06
17746 D2
17758 49
L I NE/PARLEL, LINE ,"001 F I EIt, 0 1ST ANCE
17766 06
SYMB6 - INTERCEPT OF LINE
17778 D6
1779D 11
100CREMENT TO DISTANCE
17802 26
17814 12
BRANCH IF D IS NON-NEGATIVE
17826 44

SET Y2-D.0

18~20

HONITR,03090,67,

sun,
Sy" .... xz ••

...,

18<\60

18400 18400
17658 COOOO
04315 03362
04325 D3372
07131 DOOM2
17831 01731
17837 000-2
11862 00000

CALL TYPERIt SUIIPROGRAM VIA MON ITR
17138 17 024DO
WRITE ERROR MESSAGE ••• EX IT
TYPERR,310,69,
BTH
17550 17 OHIO
STORE SLOPE OF LINE IN X2
TFL
X2, TDATU"
17862 06 18390
CHECK Fait VERTICAL LINE
FSUI X2.FLe~9 ••
178H D2 18390
17886 46 18178
VERTZ
82
17898 D6 \13'0
RESTORE SLOPE IN X2
X2,lDATAS,.
TF\.
CHECK Fait HORIZONTAL LINE
fSUIl X2,FLZeAO ••
17910 02 18390
17922 46 18258
HORIZ2
82
179]4
D6 183'10
RESTORE
SLOPE
IN
X2
Xl,Toun ..
TFL
In.6 03 18390
1.2 • 1.2 •• 2
FHUL X2 ,1(2 ••
18390
17951
DI
1.2
•
X2+1
FAIlO X2,Fli ••
LOAD AND CALL SCRTF SU.PROGRAM
02.00
1797D
17
IIONITR,D2000,67
8TM
17982 17 02410
SQRfF,X2,67,t
Xl - SQRTF !X21
lITM
17994 D3 18390
X2 • 12-0
FMUl )(2,1"11,11.
DECREMENT TO MODIFIER 18006 12 01731
lAT1,loft,10,
SII
16018 14 0773J
YLARGE
CHECK
FOIt
IA
TI,3S,IolD,
CM
18030 .6 18102
ADO
BE
18042 14 D773J
CHECK FOIt YSIOALL
IATl.,.,ltID,
eM
1805. 46 18158
sun
liE
18066 14 0173J
CHECK FOR KLARGE
IATl.l1,6ID,
CM
11076 H 11122
liNE CHUS
CHECK FOA NEGATIVE SLOPE
ToA US-Z ..
IINF
1809D 44 1815a
1I1D2 01 D4325
SYMI. • SYMS6.XZ
FADD
RETURN TO CALLING 'ROGRAM
18114 49 D241J
UTURN ...
117
18122 14 D773J
CHECK FOR XSNALl
eM
IUlo12,"O,
U134 41 lIU4
6.:'; e~R
SLOPE
CHECK fOI NEGATIVE
AOO, TDAUS-Z ..
IITM

18420
18390
18420
18400

-3090
OOLIO
D3362
18'60
01200
03362
07660
01200
03362
18390
18410
-2000
J8390
D773J
OOOH
OOOLS
DI200
OOOL.
012DO
OODL I
OUOO
D3360
18390
ODDOO
OOOL2
DilDO

63

•

PAGE

05110 SUIT
05120_
05110
05140 VElltz
05150
0~160

05110
0$110
051'10.
OUOD UR
011010
06020 HOAln
060]0
0"o40
06050

.'u.

0.070.
06080
Ob090 'HRA
Obi 00
ObllO
Ob120
061]0.
06\40
Ob150 Xl
ObibO yz
06170
Ob180 FLI
06190 TEMP
06200 "I
07010
07020.
070]0 MONITR
07040 RETURN
01050 TYPERR
07060 FORM
07070 u n
07080 TDAU5
07090 TDATAI>
07100 TOATA
07110 SYMB5
07120 SYMIIIt
071]0
07140 FLE49
071 SO HURD
01160 SIIATF
01170

FSUI SY"86,X2 ..

$'HII> -

n'UI6-U

181U 44 11102 03360
18151 02 04)25 18390

RETURN TO CALLING PROGRAM

81

flETURN, ••
I. Tl, lit, lei.
IA tl,U,610,
ERA
Uti, '4,10.
SCALC

U170 ••
lUll 12
18190 14
18202 46
INCAEMENT TO DIsTANCE 18114 II
18226 49
LOAD AND CALL t,'ERR SUa'ROGAAM
MONITII,O)090,61
18214 17
TYPERR, J07
18246 17
IUI,IIt.IO,
DECREMENT TO MODIFieR 1825~ 12
IAll,n,6l0,
CHECK FOR YLARGE
18210 14
CHU
1.Z82 47
,NCRE"E", TO D&STA"tE

SM

tM

liM,
AM

87
ITIII
ITII
SII
eM

DeCREMENT TO MonlFIER

,n

iNe

~Z.. i;~hamiu,

B1
CM
BNE
AM
Fsua

RETURN ,,6
IATI,Ib,610,
ERR
IAn,14,10.
SYNB6,IATl.l1,

B1
OS
OS
OC
DC
OS
OS
OS

RETURN",
10
10
8.10000000
2.1
10
10
20,.

.nil • . ¥" •••

RITUlN TO CALLING 'ROGIAM
CHECK FOR YSMALL
INCREMENT TO DlSTANtE
SYMII6 - SYMBbOD
RETURN TO tALLING 'ROGlAM

FILL L4ST SECTOR
COMMON AREA WITH MAINLINE

DS

,0240b
OS
,02411
OS
,0241b
,07112
OS
,01731
os
OS
.03362
DS
.03312
.03])]
OS
OS
,04315
OS
.04325
DC
8.10000000
2,49
DC
OS
.7680
OS
,02416
OEND LMOD) •

OtltlJ
07151
01UJ
IBHIt
07731
17U4

00000
000J4
OOOL)

02400
02410
01731
0171J
lilt'

-)090
-0)07
OOOJ4
aOOLS
01200

OUOO
000J4
00000

tIl;: At Illl& I"':

IUla
1812b
18318
18150
IU62

49
14
47
11
02

18374
18390
18400
18408
18410
18420
18410
18450

49 0241J 00000
00010
00010
00008
00002
00010
00010
00020

02406
02411
02416
07712
07731
0)]62
0]372
0J311
04315
04)25
18458
11460
07680
02416
Inn

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00008
00002
00000
00000

02ltlJ 00000
077)J 000L6
11234 01200
07731 000J4
04325 07UJ

PAGE
SYMBOL 14BlE
TYPERR 02416
LeNON I 02416
8
18611
CONI 00079
FOFYF 1850b
KSQ
00069
RIGHT 11458
00028
SMC
TEMP 00069
liN
0))62

2UNEEK
MONIlR
ARG
CD Of
FM10S

180n
02406
18505
18449
171b2
0)42)
K
RAoel 00019
5MB
00038
"'"TO 17518
liM 2
18651
YN
03372

010100102001030010400105001060.
01010.
0108001090.
01100.
01110.
01120
OIUO.
01140 FMIOS
01150
01lBO

AHN2H6 00028
0-0.0 lUl66

IU70
DSA2 18455
18631
H8
10.02
HOrz
00069
RSO
SYM85 04315
XM
186H
1161t1
YMI

111403
03411
LEFT 17458
ROOT 00079
SORTF 02416
WER" 17446
16641
'M

"

PTSlCT Ollt\6
18601
18621
C
fA101 17422
1AT! 07731
034)3
R
SMA
00048
SYM86 04325
lIMI
1863l
1. . 61
'"2

•

IBM 1620-Ull AD-APT DEFPRE SU8PROGRAM FOR DETEA"INING
ALINE DEFINED BY • STATEMENT OF T.. E FORM ....
RCS
LINI-LINE/PTI,RIGHT,TANTO,tlACLI
LINI-LlNflPn,LEFT. TA"TO.CIRCLI
oNAME FMI05 ••• HOM-ERASAIILE DEf'RE SUBPROGRAM
.10 "UHlER O)H+DELOIH
.STORE CORE IMAGE
LINKAGE - 8
FMI05,,6
17162
SU8PROGIIAM ENU'
173b2 11 01731 000J4
lAll.14,10
11)74 14 0711J 000K4
IAH.24.BIO
IRANtH IF MOOlfllR IS RI''''
RIGHT •••
11186 . . 17458 01200

001110 11]62
AM
CM

IE
eM
aE

LEn".

01200.
02010 EUOI
02020

TFM
ITM

WERH+U, Sal,.,
MONlTlI.O)090,67,

020)0 WfRM
02040 IIIG"T
02050

IITM
SM
TO

TY'ERR,,6,
IAH,I.IO
CODE,lAn,n,

AM
CM

IATl.i+14,10
IUi.n,610
ERSOI, . .

TfM

02090.
02100 TANTO

SNon

OSAI

OU70.
01UO
01190

02060
02070
02010

RrrUJl.N 02H\
"'HNHB 00018

SHECT 18310

I.

IAn.a,B10

ozno

ITH

IlERMH1.IU,9.
_lTR,OUOO,6?,

02120
02UO
02140
021S0
02160
02110
OlllO

TFL
'NUL
"fL
fNUL
FADD
Tfl
fNUL

CO"IoH
CONI,H ..
KSQ.II
IISQ.II.,
CO"I,IISO ..
IISQ.1
IIS0.R ..

11]98 14 077JJ ooo-a
BRANCH IF MOOIFIEII IS LEFT
17410 ... 11451 01200
SET ERROR NO.-)Ol
17422 16 11451 OOLOI
CALL T'PEIIII SU8PROGRAM VIA MONITII
11434 17 02400 -30'10
WAITE ERROII MUSAGE
17446 17 02410 00000
17458 12 07131 000-1
SET MODIFI£II
p'SLeT SU8PROGRAM
11470 25 1144'1 0171J
174U II 077]1 000J5
17494 14 0711J 000K7
lUNCH IP MODIfIEIl IS NOT TANTO
1150. 41 17422 01200

coDe .OR

SET ERRDA "D.-liS
175il 16 17451
CALL SOIlT. SUlloufiNI VlA MO""R
"no 11 02ltOO
17542 O. 00079
H••a
115'4 OS 00019
11'566 01> 00069
II ••Z
11'1' OS 000••
H••, . , ••
,".0 01 00079
1"02 06 000••
_ ••,
1"14 OJ 000 ••

a

OOLIS
-2000
0341S
0)41S
0)42)

0142)
00069
0)4S)
Ot4])

64

021QO
02200
03010
03020
03030
03040
0)050
03060
03010
03080
03090
03100

nUQ (ONi,RSQf'

TFL
FSUa
TFL
FiU&
TFL
TFl
FHUL
FSUB
TFl
FNUL

S.H

03110
03120
03130
03140

TfL
FMUL
TFL
FMUL
fADO

SMA.e
$MA.C ..
TEMP.S
TEMP ••••
SMA.UM'"
WERM-I2 ...

Fsua

OHtO

S,KH, •

C.K

et VN , •
A.eONI
TEMP.K
TEMP,YN ••

A.ffM'"

rEMP.H
TEMP.lN ••
A.rEMP"

'AGE

CON1-H.·2.K •• Z-R.·Z

17626 02
17638 06
a-H-XN
17650 02
17662 06
COK-Y,.
17674 02
17686 06
17698 06
KoVN
17110 03
H··Z+1(··2-R·.2-KeVN
17722 02
I77H 06
H-XII
1.7H6 03
'-H •• Z+Ke .Z-R •• 2-keYN-H.)( N
1775& 02
17710 06
17182 03
'UZ
17194 06
17106 0'
a-·a
17818 01
$MAoa"Z+C . . 2
BRANCH I' DENOMINATOR VANISHES
17830 46

00079
18611
18611
18621
18621
18601
00069
00069
18601
00069
00069

00069
03413
01362
03423
03372
00079
03H3
03372
00069
03411
03362

18601
00048
00048
00069

00069
18621
18621
18611
lUll

17842 03
17854 06
17866 03
17878 06
17no· 02
A-Hoa
17902 06
AMH2HO-A-2.0_Haa
17914 02
eoCA-H081
11926 03
5MB-K-a •• 2+C-C A-Hea)
11938 01
_179~0 03
'e(A-2.0-He8)
17962 03
e•• ze' M•• Z+K •• Z-R •• Z I 17974 0.3

00069
18631
18631
00038
00038
00028
00028
00038
00038
00028
00079
00079

ooon
00048

coon

OU60

u

OU1Oe
03180
03190
03200
04010
04020
040)0
04040
04050
04060
04070
04080
04090
04100

FMUL
TFL
FMUL
TFL
FSUa
TFL
FSUa
FHUl
FAOD
FHUl
FHUl
FHUl
FAOO

TEMP.K ..
HB,H

SHe,CONI ••

S~C·.·.A-2.0.H.B)+8 •• 2.(~ •• 2~K •• 2-R •• 2)

04110
04120
04130
04140
04150

TFL
FHUl
FHUl
FSU8
81;'

RADel.SMB
RADCl. S"8.,
SHe.S"A
RAOel.SMe ..

17986 01 00028
17998 06 OOOH
18010 03 00079
18022 03 00028
18034 02 00079
RAOel. SMS •• Z-S"'.SMC
8RANCH IF RESULT IS NOT POSITIVE
18046 47 18482

00079
00038
00038
00048
00028

8TH
TFL
FAOO
FOIV

SORTF .RADel.U.
YH2. SH8
YM2.ROOT

8TH

fOFVF,YMZ ..
VMI.SM8
VMI.ROOT

02410
18661
18661
18661
18506
181Jo 1
18641
18641

-0079
00038
C0079
00048
J8661
00038
00019
00048

041600
04170 ZUHfEK
04180
04190
04200
05010
05020
05030
05040
05050
05060.
05010 a-o.o
05080
05090
05100
05110
OH20
05130

Tfl
FSUa
FOIV
BO
Tfl
FNUl
Tfl
FSUB
F"UL
FSUB
8Z

HB ,8.,
AM1NH8.A
AM1NHB.H8.,

AIIN2H8.AMIIIH8
A"N2H8 ,H8"
AMINHB.e"
5MB. TEMP.,

SHe.A ••
CONI,e
CONl.8"

~OT2.t,

YM2.SMA"

YM1.SMA"

8NOTZ ,8-9,.

RAOCl.R
RAOCl,R ••
TEMP,VMI
TEHP,K ..

TEMP.TEHP
RADCL,TEMP"
WfRM-12 •••

KeB··Z

H.a

17434 01Z00

5"8·-2

18058
18010
18082
18094
YMZ-' SM8+ROOT I ISMA
EVALUATE XM2 AT VM2
18106
18118
18110
18142
V"I-' SM8-ROOT IISMA
BRANCH IF 8 IS NOT ZERO
18154
ROOToSQRTF'RAOCLl

17
06
01
0'1

17
06
02
09
H

18166 06
18178 03
R··Z
18190 06
VMI-K
18202 02
18214 03
UDCl-R.oZ-IYMI-K '''2 18226 02
8RANCH IF ONLY Ol;E lINE ExISTS

03U3
03411
18611
18601
18631
00038
18631
18621

ooon
18601
18611
18611

01100

18)78 18602
00019
00019
00069
00069
00069
00079

03433
03433
18641
03H3
00069
00069

PAIiE
18238 46 11434 01200
0514005150
05170
05180
05190
05200 SELECT

BYM
TFl
FADD
TFl
FSUa
6TM

XMltoROOT"
MONITR.031>00.67.

06010

8T

PTSLCT ,CODE.6.

06020

BTM

MONITR .02120.61,

060)0

8T

lCNON1.DSAZ-25,6.

06040

aNR

RfTURN.SYMB5.6,

Ol)O60

8

WERM-12

06070
060900

DORIO - 3

0~160

SQR TF ,RAOCl.67,
XH2.H
XH2.ROOT"
XM1,H

18250 11 02410 -0079
18262 06 18651 03<1)
18174 01 18651 00079
18286 06 18631 O)~I)
18298 02 18631 00019
XMI· .... ROOT
CALL PTSLeT SUBPROGRAM VIA MONITR
18310 11 02400 -3600
SELECT POINT PMI OR PMl PER MODIFIER
18322 27 OZ410 18449
CALL lCNONI SU8PROGRAM VIA HON ITR
18 334 17 02400 -2120
CALC. EQUATlOl; L II;E THRU PTS. PN ANO PM
183<6 27 02410 18480
RETURN If PHI AND P"2 ARE UNIQUE POINTS
18358 45 0241J OHI5
ROOT-SQRTf' RAOCl I
XM2-H+ROOT

06050-

ObO~O

BNOTZ

Ob100

ObilO
06120.
061)0
06140
06150
06160
06170
06180
06190

06200
07010
07020
07030 OSAI
01040
07050 coDe
07060
07070
07080
07090
01100
01110
01120
07130 OSA2
011"0
011 ~O01160 HOU
0111007UO
071'10

07200Oa010 AAG
O~/)20

OC030
O{iv40
O~~io;O

.,.060

FOn,

BTM FOfYF, YMl. t
SELECT
8
DORG --4·'-10-6
I;OP
OORG
I;OP
OORG
NOP
DORIi
NOP
OORG
NOP
DDRC;
OSA
OORG
OSC
DORe;

18310 49 \7434 00000
18378
EVALUATE XNI AT YHI

18442
18032
18432
18422
18422
1841Z
1841Z
18402
18402
18399
18403
18449
18449
18H)
18474

'1' .... 0

--21
K,XM
--21
Y~"H

--21
'1'"2. XN

"lOP

-ZI
Y"l.XMl
_14
XNI
e+5_10-4
1.0
COOe+506-6
SYM86.0

OO~G

--21

"lOP

YM,SYMB5

B
GIlaG

-.

os

41 OH23 \8631

41 03372 03413
41 18661 01362

41 18641 \8651
00005 J16)1
00001
41 04325 00000

la4H 41 18641 04315
18454
18454 H 03372 18631
18451
18455 00005 -3362
18481

OORCi -21
VH •• "
OOftG -14
GSA XII
DOItG •• 5e6-4

IlEAH-U .. ,

41 18641 00000

1846.

"lOP

8N

18318 17 18506 Ja641
18390 49 18310 00000
18441

aRANCH IF II.OI'AIIO is NEGATIVE
18482 H

n4H 0\300

2UNEEK+U

U4'14 49 U010 00000
18501

S

18505
18506
18518
18530
18542
18554

Te"p,AIIG.11
FIlUL TEM,.e ..
S.
A."-I.l,IO
Tfl ARC;,A.6
TFl

FSUI .. ".,eM',6,

CURIO

A-CeAR'

00005
06 00069
OJ 0001>9
12 10504
06 InON
02 185011

IISON
18621
000-1
1. .01

000 . .

65

08070
DIDIO

FOIY ARG ••••

BV

080.0
Oil 00
08110.
08120 "
08UO 8
08140 C
08150 XIII
08160 VIII
08170 X"2
08UO
081'10·
08200 IArt
0.010 LEFT
0.020 MONlTll
090)0 ',PillA
09040 CONI
090'0 XN
09060 VN
0'1070 H
09080 K
0'1090 R
09100 KSQ
09110 RSO
0'1120 TEIIP
091)0 SMA
09140 SHB
09150 SMt
09160 H8
09110 AMINH8
09180 AMN2H8
0'1190 RAoeL
09200 ROOT
10010 PULCT
10020 LeNON I
10030 SORTF
10040 RETUIIII
10050 SYMeS
10060 SVM ••
10070 XM
10080 '"
10090

'"l

...

"12 ...

118 DOAfO "'9

DC
DC
DC
DC
DC
De

IIAlif
11566 O' IISON 18611
TURN Of' OYUfLOIl INOICATOR
18578 It6 18590 01400
un
18590 U 00000 00000
18592

DC

10.0
10.0
10.0
10.0
10.0
10.0
10.0

18601
18611
18621
18631
186H
186'1
18661

00010
00010
00010
00010
00010
00010
00010

os

.un

07711
17"8
02406
02416
00079
03362
0])72
03411
03423
034))
00069
00069
00069
00048
00038
00028
18631
00038
00028
00019
00019
02416
02416
024 16
02411
04315
04]25
18631
18641
l7l62

00000
00000
00000
00000
00010
00000
00000
00000
00000
00000
00010
00000
00000
00010
00010
00010
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

OS
DS
OS
OS
OS
os
OS
OS
OS

as

OS
OS
OS
OS
OS
OS
OS
OS
os
OS
os
os
os
OS

as

OS

OS

OS

.RlGH'

.2lt06
.Zlt16
10.79

.)))]029

.XNoIO
.YNoUtZ9
.HoIO
.KHO
10.CONI-I0
.KSO
.UO
10.4a
10.38
10.28
.XNI
.SM8
.SMC
.CONI
.RAoeL
.2416
.2416
.2416
.2411
.4315
.SY"U+lO

.XHI

.YHI
oello FIIIOS

.

It

PAGE
SYIOBOl TABLE
TYPERR
MONITR
ERRORI
OSAI
IATI

02~lb

024010
I6HO

lUI4
071)1

TDATA6
MDrONE
OSAOST
OSA2
SAME

03372
16509
110461
165Z4
\6814

TOAUS
LINKDT
CHECK
DSTCK
TOLER

OllU
IUal
I6H2
16597
16517

TonA4
F"loU
015T
eOUAL
UNEOL

03152
IbS~a

1b497
0lH6
02416

RETURN 01411
fRROAl 16SS4
DISTF 02416
UIT 16162

0101001020LINE DEFPRE FORM 266SnANGENT TO TNO CIRLESI
01030_
LINKAGE - 8
FHZ665
01040_
FM266' IS EQIUV .. LENT TO -Z416
01050CALLS TVPERR, OIST', UNEQL, AND EQUAL
010600
OORIl 16461
16462
01070
16486 00025
01080
DC
01090
DORIl -24+505-11
16476
NOP TOATA6051,OIST
16~76 41 OJ~23 16497
01100
OORG .-ZI
16466
01110
NOP TOATA6. TDATU.51
16466 41 On72 0]411
01120
164",
01110
OORG --14
16467 00005 -]]62
OllitO OSAOST OSA Tonu
OORG
16488
01150
10.0
110497 00010
01160 OIST
OC
16502 00005 J6142
01170 LlNKOT OSA CHECK
16S0J 00005
01180
OSC 5,2101
16509 00002
Z.O
01190 "OFOHE OC
OSlo EXIT
16514 DODOS J6862
01Z00 OS-Al
16515 00005
02010
OSC 5.03351
16524 00005 J6862
02020 OSAZ
OS" EXIT
16525 00005
02030
OSC. 5,03361
020,,0 • .
16530 17 02400 -]090
02050 ERROR I 8TM MONITR.03090,67
INCORRECT STATEMENT
02060
8TM TVPERR.301.67,
16542 \1 02410 -0301
02070 EIIRDU 8TM MDNITR .03090.67
1655" 17 02400 - 3090
110566 \1 02410 -0315
02080
BTM TVPEIIR.315,67,
CONCENTRIC CIRCLES
16585 00008
02090
OC
8.10000000
2,-Z
16587 00002
02100 TOLER OC
16597 00010
02110 OSTCK OS
10
0212002130PRDGRA" ENTRV
CHECK FOR fiRST CIRCLE
OZHO F"Z665 C"
TDAU4.Z.10,
16598 14 03)52 OOO-Z
16610 41 16530 01200
8NE ERRoRI
02150
TOATAit+51.2,10,
CHECK FOR SECO"O CIRCLE
CM
02160
16622 14 0340] 000-2
16614 41 16530 01200
8NE • ERRoRI
02170
16646 11 07731 000K6
IATl,26,I0
AM
02180
CHECK fOR fiRST UHTo MoOIFIEI.A'l.27.610,
02190
C"
16658 lit 0173J 000K7
16670 47 16530 01200
BHE ERRoRI
OZ200
16682 11 0713 1 -0042
AM
03010
IAn,42"
CHECK FOR SECONO TANTO MODIFIER
IAn,21,610,
CM
03020
16694 14 0713J COOK?
16706 it7 110530 01200
8NE ERRoRI
03030
16 718 27 02"00 16507
MoNITR,LlNKOh5.6,
O]O~O
8T
01 STF ,OSAOSn20,6, OBTAIN DlSlA"CE BETWEEN CIRCLE CENTERS
03050
BT
16730 27 02410 16411

n.o

e.'.5-4

PAGE
oSTCK,OIST ..

03060 CHECK

TFL

03070
03080
03090
03100
03110
03120

FSUB oSTCK.ToLER
ERROR)
SM
IATI.'6
MOFONE. /A n , l l ,
TF
IAn,42
AM
IAn,MOFoNE,6,
C

03110
03140
03150

8E
8T
8TM

8NH

SAME
"aNI TR .OSA1+5 ,6,
IINEOl,OIST,6.

CHECK FOR CONCENTRIC CIRCLES
16742 06 16597
16754 02 16597
16766 47 16554
16778 12 07731
STORE FIRST MODIFIER 16790 210 16509
16802 II 01131
ARE MODIFIERS SAME OR DIFFERENT
16814 Z4 0773J
16826 46 16874
16838 21 02400
GET 615 TO PROCESS STATEMENT
16850 \1 02410
16862 49 024lJ
·IIODlfIERS.
16814 27 OZ400
16886 11 02410

RETUR~,.6,
8
03160 EX!T
"oNIlII.oSAZ.',.,
03170 SA/IE
BT
8 Til EQUAl,OlST,6
03180
03190·
1>4..
FILL LAST SECTOR
16961
03200
OS
OltOIO.
THESE ARE EQUATES FOR AREAS IN CDIIMoN NITH SYSTEM
0,7731
07731
04020 /ATI
OS
0,3352
03352
04030 TOATA4 OS
0,3362
03362
0"040 TOnA' 05
0,3372
0)372
04050 TOAT 106 OS
0,2"06
02406
04060 "ON!TR DS
0,2411
OZH 1
04070 RETURN OS
0,2416
02416
04080 TYPEltR DS
0,2411>
024110
04090 DISTF OS
0.2416
02416
04100 UNEQL OS
0,2411>
02411>
04110 EQUAL OS
041201'''8
04130
OEND '''2665

Z

16497
16587
01100
-0056
077)J
-0042
16509
OIZOO
16519
16497
00000
16529
16491

00064
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

67

TYPEAR
IICDIIIIII
LeNONI
ERRORI
CHECK
l
SY"81
xa
VI'

02~14

lDAU?
PTSlCT
INTERC
OSASl T
(aGel
RIGHT
SYH85
XI'
YPleK

1771>1
02H6
17762
17428
171>40
04289
17690
17740

0)382
02.16
17660

11019
17065

178H
OHIS
17730
11720

SYM80L

TABle

TOATAI>
NONITR
fllSYN
OSAlMl
OIST
S
SYM86
XpltK

03312
02406
17596
17071
1110)

17750
04325

PAGf
TOAUS
HOOIFI
ERROR4
aSACIR
GET'T
SLOPE
UNEQl

11710

VA

03362

IH88
17810
16967
17548
17750

RETURN
LINKeR
ERROR2
CIACIII
IATI
SaRfF

17104

XA

17680

VI

02411
17H5
17181>
02416
017)1
02411>
17610
11700

01010.
01020.
liNE DEFPRE FORM 2665 SUIPIlOGRAIIIWHEN "OOIF/US ARE UNIQUALI
010]0'
LINKAGE· 6T UNEQL.DIST.6
01040_
UNEQl IS EQUIYALENT ro -21016
01050.
CAllS TYPERR. SQRTf, CIRelli, PtSLCT. AND LeNON I
01060.
01070
DORG 16962
16962
01080.
50,0
01090
DC
17011 00050
01100
OORG -49+5.10-6
17006
NOP VB.O
01110
17006 41 17100 00000
DORC -21
16996
01120
NOp YA.XB
OU30
16996 41 17680 17690
DORG '-21
01140
16986
NOP l.XA
01150
16986 41 17660 17670
01160
OORG '-21
16976
01170
NOP Xp,yp
1691t> 41 17730 17740
DORC .-21
16966
OIlBO
NOp
01190
TDATU.51.TOHU+51·
16966 41 03423 03433
DORG ·-llt
01200
16.63
02010 OSACIII DSA TOHn+51
16967 00005 -3413
02020
OORC "5·10-4+5.10-6
17051
NOP yplCK,O
17058 41 17720 00000
02030
DORC ·-21
17048
02040
NOP TDATA6+5I,XPICK
02050
170~8 41 03423 17710
OORG --21
17038
02060
NOP YP,TOATU+51
17038 41 17740 OHI)
02070
OORG '-21
17028
020&0
NOP VB,XP
17028 41 17700 17730
02090
02100
OORC '-21
17018
Nap YA,XI
17018 41 17680 17690
02110
OORG --lit
17015
02120
17010 00005 H670
02130 OSA5LT OSA XA
17065
02140
OORG •• S.l~-1t
17065 00001
02150 COOEl OSC 1,,0
170S.
OORC .+S-6-6
02160
17090 41 17660 00000
NOP
02170
INTERC.O
OOR!; --21
170S0
021S0
Nap YPICK.SLOpE
17080 41 17720 17750
02190
OOR!; .-21
17070
02200
17070 41 17740 17710
NOP YP,XPICK
03010
17067
03020
OORC ·-14
17071 00005 J7730
03030 OULNI OSA XI'
11097
OORG -+5-6-"
03040
03050'
PROGRAM ENTRY
03060.

PAGE

2

03070
030S0 DIST
03090 UNEQL
03100
03110
03120
03130
03140

OS
DC
TFL
FADD
TFL
FHUl
FDIY

03150

TFL
Fsua XP,TDATAS ..
FHUl XP,s
FDIY XP .0IST ,II.

03160
03170
03180
03\90
03200
04010
04020
04030
04040
04050
04060
04070
04010
04090
04100
04110
04120
04130

BV

FAD 0 XP, rOATA" ••

rFL
Fsull
FMUL
FDIY
FADO
TFl
FSU$
FMUL
TFl
FI1UL
FSUB

BNH
8TH
8T"

04140
04"0
04160 CHECK
04170

aT

04180
04190

8E
CM

UT
BNI!
CII

BNE
04200
05010 "ODIFI $"
CM
05020
BE
05030
CM
05040
BNE
05050
050.0 Gupr 8T"
IT
05070
05080
05090

BYII
8f

05100 FII.SY"
05110
05120
05110
05140
05"0.
05160 L
05170 XA
05180 VA
05190 XII

TFII

0'200 VI
0.010 .PlCII

5.0
L,TOATU"
L.TOATA7+51"
S. rOATAl
S.015T,l1.
S.l. ,
ERROR4
XP.TDATAS.51

TFL
TFt
TO
17
oe
DC

DC
DC
DC
DC

PUT RI IN L

l-R2+Rl
S·RIIOISTI
S.R7 (01 ST IIR2+RI
XP'(H2-H11
xP.C H2-HII S/OIS T
XP.Hl+(H2-HlIS/DIST

17098
17103
17104
17116
17128
17140
17152
17164
17176
17188
17200
172lZ
1722~

17236
17HS
17260
1727Z
Y·Kl+(KZ-KIIS/DIST
11284
11296
17308
L.SPRI ME-OI ST-5
17320
L·SPRIME··Z
11HZ
17344
S-R2 •• 2
L·SPRtME ••Z-RZ·.2
17356
17368
17380
L·SQRTfCSPRIME •• Z-R2 •• ZI
17392
17404
MONt TR,L1NKCR.5 ••
11416
CIRCIR.OSAClII.4', •• GET POINT A AND •
17428
ERRORto,79
CHECK fOR RIGHT "OOIFIER
I.Tl,24,610.
17440
17452
RlCHT
CHECII Fall LEFT MODIFIER
UTl.8,610.
YP.TOATA6+51
yp,rOATA6"
YP.S
VP.OISTtll
YP,TDATU"
l.DIST .11
L, S ••
l.Lt t
$,TOAU7+$1
S.S.,
l,S ..
ERROR2
MONt TR,ZOOO,61
SQRTF,L.67.

. xpaCK1-KII

00002
00005
06 11660
01 17660
01> 17750
03 17750
09 17750
46 17810
06 17730
02 17730
03 17730
09 11730
01 17730
06 17740
02 17140
03 17140
09 17140
01 11140
06 17660
02 17660
03 17660
06 I r7S0
03 17750
02 17660
41 I77S6
17 01400

17660
17670
17680
17690
17700
17710

OI~OO
03~13

03362
17150
17l0l
01362
03423
03372
17750
1710L
03372
1710l
17150
17660
OHlJ
17750
17750
01100
-2000

17 02410 J7660

21 02400 17760
27 02410 17012
45 17810 00079
14 0773J

OOOK~

46 17834 01200

17~64 14 0773J
17476 47 17762
EIIROIII
11488
12 07731
IA Tl .... 2.10.
17500 14 0773J
IATl.24.610.
46
17548
17512
GETPT
17524 14 0773J
IATl.a.610.
47
17762
17536
ERRDR!
17548 17 02~00
MONITR,03600.67
TWO
PTSLCT ,DUSL f+~6.6. PlCII POINT ON CIIIGLE
17560 27 02~10
17572 17 CHOO
MONITR.2uo.n
lCNDNI.OSALNI+ZS.6. GET SlOPE AIID INTEllelPT OF oes IRED
17SB4 27 02410
nS96 16 04289
LINE.
SYMBl,41 •• ,
176011 06 0<\)\5
TAiU
FILL IN S'''IOL
SY"85. SLOPE ..
17620 Q6 04125
SYMB6,INTERC
17632
25 04326
SY"86+ hlleDMRII
17644 49 02HJ
EXIT 'ROGIIAM
RETU~N .. 6.

10.0
10.0
10.0
10,0
10.0
10,0

03382
03~33

03362
1710L
17660

00010
00010
00010
00010
00010
00010

ooo-a
01200
000"1
000K4
01200
000-8
01200
-3600
17065
-2120
17096
0-041
17750
17660
17761
00000

68

06020 VPICK
06030 ...
060~O yp
06050 S
06060 SLOPE
06070 INTERC
06080 LINKCR
06090
06100 RCOHRK
06110.
06120 ERROR!
06130
06140 ERIIOR'
061'0

DC
DC
DC

DC
OS
OS
OSo\
DSC
DC

10.0
10.0
10.0
10.0
0.5
O.L
CHECK
5.2071
I ••

17720 00010
17130 00010
177~0 00010
17150 00010
11750 00000
17660 00000
17755 00005 J742.
17756 00005
17761 00001

UN
nN
UN

nil

NoNI TR.03090.n
TVPERR.301.n.
MDNI TA .0)090.'1
TYPERR .314.67.

06160 URORlt ITII
06170
nil
06110 RIGHT TOil

MONITII.O.OfO.t?
TYPeRA.Jl6.n.
CODEI.I ..

17762 17 02400
I77H 17 02410
17786 17 02400
GIVEN CIACLES INTERSECT
171'18 17 OZ410
17810 17 02400
ERRONEOUS OATA
17822 17 Ol4l0
PUT DIGIY ONE IN COOU FOil MIGHT
17834 L5 17065
MODIFIER,
17846 49 17488
INCORRECT STATEMENT

06190
87
NODIFI ...
06200·
07010
OS
8 ..
PI LL LAST SECTOR
17860
07020.
THESE ARE EQUATES FOR AREAS IN COMMON WITH SYSTEII
07030 IA Tl
OS
0.7731
(77)1
07040 SYMBI OS
0 .• 10289
04289
07050 SVM85 OS
0.4315
04n5
07060 SYMB6 OS
0.4325
04325
07070 TDATAS OS
0.3362
0336l
07080 TDATA6 OS
0.337Z
03372
07090 TOATU OS
0.3382
03382
07100 NONITII OS
0.2406
Ol406
07110 RE TURN OS
0.2411
02411
07120 TYPEII. OS
0.2416
OHI6
07130 SQIITF OS
0.2416
02416
07140 CI.CIR OS
0,2416
02416
07150 PTSLCT OS
0.2416
02416
07160 LCNONI OS
0.2416
01416
07170
OENO UNEQL
17104

""e

- 3090
-0301
-3090
-0114
-J090
-OJl6
00001
00000

00008
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

.. Ace
TYPE.II
SlUND
PTSLCT
LeNON I
ERROR4
DSALN2
COOEI
L
SVNBI
XPICK
YPICK

02416
17642
02416
02416
17878
17169
17065
17951
0~289

18001
18011

TKRGHT
Sl TPU
MONITR
INTERC
ERROll2
OSALNC
COOEZ
MR2
SVNBS
XPlel
YPICI

17912
17117
02406
17951
17854
17071
17163
17'161
043U
18021
18031

SY~80L

TABLE

TDATA7
SLTPTI
LNCKA2
GETPT2
ERRORI
OSACIR
OIST
S
S,.,86
XPIC2
VPICl

03382

17438
17906
17726
I7B30
16967
11233
18051
04325
18001
18011

TDATA6
RETURN
LINKlC
GElPTl
OSASLT
CIIICIII
EQUAL
nOPE
U

VA

03372
02411
17935
171098
17019
Ol416
17234
17961
17961
17971

TOATA5 03362
IICO~RK 17'141
02416
17n4
17201
18041
07731
02416
17911
17991
va

LlNCIR
FILSY"
OSALII2
Bill
IATI
SOIlTF
XI

01010LINE DEFP.e FORM 2665 SU8PROOIlA"IWIlEN "ODIFIEIIS AilE EQUALI
01020LINKAGE - oT EQUAL.DIST.6
01030EQUAL IS EQUIVALENT TO -2416
01040.
CALLS TYPERR. SQRTF. CIIICIR. PlSLCT. LeNON" AND LlNCIII.
01050.
0106016962
01070
DORG 16962
17011 00050
01080
DC
50.0
17006
01090
DORG -4'1.5.10-6
17006 41 17991 00000
01100
Nap V8.0
16996
01110
DORG -21
16996 4 I 17971 11'111
01120
NOP VA.xa
16916
01130
OOIIG -21
16986 101 17951 n'l61
01140
Nap L.XA
16976
01150
OORG -21
16'176 4 I 0))62 OU7l
OU60
NOP TOATA5.TOUA.
16966
01170
DORG -21
16966
41 0342) 01433
OU80
Nap TOUA ••5LtTDATAn51
16963
01190
OORG -14
16967
00005
-1413
01200 DSACIII OSA TOATU'51
17057
02010
OORG •• ,.I0-4.'-UI-6
170Sl41
II0Ll
00000
02020
NOP YPlCK,O
17041
02030
OOIIG -21
17041
41
OJ4ZJ
11001
02040
Nili' TOU".5ltX"ICK
170)8
02050
OORG -21
170JI
41
0117Z
0)41)
020.0
Nili' TDATU.TOATAI>"
170ze
02070
OORG -21
n02. 41 179.1 QUIZ
020BO
NOP va.TOATA'
nOli
02090
OORG - I I
11011
41 17971 119.1
02100
Nili' VA.XI
17015
02110
OORG --14
17019
00005
.. 1961
02120 OUSLT OSA XA
n061
02ua
OOIIG -.5-10-4
17061
00001
02&40
OSC 1.0
17099
021S0
IIORG . . , .... U
01160
_
XI,VI
17100 41 11.11 11991
no'lo
01170
IIORG --21
17090 41 17"1 11.71
02110
HOI' IA,.,A
nOlo
02190
OORG -21
nOlo 41 0))71 onll
OUOO
_
TOATA6.TDATA7
17070
03010
IIORG -ZI
17070 41 11041 DU"
0)0.0
NO' •• I.TDATAI
non
Olena
OORG -II,
11071 00001 "7961
01040 DSAlNC D~A lUll

coon

,
03050
0)040
OS070
01010
OJO.O
OUOO

Oo.G
NOlO
OC\1G
NOP
OOIlG
10101'
onlo
OOllG
03120
NOI'
03130
OOllG
0)l~0
HOI'
03150
OOIG
03160 SLl'T, OSA
OJUO
OOIG
03110 COOn DSC
03190
DOIlG

.n....'

::~~:

~m2'5LOPE

111.00

IIIII'

."''''''-10-,
YPltIl,O

17156
17156 41 11011 00000
ITlU
17146 41 01)7a 1'001

-2.

-21

TOU",lI"C!!

17U6

YPIU,TOn.S

171)6 41 1.011 OJI"
17126
17126 41 17991 1.001
n1l6
17116 .1 17971 17911

-21

Y..... ICII
-21
VA. XI

-14

17113

IA
.".10-,
1,0

17117 00005 J7'61
IUU
11161 00001

17117

llifbe,o

1"1•• , ""1 00000

11171
17178
:'
040)0
DOAG -21
17168
17168
04040
NOI' "ICl,IPIC2
04OSO
DOIIG -14
171n
040.0 OSALN2 OSA XPlCl
17169
04070
DOIIG •• 5. . .4.'....
11219
04010
NOI' INTERC,O
17220
04090
OORG -21
17210
17210
04100
NOP Y"CK,SLo,e
04110
DOIIG -21
17200
04120
NOP TDATA6,n.XPlCK
17200
17197
04UO
OORG -14
17201
04140 OSALR2 DSA TDATAS,SI
04150
DORG .. 5. . . .
172n
04160'
041TO.
'ROGRAM ENTIty
SOLUTION FOLLOWS FOR NHEN 1I00IFIeRS .IE EQUAL
04180'
n228
04190
os 2
n233
0.200 OIST
DC
5.0
11234
05010 EQUAL TFL S.OIST.11
17246
05020
TFL L, Tonn."
050]0
1725.
FSUI L, TDATA7"
L'R2-1I1
11270
050.0
FHUL L.l"
L'III2-RII"Z
17Z12
FMUL SIS
05050
05060
S-DIST'.Z-IR2-RIJ"2
17294
FSUI S.l"
GEOMETRIC AIIIIGUITY
17106
05070
8NN
ERlOR2."
8 Till HONITR.ZOOO,67
17118
050ao
ITII SQRTF,S,67,
05090
S-SQRTF 10IST"2-IAZ-IIlI"21
17!30
FIIUL SIS
17142
05100
17354
05110
'FL L,S ..
17366
05120
TFL 0IST.TOA'A7.6
17378
05130
FNUL 0IST.DIST,611,
FADO l,OIST,1I
17390
05140
&Till SQUF,L.67.
L-SQRTFlS"Z.U"ZI
17402
05150
IT
HOHITR,LNCKU., ••
1741_
05160
05170
IT
ClRClII,DU""4"1, OITAIN 'OINTS A AND I ON Cl
17.l6
1743.
05110 SU'Tl INII ERROR4,79
CHECK FOR RIGHT IIOOIFIER
05190
CII
I"TI.Z.,,,o,
17450
TKRGHT
17462
BE
CII
IATI,I,tl0,
CHECII 'DR LEFT IIOCIFIER

41 18011 17961
41 11011 18001
00005 "1011
41 IT''.1 00000
41 11011 17961
41 03423 UOOI
00005 -)4IJ

00002
00005
06 11051
06 17951
02 17951
03 unl
03 11051
02 11051
47 11854
17 02400
17
03
06
01
O!
01
17
27

02.10
11051
17951
.17UL
17Z3L
1'951
02410
02400

17Z)L
034)3
03382
11951
11051
17951
01100
-ZOOO
JI051
11051
18051

onu
17Z3l
172lL
Jl951
11911

Z7 02410 1701l
45 1717' 00079

14 07UJ 000114
46 17912 01200

PAGE
17474 14 0773J
EIUDRI
17416 47 17130
HONITR.01600.67
17498 17 02.00
PTSLCT .DUSL T+46,1, PICK POINT A OR I ON C2
17510 Zl OH 10
STORE I AND Y COORDINATES
TFL X'·ICI.X'ICK"
17522 06 18011
17534 06 18031
IN XPICI AND YPICI
TFt YP ICI. YPlCK"
17546 17 Ol400
ITH NONITR.ZIZO.67
INTeRCE'T
OF LINERl
LCNON1.D5ALRz+n~.,
GET
SLOPE
AND
8T
17558 27 01410
17570 06 18051
TFL S.SLOPE
17512 03 11051
FNUL S. TOATA5"
17594 06 11041
TFL III1.TOU46
17606 02 11041
FSUI aRltS"
1761. 27 OZ400
IT
MIINITIt.L1NUC.5,'
8T
LINCIR,OSALNC'~O". GET POINT. AND I ON CI
17UO 27 OZ.10
17642 45 17878
SL UNO BNA EIIROU. 79
17654 U 07131
Sill
IAT1.42
CHECK Fall IUGNT 1I001'1ER'
CII
IATI.n,,,o,
17666 14 OTT3J
17671 46 17726
ae GETPTZ
CHECK FOR LEfT IIODIFIER
lAn.8,61O,
CII
17690 14 07TJJ
1770l 47 17'30
DNI EUDRI
'UT DIGIT ONE IN CODEZ FOR LEFT
TOIl COOU , 1 "
. 1 TT14 15 17163
GETPTZ ITII IIOIUTR,0)600,67
17726 17 02400
IT
'TSLC"SLTPTZ+46,6, 'ICK 'OINT A OR I ON Cl
17738 27 02410
8TII IIONITR,2120.67
17750 17 Ol400
IT
LCNON1,OSALNI.ZS,6, GIT SLO'. AND INTIICE" DF DESIRED
n762 27 OlUO
un4 16 04219
flU"" Tfll SYIIII,41,1.
"LL IN SYIIIOL "IU U186 06 OU 15
TFL SYMU, SLOPE "
1779. 06 041lS
TFL SYII•• ,INTEac
1'110 as 041Z'
SYIII"l,IICOIla!!
TO
0241.1
RETURN .. t.
If

060Z0
BNE
06010 GETPTl BTIII
06040
IT

06090
06100
06110
06120
06UO
06140
06150
06160
06170
06110
06190
06200
07010
070Z0
07010
070.0
0'010

07060
07070
070.0
07090
07100
07110.
D7UO 111110111
07UO
071.0 IRaou
07150
07a.0 11110114
07170
07UO'
on to LNCI"
07200
DIDIO TIlIGN'

OIOZO
000.0
080.0
00010
080.0
0110 70
OeolO
GIi490
0.U6

nan ••

• TN
ITII
ITII
ITII
• TN
ITN

IION"I,0)090.67
TYPUR.I01.67,
IION"",OIO.O.67
TY'UR,11 •• " ,
ICINI TR,OlO'O,67
TY,e.II,Ja.,,,,

OSA
OSC
'DIll

SLn"
1,1071

.,
U_LC OSA
OSC
ICIJIIU lit
L
Ii
VA
II
VI

DC

lit

DC
DC

lit

coon,l"

",nfl'",
SUlNO
5,1061
I.'

10.0
10,0

10.0

lO ••
10.0

,,1I0NEOUS . ."

000-8
01200
-3600
17065
18001
18011

-21l0
lUZ6
17961
03362

onu

1I0S1
17940

17111
00079
-0042
000K4
OUOO
000-8
01200
00001
-3600
1716!

-lllO
1T194
0-041
11961
179'1
17941
00000

17130 17 02400 -'090
UI., 17 02410 -0301
l7lS. 17 02400 - 3090
n .. t 17 02410 -0314
17178 17 ".00 -30'0
17ltO 17 01'10 -on.

1 "06 00005 "'U'
U.07 00005
PU' OIGIT 011' IN COOIl fOil IIG .. T
17'12 II 11065 00001
I7U~ 49 IT. . , 00000
11001""
11.,5 DODOS ~' •• a

"'"

00001

' ' ' ' I 00001
&7951 00010
1"61 00010

'''Tl 00010

n . . , 001110
00010

n'~11

OIUO XPICK DC
10.0
18001
08120 YP ICK DC
10.0
18011
SLOPE OS
O.U
11961
08140 INTERC OS
O.L
11951
08150 XPICI DC
10.0
18021
08160 "'ICI DC
10.0
18031
oal1o XPIC2 OS
O.XPICK
18001
08180 'tPIC2 OS
O.YPICK
18011
08190 MRZ
OS
O.SLOPE
11961
08200 8~1
DC
10.0
18041
0'1010 S
DC
10.0
11051
0'l020e
0'1030
OS
10..
'ILL LAST SEero.
11061
0'l040e
THESE AlE EQUATES '0. AREAS IN CDMMON IIITN "$TEM
09050 u n
OS
0.11)1
0l1J1
09060 SY"1I1 OS
0.4289
04289
09010 SYMB5 OS
0.4315
04]15
09080 SYMB6 OS
0.4325
04325
0'1090 TOATU OS
O. ]362
03362
09100 TOATA6 OS
0.3172
0)372
0'1110 TOATU OS
O. ]382
0))82
09120 MONITR OS
0.2406
02406
0'11)0 RETURN OS
0.2411
OHII
0'1140 TYPERR OS
0.2416
OHI6
09150 SORTF OS
O.24a
02H6
0'11/00 CIRCIR OS
0.2416
02416
0'1170 PULCT OS
0.2416
02416
09180 LCNONI OS
0.2416
02416
091'10 LlNCla os
0.2416
02416
09200.
DENO EQUAL
10010
11234

oallo

00010
00010
00000
00000
00010
00010
00000
00000
00000
00010
00010
00010
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

PAGE
SY"80L TABLE
TYPERR
RETURN
GET60)
OSAl
DSA6
FORM
SYMBII

TOATA6
RCOMRK
GEnS)
OSAl
ERROR
GETZl
$YM87

02416
02411
16774
11149
111'19
01712
04325

0])72
17261
16814
17159
16654
111618
043)5

TOAU5
PACKGE
GETTAN
OSAl
FM155
IAn
TAIITO

0]362
16962
1675"
17169
16994
07731
16698

TDATA4
MONITR
CUMUK
OSA4
'M2!1S
SYM81

03352
02406
16986
17179
~68l4

04289

STORXY
GET617
CIRCLE
Dsn
FM6]
SYMaS

16914
16794
16462
17189
16818
04115

0101001020.
010)0.
010.0·
01050.
01060.
01070·
01080e
0109001100
01110 ClaCLE
01120
OU)O
01140
01150
01160
01170
01180
01190

C IIICLE OEFPIIE· SUBPROGRAM MAINLINE
LINKAGE - aT MONITR.DSALIL+S
8
CIRCLE
OSAl8L IS ADDRESS OF RETURN
OSolLBL+" IS ADDRESS OF DIM NO.
OSALBL+5 IS ADDRESS OF ERASAIILITY INDICATOR
.CIRCLE IS EQUIVALENT TO -2U6
CALLS. TYPERII
16462
DoaG 16"62
16462 14 07112 0-2'~
DITEIIMlNE
CM
FDRM.255.1.
16474 46 11>134 01200
8E
FM255
16486 14 07112 0-06)
IIHICII
CM
FDRM.n.l.
16498 46 16871 01200
8E
FM61
16510 14 07112 0-155
.01lM 'ND
tM
FORM, 155 •••
16522
46 16994 01200
BE
F"lS5
IUlltM TO
16534 14 01112 0-021
CM
FORM.21 •• ,
IU46
46 16678 01200
BE
GEU1
O. CALL
CM
FORM.2459 •• ,
16$S8 14 01112 01t45.
16510 46 1t6. . 01200
TANTO
8E
01200
'PPROPRIATE
FOIIM.260i.8,
CM
02010
16582 H 07112 OK(0)
16594 lt6 16174 01200
Ie GET60J
02020
ROUTINE
I'ORM.tn •• ,
Oloja
CM
16606 14 01112 0-611
16611 46 16194 OUOO
02040
BE GET611
16650 1<1 017U O-IU
FORII.153 ••
til
020S0
16642 46 16814 OUOO
GEnU
02060
Ii!
'6654 IT 02400 -1090
-MONITR.0)090
IITN
02070 ERROR
TYPe 11ll01i Me5SAGi )01
02010
If" -"PERa.lol ..
16666 11 02410 -0'01
16nt IT 02400 InS4
02090 GErll IT . -"'0II1'a.05A1.'
16690 ~9 02410 00000
-2416
02100
17
166. . U· 011)1 OOOJ2
IAThU.10
02UO 1I.NTO A"
fllEIiE , •• fliO 'ORM &6)9 STATEMeNTS SCI
-1A1I,27,lO,
02120
16110 14 07UJ 0001(1
OITUMIN. IIMItM IlOUlllI1 TO CALL "
GETTA" .. ,
II
02UO
16122 46 16"'S. 01200
tHEtKING 'Ias, fLIIIINf 'OR TAIITO
-_ITII.05AZ+5"
Il
02140
1611<1 27 02400 1116.
16746 49 02410 00000
-2416
021$0
117
lU54 27 02400 11174
CALL
-MONUII.OSAJ+' ..
02160 GETTAII I f
16766 U 02410 00000
-Z416
02170
If
16774 27 02400 17114
'''IIOPII IA TI
02110 Gn60) IT
-"'ON I ra.os"" ....
167116 49 024'0 00000
-Z416
02190
n
\tn4 27 OUOO 11194
ROUTlIII
-IIONI ra.o",.".
OZlDO GU6n "
16806
49 01410 00000
-2416
01010
11

ell

71

0](120 GUISI lIT

·'UlIIna.DS.'.S ••

'11011 PILE
14114 27 02400 11204
1.8:' 49 Ot410 00000

03010
111
-2416
0]040.
It V. 1. AIID • "yEll
AM
SET tAfl TO AADIUS
03050 '"2U
IA ti. 54,10,
16834
03060
TFl $YIII'I7,-lAn ..
GET RADIUS
160.6
0)070
SII
IAU.54.IO
16.'.
0)080
STORXY
81
16810
03090_
CANONICAL PO_Ii
AM
03100 'MOl
SET T IATI TO RADIUS
1681.
UTl.40.IO •
OlllO
TFL SYM81.-IATl.,
GET RADIUS
16890
OlUO
5M
IATl.40.10
16902
0)1]0 STOIIXY All
en • COORDINUf
16914
IAlI.12.IO.
0)140
tFl SYM8S.-IAr1
I~U6
AM
GET
COORDINATe
O)~~O
I At A,14,l!;!!
IIJ~U
!ln~.
TFt
6i
lin
PlulUGe UP &YII. UtL_ 16962
"ltll,SI •• ,
0)170 ...." •• '~II
03110
$VM81+ 1. RCOIIRII
TO
11>974
PROGU14
16986
03\ 90 CUIIUII a 7
-RETURN ...
UIT
, 0320004010CENTER POINT AND RADIUS GIYEN
04020 FMI55 CM
TO"' ... 9,10.
CHECII FOR 'OINT AS CENTER
16994
04030
aNE ERROR
17006
04040
AM
IATI,12
17011
04050
CM
CHECII fOR CENUR MODIFIER
IATI.2.610.
170)0
04060
17042
BNE ERROR
AM
17054
04070
IATI.ze
CM
CHECK FOR RADIUS ItOOIFIER
04080
IATI.2J.I>10.
17066
04090
11018
SNE ERROR
AM
1..-T1.14,IO,
17090
GET UOIUS
04100
04110
TfL SYMB7,-IATI
17102
Tfl SYMB5. TOATA5 ••
GET COORDINATES Of CENTER
04120
17114
17126
04130
Tfl SYHB6,TOATA6
B7
PACKGE
17138
04140
0415017149
OSlo CUMDAII
04160 OSAI
17\50
04170
OSC 5.03)81
17159
OSlo CUMDAK
04100. ilSA2
17160
04190
OSC 5,03401
17169
04200 OSU
OS- CUMUli
05010
OSC 5,03391
17170
17179
05020 OSA4
OSA CUHGAK
17180
05030
OSC 5,03411
17189
05040 OU5
OSA CUIISAK
11190
05050
OSC 5.03421
17199
05060 OSA6
OSA CUMBAK
17200
05070
OSt 5.0HlL
0500017260
fiLL LAST SECTOR
05090
OS
56"
05100- THESE ARE EQUATES POll ""EAS IN COMMON WITH SYSTEM
01712
05110 fORM
OS
0.7712
07731
05120 IATI
OS
0.713\
0.4289
0"289
05110 SY"B1 OS
04315
05140 SYM85 OS
0.4315
04325
05150 SYMB6 OS
0.4325
04)35
0,4335
05 . . 0 SYMB7 OS

ti" ,,"I

.,

II
06
IZ
4.

07HI
04US
07111
16914

1\
06
IZ
II
O'

07111 000140
04'" 01UJ
01731 DOOM
017JI OOOJ~
041U n7tIJ
oeOJ4
~
"'l~
04 '4 D.~ I
04n6 11161
0241 J QOOOO

II
,.

16
25
.9

"t.t

,

000114
01UJ
OOON4
00000

fjU

14 OH52 000-.
47 161>'. 01200
11 07731 -0012
14 07UJ 000-2
47 I6U4 01200
11 07731 -002.
14
47
11
06

0773J
161>,.
07731
04))5

OOOU
01200
000J4
0173J

06 OH15 03362
06 04325 03372
49 16'62 00000
00005
00005
00005
00e05
00005
00005
00005
00005
00005
00005
00005
00005

J6986
J6986
J6986
J6986
J6986
J6916

00056
00000
00000
00000
00000
00000
00000

PAGE
05170
051&0
C5190
05200
06010
06020

"OHITII.
RETURN
TOATA4
TDATAS
TDATA6
TYPERR

OS
OS
OS
OS

as

OS

0.2"06
0.2411
0,3352
0.1362
O.H12
0.2416

O~O30.

I ••
06040 RCDMRK OC
OENO CIRClE
06050

02406
0241\
0)352
03362
03372
02416

00000
00000
00000
00000
00000
00000

17261 00001
16462

72

'AlOE

SYMBOL TADlE
TYPERR
SECOND
RCOMRk
MDNITR
EIIROAl

02~16

18150
185\1
02406
18274
18160
OISTC 11420
DSA" In05
FOUR 11450
Ok
17742
SIIII'8 18~10
STORC 17410
XlSAV 11~70

•

TOUU onn
SOTRCT 17826
18170
18250
18170
02416
11087
17802
18460
18420

TOATU
AUR02
PTiPn
HOWCUM
CDUCT
OCRCR
OSA16
OSAl
H.LF
R
SQRTF

03362
18061
17913
181ZZ
11182
1810]
11475
18115
11440

0~289

SY~B5

0~315

18no

YlSAV 18430

'T2PT) 1800'
LESSER
EUDIU
CC
OISTF
OSA20
GETa
PROD
SNINC
SYNBI

uuv

\BU~

02416

TOATA~

on52
180)5
17957
11206
02416
18400
11415
11385
UTI 07nl
5
18430
$TORA 17158
SYMI6 04325
Y2SAY

RZEROI
PTlPTZ
F I ~NSH
CIRCIR
OISTA
DUll
OS"

""A

SQUARE.
RETURN
'OINU
""IOU
A
DISTil
OSAlI
FMll
MINIF
SIIIN.
STORII
SYIIIl

01010.
CIRCLE OEFPRE FORN 211THREE POINTSI ROUTINE
01020'
01030.
LINkAGE - BT IIONITR, DUL Il.5
01040.
FII21
B
01050.
DS.Lll IS .DDRESS OF RETURN
01060.
OUl6l>4 IS AOORESS OF DIM NO.
01070.
DUl8l+5 IS ADDRESS OF ERASABILITY INDICATOR
FM21 IS EQUIVALENT TO -2416
01010'
CALLS TYPERR, OISTF, SQRTF, + CIRCIR, + IIINIF
01090'
01100'
DORIO 11262
01110
17262
01120 FII21
CII
CHECK FOR 1ST POINT
17262
TO.T U .'It 10.
8NE ERRDAl
01110
172H
01140
eM
TDATA"+Sl.9.10.
2ND POINT
17286
8NE ERRORl
01150
17298
CM
01160
TDATA4+102.9.IO,
JRO POINT
17310
01170
8NE ERRDU
17322
-HONITR.DSA7+5
17334
01180
8T
01190
8T
-OISTF .PTLPTZ+20 .. CALCULATE A
17146
01200 STDU TF~ •• DISTA
17358
-IIDNITII.DS.16+5
02010
IT
17no
8T
02020
-DISTF .PT2PTl+20" CALCULATE 8
17182
17194
02030 STDIII TFL I.DISTII
OZ040
8T
-"aNI TII.DUI7+5
17406
17411
02050
8T
-0ISTF.PTlPT3+Z0,. CALCULATE C
17430
02060 STDRC TFL CC.OISTC
1FL St A ••
ADO A+.+C
17442
OZ070
17454
02080
F400 S.8
17466
02090
FADD S.CC
17471
02100
FIIUL S.HALF"
5-.1/2 "+8.C 1
IIUlT A.I.C
17490
02110
7Fl • 'RDO ....
17502
02120
FMUl PIIDD.II
..RCD-a ••• ,
17514
OZ130
FMUL 'ADD.ce ••
17526
TFl SMINA.S
02140
17538
TFL SIIIN8.5
02150
. TFl SIIINC.S
17550
02160
S-.
17562
FSua SMINA, . . .
02170
5-1
17574
02110
Fsua SMIN8,8"
17586
5-C
FSU8 SMINC.CC ..
OZI90
17598
TFL SQUARE,S
02200
17610
FMUL
SQUARE,SIIIN.
03010
17622
FIIUl SQU.RE.SIIIN8
03020

1.410
02~lL

lll54
18298
11150
11410
liH.
11262
02416
18400
ll]94
DUn

14 Oll52 000-9
47 18Z98 01200
14 03403 OOO-~
~7 1829. 01200
14 01454 OOO-~
47 1829. 01200
27 02400 18380
27 0241D 17977
06 18350 18400
Z7 0240D 18480
27 0241D 18029
06 18160 11410
27 02400 11490
27 02410 18003
06 1IJ70 18420
O' 11430 18150
01 11430 18360
01 11410 18370
0] 114)0 \8440
06 IIUD 11350
01 11460 11360
03 18460 U3TO
06 11400 11430
06 11410 11430
06 11420 18430
02 11400 uno
02 11410 183.0
02 11420 18nO
06 11470 18430
03 18410 18400
OJ 11470 18410

PAGE
17634 03 11470 1,4Z0
FHUL SQUARE.SMINC., SQUAIIE-SIS-AIIS-81IS-CI
17646 17 0240D -2000
8T" -".oNITR.02000
BT" -SQRTf,SQUARE"UKE SQUARE IIDDT OF SQUARE 17658 17 02410 JI470
17670 03 11470 11450
F"U~ SQUARE.FDUR..
IIULT IY 4
17682 46 17694 01400
8Y
'+12
17694 46 17706 01500
axv '+12
FDIV PRDD,SQUARE., II. . . 8'C/4SQRTISI S-AI 15-81 IS-C 1
17706 09 11460 11410
INDICATES DIVISION IY ZERO
ERIltOR1 •••
BV
03100
17718 46 11250 01400
DIVISDR "'RO.CHING ZERO
&XV
ERROR1 •••
03110
17710 46 11l'0 01500
-IIDNlTa.DSAI+5
.
Ill42 27 Ol40D lU.O
OllZO DK
IT
-CIRCIII,DCRCR+45,,08TAIN
INTERSECTIDNS
Of
ClaClS
III RAOIUS-R
03110 PDINTS BT
17754 Z1 02410 11141
THERE
AaE
NOT
TIID
INTERSECTIONS
8NA
HOl/tUM.n ..
03140
17766 ItS UIU 00079
17778 Z1 02400 18500
IIDNITII.DSAI8+5,6,
aT
01150
17790 l7 02410 11055
DI51F.IIZEIID1+20,6, OBTAIN DISTANCE A
IT
03160
17102
27 02400 11510
IIOIIITII.DS.19+5
•••
8T
01170 GETI
17814 21 Ol410 11011
DISTF.RZERDZ+20,6, DBT.IN DISTANCE 8
03110
aT
SU8TRACT
RADIUS
FRDII
80TH
DIS'ANCES
oII 90 sarRC T FSUI DIST.,R"
17126 02 11400 1.460
1711. 46 11112 01200
8Z
CORECT
01200
17850 02 11410 11460
FSU8 01 STI.R
0~010·
17.62 . . 1'''0 01200
IZ
SECOND
04020
lI.kE RESIDUALS A'SOLUTE
:, Cf
OUlA-2" ,
04030
17174.13 1.St. 00000
17U. n 11401 00000
CF
01$TI-2
04040
1719. 11 02400 -2130
8TII
IIONI'R,2110.61
04050
OETUIIINE LESSER DISTANCE
BT
IIINIP.OSAZO+'I,6.
040'0
17910 21 02410 '10"
IS IT DISUIFRDII 'I"Sf INTERSECTlOII\
Fsue LESSE",OISTA ••
04070
11922 02 11110 11400
YES, TAkE Flan SET OF COD"OIIlATES
BZ
COlECT" ,
04010
179)4 . . 1I11t 01200
110, TAil SECCNO CIIOIID I NIoT ES
17
04090
SECDIID .. ,.
In*, .,1 111'0 00000
04100'
17'"
04110
DORIO •• ,.5-U
179. . 41 O)4U 11400
04120
NOP TD4TA"Il,DIITA
17956
04\30
ODRa _21
17956 41 0117l 01411
04140
Nap
TD., . . ,TII&TA""
1795)
O0 00010
OS
080 10 B
10
18370 00010
06020 tC
os 10
OSA STDRA
18375 00005 JU58
08030 Dsn
18376 00005
08040
osc 5,2101
18385
00005 J77a'
DSA
POIHTSoiZ
08050 OS"
18316 00005
OSC S.02071
08060
18~00
00010
08070 OISU DS
10
18410 00010
10
000.0 DUT8 DS
11420 00010
10
01090 DISTC DS

0."'-.-"5-11

_I.

08100 S
08110
08120 H'~F

0$
DC
DC
oauo
DC
09140 FOUR
DC
DS
081S0 PROO
08160 SMI"'A DS
OBI70 SMIN8 OS
081&0 SMINC OS
08190 SQUARE DS
OS
08200 II.
09010 XlSAV OS
09020 YlSAV DS
09030 Xl$AV OS
09040 V2SAV OS
09050 LESSER DS
09060 DSAI6 OSA
DSC
09010
09080 OSAn OSA
09090
OSC
09100 DUll OSA
OSC
09110
09120 DU19 OSA
09130
OSC
09140 IICOMAK DC
09150_
OS
09160
09170. THESE, ARE
0'1'180 UTI
OS
09190 SYM81 OS
09200 $'"65 6S
10010 SYMOI>
10020 sy~n
100)0 liON IT. OS
100... 0 UTUltIi DS
10050 TDATU OS
10060 TDATU DS
10070 TOUU os
10000 TYPER. OS
10090 DIS" OS
10100 SQU, OS
10110 tlacsa os
10120 11'111' os
101300
01110
10 . .0

os

os

10
8,50000000

UHO 00010
lG43Q

2.0

lG4~0

O.B

10450
lIi460
18400
IhlO
16420
18410
10460
lOHO
IU30
IUSO
18360
lU70
18475
13476
18405
UU.
11495
U 02 1OltOI liltS I
10216 .. 6 IUZZ 01200
GRA,",CH TAKe ..
1&230 41 '8162 01100

ERO_IO
SfCO~D.OlI00.

OSHa

87

IRNCH'·U., •

051$0 WHAT
05160

SM
80

'''TI.~2,IO,

, USI! SICOND INTEaSECTION "

GItNCHHU,79"

05110 ERAO'" 8TM
05180
IT"
05190 faROIll &TN
05200
BTII
06010 11101"0 IITII
IITM
06020
06030e
0.040
OORIl
06050
NOP
06060
OORG
06070
NOP
06080
ooaG
06090
HOP
01>100
OORG
01>110
NOP
06120
OORG
06130 DUIZ OSA
06140
DORG
06150'
OS
06160 C
OS
06110 "I
06180 RZERO OS
OS
06190 D2
06200 IINTl OS
07010 YINTl OS
07020 XINT2 DS
07030 YIHT2 OS
07040 DUll DSA
07050
DSC
07060 OU14 DSA
07070
OSC
070GO
DC
07090 I.OE48 DC
Dt
07100
07110 NI.E48 OC
07120
Dt
07130 "INI.O OC
DC
07"'0
07150 ONE'
DC
07160 RtDMRK DC
07170_
07100
OS
07190. THESE AU
07200 IATI
OS
oaOIO SYMSI OS
06020 SYMeS os
08030 SVM8/> OS
08040 SYMB7 05
08050 MON ITR OS
08060 RETURN OS
08070 fOAlU OS,

-MOHln,01090
-TYPERR,lOe"
-NONITA,OlOtO
-TYPUR.301
-MONITR.03090
-TVPERII,J07

oaoao

lOArU

0,3)62

QulZO

LI~CIR

'ACE

TAKE "1ST ,"'ERSEtTIO"

10242 "'I 18082
IAil IS NOW IATI.40
18250 12 01UI
THEa; liAS ONLY ONE INTERSECTION
tB262 43 18082
18274 17 OHOO
18286 17 OHIO
IB298 17 02400
18310 17 02410
18322 11 OHOO
18334 17 02lti0

00079
-3090
-0301
-)090
-0301
-3090
-0307

.. , 18..61

1841\

e.50"'11
XINU.VINTZ

-21

XINTI,YINTI

-21
TDU"."",RZUO
-21
82, TounHI
'-14
TOATU
•• ' ..... 4
10
10
10
10
10
10
10
10
GeTPT5+12
5.02061
CALCZ
5,03491
1,10000000
2 ... 9
•• ·10000000
2 ... 9
8, -I 0000000
2,1
8,10000000
2.1
•

18379
18380
18370
18310
18360
18360
18350
18350
18347
18351
18392
18 .. 01
16411
IB421
ISH'
18HI
IB4S1
18461
ISH'

lSH6

Ih77
18406
ID487

OOOCO
000112

41 18 .... 1 11 .. 51
410H13 I8UI
41 184)1 0340)
00005 ·,U62
00010
00010
00010
00010
00010
00010
00010
00010
00005 JU26
00005
00005 J1766
00005
00001
00002
00008
00002
00008
00002
00008
00002
00001

h'

16'lt99
18501
16509
lUll
18519
US21
U529
IBS)I
18532

, ILL LAST nCTOR
28, ,
EQUATES fOR AREAS IN COIOMON WITH SYSTEM
0.7731
0,4289
0.4315
0.4325
0.4335
0,2406
0, Ziti I
0,US2

07731 00000
0~289 00000
04315 00000
04125 00000
M335 00000
02406 00000
02411 00000
0))52 00000

18560 00021

.. AGE

DS

00090 TOATA6 OS
OOlOO TYPfRR OS
(an 10 SQRTF OS
cano ONLINE
OSHO.

08150

OS

as

0.1312
0,2416
0.21016
0.2416
0.2"16

OENO fMTANT

0)362 00000
OH72 00000
01416 00000
02416 00000
O~416 00000
OZ416 00000

17262

"

_ACE

~

YCOORD 18~8~
TDUA~ 03152
NOYMOI 18)22
LGNEG2 17"46
CENTER 180H
1851~
Bl
UTI "07731
118)0
NEU
SVMn OUIS

01010.
01020.
01030.
01040.
01050.
01060.
01070
01080 FNa~'9
01090
01100
01110
01120
01130
01l~0

01150
01160
01170
01180
01190
01200
02010
02020
02030
02040
02050
02060
OZ070

XCOORO I.n~
SMItEGZ I 796ft
NOXM02 182U
F"2~5" 1721>2
8PLUSC 17806

822

1854~

LGNEG I77U
ONE
18595
$VM86 04)25

SY~.OL

TAaLE

"PERR
RETURN

02~16

NOX~OI

ERROR7
aPLSCZ
CI
LOGIC
SMNEG
SYM81

02~ 11
181 7~

18470
11010
In5~

17610
17762
04))S

02UO
02140
02150
0211>0
02170 LOGIC
02180
02190
02200
03010
03020

NON ITR
EAROR.
• BM INe2
C2
141
SQUF

02~06

17718
17978
18564
185)4
02H6

TDATA5' 03)62
NOTM02 18J90
lIHL IN 02416
COMPLT 180'~
aNINC 17714
OSAli 18499
1154~
"2
SY"81 04289

CIRCLE OEFPU FORN 24591UNTO TIIO LINES IIIYH GIVEN RAOIUSI
LINKAGE - B
FN2~59
FN2~S9 IS EQUIVALENT TO -2416
CALLS TVPERR. SQRTF. 0 LINLIN
DORG 17262
CM ·TOATA~.I.l0.
BilE ERROR!>
eM
TDATA~.~I.I.l0.
BNE ERPOR6
AM
IATI.S6 ..
CM
14TI.23.610.

17262
17262 14 03]52
17274 H 17718
CHECK FOR SECONO LINE \T286 1~ onn
17298 47 11711
SET POI NTER TO RAO IUS 17310 11 07731
CHECK FOR RADIUS MODIFIER
17322 14 0773J
8NE ERROR6
17314 47 17718
17H6 06 ln54
TFL .tl. TDUAS"
GET SLOPE OF LINE 1
17358 03 18554
FIOUl CI.Cl ..
M1··2
17370 01 lH~~~
FADO CI.ONE ..
8 Til -MONLTR,2000
17382 17 02400
BTII -SORTF.CL..
SQUII+IlI •• Z!
17394 17 02410
AM
IATI.14.10.
IATllS NOW IATloaz
17406 11 07731
FMUl CI.-IAT1..
• .SQRTI1+Ml •• 21-CI
1741B 03 18554
17430 06 1856~
TFL C2.TDUU041..
GET SLOPE OF LINE 2
17442 01 18564
FMUL C2.C2,.
MZ •• 2
17454 01 18564
FAOO C2.0NE..
1+142.'2
BT14 -SORTF.C2..
SQRTFII.1I2 •• 21
17~66 17 02410
17478 03 18564
FNUL C2.-IAT1..
..50RTFllOM2 •• 21-C2
TFL 141.Cl..
PUT CI ANO C2 IN IIORK AREA
17490 06 lUH
FOR SUBTRACTIGN CHECK 17502 06 185H
TFL 142.C2 ..
17514 02 18534
Fsua III.UTl.Il.
17526 46 LBI74
8Z
IIOXIIOI
17538 02 18544
FSU8112.lAn.l"
'HECK FOR 1:1 OR 1:2 EQU'L TO RADIUS
8l
NO~NDZ ...
17nO 46 1&2U
17562 14 03362
eN
TDU".49.10
17574 46 183Z2
NOVMOI
IE
17586 14 03~0)
C14
TDATA50"L.49.10
IIOYMDZ...
CHECK FOR "lOR "2 EQUAL TO INF INLTY
BE
17598 46 18390
17610 12 07731
IATllS NOli IATl012
SM
IATl,70.10.
17622 14 07UJ
IS MODIFIER YLARGE
CN
-UTl,35.10.
1 7614 ~6 17806
8E
aPLUSC
17646 14 0773J
XURGE
C14
-UTI.31.IO.
17658 46 17742
IE
LGNEG
17670 14 077lJ
XSMALL
CM
-IATI,ll.IO.
CHECK FOR FIRST LINE

L+"'··Z

02080
02090
02100
02110
OZ120

TOAU601172
IISIS

RCD~RK

000-1
01200
000-1
01200
-0056
OOOK)
01200
03362
18~54

18595
-2000
JB5~4

000J4
0773J
03~03

18564
18595
J856~

07UJ
18554
IIS6~

0773J
01200
0173J
01200
000M9
01200
000M9
01200
OOOPO
OOOlS
01200
OOOll
01200
000L2

PAGE
17682 46 17762 01200
SMIIEG
17694 I~ 0173J 00016
VlMALL
-IATI.)6.10.
17706 U 1777~ 01200
BIIINC
17718 17 02400 -)090
-1401lITR.030.0
17730 17 02410 -0301
-TYPERR.301
17742 ~4 17774 03360
BIIIIIC.TDATAS-2 .. aoc IF SLOPE NEGATIVE
17754 4' 17806 00000
.PLUSC
.
IPLUSC.TOAT'S-2 •• B-C IF SLOPE NEGATIVE 17762 "" 17806 03360
17774 06 18514 03372
GET B OF II
lloTOATA6 ..
17786 02 185)4 18554
II IS 81-Cl
81,Cl ..
17798 "'I 17830 00000
IIEXT
17806 06 18534 03372
GET I OF Ll
81. TOU"' ..
17818 01 1853~ 18554
BBI IS 8+CI
FADD 81.el ..
17830 II 07731 OOOKI
IATI
IS
NDII
IATl040
All
IATloZ8,10.
NEXT
IS SECOND NOOIFIEII YLAIGE
C14
-UU.15.10.
17842 14 07UJ OOOLS
L7854 46 18010 01200
.PLse2
03180
BE
XLARGE 17866 14 0773J 0001l
-IATl.31.10.
C14
03190
1TaTa 46 17946 01200
LGIIEGZ
8E
03200
XSMALL 17890 14 0173J oeOl2
C14
-UTl.J2.ID.
0~010
17902 46 17966 01200
SNNEG2
04020
BE
YSIIAU 17914 14 071]J OOOU
CII
-UTl,l6.10.
04030
17'26 46 17978 01200
8111NC2
040~0
BE
17938 49 17718 00000
EIIROU
04050
B7
•• C ., SLOPE IS NEGAT I VE
04060 LGNEGI INF 814INta. T04US041-2 ••
17946 44 17na 03401
17951 49 18010 00000
04070
87
I'LlCZ
I-C
I'
$La;'
15
NEGATIVE
IPUt2.TDATA,.41-1
..
04010 SMNEGI INP
17966 44 18010 03401
17971 06 11544 01413
GET II OF L2
04090 BNINC2 TFl 8U.TO."60_1 ..
179'0 02 185~4. 18564
a22 IS 8-C2
0~100
FSUB 822.C2 ••
18002 4, 11/13'~ 00000
0~110
.,
CENTEII
GET B OF LZ
18010 06 185"" OHU
04120 .PLSC2 TFL ',2.TDAT"."1 ••
122
IS
I+C2
18022 01 18544 18564
04UO
FADD IU.U ..
DITAIN CENTER USING LlNLlII 1I0UTllle
0~140 CENTER 8T14
-140NITII.20'0 ••
11034 17 02"00 -2050
11046 27 02410 185Z4
IT
-LlNL!N.DSAl1.U
04150
NO INTERSECTION I' IIEtORO MARK PRESEIIT
aNR tONPU;XCOOIIO"
04160
1805a 45 18094 IIST4
11070 n OZ"OO -]0'10
O~I 10
BTII -NON nR. 03090
18082 17 02410 -0]06
04180
ITH -TYPEIIII,l06
COMPLETE SYNI TAIU
laO'4 06 0~)15 18574
04190 COII"U TFL $V MIS. X'OOIlD ••
11101> 06 04325 11514
04200
TFL SYII86.VCOORO
11118 11 on31 000M2
IATI IS NOW IArlo.2
IU1041.10.
05010
All
lauo 06 04135 onu
0'020
TFL SVNu.-un
181 .. 2 16 O~289 0-051
05030
TF" $VMI1,51 ••
18154
25 04n6 .UU,
SYMITH.RCDIIRII
OSO"O
TO
11166 49 02UJ 00000
-AilORN, ..
0'0'0
17
05060'
11174 12 07731 OOOPO
I'TI IS NOW IATUOl2
05070 11011401 $11
'U'.70.10.
CHECK .OR • IIDDIPIERS 11186 I~ onu OOOLl
-IAT1031.10.
010.0
C14
18191 46 IIHO 01200
.UDR7
05090
11210 14 onu .COOLI
-UU.J2.100
05100
CN
18222 46 l8HO 01200
•
05110
aE ERII017
18234 ~. 1762Z 00000
on20
17
l.O'IC+l2
18242 12 077]1 000141
"TI IS NOW IATI •• O
os 110 IIOIN02 514
11254
14 onu OOOLI
CHICII
'Oil
•
MOD"
III1S
-IUI"lo10.
051"0
CN
11266 U 1.. 70 OUOO
on50
I.
11271
I~ onu 0001.2
-un,II.IO
01l6D
CII
L8290 •• '1.'0 01200
luon
0'110
IE
0)030
01040
03050
03060
03070
03010
03090
03100
03110
03120
0)1)0
03140
03150
03160
03170

BE
CII
BE
ERROR6 8TM
BTII
l.GNEG BNF
8T
SMNEG 811F
8MINC TFL
FSU8
17
.,LUSC TFL

I.

"n .... lo.
euol1

OfJtoo

$M

IATl.za,lQ.

0~190
o~~oo

01

lOGIC+12

!jaYI'D! SM

DE

06020

eM

060]0

IS
CHECK

-UTI.36.10

BE

060~O

IS NOW IATh12

un

g';I,7il.IO,
-IAH.l5.10.
ERROI<7

eM

0;'010

IAn

06050
B7
06060 NDVMD2 SM
06070
eM
06080
8E
06090
CM
06100
BE
06110
SM
06120
81
06130 UIIOU 8T14
06140
8TM
0615006160
OO~G
NOP
06110
06180
DORG
06190
NOP
01>200
DOIIG
01010
NOP
07020
DOIIG
07030 DUll DSA
070ltO
OOIlG
07050 HI
DS
0101>0 H2
DS
07070 Cl
DS
01080 C2
OS
07090 81
os
07100 822
DS
01110 XCOORD DS
07120 VCDORO DS
07130 RCOMRK DC
01140
DC
01150 DNE
DC
0716001170
DS
07180- THESE ARE
01190 IATi
OS
07200 SVM81 OS
08010 SVHB5 DS
08020 SYMB6 os
08030 $VM87 DS
080ltO MONITR OS
08050 RETURN DS
0801>0 TOA TA4 OS
OB010 TDATA5 DS
08080 TDATA6 DS
08090 TVPERR DS
08100 SQIlTF OS
08110 LINLIN as
08120DEND
08130

ERROR?
LOGICoL2
IATl.42.10,
-lAn.35.10.
ERROU
-lAn.36.IO
eRRORi
IA H.2e.IO.
LOGIC+12
-MONI TR.03090
-TYPERR.]Ol

un

IS
CHECK

"Tl IS

18302
IS1I4
HOW IAnOll
18322
FOR Y MODIFIEU 18334
laH6
18358
18310
18382
NOW UTlHO
18390
FOR Y MODIFIERS' 18402
18414
11426
18411
18450
NOW 1'11+12
lB462
18470
18~82

e+5_6-6

12077H
49 170U
12 01Bl
14 OlUJ
46 lQHO
14 011lJ
46 18470
49 17612
'12 07731
14 0773J
46 18410
14 07UJ
46 18470
12 07731
49 11622
17 OHOO
17 02410

ooou
OOOlS
01200
OOOl6
OUOO
00000
000M2
OOOl5
01200
OOOL6
01200
OOOK8
00000
-3090
-0301

18517
18518 H 18584 00000
18508
1850a 41 IBS4~ 18514
18498
18~98 Itl 185)4 0340)
18495
18"99 00005 -un
18525
18531t 00010
185"" 00010
18554 00010
1851>4 00010
18534 00000
1854" 00000
1857" 00010
18584 00010
18585 00001
18593 00008
18595 00002

VCOO~D.O

--21
822.XCOORD
-21
BI. TDATA5o~1
--lit
TOATAS

-.'.6-"
10
10
10
10

O,Ml"

0,M2

10
10
1 ••
8.10000000
201
filL LAST SECTOR
EQUATES FOR AREAS IN COMMON WITH SYSTEM
0.1131
0."289
0.4315
0.4325
0 .... 335
0.2"06
0.2"11
0.3352
0.3362
0,3312
660

18661, 00066

0.2416
0.2416

07731
04289
04315
04325
04335
02406
02411
03352
03362
03312
02416
02416
02416

FMZ459

17262

0.2lt16

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

"GE

SYMBOL TA8LE
TVPERR
RPlSR2
RCDMRK
F"2603
DSAl4
IAT!
SVMB5

TDATU
RPlSRI
RADl'WD
ERORll
DSA15
MAXIF
SVNIl6
XPTl
Y"1

02lt16
17670
18338

1721>2
18129
01131
OH15
XlRGe 11834
VLRGE 18038

010100102001030010"0010500106001070
01080 FMZ60)
01090
01100

OBS2
17558
100ll
17502
18332
02416
04325
18217
18281

TDATA6 03372
RHINA2 17638
RAGONE 18317
CLEMiP 11918
eR~OR 16244
MINIF 024\6
SVMB7 0 ... 335
XPT2 18291
vpn 11)07

OORG 17262
eM
TDATA4,Z.10.
CM

TDATA4oSl.2.10.

01110
011Z0
01130

BNE
AM
CM

EIlORIl

01140
01150
01160

SHE
AM
CM

ERORll
IU1.a4
IA71.23,610.

01170
01180
01190
01200
02010

aNI!
AM
TFL
TFL
CF

UOI\U
un.l",9 ..
RADONE.-IATl ..
IIADTlrlo.-IAn ..
RAOONE-I ...

C21eo
02190

Q~Z'O

0;010

RACCNO 00018
C1RCTR 18218
FIRST 11986
M002 17HO
WHY
18220
XSML 18018
YSML 18106

TDAU4
RETURN
MONITR
CIRCIII
GODII
SVHBI
XDSA
YDSA

03352
02411
OH06
02~16

17682
04289
18181
18191

CIRCLE PEFPRE fORM 26031TAIITO TWO CIRClES WI GIVEN III
8
F"2603
FM260) IS EQUIVALENT TO -2416
CALLS TYPERII. CIRCIR 0 MAXIF OR MINI'

EIlDRll

CF

IATl.12
IATl,11.610.

eM

SM

RADTWD-2
IAn.3ft.l0.
-1"TI,ft.,10.

BE

IUIlNRI

C'"

-IATl.49,10.

BE

EIIORU ITP!
""IIIRI

TDATA5 03362
17526

IUHNRI

L INK"GE -

liNE

02020
02030
020<00
02050
02060
02070
020$0
02090
02100
02110
02120
02UO
02140
02150
021l>d
02170

"GI

00000
OOOPO

.'URI

-11014"11.01090

UM

-TVPERR.JOI

CF

"ADONE.TOATA7 ••
IlADOH!-2 ...

117

MOD2

'SUI

IIPLSU '4DD, IlADOIIE.TOATn ..
AM
IAn .28.10.
M002
CM
-IAT1.41.IO.
Ie
11"114112
CM
-IAT1.49,10,

I.
&7

II'LSR2
E.O~11

IIMIHIII 'SUi _A07110.TOAT,'.ll ••
Cf

R'DTUD-Z •••

17262
CHECK FOR FIRST CIRCLE 1121>2
17274
CHECK FOR SECOND C IReLE
17286
1729.
11310
CHECK Fall TANTO MODIFIER

14 03352 000-2
41 11502 01200
14'03403 000-2
47 11502 01200

II 07731 -0012

11322 14 071lJ
17334 47 11502
17346 II 011H
CHECK FOR RADIUS MODIFIER
lT15I 14 07UJ
17370 47 11502
17382 II 07UI
NOW IAnollO
17394 06 lUI7
PUT RADIUS IN RADONE
11406 06 18321
AND U.DTWO
INSURE RADIUS 1$ POSITIVe
11418 ») 18315
11430 33 18325
NOW IAT1+Z6
17442 12 07731
IS Fun MODIFIER IN I H54 14 0773J
11466 46 11526
IS 'iRST MODIFIER OUT 17478 14 0113J
17490 46 17558
17502 11 02~OO
17514 11 02410
RAOONE IS II-I' fOR (1 17526 OZ 18317
"AlliE II 'ISOLUTE
17538 U Inn
11550 49 n510
IIAOO"I IS 11.11' fOI Cl 175" 01 lal17
11510 11 07731
NOli IAllU"
IS SECOND MOOI'IER IN 175.2 14 077JJ
ITn" U 176)1
IS SECOND MODIfiER OUT

ft. nsoz

17606 14
11'1'
17630 49
IIADVWD IS'R-IIQ '01 C2 17'3102
MAKI " '"'SOLUTE
nno U

coon
01200
-0084
OOOK)
01200
00-14
07UJ
0773J
00000
00000
OOOQ~

OOO"B
01200
000M9
01200
-3090
-0301
03382
00000
00000
OJJS2
OOOKS
OOOPl'
01200

07UJ 000119
17670 01200
00000
11327 034!3
Inzs 00000

76

'AGE

03020
GOON
8"'
03030 RPl5A2 FAOD AADTWO. TOA TA 7+$1"
0}040 rooO"
8T
-HONITR.OSAI5+5
030~O
8T
-CIRC1R.OS41"."5 ..
03060
8NA WHV,79.,

2

11662 49 176t2 00000
RADTWO IS AtRG FOR C2 11610 01 18)27 0)4])
17682 27 02400 18137
OftTAl1l INTERSECTIONS 11694 27 02410 \1114
NOT TNO INTERSECTIONS IF BRANCH TAU"
17706 45 182.20 00019
AM
03070
NOW UTltn
un.25.10.
177 \I 11 01731 OOOKS
OjOOO
eM -UTI.H.IO.
IS MODIFIER XLARGE
17730 14 0773J OOOll
03090
BE
XLRGE
11HZ 46 11834 01200
CM
03100
-IATl.32.10.
171H 14 0773J 00012
XS"ALL
03\ 10
BE
XSML
11166 46 18018 01200
03120
CM
-IAu.n.IO.
YLUGE
un8 14 0773J 00015
03130
8E
YLRGE
17790 46 18038 01200
03140
CN
-IATl.3lo.10.
YSIIALl
11802 14 0773J 000llo
YSHL
OllSO
8E
11814 46 18106 01200
03160
EROR 11
81
11826 49 11502 00000
OJll0 XlAGE TOIl XDSA+l'1.7.,
CHOOSE URGER X VALUE BY USING M. . IF ROUTU.E
17834 15 18192 00001
DTM -MONITR.2UO
03180
11846 11 02400 -2130
03190
-IIUIF.XOSA+l1
aT
17858 21 02410 18192
03200
Fsua CIRCTR.XPTI .. IS IT FIRST INTUSECTIOlrANSWER EQUAL TO YPlI
11810 02 18218 18211
04010
8Z
FIRST
17882 46 17986 01200
04020
TFL SYM85.XPU ••
NO - USE 5ECOIIO INTElISECTlOli AS CIRCLE celiTER
178"94 06 04)15 11291
04030
TfL SYH66. YPT2
17906 06 04325 18307
04040 CLUII' AN
NOW UTI+1l0
IAlI.2a.10.
17918 11 01731 DOOK8
TFL SVMB1.-IATI"
GET RADIUS
17HO 06 04335 0713J
040'0
04060
TFM SYM81.51.8
17942 16 04289 0-051
TO
04070
SVMB7tl.RCOIIRK
179H 25 04))6 IBna
04080
EXIT PROGRAM
11966 49 02HJ 00000
81
-RETURN".
04090AM
04100
NOW IAn-82
17974 11 071)1 OOOKS
IATI.ISolO.
FIRST IlirERSECTIOli IS CENTER
04110 FIRST TFl SYII85.XPTl ..
11986 06 04315 1B211
04120
TFL sv»a •• VPTl
17998 06 04125 18281
CLEANP
18010 49 17918 00000
04\30
87
TOM XDSA.ll,."
04140 XSMl
CHOOSE SIIALLER X VALUE USlIIG ~AXIF ROUTINE
18018 U 18192 00006
XLRGe+12
18030 49 17846 00000
04150
B7
04160 YLRGE TOM YOS'+ll.7 ••
CHOOSE LAAGER Y VALUE USING MAXIF ROUTINE
18038 15 18208 00001
04170
8TM -HaN ITR. 2130
18050 11 02400 -2130
04180
8T
-MAXIF .YOSAtll
18062 21 02410 18208
04190
FSUB CI RC TR. YPTI ••
I S ANSWER Y VAlUE FOR FIRST POINT
18014 02 18218 18281
18086 46 11986 01200
04200
Dl
FIRST
18098 49 17894 00000
CLEANP-24
05010
81
CHOOSE SMAlleR Y VAlue USING ~AXIF ROUTINE
TOM YDSA+ll.6.,
05020 YSMl
18106 15 18208 00006
YLRGe+12
18118 49 18050 00000
05030
B7
05040.
05050
OORG _+'_10 ... 6
18168
NOP YPT2.0
18168 41 18307 00000
05060
18158
OORG --21
05070
18158 41 18287 18291
05080
NOP YPTl.xPTZ
18148
05090
OORG -21
18148 41 \8327 18271
NOP RAOTWO.XPTl
05100
18138
OORG ·-21
05110
18138 41 03413 03423
NOP TOA TA5+51t TOATA6+51
05120

PAGE
05130
05140
05150
05160 OSA14
05110
O'!60

05190
05200 XOSA
06010
06020
06030
060~0

as

OORG
NOP
ODRG
YOSA
OSA
OORG
OS
C I RCTR OS

06050
06060
06070
06060
06090
06100CM
06110 WHY
8NH
06120
06\30 ERROR BTM
aTM
06140
06150.
06\60 XPTI
os
06170 YPTl
as
06180 XPT2
OS
06190 YPTZ
os
06200 RAOONE 0 S
01010 RAOTWO OS
07020 OSA15 OSA
07030
OSC
07040 RCOMRK DC
07050.
07060
OS
07010. THESE ARE
07080 tATI
OS
07090 SVMSI DS
07100 SVMS5 OS
07110 SVII81> OS
07120 SY~B7 OS
07130 liON IVR oS
01UO RETURN aS

01150
01160
01170
07140
07190

ToATU
TOATU
TDAUlo
TOATAT
TVPER"

OS

I

_.S_3-11
VPT2.CIRCTR
_14
YPTI
-.5-3-4
I

10
AADCNO.-5.10
FIRST-12
-MONI TR.03090
-TVP£A.R.109 ...

fill LAST UCTOR
22 ••
EQUATES FOR ARUS IN COII"ON WITH SYSTEM

0.7111
0.4259
0.4>15

0.4325
0.41U
0.2406

0.2411
0.)352

a.uu

OS
OS
DS
01200 elRC11I os

D.2U6
0.2416

08010 MAXI' OS
08020 MINI' OS
OGOIO UDCNO OS
oeo~o.

NO INTERSECTIOIJIS

10
10
10
10
10
10
COONtZ4
5.2071
1 ••

as

oe050

18128
19128
18125
18129
18119
18180
18171
IS181
18192
18192
18196
18196
18193
18197
18208
18208
18218

OORG .-21
TOA TA6 .RAOONE
OO~G -14
OSA TOA U5
OORG _+5_10--4+5_)_11
NOP XPTl.CIRCT"
DORG -I~
OSA XPTl
OORG 0.5-3-4
Nap

o.nn

CI.nu

D,l""
O.ZU6
.lD

41 03372 18317
00005 -])62
H

18291 11211

00005 J8211
OUOOI
41 18]07 18218
00005 J8Z17
00001
00010

IB220 14 00018 OOO-N
18232 41 11974 01100
18244 11 02400 -3090
18256 11 02410 -0309
18271
16287
18297
16301
18317
16327
18332
1033)
18338

00010
00010
00010
00010
00010
00010
00005 J7706
00005
00001

18360 00022
01731
04289
04315
04325
O~3)5

02406
02411
0)352
03362

00000
00000
00000
00000
00000
00000

00000
00000
00000
0)372 00000
03H2 COOOO
02H6 00000

Olot!> 00000
02416 00000
02'16 00000
ADDU OOQOO
17262

79

'AGE

SYIIIIIL rAlLE
TVPE"~

RETURN
NI"'MU
OISTF
MUIF
SYNII

lOA fA 7
IICOIIllk
ERROR;
asAtO
MINIf
SYMIS

02"16
02"1l
17727
02""
02""
OU19

01010.
OIOZO'
010)0'
01040,
010'0'
01060'
01070
01080 'M6U
01090
01100
01110
01120
01130

011"0
01150
01160
01170
OIUO
01190
01200
02010
02020
02030
02040
020'0 CALC
02060
02070
02030
02090
OZiOO
02110
02120
02UO
02140
02150
02160 JAMIT
02170
02180
02190
02200
03010'
03020 ONLY!

0))12
nUl
117 . .
17102
02"16

hUS

TDATA6
RADIUS
UIIO."
'''6''
ONLYl
S'I""

on72
17797
177.. 0
17262
176'"
04125

TDATU
'''TCA
CALC
IATI
1t0Ne
S'IMIl

011162
17701
17466
07731
11827

au)'

'"an

OOItG
eM
aNI
CM·
11"1
AM
CM

17262
TOATU.t.IO,
ERItO."
TOATA"·'h2.1Q.
EItRDR"
IA",12
IAn,2,UD.

CHECII FaR ,aINT

..••

CM

0$Al0

D
040?Q RONE
O~lOO II TWO
04110 RCD"RK
C•• 110 ZERO

OSA
DSC

OS

DS
OS
DC
DC

·,:';-<')0O~i~O

O~UO'
O~160

04170
04180
04UO
04.00
05010
O!oO 20
05030
05040
05050
05060
05070
05010
05090
05100

on10-

01120

DS
THESI Alii
lATI
DS
SYMal OS
SYMII5 DS
SVMI6 DS
SYII87 os
HONITA DS
IIETUIIN DS
TOATA4 os
TDATAS os
TDATU DS
TOATU DS
"'IIIR DS
DIS" DS
MAXIF OS
MINIP .DS

14
47
14
47
11

03352
17740
OH03
17no
077]1

000-9
01200
000-2
01200
-OOll
,
14 07UJ 000-2
47 17740 01200
II 0713 I -0042
14 077U ooon
"7 17740 01200
12 OTT)I -0014
I" 0773J OOOK6
46 17442 01200
14
47
'7
27
06
06
02
01
n
24

D773J
17740
02400
02410
17827
17837
17827
17837
17825
17825

000-7
01200
IlI01
17721
17817
17817
03433
01433
00000
11146

46 17654 01200
25 17111 0773J
17
27
06
06
06
16
Z5
'"

02400
02410
04n5
04115
04325
042.9
04336
02UJ

-2130
17738
17197
03362

03372
0-051
17838
00000

-IATI,26,IO.

SMALL MODIFIE. IS ERROR
176'" 14 onu 000K6

ERRORS
SYMn,RTWD ..
JAMI"

17666 46 17164 01200
17671 06 04335 178)7
17690 49 17598 00000

",.,.11
TDATU.'I .0
--21
TDATA6.TDATA'.51
--14
TDATAS
",.,.".'-3-11
RTWO,RADIUS
--I"
RONE

17710
17710
17700
17700
17697
17701
17726
i7726
17723
17727

",.J-"
1.0·

-MOIIITR,03090
-TYPERR. ]01"
-MON ITR. 03090
-"PEIIR.305 ..

17140
17752
17764
SMALL MODIFIER AIIBlGUOUS
17776
INCORRECT STATEMENT

".

1,0
"LL LAST SEnOR
14"
eQUATES '011 AIIUS IN COMIIDN WITM S'IS'III
0.77]1
0,4289
0,411'
0.4325
0.4135
0.21t06
O,"UI
0.1372
O.U02
0.'416
0"",.
0,2""
0,'"''

DING ~M61"

I

41 0)''2) 17817
"I 03lU 03413
0000'-3362
"1·17837 17791
00005 J71Z1

17738 00001·

10
CALC
5.02101
10
10
10

o.nn
o,n62

'AGE

'1173'

040",,0_
O'~60

11'''''

,'I,••••

1721>2
1721>2
1727"
CHECK FaR CI RCLE
ITZ86
17298
17310
·CHECK FaR CENTER MODIFIER
17]22
aNI ERROR"
17334
A..
IATI.",
17 346
CM
IATI,27,610,
CHECK FaR TAN fa IIDDIFIER
.
17358
8N1 ERROR"
17370
SM
IATl.I4
17382
CHECK FOR SMILL MODIFIER
eM
IAU,U.610,
17394
")6
17406
BE
CM
IAU,7,61D.
CHECK FaR LARGE MODIFIER
17418
INI ERROR4
17HO
-IIONITR.DSAIO.!I
11442
IT
174.4
IT
-DISTF,PTP"UZO .. DUAIN DISTANCE 0
PUT DISTANCE 0 IN IQNE ""'6
TFL RONEtD"
AND ItTWO
1747.
TFL RTWO,D ..
FSU8 RONE,TDATA7"I
AIlS o-R
17490
112 IS D.R
17502
FADD RrWO,TDATAT'51
RONE-2
17514
Cf
IS POINT ON CIACLf
11526
RONE-2,ZEAD ..
C
IRANCH IF ONLY ONE SOLUTIO"
IE
ONLYI ...
17518
17550
TO
MINIIAXOll.IATloU
Ta TAKE' aESlRea RADIUS
BTM -MDNITR,2UO ..
17562
17574
-IIINtF,MINMAXH1 .. SELECT RADIUS
BT
fiLL IN SYMIOL TAIU
175.6
TFL SYMB7,RAOIUS, ,
17598
TFL SYMB5,TDATAS
17610
TFL SYMS6, TOATU
176n
TFM S'IMB1,51,8
17614
TO
SYMn. I, "DMkk
17646
EX IT PROGRAM
87
-RETURN".

0<050 RADIUS OS

04010

Gnu

02406
17817
175'1'
178)7

CIRCLE OEPPk' FDRN 61TICENTER • TANTO A CIRCLEI ROUTINE
LINkAOE - .
PN617
IS EQUIVALENT TO -2""
CALLS
DIST', MINI. DA IIAX"

01030
8E
01040
TFL
03050
87
0)06001070
DORG
03080
NOP
03090
DORG
03100
NOP
0:;& 10
DORG
OH20 PTPTCR DSA
Oll '0
DORG
01140
NOP
01150
.OORG
OH60 MINMAX DSA
0)170
DOItG
on 80
DSC
03190'
03200 ERROR" ITM
04010
8TM
04020 EAROR5 8TM
04010
BTM

O,O~O

TDATA4
MO'" TR
0
JAMlT
RTIIO
URD

17797
17002
11103
17e17
17ln
17137
nUl
1""6

17 02400 -3090
11 02410 -0301
17 02400 -3090
17 02"10

-O)O~

00010
00005 J14 . .
00005
00010
00010
00010
00001
00008

17860 0001"
01131
04289
04U'
04125
041)5
021006
02411
OU52
on6Z
03372
onl2
0'4"
0'416
D2416
02""

00000
00000
00000
00000·
DOOOO
00000
00000
000110
00000
00000
00000
OOOCIO
00000
00000
00000

17262

811

PAGE
SYIIBOL TABU
TVPERR
RtONAK
ERORll
OSA9
SYHBII

02416

rOATA6
PTPTLN
DNRMLN
FII153
SYM87

17666
17602
176)0
04325

01010010200101001040.
010'00
01060_
01070 .
01080 '"15)
01090
01100
01110
01120
011)0

TOATA5 0)362
NOR"LN 02416
CHECK 17430
IATI 077n
XSAVE 17645

TDATA4
IIONITR
DISTF
SVM81
nAVE

03352
02406
02416
04289
1765S

RETURN
ERROR)
DUVE
5VII85
ZERO

02411
U578
17665
04315
1767'1

CIRCLE OEFPR! FORM UIICENru • TANTO A UNU MOUrlNE
Flli,)
LINKAGE - 8
'MI53 IS EQUIVALENT TO -2416
CALLS ""UR, NDRIILN, • DIS"
oORG
CM
BNE
eM
8NE
AM
CM

01140
01150
01160

17262
ToUAIt'51,1,10 ,
EROR12
TOAU4,9,10,
EROR12

IATl,12
IATl,2,610,

17262
17262
17274
CHECK FOR POINT
17286
17298
17)10
CHECK FOR CENTER IIODIFIER
1732'2
CHECK FOR LINE

01200
02010

C
BE
TFL
TFL
TFL
rFM
TO
87

14 0)40) 000-1

47 171102 01200
14 03352 000-9
47 17602 01100
II 077)1 -0012

14
l7IH 47
17346 11
CHECK FOR TANTO "DoIFEIR
17358 14
EROR12
17370 47
-MONITR,02140
17382 17
-NORMLN,ONRMLN'ZS •• GET POINT OF TANGENCY ON LINE
17394 27
-MONITR,OSA9'5
17406 27
-01 SfF ,PTPTLN'20 .. GET DISTANCE BETWEEN POINTS
17418 27
oSAVE-2, ZERO ..
DOes POINT LIE ON LINE 17430 24
ERROR3
17442 46
SVMB5,ToATA5"
FILL IN SYMBOL TABLE
17454 06
SVMB6, TOAU6
17466 06
SVM87,OSAYE
17478 06
SYM81,51,B
17490 16
$YM87+1,RCDMRK
17502 25
-RETURN, ..
EXIT PRDGRAII
17514 49
EROR12
IATl,28
UlI.n,610,

01170
01180
01190

02020 CHECK
02030
02040
02050
02060
02070
020BO
02090
0210002110
02120
02130
02140
02150
02160
02170
02180 DNRMLN
02190
02200
03010
03D2D
03D3D
03040 PTPTLN
03050
03060-

onu
17557
17525
17262
OUU

17544
17544
175)4
17534
17524
17524
17521
17525
17565
17566
1755117556
17553
17557
17578

OORG -'5-6-6
Nap YSAVE,O
OORG'-21
NOP TOATAII+51,XSAVe .
oDRG --21
Nap ToATA6,TOAU5''Jl
OORG --14
OSA TOATAS
oDRG -.5.6-4+'-5-11
NOP YSAVE,DSAVE
oORG .-21
NOP ToATAII •• SAVE
oORG -14
oSA ToATU
OoRG "5-5-4

077)J 000-2
17602 DilDO
on31 -0028
0773J 000K7
17602 01200
02400 -2140
02410 17550
02400 176)5
02410
17663
17578
04315
04325
04335
042n
04336
0241J

17577
17674
01200
03362
0)372
17665
0-051
17666
00000

41 17655 00000
41 03423 171145
41 03172 03413
00005 -3362
41 17655 176",
41 03372 17645
00005 -)362

PAGE
03070 ERROR] 8TH
8TH
0)080
03090 ERORLZ 8TH
BTH
03100
03110OSA
03120 OSA9
0313D
OSC
03140 XSAVE OS
on5D YSAYE OS
03160 OSAVE OS
03170 RtDMRI( DC
03180 ZERO
DC
031900)200
OS
THESE ARE
0401004020 UTI
OS
04030 SYIIBI OS
04D40 SYM85 OS
04050 SYMB6 DS
04D60 SVM87 as
04070 HONITR DS
04D80 RETURN OS
04090 TDATA4 os
04100 TDA fA5 os
04110 TOATAII OS
04120 TVPERR OS
04130 01 SfF OS
04140 NDRIILN OS
04150DEND
04160

-HONITR,0)090
-TYPERR,304"
-HONITR,0)090
-TYPERR, 301"

"

LIES

O~

LINE

INCORRECT STATEMENT

17578
17590
17602
17614

2

17 02400 -3090

17 02410 -0304
17 02400 -30'10
17 02410 -0301

CHECK
5,D2101
lD
ID
10
I, '
8,0

1763D
17631
17645
17655
17665
17666
176H

ODD05 J7430
DD005
0001D
DDD10
ODOIO
ODODI
00001

FILL LAST SECTOR
86 ..
EQUATES FOR AREAS IN COIIIION WITH SYSTEII
0,1731
0,4289
Q,4315
0,4325
0,4335
0,2406
0,2411
0,3352
0,3362
0,3372
0,24U,
0,2416
0,2416

07731 00000
04289 00000
04315 ODOOO
04325 00000
04335 00000
02406 00000
02411 00000
03352 00000
03362 00000
03372 00000
OZ416.00000
02416 00000
02416 00000

FII151

17262

17760 00086

81

'AGE
SVMQOl

WURU iH9G

TYPERR 02-16

TDAU5
IIINI.O
CHEKCS
CH(KAl

flLlIN 16802

0331>2

TOATA~

1802&
17810
11590
au 1800.
CXC
18018
FII155 17222
PLANE 16462
SYM87 Dun

(HEKCL
A
C
00
FM25
SQaTF
SYMBI

03352

17766
17'158
1797.
17988
16962
02-H6
OU45

TOATU
itETURN
EliROll4
CHEK6S

TAGLE

031n
02"11
17566
17722
ABCD 11923
CALeR 1670Z
OGNEG 11871
FOAM 07712
5YM81 04289
lEAO 07. .0

TOAT A7 OH02
R,o~al( 16029
fUCAi 1765~
CHEKBL 11618
AU
17998
CANON 16606
OGPOS 17890
UTI 07151
SVMas OUIS

TDAUb
NDNllR
ERRORl
CHEKU
B
CHECK

OUI

NUT

03372
02406
16582
176H
17968
17402
\80H
16534

5YM. . OH25

0101001020PLANE DEFPRE SU8PROGRAM-MAINLIHE,FOA~ 2"PERPENOICULAR TO
01030A VECTOR,THRUA PTIANO FORM U5IPARUUEL TO PlANEIl
01040PLANE
liNKAGE - 8
01050PLANE IS EQUIVALENT TO -2416
CALLS TYPEIUt. SQlliF
0106001070OORG 16.62
01080
16462
01090 PLANE CM
FORM,2S5.8,
DETERMINE
16462 14 07712 0-H5
CANON
01100
8E
16474 46 16606 01200
CM
01110
fOIlM,21,8.
IIHICH
16486 I. 07711 0-021
01120
BNE NEXT
16.98 H 16534 01200
8T
01130
HONIlR,DUI'5,6,
FORM
16HO 27 02400 180)9
011<10
2.16,A8CO+15,6
8T
16522 27 02410 17938
fORM,25, .,
01150 NEXT
CM
I65H 14 07712 0-025
IT
FII25
01160
6E
16546 U 16962 01200
01170
CM
fO."M,155.8,
IS
16"8 1. 07111 0-1'5
01180
fll155
BE
16570 46 17222 01200
01190 ERROR2 BYM -MONITR.03090
16512 11 02400 - 3090
01200
8TM TYPERR,'OI,n, INCORRECT STATEMENT
16594 11 02410 -0301
02010CANON ICAL FORH
IATl,12010
02020 'ANOIi AM
16606 11 OlUI 000J2
02030
TFL A.IATI,H •
GET A
166\8 06 17958 07HJ
020.0
AM
un.H,10,
16630 1107731 OODJ4
UTI'26
02050
TFL 8"ATltll ,
GET 8
166U 06 17968 OlUJ
02060
AM
IATI.lIttlO.
UTlHO
16654 1107731 000J4
02070
TFL C,IATI.H ,
GET C
16666 06 17978 OHlJ
AM
IATI,14,10,
02080
UTI.5.
16678 11 07111 ODOJ4
02090
TFL DD,UTI,II,
16690 06 17988 OH3J
GET 0
02100 CALCK TFL AU,A
16702 06 17998 17951
FHUL AXA,AXA"
16714 03 17998 17998
02110
TFL 8X8.B
02120
16726 06 18008 17968
02130
FMUL eXB,U8"
8·.2
16738 03 18008 18008
02140
TFL CXC,C
16750 06 18018 17978
02150
16762 03 18018 180\8
FHUL CXC .CXC"
C"2
FADD Au.aXB
16774 01 1799. 1,800'
02160
16786 01 17998 18018
02170
FAOO AU.CXC ..
" •• Z+8·.Z+C··Z-AXA
ERROR4
16798 46 17566 01200
02180
81
BTM MONI TR,2000.67
16810 17 02400 -2000
02190
SQRiF,AKA,n,
SQRTF
IA"2'8"2,C,,21-UA.NORMAL
IZE CONSTANT
BTM
02200
16822 17 OHIO J7998
A,AXA
NORMAL
liE
A,
8,
C.
AND
FOIV
0
03010
16834 09 17958 17998
16846 09 17968 17998
FDIV B,AX'
03020
16858 09 17978 17998
FDI V C,AXA
03030

"··2

..

16&70
16882
16894
16906
16918
16930
16942
1695"

09
16
06
06
06
06
25
49

17988
04289
0431 5
04325
0.335
0'4345
04346
0241J

17998
0-061
17958
11968
17978
17988
18029
00000

16962
16974
16986
16998
17010
ERROR2
11022
CHECK 'DR VECTOR
TDATU'51.S,10.
17034
ERROR2
17046
GET A
A, TDATA5'51 ..
17058
B
8, TDAU6'51 ..
17070
C
C,TDATA7'51 ..
11082
WUREA,A
17094
WKAREA,TDATA'
17106
SeT
DO
TO
ZERO
OO,lERO"
17118
oa--AU
OO.WKAREA ..
17130
WUREA,B
17142
WKAREA,TOATA'
17154
DO--AXI-IYl
DD,I/KAREl ..
17166
WUREA,C
17178
IIKAREA,TOATA7
OD-AX1-IYl-CU--UX1+1n+CZlI
DD,IIKARU ..
17190
17202
04UO
FMUL 00,"IN1.0
17214
041"0
87
CALCK
04150PAIIRALLEL TO PLANE
17222
04160 '11115 CM
TOAT"~,., 10
17234
04170
liNE ERRORZ
17246
04110
AM
IAT1.12
17258
04190
CM
IATl,17.610,
17270
04200
liNE EIIROIIIZ
11282
GET AI.Il,tl + 01
050 La •
TFL A, TDA fAS ..
112.4
05020 '
TFL B, TDATA6
11306
05030
TFL C,TDATA7
17)18
05040
TFL DO,TDATAe
17])0
05050
AM
IATI.42.IO
17342
GET OG
050.0
TFl IlKARfA,UTl
CHECK paR NEGATIVE HUMin
05070
INF CHECK,WKAREA-2"
17)54
17]66
IITM -1I0HITII.ClOtO
050eo
DISTANCE IS NEGATIVe 17178
IITM TVPERR,310.6?
05090
17390
MAKE DO POSITiVe
IIKAftEA-2, ..
CP
05100
17402
UTI IS IAT1+40 NOW
IAT!,14.IO,
05110 tHECIi $11
17414
IS 11001'111 XLARGE
UTI.n.uo,
CM
05120
174Z6
'CHEKAL
BE
OSUO
17"11
lSMALl
CM
IUhU,610.
05140
17UO
CHEItAS
&E
05150·
17462
YlAIlGE
CII
iATl.n,610.
05160
i 7474
CHEKIIL
Ill!
05170
17486
YSM'll
CM
IATl.3.,6I0,
05180
174
..
liE
CHEKIIS
05190
17510
ILAaGI
IATl,)9,610.
onOD
il
'HUCl
Olt010

14
47
11
14

03352
16582
07731
077lJ
16582
03403
16582
17958
17968
11978
\1998
17998
17988
17988
17998
17998
17988
1 n9.
17998

OOO-?
01200
-0026
000J8
01200
000-5
01200
03.\3
03423
03433
'\1958
03362
07680
17998
\1968
03372
\199.
17978
03382

FDIY
030"0
03050 FILLIN TFM
TFL
03060
TFL
03070
03080
TFL
03090
TFl
TO
03100
87
03110
THRU A
03120CM
03130 FMlS
liNE
03140
AM
03150
CM
03160
aNE
03110
CM
03\80
8HE
03190
. 03200
TFL
04010
TfL
04020
TfL
TFl
0.030
04040
FMUL
TFl
0"050
04060
FSUI
TFI.
04070
fMUL
04080
04090
'SU8
iF!.
04100
fHUL
04110
FSUa
04\20

OO •.AU
SYMS1,61,8,
FILL IN SYMBOL "'IU
SYI485 ,A
SYM.B6.8
SYMB7.C
SY"68,oo
SY"BO+l, RCDMRK
eXIT PROGRAM
RETUAN .. 6t
PT, PERPTO A VECTOR
TDAU4,9.10,
CHECK FOR POlliT
ERROR2
IA T\ ,26
CHECK FOR PERPTO
UTl,18.UO,

.\1,

cn

nuz

47

14
47
06
06
06
06
03
06
02
06
03
02
06
0)

'AGf

02 \1988 17998
03 17988 18028
49 16702 00000
14
47
II
14
47
06

03152
16582
07731
0711J
16582
\195.

000-8
01200
-0012
000J7
01200
03362

06 17968 on12
06 11'18 on82

06 17988 03392
11 077) I 000M2
06 1 r.98 0173J

44 17402 17996
11 02400 -)0.,0
17 02410 -0310
n 17996 00000
12 077)1 000J4
14 0773J OOOL I
46 17590 01200
14 onu OODLZ
46 17634 01200
14 077U 000L5
46 17671 01200
14 onu aoou
46 17722 01200
14 077U COOL"
U 17766 01200

82

06020
01>0)0
06040
06050
06060

CM
BE

B7
EAAOR~

06070·
06080 eHUAl
06090
06100
06110
06120 eHUAS
06UO
06HO
06150
06160 CHEK8l
06110
06110
06190
06200 eHUIS
07010
07020
070)0
07040 CHEKel
07050
01060
07010
01080 CHEKCS
07090
07100
07110
07120.
071)0 ERROR)
07140
07150 DGNfG
07160 OGPOS
07170
07180.
07190
07200
08010
08020
080)0
08040 ABeD
08050
08060.
08010 A
08010 8
OB090 C
08100 00
08110 AU
08120 8XB
D8UD CXC
08140 WKAREA
08150 ZERO
01160
08170 MIN1.0
08180 RCOMIIK
08190 OSAI
08200

8TM
8TH
e
8£
8M'
87
e
liE
8".

B7
C
liE
8M'
87
C
8E
8NF

PAGE

A-2.Z£Ro-Z
ERROR)
OGPOS.A-Z ..
OGNEG ...
A-2.ZER0-2
ERROR)
OGNEG.A-2 ..
DGPOS ...
8-2.ZERo-Z
ERROR)
OGPOS.8-2 ..
DGNEG ...
8-2.ZEIIo-Z
ERROU
DGNEG.I-Z ..

B1

DORIO
Nap
OORG
Nap
DORIO
OSA
OORG

Z~

-0)12

-HON ITR. 0)090
TYPERR.Jllt67. AMBIGUOUS MOOIFIER
WKAREA-2 ...
MUE OG NEGATIVE
OD.02·Dl+0G
OO.WKAREA ••
FllLlN

11854
11866
11878
17890
17902

02400 -)090
02~10 -0)11
17996 00000
17918 17998
168U 00000

•• ' . . . 6
00.0

11912
11912 41 11'88 00000
1-7922
17922 41 17968 17918
11919
1192) 0000' H9,.
17949

DGPOS ...

C-2.ZUo-Z
ERROR)
OGPOS.C-Z ••
OGNEG ...
e-2.ZERO-2
ERROR)
OGNEG.e-z ..
OGPOS ...

11590
11602

OOOMO
01200
00000
-)090

11846 49

87

8TH
BTH
SF
FAOD

ZSHALL

17956 01678
1785~ 01200
17890 119"
11818 00000
11956 0167.
11854 01200
17118 11956
178.0 00000
11966 07678
17n~ 01200
17890 17966
1187'8 00000
17966 07678
11154 01200
17878 11966
11890 00000
11916 07678
17"~ 01200
17890 11'16
11878 00000
11976 01618
1785~ 01200
17878 11916
17890 00000

C
8E
BM'
B7
C
BE
BNF
B1

17534 1~ 07UJ
17546 46 17810
17558 ~9 16582
17566 17 02~00
'lANE OR VECTOR I"PROPERlY DEfiNED
17578 17 02~10

IATI.40 •• 10.
CHEKeS
ERIIORZ
-HONITR.O)OtO
TYPERA.JU.n.

eCNOlTlON 1
eCNOITlON 2

~6

1161~ ~~

CCNDITION 4
eCNDlTlON 5
CCNDITION 6
CCNDI TlON 7
CCNDITION 9
CCNOITION 10
CCNOITION 11
CCNDITION 12
CCNDITION I~
CCNOITIeN 15

-21
8.e
-I~

A
•• '."<0

OS • 10
OS
10
OS
10
OS
10
DS
10
OS
10
OS
10
OS
O.AU
OS
.7680
8.-10000000
OC
OC
2.1
1 ••
OC
DSA CAlCK
OSC '.03~51

11626
11634

~9
Z~

116~6

U

11658
17670
17678
11690
1170Z
17714
11722
11734
17746
17758
17766
17778
17790
17802
11810
17822
1181~

~~
~,

24
46
4~

49
Z4
<06
~4

49
2~
~6
4~

49
24
46
~~

17
11
32
01
49

11958
17968
17978
11988
17998
18008
18018
11998
01680
18026
18028
11029

00010
00010
00010
00010
00010
00010
00010
00000
00000
00008
00002
00001
180)~ 0000'
180]5 0000'

~6102

PAGE
09010
09020.
09030. THE Sf
09040 FORM
090'0 u n
09060 $YMBl
09070 SYMR5
09080 SYM86
09090 SYMB1
09100 SYM88
09110 TOAT U
09120 TOATA'
09 UO TOA TA6
09140 TDATU
09150 TOATAI
09160 MONITII
09170 RETURN
09180 TYPERR
0.190 SORTF
09200.
10010

OS

22"

ARE EQUATES FOR ARUS IN
OS
OS
OS
OS
OS
OS
OS
OS
DS
OS
OS
DS
OS
OS
DS
OS

0.7712
0.7731
0.~289

0.4315
0.~3Z5

0.43)5
0.4345
0.3352
0.))62
0.3312

o,nu

0,)392
0,240'
0.2411
0.2416
0.'<016

DENO PLANE

FILL LAST SECTOR
CO~"ON

~

18061 00022

IIITH SYSTEM
07712 00000
07731 00000
0~289 00000
0~315 00000
04325 00000
04335 00000
04H5 00000
03352 00000
03362 00000
03372 00000
03382 00000
0))92 00000
02406 00000
·02411 00000
02416 00000
02H6 00000
16461

83

S'Hi~Ql.

lIo;,KAA
TDAU.
ERROU
AS
CADD
DY

U&4
CHECK fOR POINTS IN

TOATA~+102,9,10

ERRDR2
AI, TDA "'5+51
Al.TOATAS ..

A2, TDATA6+51
U,TOAT""
.),TOATAl+51
A), TDA TA 7"
81oTOATA5+101
B1, TDATU"
B2, TDA "'•• 102
S2,TOATU"
83,TDATA1+10Z
830 TDATA7"
OX,A2
DX,83
WORKAR,A3
WORKAR,82
DX,WDRKAR" •
OY,A3
OY,81
WORUR,AI
WRUK,n
DY, WORKAR"
Dl,AI
01,82
WORKAR,A2
WORKAR,81
OI,WDRKAR"
OXDYDl,OX
DXDYD1,DY
OXDYOl,OZ

"1-X2-XI
U-Y2·Y1

U-ZZ·ll

"-U-Xl

u-y).n
8l-n·u

OX-A2IB).A3112

oy-uxa I·A un

01-AlXB2·A2Xll

00020
00000
00000
00000

TDA ~:0!~8~:
18094 47
18106 14
18118 47
18130 14
18142 47
18154 06
18161> 02
18178 06
181.0 02
18202 06
18214 02
18221; 06
18238 02
18250 06
18262 02
1827... 06
18286 02
182.8 06
18110 D)
18322 06
183)4 03
18346 .02
18358 01;
18370 0]
11382 06
18)94 03
18406 02
18 ... 18 06
18430 03
18442 06
18454 03
18466 02
18418 06
184.0 01
18502 01

03352
18558
03401
18558
0)454
18558
18778
18118
18188
18788
18798
18798
18801
18801
18118
18818
18828
18828
18811
18838
18868
18868
18838
18848
18848
18868
18168
18848
18858
11858
18868
18868
11858
11t118
11178
1877.

000."
01200
000·9
01200
000-9
01200
01~11

03362
03.2)
03372
03433
01382
03 ... 64
03362
0lU4
01372
03484
03382
18788
18121
18798
18811
18868
18791
18808
1877.
18828
I8n8
11118
18818
18788
11808
18868
18838
188 ....
1885.

PAGE
0)0'0

onOD

18514
18526
MONITR,030'0,67
18534
TYPERR,302,67, THREE POINTS AilE COLIHEAII 18546
18558
-HDNITR, 03090
INCORRECT STATENENT
18570
TYPERR,301,61.
18582
WDRKAR,DX
ISS94
WORKAR, TOAT AS
18606
SET 0 TO ZERO
D,lERO"
18618
O.WOR-KARt.
D-·AXl
18630
WDAKAR,DY"
18642
WORKAR, TDATA6
18654
o,l/DRKAR "
18666
WORKAA,Dl
18678
WORKAR,TDATU
D_·AXI_IYI·Cll __ IAXI·8YI+CZII
D,WORKAR"
IIUO
PUT OX, OY, DZ, AMO 0 18102
TFL lADD,DX,l;,
18714
IN A. 8, C, AND 0
TFL IAOD,DY,6,
187 26
IIESPECTIVElY
r'L CADD,DI,'.
18738
'NUL 0,FLM1
18150
TFL 01000,0,6
18762
UIT PROGRAII
87
RETURN".,

DZ

07
03110 ERROR! IITM
01120
BTN
03130 ERRDII2 8TM
03140
nil
03150 CALCD TFL
03160
FIIUL
03170
TFL
03180
FSUI
03190
TFL
03200
FNUL
04010
FSUI
04020
TFl
04010
'NUL
04040
FSUI
04050
04060
04010
04080
040.0
04100
04110.
04120 AI
04HO A2
04140 A3
04150 II
04160 12
041708]
04180 OX
0 ... 190 OY
04200 01
05010 OXDYDZ
05020 0
05010 ZERO
05040 IiOIUtAa
05050
05060 "Lila
0507005010
OS090. THESE
05100 TVPUA
05110 TDATA4
05120 TDATAS
0'130 TDAT'"
051~0 TOATA,
051 50 1I0NITR
05160 anUIUI
05170O"ID

ERROR I " ,

OS
OS
OS
OS
OS
OS
OS
OS
OS

10
10
10
10
10
10
10
10
10
O,Al

OS
OS
OS

O,A2

OS

DC

DC

DXOOYoDZ -00

CALCD

,1610
10
.,-10000000
2.1

18778
18788
11798
11808
18818
18ez8
18831
18848
18851
1177.
11788
07680
10161
I""
.11878

46
49
17
17
17
17
06
03
06
02
06
03
02

141534 01200
IOez 00000
0i;400 ·3090
02410 -0302
oi400 ·3090
02410 ·0301
18868 18838
18868 03362
18788 07680
181718 18868
18868 18848
18861 03372
In . . U86'
06 18868 11858
03 II.'. 03)82
02
06
06
06
03
06
49

18788
18060
1807J
18070
In18
1801J
0241J

00010
00010
00010
00010
00010
00010
00010
00010
00010
00000
00000
00000
00010
0000.
00002

11960 00012

82"
FILL UST SECTOR
OS
ARE EQUATES FOR AREAS IN COItMON WITH SYSTEM
0,2416
OS
o,nu
OS
O,U62
OS
O,U72
DS
o,nez
OS
0,240'
OS
0,2411
OS

02416 00000
ann 00000
OUU 00000
0)372 00000
03312 00000
0240' 00000.
OZU1 00000

01110. "'fll21

11012

11868
18838
11848
U858
18171
11781
00000

PAGE
S'~BQl

vr:crOR 16.. 62

TVPERR 02416

TOATh
F Il SVM
DSAl
FM'

0]352
16H6
11806
16966
UU 07711
SV"85 0'0]15

RETURN
fRRDKI
OX
FM57
PIIIO
SYMB6

TAaLE

TDATA7
RtOMRK
IUHtH
DV

01382
17801
16806
178/t1
F~6]
16674
SINF 02/t16
SV"B7 04335

02"11
16650

17831
17366
17861
04325

0101001020010]001040OIOSO0106001070_
01080
01090 VECTOR
01100
01110
01120
011]0
01140
01150

DORG
CM
8E
CM
BE
C"
BE
CM

16462
FORM.63."
FM61
FORM.'o0'l5, ••
FM4095

01160
01170

BE
tM

FM9
FORM.57.8.

01180
01190

8E
tM

F"57
FORM,187.8.

01200
02010

BE
tM

FORM,25,8,

TOAU6
MOHIU
COHST
OZ
F"9
SQRTF
lERO

TDAU., 01362
FM~O'lS 1681"
COSF 02"21
F""7 17SI8
FORM 07712
S'"81 0~l89

01372
D2~06

17121
17851
17094
02"16
07680

YECTOR OEFPRE SU8PROGRAM INCLUDING 'M6JICANDNICAl FORMI.
FMI871S LENGTH AT ANGLE AI.
LINKAGE - 8
VECTOR
VECTOR IS EQUIVALENT TO -2416
CALLS TYPERR. SORTP. SlNF AND COSF

FOA.M,5.8.
F"5
FORM.'1.8.

FM187

16462
16462 14 07712
16474 46 1667'0
STATEMENT
16486 1407712
16498 46 16814
FORMAT
16510 14 07712
16U2 46 1"'66
A"O BAA"CH TO
16534 14 07712
165"6 46 1709"
OR CALL
16558 14 07712
16570 "6 17366
APPROPRIATE
16582 14 07712
16594 "6 17518
ROUTINE
16606 1'0 07712
16618 47 16650
16630 27 02400
CALL FM25 FRO~ FILE
166U 49 02410
16650 17 02400
16662 17 02410

0-025
01200
17811
00000
-]090
0-)01

07731
17831
07731
178'01
07731
178H
04315
OH25
04335
04289
04336
0241J

000J2
0773J
000J4
0773J
OOOH
0773J
17831
17841
17851
0-051
17801
00000

DETERMINE

02020
8NE ERROR I
020]0
8T
MONITR,OSA!>5.6.
02040
87
-2"16
02050 ERROR 1 8TM -"ONITR.O]090
02060
8TM TYPERR.301,61.
02070CANONICAL FOR"
02080 FM63
AM
IATI,12,10.
PULL X. V. AND
02090
TFl OX,lATloll
FROM WORD LIST TA8LE
02100
AM
IATI,14.10,
02110
TFl OY.IAT1,11
02120
AM
lAT1,14,I0
02130
TFL DZ,IATI.1l
PUT DATA IN SYM80L fA8LE
021"0 FllSY" TFL SYM85,DX ..
02150
TFl SYM86,DY
02160
TFL SVM87.0l
02170
TFM SVM81.51.8
02180
TO
SYM870I.RtDMRK
eXIT PROGRAM
RETURN .. 6,
02190 8RANCH 87
02200*
COORDINATES OF TWO POINTS (lIVEN
PULL COORDI NUES FROM WORD
03010 FM4095 AM
IATl.82.10.
03020
03030

TFL
SM

DZ,I ATI,Il

03040
03050
03060
03070
03080

TFL
SM
fPL
SM
FSU8

OV,lATI.lI
IA TI,IIt"O
OX.IATl,ll
UTI,14,10
DZ.IATl.II.

ZAT1.l~.lO

16674
16686
16698
16710
16722
16734

11
06
11
06
11
06
167~6 06
16758 06
16770 06
16782 16
16794 25
16806 49

0-063
01200
0~095

01200
0-005
01200
0-009
01200
0-057
01200
0-181
01200

1I Sf

16814 11 0773\ 00002
16826 06 17851 0773J
16838 II 07T1I OOOH

'AGE

16850
16862
1687'0
16886
ANO SU8TRACT FIRST FROM SECONO
16898
16910
16922
16934
16",6
16958

06 17841
12 07731
06 17nl
12 07731

0773J
000J4
0773J
000J4

17851
07731
17841
07731
17831
16746

0773J
OOOJ4
0773J

02
12
IATI,14,I0
SM
02
FSU8 OV,lATl,lI
12
UTI,H,10
SH
02
FSUB OX.IATl,lI
49
FIUVM
B7
TWO POINTS GI VEN
16966 14
CHECK FOR POINT
eM
TO"T"4,9.10,
16978 47
8NE ERROR 1
16990 14
CHECK FOR 2ND POI"T
TDAT44+51.9,10.
CM
17002 '07
BNE ERROR 1
ITO 1'0 06
TFL ox, TDATAS+51 .. GET COORDINATES OF POINT
17026 06
TFL OV,TDATA6+51
170]8 06
TFL OZ. TDATAl+51
AND SU8TRACT COORDINATES OF POINT 1
Fsua OX. TDATA5 ..
17050 02
1T062 02
FSUB DY.TOAU6
0"030
17074 02
FSUI OZ,TDATAT
04040
1708/0 49
FILSVM
87
0"050
UNIT VECTOR DESIRED
0406017094 14
CHECK FOR VECTOR
TDATA4.5.10.
CM
04070 FM9
17106 47
ERROR 1
SHE
04080
17118 II
IATl,12
AM
0~090
17UO
I~
CHECK FOR UNIT
CM
IAll.30,610.
04100
17142 4T
8NE ERROR 1
0"110
1715'0
06
• GET DIRECTOIlI NUMIIERS
TFL DX,TOATU ..
04120
1716/0 06
TFL OY.TDATA6
04130
17178 06
1FL OZ.TDATU
04HO
17190 03
OX-OX •• 2
FMUL OX.DX ..
0~150
17202 03
OY-Oy.·z
FMUL DY,DV ..
04160
17214 03
OZ-OZ··2
FMUL DZ.OZ ..
04170
17226
01
flOD Ol,DY
04180
11238 01
OX-OX··Z+DY •• Z+DZ •• Z
FADD DX,DZ ..
MUO
17250
17
BTM MONIJII.2000.n
0.200
17262 17
SQ~TFIOX_.2.DY._2+D1._21
DTII SQUF.DX.67,
05010
GSTORE
NORMALIZING
CONSTANT
TFL CONST.DX ..
05020
172H 06
GET DIRECYOIN NUMBERS 17286 06
050)0
TFL DX.TDAUS ..
17298 06
TFL OY,TOATU'
05040
17310 06
TFL 01, TOATA7
05050
17322 09
NORMALIZE OX. DY, AND 01
FDIV OX.CONST ..
05060
17334
09
DY.CONST
FOIV
05010
17346 09
FOIV Dr.CONST
05080
11358
49
flUYN
05090
117
SeAlAR TIMES A veCTOR
0510017366 l~
VECTOR
CHECK
fDA
CII
TOATA",5.IO,
05110'"'1
17378 47
liNE ellftolU
05120
17390 11
AM
IATI.Z6 ..
OSUO
17402 14
CHEtK fOil TI liES
IAH,n,'IO,
eM
0'140
17" 14 n
IUOU
BNE
05150
17426
06
GET OI,DV, AHD 01
TFL 0.,T041U
0'160
17431 06
Tfl
DY.TDATA'
0'170
11450
o.
TFl DZ,TDATU
o~uo
17"62 12
POSITION IArI AT $
UYl.t4.l0.
$11
0<;190
17474 OJ
OXVlI 51-OX
'iOUt D.,IAU.H.
Q~lQil
03090
03100
01110
03120
03130
0314003150 FM5
03160
03170
03180
03190
03200
04010
0"020

..

OOOH

07T3J
00000

03352 000-9

16650
0]403
16650
17831
17841
17851

01200
000-9
01200
03413
03421
034])

17831
178'"
17851
16746

03362
03312
03382
00000

03352
16650
07731
0773J
16650
17831
17841
17851
17831
17hl
17851
17831
17831
02400
02410

000-5
01200
-0012
OOOlO
01200
03362
03372
03382
17831
178"1
17851
178H
17851
-2000
J7831

17821
17nl
17841
17851
17831
178H
17851
16746

17831
03]62
03372
03382
17821
17821
178U
00000

000-5
01200
-0026
OOOKe
01200
033.2
ann
0))12
07151 OOOJ4
17t" 01UJ

03352
16650
07731
077lJ
IU50
1'131
17841

uon

85

)

060ao
FIlUL
06020
fllllL
060'0
n
06040LEIIlGTH
06050 'Mill AN
01>0.0
ell
01>070
8N1!
oloDeo
A14
06090
eN
06100
SNe
06110
AM
061Z0
TfL
06130
TFL
06140
'MUL

OY,IATltlh
OYVlISI"DY
OI.UH.n.
OlVIISleDZ
fllSVIll
AIID Al4GU GI'lf1l

11486 OJ 17141 077JJ
1749. 0) 11151 Q77)J
17510 109 16746 OOOO!,

IATI.12 ••

17511 11
17530 14
17542 47
17554 11
CHECK FOR UANGL
17566 14
17511 41
11590 11
PUT ANGLE IN 01 ANO DY 17602 06
17614 06
CONVERT ANGLE IN DEGREES TO RADIANS
17626 OJ
FMUt. OV,'1180"
BY "ULT. BY
176)a 0)
aTM MONI TR,2010.67
17650 17
8TM SINF,DY,67,
DY-SINFIAI
17662 17
DX-COSFCAI
8TM COSF,OX.67.
1767~ 17
SM
IAn .28.10
17686 12
FMUL OX.IATI.Il.
DX-CSICOSFCA)
11698 03
FMUL DY,lAfl,n.
OY-CSISINFCAI
17710 03
TFL OZ.ZERO
17122 06
B7
FILSY"
17734 49
IATI,9,610.
EMAIlRl
UTl.2I
IAT1.1.610.
ERRORI
IATI.14.10
DX,IATl.U,
DY.IAfl.ll
OX.Plleo,.

CHeCK FOil LlNGTH

06150
06160
06170
06180
06190
06200
07010
07020
010)0
0104007050
os 60, •
FILL LAST SECTOR
11100
07060THEse ARE EQUUES FOR AREAS IN COMMON WITH SYSTEM
07070 FORM
OS
0.7712
07712
01080 IAll
OS
0.7731
07731
01090 SVM81 OS
0,4289
0"219
0.4315
04315
07100 SVMBS OS
07110 SYMB6 OS
0.4325
04325
07120 SVNBl OS
0 .... 335
OHH
071 JO TOATA4 OS
O.33SZ
03352
07140 TOATU OS
0.3362
0)362
07150 TOA TA6 OS
0.1372
03312
07160 TDATAl D,S
0.3382
03312
071 70 MONITR OS
0.2406
02406
0.2411
On80 RETURN OS
02411
01190 TYPUR OS
0.2416
OHI6
07200 SQRfF os
0.Z416
02416
0.2416
OaOl0 SIN'
OS
02416
08020 CO SF
OS
0,2421
02421
080)008040 RCOMRK DC
17101
1.'
OSA 6RANCH
11106
08050 OSAI
080.0
OSC 5.03471
17807
Oa010 CONST DS
10
17821
08010 DX
OS
10
"831
08090 DY
OS
10
17.41
OS
10
nUL
08100 OZ
07680
OS
,7680
0&110 ZERO
DC
8017453292
11.59
08120
081)0 puao OC
2.-1
17161
16462
01140
OEND veCTOR

077]1
017]J
16650
07731
01l]J
16650
01131
11831
17841

-0012
000-9
01200
-002'
000-1
01200
OOOJ4
017JJ
0773J

178]1
11841
02400
02410
0242J
07731
11131
17.41
11.S1
16746

17161
17861
-2010
J7841
J7831

OOOKI
077)J
077JJ
07"0
00000

00060
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00001
00005 J . . Ob
00005
00010
00010
00010
00010
00000
0000.
00002

'AGE

SYMBOL TABLE
TOAU7 onu
RtONAl 16521
OY
18541
MINUS 18158
sYlln 04135

TYPUR 02H6
RETURN 02411
OX
1853'1
IATI 07Tl'l
SYMB6 04325

01010'
010200103001040'
0105001060'01010.
01080
01090 FM25
OUOO
01110
01120
01110
01140
01150
01160
01170
OllBO
01190
OUOD EIIROR
02010
02020 PLUS
'02030
02040
02050
02060
02070
02010 f1UYM
02090
02100
02110
02120
021]0
OZl40OliSO MINUS
OU6>O
OUTO
02UO

OlUO

onoo

01010
0)020OlD SO 'ClOSS
0)040
OJ050
0$060
OUIJa
011/)$0

OJO'IIO

TOUA6
MONITR
D1
PLUS
WUR

03)72
02401>
18551
111018
11561

TOATAS 03362
FILSVN 18090
ERlO_ 11994
04219

SV""

TOATA. 03352
CROSS 18238
FII2S ITaU
SYII850HI5

YECTORDEFPRE FORM 25 CV1CROSSYl.YIIIIHUSV2. all YIPLUSV21
t.INKAGE!- B
FM25
fll25 IS EQUIVALENT TO -24"
CALLS TYPER"
OORe; 11862
CII
TDAUIt.S.IO.
eNE ERROR
CM
TOATA4+51.5.10.
SHE ERROR
AM
IAfl.Z6.10
IATl.19.610.
eM
PLUS
liE
II. n, 10,610.
eM

BE

eM

MINUS

IATI.OJ.610
CROSS
-1C0I'4 ITI\ ,03090
TYPERR.301.67.
OX,TOArAS
0_.TOATA5.51 ..
TfL OY.TDHU
FADD DV. TOATA6.51 ..

Be
8TM
IITM
TFL
FADO

TFL

!l<. TOATAl

FADD DI.TDATA7.'I"
TFL SVADS,DX ..
TFt.
TFL

TF"
TD

117

SVI'I86,DY
SYII37,DZ
5Y"1I1.51,8
SVIIIl7+1.RCDMRII
REfUllH .. 6,

TFL OX,TOATU
fSUIIDX, TDATAS+51 ..
TFL DY,rOUA'
Fsue DY,TOATA6.'I,.
TF~

OZtTOilVII1

117

'''LSYM

'SUI DltVOAT"' •• 1 ••
YFL
FIIUL

TI'L
F*"L
'Wil
Till.
,~

11462
17862
11814
CHECK '011 2ND VEe TOR 11886
17898
17910
17922
CHECK
17934
17946
MODIFIERS
17958
17970
17982
17994
11006
tNeollRECT STATEMENT
18011
18030
DX-OXY1·0XY2
11042
18054
OY-OYV1+DYV2
11066
18071
DI-OZVI·OZV2
PUT OUA IN SYMIOL UIU
18090
11102
11114
10126
10131
11150
ex IT PROGRAM

CHECK FOR VECTOII

DX-OXY1-DXVZ
DY-OVV1-DYVI
DI-DIV1-DIYZ

Dllt~~II ••
1l'i',W4'!i'1!7
O'.7D"A'.~'

03352
17994
OH03
11994
07131
0713J
18018
077)J
18151
0773J
IU3G
02400
02410
11531'
10531
11541
11541
11551
U551

06
06
06
16
25

04315
04325
0433'
042.9
04336
0241J

06
02
06
02
06
OZ
U

unl onu

4'

-)O~O

-0301
03362

OHIl

onu

OH21
03312
0)4])
la531
IU41
18S51
0-051
10511
00000

lUll OHU
11541 Dun'
\ISH OHU

"'" aun

18551 OlUJ
110'110 00000

llZ3I O' 115,. OU72
111250 0) lint OJ..,3
1.,,& 01421
111262

OX.Ton. .

oa, TDATU."
WIIAR. YOAT " , . "
IIlAR.VOATo\l

11158
18170
latn
11194
IUD6
18211
1.230

000-5
01200
000-5
01200
OOOK!>
OOOJ9
OIlOO
OOOJO
01200
000-)
01200

14
41
14
H
U
14
46
14
46
14
4.
17
17
06
01
O'
01
06
01

DX-OVV110ZVlI-DVVacOZVU

lin"

o.

OJ IU" onlZ

lU06 02 lUll '."1
,11291 06 10~1 01»82
lUl0 OJ las." 0141)

86

PAGE
TFl
FMUl
FSUB
TFl
FMUL
TFl
FMUL
FSUB
87

OHOO

a:ULO
03120
03130
031~0

WKU.TDATA7+51
WKAR. TOATA5
OV.WKAA ••
DY-OZYIIDXY2I-DZYZIOXYII
Ol. TOATA5
Dl. TOA TAU51
WUR. TOATU+51
WKAR.TOATA6
Ol.WKAR"
Ol-OXYII OVYZ I-DXY2 I DVYII
FllSYM

03150
03160
03170
OliGO
03190.
03200
OS
96 ..
F III LAST SECTOR
04010THESE ARE EQUATES FOil AREAS CDMMOH WITH SYSTEM
04020 IATi
OS
0.7731
040]0 SVM81 OS
0."289
04040 SV14B5 OS
0.4315
04050 SVII86 ,OS
0."325
04060 SVM87 OS
0."335
04010 TOAU4 OS
0.315Z
04060 TOAU5 OS
0.3362
04090 TOATA6 OS
0.3372
04100 TOAH7 OS
0.3382
04110 MONITR OS
0.H06
04120 RETURN OS
0.2HI
04\10 TYPUR OS
O.HI.
041.004150 RCOMRK DC
I. '
04160 OX
OS
10
04170 OY
OS
10
04180 Ol
OS
10
04190 WUR
OS
10
04200
OENO FII25

18322
183H
18]46
18358
18370
18382
18394
18406
\8418

06
0)
02
06
03
06
0)
02
49

18561
18561
18541
18551
18551
18561
18561
18551
18090

0)41)
0])62
18561
0])62
03423
0)41l
0)372
18561
00000

18520 00096
07731
04289
04315
04325
04335

OHSZ
03362
03372
03382
02406
02411
02416
18521
18511
18541
18551
18561
17862

00000
00000
00000
0000'0
00000
00000
00000
00000
00000
00000
00000
00000
00001
00010
00010
00010
00010

•• Gf.
SY~80l

TvPERR
rOA Tl2
roAU7
SVNBI4
ROTTRN
MNITR
ERRORI
FMII
lOOP
SVH31
SYMB9

OLOlODiaZO010 )001-040.

0,05001060-

01010'

oIota_

02416
03412
03382
04405
17146
02401>
16558
16'158
16618
04289
04]55

TOAtl6
TOAT II
TOAH6
SY"613
RETURN
MATRI X
COSI NE
FMI91
ONE
SVMB5
XYROT

03472
0)422
03372
0"'15
02411
16462
17551
1I>n4
1752'1
,04315
11110

TOATl5
TOATlO
TOATA5
SY~B 12
RCDMRK
FII7215

TA8LE

03462
03412
03362
04385
17509
16582
CO~~ON 16902
FORM 07712
PlI80 17519
SVMD6 04325
ZERO 07680

TOATI4 03452
TOAU9 03402
SY~816 04425
SYMGII 04375
RADIAN 17541
'"3007 17310
COSF 02421
IATI 07731
SINE 17541
SVM87 04))5

TOATl3 03"2
TOAU8 03392
SY~615 OHI5
SYM810 04365
NEGONE 17561
F INNSH 16702
CTR
17511
LIKE 16878
SINF 0241~
SYMae 04345

MATRIX OEFPRE SUBPROGRAM INClUOINe; FM72151CANONICAl FORMI
FM191ITRANSLATIONI. FMIIIROTATIONI. FM30071TRANSL AND
ROTI, FM111seAlEI.
liNKAGE - 8
"ATIIIX
MATR I,X IS EOUI VALENT TO -2416
CAllS TYPERR. SINF, A~O COSF

16462
01090
OORe; 16462
16~62 14 07712 OP215
OETERIIINE
01100 MATRIX CM
FOR",7215.e,
IMH 46 16582 01200
01110
BE
F"lZI5
16486 14 07712 0-191
FORM
01120
CM
FORM.191.8,
16498 46 16n4 01200
01110
8E
FHI91
16510 14 07712 0-011
AHO BUNCH
01140
CN
FORM.II,8.
11>522 46 16958 01200
011S0
BE
FMII
TO ROUTINE 16534 14 07712 OLOOT
01160
eM
FORM.3001.a,
16546
46 17310 01200
01170
BE
F"3007
16558 17 OZ400 - 3090
aliSO ERRORI BTH MONITR.030'lO.67
16570 17 02" 10 -0]01
01190
BTI4 TVPERR.30I,61.
INCORRECT STATE"ENT
01200CANONICAL FORM - TWelVE PARAMETERS GIYEN
16582 II 07731 -0012
02010 '117215 AN
IATl.I2..
SET IATI TO Al
16'94 16 17531 000-0
02020
TFN CTR.,IO
16606 06 0431 ~ 0T73J
PUT
AI
IN
SVMIS
020JO
TFL SVII85.IATI.Il.
SET IATI TO NeXT PARAMETER 16611 U 07731 -0014
02040 LOa'
AM
IATI.14 ••
02050
TFl SVII86.IATI.!1. PUT PARAMETER IN SYMBOL TABLE
16630 06 04325 0773J
MDDIFV LAST I~$TRUCTION TO TRANSIIIT NEXT
All
lOOP+U.IO ..
02060
16642 II 16636 -0010
PARAMETER. KEEP COUNT.
16654 II 17531 000-1
AM
CTII.1.10.
02010
HAYE ALL TWELVE PARAMETERS BEEN TRAHSMITEOO
CM
CTR.Il.IO.
020GO
16666 14 17531 OOOJI
16678 46 16702 01200
fINNSH...
yes - GO ON
020~O
8E
166QO 47 16618 01300
lOOP."
NO - lOOP
02100
ill
16102 16 04219 0-141
RECORO UNGTH IN SVMI1
02110 PlNMSH "M SVICIU .1"1.8.'
SYMI16+l.RCOMRK..
PLACE RECORO"AII!! AT END
Olue
TO
1,6714 25 04426 IlS09
1.1210 49 02UJ 00000
02130
81
RETURN....
EXIT PRoGRAM
02HOTRANSlATION fOllM GIVI", Ox.OV, AND DZ
16134 11 onu -0012
OllSO '"191 AM
14Tl.12 ••
CHECK FOR MODlfUR TIIAtiSL 16746 14 0713J 0001(9
02160
'M
IATI.29.610.
16758 47 16558 01200
0211~
11"1& EARCRI
16170 0604115 lU29
PUT ONE IN
021.0
TfL SYMD5.0N! ••
16182 11 on'l -0014
021?~
AM
lAll.14 ••
16794 O' 0045 077).1
sVlln. 10. AND IS
02200
T'l SYIIII.IATI.H.

87

03010
OJa20

'ilL
all

SYIIIlO,ONE"
lan,14"

16'06 06 041.' 11'"
AND OZ
1611. 11 01731 ,.0014
OJa30
rPL SYIII12,lan,,11.
1.030 06 043.' 0173J
01040
TPL SYIII" ,ONE I I
IN IY.... 12, AND 16
161U 06 DUll 11'"
030S0
all
lATh 14 ..
16854 11,07711 ·0014
03060
TFL 5V1I1116,IAT1,I1o
RESPECTlVElV"
1686606'04425077JJ
OJ070 LIKE
TFL SVIIU, ZERO"
FIII91 AND FMUISCALEI PUT ZERO
16178 06 04325 0'''0
0)010
TFL $VII8.,ZUO, ,
IN SYMI6 aND •
16890 O' Ouss 076.0
OJa90 C:OMMON TFL SVM87,ZUO ..
au FORMS 'UT ZERO IN
,16902 06 04115 07610
onoo
T.... SYMIU,lIRO..
16914 06 0431' 01610
01110
TFL SYMan,ZeIIO" S'tlIU, 11,
'NO 14,
1692. 06 04395 07680
GlUO
TFL SYMIl4,lERO"
16938 06 04405 0"10
o)no
87
FIIIHSH
16950 49 16102 00000
03140.
'OIlM U C:AN Be ONe OF T~O STATEMENTS. IT 1$ OETERIII NeD IV
0)150'
C:MECKIIIG FIRST ELEMENT.
All
0)160 'lin
IAn,u"
16951 11 071)1 ·0012
03170
CII
IAT1,34,610.
1$ MODIFIER XYIIOT
16910 14 077IJ 000L4
03110
IE
XVROT
16982 46 1711 0 01200
03190
IU1,25,610.
IS MODIFIEII SCALE
16994 14 07TIJ OOOU
'M
03200
Bile eUOIU .. ,
INCORRECT STATEIIENT
17006 47 16551 01200
04010.
FORII II, SCALE MODIFIER
04020
AM
IAll,14"
1101S II 07731 ':0014
040)0
TFL SYMBS,IAT1.ll, PUT SCALE F.ACTOR
110)0 06 04"5 0773J
04040
TFL SYMBlO,lUltll
11042 06 04)65 0771J
04050
TFL SYMIU,IATl. LI.
I .. SYMIS, 10, AND 15 11054 06 044U OH1J
0.060
TFL SYNB_,ZUO"
170" 06 OU45 0"10
04070
TFL SVMI12,ZEIO"
AND zeao I .. SYM8.. 12, A"O 16
170te 06 04315 0"10
04080
TFL SY.MBl6,ZUO"
17090 06 04425 07610
04090
87
LIKE •• ,
OTNEA AREAS All! PlLLEO
17102 49 1.. " 00000
'ORM 11, XYROT NODI'IER
0"'100'
04110 naOT TFL SYIIIII,ZUO, ,
PUT ZERO IN 5YM," 12. AND 16.
17110 06 04345 076.0
04120
TFL SVMI12.ZUO, ,
17122 06 043" 07.. 0
TFL SYIISa, ZERO ..
11134 06 04425 07610
0"'110
0"'140 10TTIIN TFL SYMII15 ,ONe ..
IN eOIIl'ON IIITN FMS007 ,PUT 0~~1!: ~:"mi5 11m
AM
IATI,14 ..
0"'150
17158 11 OHH .0014
04160
TFL 1I&0"N,IU1,l1,
17170 06 17541 011)J
04170
FNUL RAOIAH,'1180" CCNVEIIT ANGLE TO IAOIAIIS. 17182 01 17541 1751'
010110
TFL COSINE,UOUN"
17194 06 17551 17541
ITII MONITR,lOIO,.,.
04190
GET 51 ...cas laUTINI TMau NONITR,
11206 11 02.00 ·2010
010200
IITII eOSF,COSINE,.,.
AND OBTAIN SINE AND
17218 17 0242J J 7S51
BTII SIIIF ,SIIIe ,.'7,
05010
COSINE OF ANGLI.
11230 17 02410 J7S41
05020
TFL SVMn,COSINE ..
PUT COSINE IN SY •• , AND 10,
172102 06 04315 17551
05030
TFL SVNB6, S IIIE ..
17254 06 OUU 11541
SINE IN IYII",
05040
TFL SVNBlO,COSIN •••
17U6 06 041" 17551
05050
FMIIL 51 NE ,NEGONE ..
17271 03 17141 17561
05060
TFL 5VM89,SINI"
AIIO IIEIATlVE SUII. III SYM"
17290 06 oun 17541
05070
COIINON .. ,
87
lU02 49 1"02 00000
05080.
FORM 1007. XYIIOT AIIGLE GIVEN WITH TRAIISLATION VALUES OF OX,OY.
05090.
AND DE
lUl0 11 onl1 ·0012
05100 'MS007 All
IUI,12"
aND ox,

OY,

.".

2

n.

·05110
05120
05130
05HO
05 no
05160
05170
05100
051'0

0'200

CM

aNE
AM

til

aIlE

AM
TFL
..II
TFL

AM

01>010
TFL
06020
SM
060'0
11
060.0
OS
06050. THESE AIlE
06060 'aRM
OS
06070 IATL
OS
060.0 IIONITR os
06090 RETURN OS
06100 TYPERR os
06110 SINF
OS
06120 CO SF
OS
06130 SYMll OS
06140 SVMBS OS
06150 SYMa6 OS
06160 SYMll OS
06110 SYIIII OS
06110 SYIIB9 OS
06190 SYM810 os
06200 $VM811 OS
07010 SYMI12 OS
07020 SYM81S OS
,070)0 SYMBl4 os
07040 SYII815 OS
01050 SVII816 Os
07060 TOATA' os
07070 TOATA6 OS
OTOIO TOATAT OS
07090 TDAT41 Os
07100 TOATA9 05
07110 TDAT10 oS
07120 TDATU OS
071S0 TDAT1Z 05
071"'. TDAT1) OS
07150 TDAT14 os
07160 TDATll 01
07170 TOAT1' oS
071.0' CONS1ANTS
07190 1'011" DC
07200
DC.
08010 '1110 DC
08020 nlo
DS
080 SO
DC·
OM4O ONI
DC
08050 Ctl
DC,
08060 IAD.AN 0'
08070 " " . . . .
oeooo " . II·
08090
II:
01100 . .Galli DC

1A11,34.610,
CHeCK STATEMEIIT '01 nlOT lUZZ
17134
eUOll1
IATltU ..
1" ..
I U51
IATI,29,610,
AND TUIIIL MOOIPlUS.
11370
EIlAOR L
17382
IATI,14 ..
11194
SVMB8,UTl,ll, PIIT OX IN SYMII,
17~O'
IATI,14 ..
17418
OY
IN
SYMan
AIIO
SVIUIIZ,UTltll.
17430
lAT1,14.,
11442
SVMBII.,IATl,ll,
0% IN $V1I1I6.
,
11454
IAT1.10"
SET liTI lACK TO IAT1+12
17466
ROTTRN".
FI~L OTNER AIIEAS
11508
36...
PI LL LAST nCTOR
EQUATES FOR AUOLII'! ARUS COMMON IIITN IIITUN
07712
0,7712
07131
0,1731
02406
0,240&
02411
0.2411
02416
O,Z416
02416
0,2416
02421
0,2421
04289
0,4289
04315
0,4315
04)25
0.4J25
043"
0,4)35
0~J45
0,43"'5
au"
0,4",
04]65
0,4165
0.,75
0,4'7'
04365
0.4]05
0"'95
0.43.5
0"405
0,440'
04415
0,4415
04425
0.4425
O))U
0,1362
03312
0.1312
0'112
0.5313

o,nta
O.~402

0.3412
O,)4U
0.3452
0.)442
0.1452
0.5462
0.1472
AND 'liAS USID IN .ROG.'"
10 '
..1'4'S'92
2.-1
,7"0
1.1000000.
I.a

Ii.

aD,
"
........
..
I,a

-a_

oun

OS402
03412
014U
OJ4U
OS4,.,
03""
03462
OJ472

14 077JJ OOOL'"
U 16151 01200
11
·002'
14 onu Goon
"'7 16551 OUOO
11 077U ·0014
06 OH4S 01UJ
11 01731 ·0014
06 04U5 0713J
U 07"1 ·0014
06 044n 0771J
U ann ·0010
49, 17146 00000
00036

"'I

onu

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
ODooO
00000
00000
00000
00000
00000
00000
00000

17509 00001
00001
17119 00002

nil'

0760D OODOO

" I " 011001
1"19 00012
anil Cl&CG2
171.1 Il1010
&7111 IlOilO
an61 IINOD
17519 . . .
Inti 01002

u

"AGE

01110

OENO "ATRIX

IM6Z

PM.E

WLNEKT
TSCONI
TA8CYL
STEPWL
SPLCHK
RPKEEP
NUMPTS
LASTUV
ERPROC
CAL TAN
8
oSAT3
oSATB
IGT
LAsn
PCOS
PTCHK
SC
S1)

sun

S2
UC
V2
WOL]
XP]
2.0

TVPERR 02416
TSARAY 18105
17106
19082
17850
18561
18021
18514
18630
18914
189H
17951
18832·
18629
18899
189410
16942
18338
16558
18.625
02"16
17570
18985

16714
18105
IH62
19093
18066
19075
16532
18446
18864
171H
18924
17935
180110
16529
18128
19055
16566
19045
16534
185"7
19035
19065
18965
17626
19005
19141

S2ZERO
STEP TO
SETSYM
APCALC
NOlSPL
LASHN
CHKlRO
A
C
OSH"
ER317
INARG
LOCI
PHI
PTSOK
seTUV
ST4
SUB]
TANF
UPCOW
V3
WORK 1
YP3

19055
19015

SY~80L

TA8LE

TSTLOC
ToNEXT
STRATE
STCON2
SElLST
AOTANG
MONITR
INFSLP
CHKPTS
AGAIII
COSF
OSAT5
EAll8
INIT
LOC2
PHIP
ROTPT
SINF

18132
16654
17686
18763
17790
16762
02406
19161
18196
17642
OZ4Zl
17967
16852
07976
18904
19065
18562
02416
18410
04289
19084
1&955
19095
19065
01680

515
SVM81
TceNS
U2
WCONS
WORK2
0.0

TSTDAT
ToATA5
STORE2
STCCNI
SECCN2
RETURN
"INl.0
IAUDo
CHKINF
ALPHP
OSATl
OSAT6
EXIT
IPT
MCT
PI
RPX
STl
ST6
SYM85
TSTWo
U3
WOLl
WOAn
0.5

18108
03362
18764
18669
18337
02411
19111
18H9
17294
19075
17921
17983
17910
16520

TSCON2 18107
T 04 T Aft

On~2

STOREI
SPL INE
SECONI
OUUDO
LOCTS1
G08ACK
CHKOIG
ATANF
OSAT2
oSAT1

18610
19101

tATi
IXY
NOZ
PSIN
RPY
S12
SUBI
SI
TWIND
VC
WoL2
XP2
1.0

07876
19151
18551
16510

18120
04115
18022
18915
16666
19075
19121

1811~

18421
17522
10666
18195
02416
17no
17999
07731
16517

19099
19065
18556
165n
18331
19025
16542
19015
17558
18995

19l1l

IBM 1620-1311 AD-APT SUBPROGRAM FOR EVALUATING
COEFFICIENTS OF CUBIC EQUATIONS FOR
TA8ULATED CYLINDERS IV-AU"J+8U"Z+CU+01

0101001020010]001040010'00106001010OIOGOo
01090-

-NANE T"SCVl ••• NON-ERASABLE DEFPAE SUBPROGRAM
olD NUMBER OHO-OeLOIII
CORE IMAGE
TABCVl •• 6
LINKAGE - 8

-STORE

01100 ••••••••••••••••••• •••••••••••••••••••••••••••••• ••••••••••••••.•••••••

OU 10'
0112001130.
01140.
0115001160.

JA&cn

•

TADCn OUTPUT FORIIAT ..... STORfD IN SYMB AIlRAY
NO. Of CHAR.NAiII!.SUB.TYPE.lIhYltAl.81.Cl.AlPHA1 .....
XI N-II .YlIt-II.A 11t-1I.1I111-1I .tlN-ll,IL!'HA 111-11. XN. y",

•

PRoceSSES AD-APT STATEMENTS OF THE FORM. . . . .
III TAOCVL/NOZ.SPLINE.XI.YI.X2.Y2 ••••• XN.YN
121 TA8CYL/NOZ.SPLINE.PT1.pT2 ••••• PTN
..HfRE X1.vl ARE CCOIIDINATES OF POINTS AND PTI ARE
SYMBOL NANES POR pOINTS .... N IS GREATeR THAN OR
eQUAL TO ) AND LESS THAN OR EQUAL TO 15

01170.
OIUO.
01190.
01200.

01010 ••••••••••••••••••• •••••••••••••••••••••••••••••• •••••• -• ••••••••••••••
02020020.0

SUDPROQUII eNTIIY

0~040-

0205002060 UICYL TP
02070

ITM

IAlAGO.IUI ..

STORE lTAATlN; ADDRESS

nTl/o .. IO.

TEST WOAD I OF T,aCYL

OF WORD ~ I ST
16462 26 11)49 OllJI
STATEMENT INOZI
16474 17 1.022 000-0

8[1

020iO

I'lli

TSTWI),I.10,

02090

V,

TWINO.IATADD.U.

02100 STl

TOM

IXY,o ..

02110 SU

TOIl

IGY,o"

02120 Sf)

iF ..

IP1,),9,

02130

rFIl

OUTADD,SYM85, •

02140 ST4

CII

TIIIND,2,10.

02UO

IE

IIDLl. "

02160

IIH

ER1I1 ...

0217002180.
02190·
02200.
03010.
0]020.
0)0)0

TFH

O)O~O

BTFL TSTOAT. TCONS+Z ..

TDATA INPUT DATA
TSTLoC+6,TDAU4"

8TH

0)040

TFM

LOCI, TDATA'"

03010

TFM

LOC2,rOAlASH1"

0)080 TDHEn aT

CHKPTS, ,10,

SETUV. DU Tl +2 "

03090·
01i00.
0)110 IIDLI

TF

0]120
0]1 ]0

8TH TSTOAT,WCoNS+Z"
BTM CHKPTS, 1,10,

O)I~O

AM

)ATADD, 12, la,

0)150 IILNEXT TF
03140
AM

LOC I , IA TADD
IATADD.21,IO,

lIoADL INPUT DATA
TSTLoC+4, IATAOD"

LOt2, IA TADD
SETUV,DSATZ+2"

TF
BT

COSF ,PC05,1,7·,
ROTPT, DSA i4+10"
BT
ROTPT ,DSAT5.10"
FmlL Ul,HtNl.O ••

04070
04080
0"090
04100

8TM
IT

04110
0412004130.
0"140
04150
04160.
04110.
04180

BT

eM

VP1,-5.10,

04190

aL

STRATE" ,

04200 "SDK
05010
05020
05030
05040
05050

TFL
FMUL
TFL
FSUB
FNUL
FAOO

VC.VP3"
VC,YC"
WORK1,XP3"
WORKl,XP2"
WOIlKl,XP) ..
VC,l/ORKI"

05060
05010
05080

TFI. WORK 1, Y'l"
F"UL 110111(1.2.0 ..
FDIY VC.I/ORKI"

ROTPT ,OSAf4+10"

INDle.rOR (01oTDATA,02-WOROll
U~9' 21> 16542
INITIALIZE LAST INTERVAL INDICATOR
16$10 IS 16SIT
l"iTULUE FIRST INTERVAL INDICATOR
16522 15 16529
INITIALIZE POINT COUNT TO 3
165H 16 16520
SET $YMU ADDRESS FOR OUTPUT STOUGE
165~6 16 18421
TEST LDCATION OF INPUT DATA
16558 14 16542
WOROL IX-Y COORDINATES 1
16570 46 16666
INVALID uacn STATEMENT
IUU 46 18812

BD

S2ZEII0,UY ..

TFL

S2.XPZ ..

onlo

FSUI S2.UC"
FDIV S2,YC ..

05120
n
05110
05140 SUERO TFL

S2ZERO+12

S2.0.0 ..

05150

10

CALTAN,IGT"

05160

1FL

Shut ••

05170
05180
05190
0520006010+
06020.
060)0 CAL UN

FMIlL Sl,MIIU.O ..
FDIY Sl,VC"
11
CHKINF

06090

010100-

00000
00000
00-03
-4)15

000-2 .
01200
·01100

. SET ADDRESS FOR VALIDITY TEST
16594 14 181)8 -33~2
TEST TOArA ARUY
16606 07 lalDa 19086
TEST AND SET NO. OF PTS iNPUT TO lAacYL
16618 17 18196 000-0
INITIALIZE TDATA Xl ADDRESS
16630 16 1.899 -3362
INITI~LIlE TOATA Xl ADDRESS
16642 II> .18904 -341)
SET U-V COORDINATES FOR TDATA INPUT
16654 27 un. 17923

SE T ADDRESS FOR VALIDITY TEST
16666 26 18138 18149
TeST 1I0RDL ARRAY
16678 07 18108 19097
TEST ANO SET 110. Of PTS INPUT TO fABtH
16690 17 1.196 000-1
INITIALIZE lIoADL Xl ADORUS
16702 II 18349 000J2
16T14 26 18099 18349
INITIALIZE WOROL Xl ADDRESS
16726 II 113"9 000K8
16738 26 18904 18)49
SET U-V COORDINATES FOR WORDL INPUT
14750 21 U338 17UO

PCOS·COSF(PHII
16834
16846
CALCUlATE POINTS
RELATIVE TO LOCAL
16858
ROTATeD COORDINATE
14870
14882
SYSTEM

-2020
17945
18944
-ZO 10
J90n
18944

17 0242J J90'5
27 18562 17941
2T 18562 17'177
0] 18975 19111
27 18562 1799)

TEST :I POINTS IN A STRAIGHT LINE

05100

0601Q

)

IIHft

(ALCULA TE CENTER OF CIRCLE PASSING THAU THE POINTS
16894 06 19065 189n
TFL UC ,XP2
14904 0) 190n 1'121
FMUL UC,0.5

05090

060.0
06070

'ACE

seT

03190.
CALCULATE ROTATION ANGLE •••• PHI ••••
03200.
04010 AOTANG 8TM MONITR,02020,47,
tAll AT ANF SUBROUTI NE VIA MONITR
16762 17 02400
ATAHF ,DSAU+IO,4,
04020
8T
PHI-AlANF IV2IU21
lI>7H 2T OZ~IO
TFL PSIH,PHI
16786 06 19065
04030
8TM MONITR ,02010,67,
CAU SINF-COSF SUBROUTINE VIA "OHITII
04040
16798 17 02400
8TM SINF,P5IN,67,
PSIN.S1NFI'HII
16810 17 OZ410
04050
16822 O. 19055
TFL PCOs,PHI
04060

06050

Z

FIND COEfFICIENTS OF FIRST, TRANSLATE AXIS TO FIRST ANO
ROTATE SUCH THAT THE AXIS FOR THE INDEPENDEIH VARlA8LE
PASSES THRU THE SECCND POINT

03050

03170
03180

,... 1
TUT WORD 2 OF TUCn $rAHMENT (S~LINfI
lM$6 L7 18022 000-1

TEST ROTATED POINT· LESS THAN .000001
16918 14.19015 OOO-N
) POUlTS IN A STIIAIGHT LINE
.
16910 47 17686 01100
VC-YP3
16942 06 19075 19015
VC.YP3 . . 2
16954 03 19075 19015
MORKI-XP3
16966 06 1'1055 19005
WOAK1-XP3-XP2
16978 02 l'Ion 10995
WOAU •• P3IXP]-XP21
16990 OJ non 19005
VC., P3 •• 2 +XP) •• 2- X'3. XP 2
17002 01 19075 190"
IIORKI-YP]
17014 06 1'1055 190U
WORKI.Z.0.YP3
lT026 0] 190" 19141
VC., Y""2+1') •• 2-XP$oX'211 (2.e.y" I
17031 09 19075 19055
TEST LAST INTeRVAL x-v
17Q50 43 17106 lnlT
CALCULATE SLope DF THE CIRCLE AT
17062 04 19035 119'15
UOH 02 19035 190n
THE SECOND POINT
17086 09 19015 19075
SZ-UPZ-UcIlVC
1709. ~9 11111 00000
SET SLOPE AT SECOND '0 I IIT-O. 0
17106 06 190n 07480
TEST 'lftST INTERVAL IGT (GET '.liGENTI
171111 U 1717. 16529
CALCULATE SLO'E 0' TME CIRCLE AT
17130 06 19025 1906'
11142 03 19025 19111
THE 'IIIST 'OlliT
11154 09 19025 19015
U--UC/VC
11166 ~, 17n. 00000

CALCULATE TANGENT OF 10TATION AN~LE Awe ROTATE THE SLOPE OF
THE CUBIC IN THE '.'VIGUS INTERVAL INTO TH! NEW SVSTEM
TFL PHI"OUTADD.lI.
SAVE I'HlIl-1I •••• ,.III'·"".1I-1I
17174 06 1'065
11EI' DUTPUT ADOIIISS '01 X.III
All
OUVADO,10,UIt
1nil' 1L 114Zi
CALL ATANP SUSROUTIHI VIA ~ITR
U"'1' 11 02400
IT
ATANF,O$AT1+10...
ALPHP.ATAN'ISC/l.OI
17210 aT oa~lo
FADO AL""I',PHiP,,
ALPH'-ATANPISClloOI+'HIP
\7ua 01 190n
ALPHP.ATAN'I SCIl.OloPIIi '+1'1
,ADO ALPH',,, ..
.
172:i~ 01 19071

.

114ZJ
OOOJO
-zoao
11009
L.on
10111

ALPHp.n&NI'ISC/l.01.I'MIP.P'-PNI
IU•• 02 nOli 1. .44.

911

OMIO.
0,,120
061>0

C'LCULATE NEil SLOPE
TFL
51. ALPH'
lIT
MONITR.OSATa.5 •••

0.140
8TM
0.150 CHKINF TFL
01>1.0
06170
0.180

",,.F.SI •• 7.
\lORKI.SI ..

FSU8 WORKI.INFSLP
8L
"2~
TFL
SI.INFSL' ..

06190·
06200.
OTOIO
07020
07030
070~0

OT050
070.0

17258 O' 19025
CALL UNF SUBROUTINE VIA MOIIITR
17Z70 27 0210.00
51-TAIIFI'LPHPI
11282 11 02~10
TEST FOR INFINITE SLOPE
1729~ 06 19055
1730. OZ 19055
17318 ~7 173~2
SET SLOPE INF INITE 15 1-I.OE'H8I
17330 06 19025

CALCULATE COEFFICIENTS
TFL WORKI.XP2 ..
FMUL WORKI.WORKI ••
TFL A.SI ..
FAOO A.52 ..
FOI V A,WORKI ..
BTM CHURO,A ..

OF THE CUBIC
WORKI-XP2
17342
WORKI-XP2"Z
17354
4051
17361>
17378
'-SI'52
A- I SIOS2I1XPZ"2
17390
CHECK' COEFF APPROXIMATELV

TFL 8,51 ••
FMUL 8.2.0 ••

17414
174Z.
B-2.0·SI'52
17438
B--(2.0.510521
17450
a--(2.0·SI'S21/XP2
17462
CHECK 8 COEFF APPROX I MAT ELY
11414
17486
C-SI
CHECK C COEFF APPROXIMATELY
17498
SC-S2
17510
TesT LOCATION OF INPUT DATA
17522 14 IU42
WOROL ex-v COOROINATES I
17534 ~. 11558

17~02

07070
07080
07090
07100
07110
07120

FADD 8.52"

FMUL a,MIN1.O"
FDIV 8.XP2,.
BTM CHURO.8 ..

07130

TFL
8TM

07l~0

C.Sl ••
CHKZRO.C ..

07150
TFL
07UO LDCTST CM·

SC.S2 ..
TWIND.2.IO,

07170

WDL2,..

8E

07180.
07190.
07200
08010 IIDL2
08020.
08030080~0

UPCOW

08050.
08060.
08070
08080
08090
08100
08110
08120 AGAIII
08130
081~0

a-51

8-2.0-51

O.

19055
03 19055
1891~
O'
01 18914
09 1891~
ZERO
17 181>30
06 18924
03 18924
01 18924
03 18924
09 la92~
ZERO
17 18630
O. 18934
ZERO
17 181>30
O' 190~5

19075
11019
J9025
19025
191.1
01300
1911>1
18995
19055
19025
19035
19055
J89I~

19025
191~1

19035
19111
18995
J8924
19025
J8931t
190)5
000-2
01200

STORE THE POINTS,COEFFICIENTS AND ANGLES
8TM STOREI.IO,IO,
STORE TDATA DATA .ISTEPPING CONSTANT-IOI
175'" 17 181>70 OOOJO
aTM STOREI.14,ID.
STORE WORDL DATA 15TEPPING CON5TAIIT-I~1
17558 17 181>70 OODJ~
COEFFICIENTS NOW STORED •••• TEST FOR I'ORE PROCESSING
LaC I, H, 10
17570 II 18899 000141
LOCI SET TO XI.,1I ADDRESS FOR TDA"
LOC2 SET TO XCltZl ADDRESS FOR TDATA
SET GT INDICATOR FOR NOT FIRST INTERVAL
TpM
IGT,I ..
175az 15 16529 00001
TEST ALL POINTS ON TA8CYL PROCESSED
IPT ,NUMPTS ••
C
17594 2~ In20 16532
MORE POINTS TO PROCESS
8L
AGAtN ...
1760. 47 17.102 01300
ALL POINTS PROCesSED 17618 ~6 17790 01100
BH
SETLST",
SET LAST INTERVAL X-Y INDICATOR
TOM
IXY.1 ••
17630 15 16517 00001
STEP POINT COUNTER
17642 11 1.520 000-1
AM
IPT,I.IO,
TEST LOCATION OF INPUT DATA
CM
TIIIND.2.10.
17654 14 1'5~2 000-2
WORDL CK-Y COORO,IIIATES)
WLNEXT .. ,
BE
17'66 ~. 11>714 01200
AM

PAGE

17618 ~9 Ibn4 00000
TDA" IPOINTS)
B7
TDNEXT ...
06150
08160.
08170.
THREE POINfS IN A STRAIGHT LINE
06160 STRATE BO
S2ZERD,IGT..
TEST GT INDICATOR FOR FIRST INTERVAL
1768. It] 1710. 16529
1769B 06 18914 01680
SET
A,8 AND C
08190
TFL A,O.O. ,
17110 O. 18924 01680
COEFFICIENTS
TFL a,o.o, •
08200
17122 Ob 18934 07680
-0.0
TFL C.O.D.,
09010
1773~ O. 19025 07680
SET SLOPES
09020
TFL Sl.0.0 ..
TO
177~' O. 19035 07.10
09030
TFL S2.0.0 ..
17758 Db 190~5 071>80
ZERO
090~0
TFL se,o.o ..
VC-I.OE.48 IINF INITE 5l0PE I
TFL VC,INFSLP ..
09050
17770 O. 19075 1911>1
TEST LOCATION OF INPUT DATA
090.0
87
LOCTST ....
17182 49 11522 00000
TEST LOCATION OF INPUT DATA
TIIINO.2.IO,
09010 SETl ST eM
11790 14 11>542 000-2
WORDL IX-Y COORDIIIATESI
09010
BE
WDL3 •••
I7B02 It6 17826 01200
09090.
STORE XIN.) AND YINI COORDINATES
09100.
8TM $TORU,IO.IO.
STORE XINI.YINI TDATA ISTEPPING CON-IOI
09110
1781~ 17 1876~ OOOJO
1782' 12 18899 000K7
SM
LOC1.27.10
09120 WDL3
STORE XINI.YIN) \lORDL ISTEPPING CON-141
8TM STOREZ.14,10.
09130
17838 17 1876~ OOOJ~
17850 11 18~21 000-1
OUTAOD .1,10
09140 SETSYM AM
SET RECORD MARK AT END OF SYMB ARRAY
09150
TOM OUTAOD"b.
17862 15 1842J 00000
17873 00001
1.' ,.
DC
09160
SET NUMBER OF CHARACTERS IN SYM8 ARRAY
OUTADD,SYM81-4. ,
SM
09170
17874 12 18421 -4285
1788. 3Z I8UI 00000
OUTAOO-3
SF
09180
1189B 2. 04289 11~21
SYH81.0UTADO
TF
09190
RETURN TO MAINLINE PROGRAM
RETURN ....
87
09200 UIT
17910 49 02UJ 00000
10010.
OSA ARGUMENT ADDRESSES ANO CONSTANTS
10020·
11921 00005 J9082
10030 OSU1 OS,\ SlEPTO
17922 00002
OSC 2.51
10040
11928
00005 J909)
10050 DUTZ OSA 5TEPIIL
17929 00002
DSC 2,28
100.0
DCRG OSAT2'Z.'.)-11
10070
41 1196' 11944
IIOP V2,PHI
10080
11931
DORG -14
1009,0
17935 00005 J . .55
10100 Dun OS. UZ
DCRG •• '.3-4,'.)-11
10110
41 18915' 11995
NOP VZ,XPZ
lOUD
179107
DORG -14
lOUD
17951 00005 J1955
10160 IIS"4 OS. UZ
17966
OCRG .'5.3-4.'.3-11
lOUD
17966.1 '.9.'.19005
Nap V),X"
10160
1791>3
DCRG -14
10170
17967 00005 .11975
101G0 OSAn OSA US
17982
DCRG
.".3-4.'.3-11
lOUD
11982 41 11915 1901'
NOP Ul.VP3
10200
I1n9
OCRG -14
11010
1191) 00005 JI9.'
VI
11020 DSUb
179. .
DORG •• '.3-4.5-3-11
11010
17 . . . 41 19045 190n
HOP SC,AVH'
uo~o

~

~~:~:
g::~

as.

91

noso
nO'!1 liS""
nOlO
noao Dun
110.0
lll000
llHOo
111200
llUOO
n140 NOUPL

DOIIG -14
DSA 1.0
D~G

DSA
Ost

11995
1199. 00005 J.1Jl
11010
18014 00005 J?294
11015 00005

e.'.1-..
CIfl(IIIP'
S.OUll

TEST VALIDITY AND CD •• eCTNESS 0' IIDRDS 1 AND 2 IN
UIICYL STATEMENT
OAS h.
TEST NORD FDA VALIDITY 10aNDZ.l-SPLINEI
- 18021 OOOOZ
n150
All
14TAOD,12,10
1802Z 11 I.] .. ' 000J2
l11tO
110
SPLCHK.NOZS'L
11034 4J 11066 U021
11170
C
IlTADO.NOZ.t.
18046 24 U]411 lt099
teST liaRD 1 CNaZI
n tiD
If
$PLCHK.12
l8058 49 lion 00000
11190 SPLCHK C
IATAOO.SPLlNe •• ,
TEST WORD Z ISPLINEI 18066 24 18'4R 1.101
llZ00
INE ERIn ...
UIC:YL $TAUNENT
'1018 41 IIUZ 01200
12010
All
l"'ADO,2,10
11090 11 In ... OOO-Z
120Z0
.8Z ...
lRANCH lACK
1.'OZ .. Z 00000 00000
120JOo
12040.
TUT VALlDITV AND CORRECTNESS OF ENTIRE "BCYL STATEMENT
12050 TSARAY OAS -Z..
TEST ARRAY FOR VALlOITY ITOATA DR IIDROLI
18105 00004
12060 TScoru OS
Z.rsARAV.
STEPPING CONSTANT 11Il-TOATA,I .. -WORDLI
18105 OOOOZ
Z. TSARAV+2.
lZ010 TSCONZ OS
TVPE CONSTANT 109-TOATA.OZ-WDRDLI
18107 00002
120.0 TSTOU TF
LASn.MeT ..
SET NUllaER OF ELEMEN7S TO RIGHT OF I
1810B 26 lB128 07876
12090 ST6
5M
usn.2.10
18120 12 18128 OOO-Z
12100 TSnDC C
.TSCDN2 ..
TEST VALID TYPE
18132 24 00000 18107
12110
aHE ERI~l ...
INVALID, TA8CYL SUTEMENT
181 ...... 1 18812 01200
12120
A
TSTLDC+6,TseDN1"
STEP TEST LOCATIllN
18156 21 18U8 18105
12110
511
LASTI.I.10.
TEST ENTIRE STATE~eNT PROCESSED
18168 lZ 18128 0011-1
121 .. 0
8NE TSTLOC
18180 .. 1 181'2 01200
12150
88Z
lRANCH 8ACK
1819Z 4Z 00000 00000
121600
12110.
TEST VALIOITV INUM8ER OF POINTS 1 INPUT TO TAICVL
121800
CALCUUTE NUMBER OF POINTS INPUT TO TAICYL
12190 CHKOIG OAS 1..
INPUT DIGIT 10-TOATA.l.wORDLI
18195 00002
12200 CHII'rs TI'
PTCHK.MCT ..
SET NUMBER OF ELEMENTS TO RIGHT OF I
18196 26 16566 01816
13010
5M
PTCHIt.2.10
18208' 12 16566 0011-2
0+24,CHKDIG
130Z0
80
18220 .. , 1824 .. 18195
A
PTCHK. PTCHIi
_
18232 21 16566 16566
130'0
MM
TEST FOR EVEN NIlMIER OF COORDINATES
PT'HK.5.10.
UO"O
18244 U 16566 000-5
TI'
NUMPTS .....
SET NUMBER OF POINTS INPUT TO ",aCYL
nasa
18256 Z6 16532 00098
13060
000 NUMIER OF COORDINATES
80
ERIlI.99 ..
18268 4J 11852 00099
CIl
... 30.
18280 14 00098 00-03
13010
13080
8L
LESS THAN I POINTS INPUT
ER" ....
18292 41 "85Z OUOO
18304 14 00098 00-15
eM
no.o
.8.15.9
GREUER THAN 15 POINTS INPUT
8H
13100
ER" ....
18316 46 18812 01100

' '110

...

'tt.
SIT U-V

1IUO

18Z

13120-

13UOo
OAS
U140 SUa&
UlSei SECONI OS
U160 SECDNZ OS
UUO

snuv

'CI'

13180
13190
13Z00

TPI.
FSUI
A

1.. 010

TFI.
FSUI
SF
10

1~20

-l~'O STS

14040

-14050
A
14060 USTUV TFL
1..010
'SUI
14010

5

1..090
14100

TFL
FSUI

14tlO

"

14120 LASTIN S
14130
S
141 ..0
17
1""00
1.. 1too
1<10110 SUIIZ
141.0 .".
1.. 190 APY
14200 ."ALC
15010 .OTPT
15020
150]0
15040
150'0
1S060
150100

IRANCH lACK

1812. 42

OO~OO,

00000

COORDINAT!S FOil TDATA OR IIOROL INPUT DATA
lUll 00001
4
TOATA DR IIDRDL STEPPING CONStANT
S.SU81+4.
18US OOOOS
TO" TIl OR WDRDL STE"'ING CONSTANT
2. SUBl+6.
lUn 00002
SET UP LOCATICN ADDRESSES FOR STEPPING
LDC2-4 ...
una U 18900 00000
183~0 06 10955 1I90N
UZ-Xc!+l1
U2.LOC:Z.ll,
UZ-XII+lI-XIII
'8362 02 18.55 188'.
UZ,LOC1,ll.
SET VIII AND VII+11 ADDRESSES
LDCZ. SECDNI. 11.
18374 21 1890~ lU)N
18386 06 18965 1890M
'VZ-YU+II
YZ.LDC2.11,
18398 02 18965 1889.
VZ-VII+l!-VI II
V2.LDCI.ll.
18410 32 18336 00000
SECDN2-1
TEST LAST INTERVAL x-v
LASTlN.IXY .. _
18422 41 18'14 16517
1843~ 2'1 1890~ 183n
SET VII+21 AOD_ESS
LDC2. SECON2 ..
V)-VII+21 DR VII-lI
18446 06- 18985 18.0M
YI,LOCZ,lI,
Y3-..,II +ZI OR VII-Ill-VIII
YJ.LOC1.lI.
18458 02 11985 18.9R
SET XIII AND XII+21 DR XII-II ADDRESSES
LDCZ. SEC ON I. &It
18470 U 18904 lU3N
11.. 82 06 18915 U90M
UlaKII+21 DR '11-11
U3.LDCZ.l1,
U3-IXII+ZI OR .11-lll-XIII
UI.LDC1.&l.
1149402 11975 1889R
CALCULATE ROTATION ANGLE
ROTANG ...
18506 49 1616Z 00000
SET VIII ADDRESS
liS'" Z2 1890 .. lUn
LDCZ. SECDNZ ..
1852622 1&904' 18117
SET VII-1I ADDRESS
LOCZ,SECONZ ..
LAST INTERVAL C:ALCULATIOH
LASTUV."
una "9 U ..... OOOOO

U''''

CALCULATE 'DINTS RfLATIVE TO LOCaL .OTATED COORD SVSTEM
01\5 •
00016
OS' '.SUBZ....
x COORDINATE 'DDAISS 185'1 00005
OS
5, SUBZ •• ,
V CDORDIN"'E .. DOIlESS 1.,,, DODOS
DS
,.suahl6.
CALCULATeD POINT ADoun
18S6l 00005
APKEe,-.
1156Z 06 19015
TFI. RPKeEI'.II1".U.
RPKEe'••• COs,.'HII
18514' OJ 19015
'IIUL .'Keep,peos,.
RPeALC.V
1 " " 06 1856J
lFL A,CALC.RPV.6U.
R'CALC.voSINFI"HII
'85" 0] 1156J
FIlUL .'CALC.'SIN •••
.'CALC-X.COS""HII-"oS INFI'HII
FADD Rl'CALC,II'KEI' •••
1I6l0 01 U5U
".Z2 U OOOOD
IUIICH IACII
IU

tt'

1855J
19055
18550
19065
19015
00000

uoao·

CMIICK IN'UT ARGUNlIIT ""ROXlIIATELY ZERO
SIT INPUT ARGUMIIIT I.ISS ,HAIl 1000-1 fO 0.0
11625 DOOO.
DAS II
INPUT AIIGUMINT ADDl.SS
liS
I. Sill'....
10U9 000D5
TUT III"UT &IIGUII!NT leSS THAN 10 0 0-5
IIIA.' ........ D.
15120 CHIIZ.D CII
11610 16 116211
INPUT ARGUIIENT IS OK '.662 6t 1'6••
IlL GOI6CIC •••
SIT 'NPIlT AllGUIIIIIT-O.O
"L IIIAIIG,O.O •••
11611.. O' 1862R
1. . . . U OClOOO
IIi1ANCil lACK
IIOUCII 'U

11090.
15100 sun
,SliD 111&111

'"10

...

DOD-II
01300
01610
00000

"ACE

1

l!JL60.
15170'
STORE THE POINTS,COEFFltlENTS AND ANGLES
IHao nCONI DAS
1..
STEPPING CONSTANT ClO-TOA TA .I~-WORDLI
18669 00002
15190 STOREI
OUTAoe ,lOC 1,611,
SYH8!1I-X!l1
18670 06 1842J 1889R
IS200
LOCI, STCONI
18682 21 18899 18669
11>010
OUTlDO,IO,IO
18694 11 IH21 OOOJO
16020
OUTAOO,LOCI,611,
SYMBU+II-YIIl
18706 06 1842J 1889R
16030
OUUOO,lt 10,
SYM8Cl +21-A 111.SYMBII+31-BIII.
I871B 11 18421 000-1
160~0
TR
OUTlDD,A-9,6,
SYMB 11+41-" Il.SYM811+51'PHIIII
18730 31 1842J 18905
16050
AM
DUTADO,19,IO,
STEP OUTPUT AOORESS FOR PHIIII
187~2 II 18421 000L9
16060
87
UPCOW
18754 49 17HO 00000
1607016080'
STORE XINI AN~ YINI COORDINATES
16090 STCON2 DAS
1..
STEPPING CONSTANT ItO-rOATA, 14-WORDL.
18763 00002
16100 STORE2 AM
OUTADO.IO.IO.
SET OUTPUT ADORE S S FOR XIN)
IB76< 11 18~21 OOOJO
16110
TFL OUTADD .LOC 1.611.
SYMBIN-\l"XIN)
18776 06 IB42J 1889R
16120
A
LOCI.STCON2
18788 21 18n9 18763
16130
AM
aU TADD .10 tI O.
SET OUTPUT ADDRESS FOR YIN)
18600 \I 18421 OOOJO
16140
TFL OUTAOD.LOC 1,611,
SYMB I NI_Y I N I
18812 06 1842J 1889R
87
SETSYM
16150
188H 49 17850 00000
16160.
16170.
ERROR CONDITION-INVALID OR [NCDRRECT TABeYL STATEMENT
16180.
ERROR CONDITIDN-IIIVALIO NUMBER OF POINTS INPUT TO TABCYl
16190 ER317 TFM ERPROC+2l.317..
INVALID OR INCORRECT TAscn STATEMENT
18832 16 18881 -03\7
16200
87
ERPROC
166H 49 18864 00000
INVALID NUMBER OF POINTS
17010 ERllS TFM ERPROC-23,318 ••
18652 16 18887 -0318
17020 ERPROC 8TM HONI TR .03090.67.
CAlL TYPERR SUBPROGRAM V I A MaN ITR
1886~ 1702400 -3090
17030
BTM TYPERR, ,6,
TYPE ERROR MESSAGE
18876 17 02410 00000
170~0
87
RETURN TO MA I Nli NE PROGRAM
INtT",
186BB 49 07976 00000
17050.
1106017070.
STORAGE
17080 I XY
OS
I.STI+7.
LAST INTERVAL X-Y INDICATOR
16517 00001
17090 IGT
OS
FIRST INTERVAL GT INDICATOR
ltSTZ+7.
16529 00001
17100 TW[ND OS
TDATA OR WOROL INPUT INDICATOR
2,ST3+8.
165~2 00002
POINT CHECK STORAGE
16566 00002
17110 PTCHK OS
2.5T4+8,
POINT COUNT STORAGE
16520 00003
17120 IPT
OS
3,5T1+10.
NUMBER OF POINTS INPUT TO TA8CYl
17130 NUMPTS OS
3.5T2+10.
16532 0000)
CURRENT WORKING AOORESS
17140 I A TAOO OS
5. SETUV+U,
18149 00005
5, STS+ 11.
CURRENT OUTPUT ADDRESS
17150 OUTAOO OS
18421 00005
NUMBER OF elEMENTS COUNTER
17160 LASTI OS
18128 00002
TOATA OR WOROL XIII AOORESS
17170 lOCI
OS

PAGE

17180 LOC2

OS

5.l0Cl+S,

17190
17200
18010
18020
18030
18040
18050
18060
18010
18060
18090

OORG
OS
OS
OS
OS
DC
OORG
OS
OS
OS
OS

LOCI+6

18100
18110
18120
18130
18l'oO
18150
18160
18170
18180
16190
16200
19010
19020
19030
190'0

A
B
C
PHI
U2
V2
U)
V3
XP2
XP3
YP)
SI
S2
SC
WORKI
WORK2
WORK)
PCOS
PSIN
RPKEEP

uc
VC
PHIP

19050 ALPHP
19060
19070
19080
19090
19100
19110
19\20

OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS

MONITII
SINF
CO SF
TANF

OS
OS
OS
OS
AUHF OS
TYPERR OS
INIT
as

10 ..

10,.1.+10.
10,.1.+20,
lO,A+1O.
1.' , •• 31.
A+32

10"
1O ..
10 ..

10, •

10 ..

10"
1O ..

10 "
10 ..

10 ..
10 "
10 ..

10"

10.WORKIt

lO,WORK2.
10.WORK3,
10. WORK2,
10.WORK3,
10.WORK2,
10.WORK)'

'.20\06,
.2416,
,H21,

.2416.
,2416,
.H16,
,7971>,

.2411.

19130 RETURN OS
OS
19140 "CT

,7876,

OS

.7731.

19150 IATl

,4289,
OS
,4)15.
19170 SVl185 OS
.3)52.
19160 TOATA4 OS
,H62,
191'0 TOATA5 OS
.1680,;
19200 0.0
DS
20010.
CONSTANTS
200207,1000010. ,
20030 S rEPTO DC
19160 SYMSI

2V;j~'iO

20"1,,

~COHS
~al

U"'"'
u

16~05

00010
18924 00010
189)4 00010
16~H 00010
18945 00001
18946
18955 00010
U-V COORDINATES
18~65 00010
FOR TRANSLATED
18975 00010
AND ROTATED
X-Y COORD INATES
18985 00010
169~5 00010
POINTS RELATIVE TO
19005 00010
ROTA TED LOCAL
COORDINATE SYSTEM 19015 00010
1~025 00010
POINT
1~015 00010
SLOPE
19045 00010
STORAGE
19055 00010
WORKING STORAGE
19065 00010
WORKING STORAGE
1~075 00010
WORK I NG STOA AGE
19055 00010
COSFIROTATION ANGLE I
19065 00010
SINFIROUTION ANGLE)
ROTPT WORKING STORAGE 1'1075 00010
1~065 00010
U-V COOROINATE !IF
190n 00010
CENTER OF CIRCLE
PREVIOUS ROTATION ANGLE
19065 00010
PRESENT ROTATlOIiI AIiIGLE
19075 00010
02406 00000
MONI TOR AOORESS
02416 00000
SINE ADORESS
02421 00000
COSINE ADDRESS
02416 00000
TANGENT ADDRESS
02416 00000
ARCTA~GENT ADDRESS
02~16 00000
TYPE ERROR ADDRESS
INITiAlIZATION ADORESS
07~76 00000
02411 00000
RETURN AOORESS
NUMBER OF ELEMENTS TO RIGHT OF I
07876 00000
WORO LIST STARTING ADDRESS
07731 00000
042&9 00000
SYMB ARRAY AODRESS
0~315 00000
SVII8 ARRAY AODRESS
03352 00000
TOAU ARRAY ADDRUS
03362 00000
TDATA ARRAY ADDRESS
07680 00000
FLOATlNG POINT zno
18~ I~

A COEFFICIENT
B COEFF[CIENT
C COEFFICIENT
ANGLE PHI IALPHAI
RECORD MARK

STEPPl HG CONS TANT

faR

7,1400014"

STEPPING CONSTANT

faR

.,2.:';;',2.02
2.1,0, •

COOE FOR Nel

OVLt ,l.51,Z.09

20040 TeONS
20050 STfPWL OC;

16899 00005
TOATA OR WOROL XII-\l AOCRESS
16904 00005

TOATA
19082
19084
WOROL
19093
19095
19099

INPUT
00007
00004
INPUT
000(17

0000"
00002

93

eCOE FCIt SPLINE

zo"ao S'LINE DC
200'1'0
DC
2010C IIINI.O DC

2.92 ••
1.-.0000000
l.l ..

lOIlO
20azo 0.5

DC
DC

_,50000000
2,0 ..

20130
20140 1.0
20UO
20160
20110
20110 "I

DC
DC
DC
DC
DC
DC

8,10000000
2,1 ••
_.20000000
2.1"

.LOATING 'OINT

2,1 ..

FLOATING 'OINT

20190
DC
20200 lI1PSL' DC

8,10000000
2,.9 ..

'LOAT1NG POINT

z.o

MINUS 'LCATING
FlOATING POINT

FLOATING POINT

8,J1~15926

"'.".

19101 00002
19109 ooooa
PCINT Cij.
19111 00002
19119 00008
ONI'-HA"'"
19121 00002
19129 00001
1'1131 00002
ONE
19139 00008
TNO
19141 00002
19149 0000.
VALUE OF PI
191'1 00002
19159 0000.
VAlUE OF INFINITE SLo,e
19161 00002

au

2101021020 ••••••••••••••••••••••••••••••••••••••••••••••••• ••••••••••••• ~•••••••
21010
OENO TAICYL
16462

PAGf
SY~80"

1.0EU
PERPTO
LT'UB
COMPX
OSU
ERUI
MXV
TANTO
X

18158
17958
17362
17446
18229
1753'
04315
18006
1.168

TV'EilR
NI/ERTL
LOCSLP
COO60
DSA4

02416
1&0)0
17a02
18142
18255
071)1
18168
S
TOUA 0]33)
Y
U168

un

010~0-

02no
021.0 TLAST
02no
02UO021.0 LAST
02200
OlO10
OiUO

02~16

17881>
04]25
17562
18181

RerUR>l

0~411

MINI.O 1&178
ATAIiIF 02416
aSA2 IS203
ER301 17934
NST
O~31S
TANF OHI6
VERTL 18106

17]1>2
SUBPROGRAM EIITRY
17362 11> 17421
LASTPT+11, TDATA+'I
LASTPT+II.T04TA+54 •• ENO OF TAICYL RECORD IN TDATA 'ABLE
173H U 17421
17)86 II> 17457
COMPX+1I.TDATA+20
17398 11 17456
COM'X+ 10, •• 10
17'10 14 17457
COMP.+11
IRAIICH I' 'Tl IS NO' IN TlBCn AIIUY
ERJ21",
17422 4. unl

DORIO 17362

LTPTAI "M
A
01150

01200OZo10
02020 COIIP.
020JO
02040020'0
020.0
02070
02000
02090_
02100
02110
02130
02UO021"0Iun

TOATA5 03362
MC"lTR 02406
18140
18193

CNI020
DSAl
OTDS
MOD
SYMD6
TLAST
1.0

-NAME LTPTA8 ••• "ON-ERASABLE OE"IIE SUBPROGRAM
olD "UIlSEIl 0]51+DEL011I
oSTORE CORE IMAGE
LINKAGE - .
LTP".".

011~0

01160
OU 70
01110 LAST"
01190

TDAU603l7Z
NTLAST 18086
USTPT 17410
DISTF 02416
DSA5 18270
"AST 17581>
SCALC 17682
TEMP 00079
0.0
07680

18" 11>20-1]11 AD-APT DEF'RE SUB'ROGRAM FOR DETERMINI"G
A LINE DEFINEo'lV A STATEMENT OF THE FORM ••••
RCS
LlJU-LlNEIPTl, ""TO. TAil
LlNl-L INEIPTl.PEIIPTO, TAli

0101001020.
010300105001060_
0107001000·
01090.
0110001110.
OllZO
0IUO-

UBU

TF"
All
CM

1M

TI'l X,TDATA5
FSU. Xt ••
INI! LlSTPT-12

AM
IE

tOMPX+IO,I,10
V.TDATA.
V.COM'X+",I1,
' 1\.AST

All

CQIIP •• 1O.5,lI

TFL

Fsue

•DORa ..,

LAST"

ITII
,TII

All'

••
'I''I'
SII

All

COMPAItI X AND 11111-

COli'''•• Y AND YIII

-]]84
'

033U7
-335]
000-6
-0000
01100

174]4 06 18168 033U
17446 02 11161 00000
nUl 47 17"8 01200
17470 11 17456 000-1
1741,1 06 IU68 0]372
17494 02 1.161 174"
17501> ~6 lTS6Z 01200
17518 11 " . " OOo-S
11"0 ~9 17~10 00000
11"8

'

CALL TY' ••• 'UI'.OGAlA I/IA IIONITa
nne n OUOO -3090
17"0 17 02410 00L21
TYpeRR,Sll,'.
17562 U nUl 000-1
CO.X+ll,I.IO
IITLAn ,COII'II+U.lh IltlACH I' "DINT IS NOT AT END 0' UaCYL
Inn . . uoa, U45"

110111'1,01090,61,

CO.X+lh'hl'.
D542,COIIII.-"
OiU.S,DIIAI
OIAh•• I,IO.

AOI!RISS D. • II-II
ADDRI.' O' YII-II

I " " 11 n u , ODD,",
17590 26 ,elos 17""
uno , . 11'0. &8Z0,
1"" &1 18.0' 000-1

94

PAGE

030)0

MAZ, I
DSAZ+15.0SAZ+'
OSAZ.~ .C01l60
liON I TR.OSAI.5.6,

0)050
03060

CF
TF
A
8T

03010 SCAlC

IT

0ISTF.OSA2.Z0, ••

0)080

AM

COMPXOlO.2.10.

0)090
03100
03110
03120
031)0
03140
03150
031.0

TF
TF
TF
CF
A
CF
CF
ITM

DU).' .CDMPX+11
DSA3HO.DSU.5
OSA)+15.0SI.3.5
DSU.ll
OSA).I".CNI020
OSA).I
DSU.6
IIOt4ITR.OUIO.61.

O]O~O

0)170 lOCSLP 8T

OTOS.DSU.20.6.

03180

8TM

MOt4ITR.02020.67.

0)190
03200

BT
AM
FAOO
BT

ATANF .051.4+10.6.
DSA3 .... 3.10.
HXV.DSAJ.5.11.
MaN I TR.OSA5+5.6,

0~010
0~020

040JO

BTM

TANF.IIXY,67,

eM
BE

IATl.27,610
TANTO •• ,

0~070
0~080

eM
BE

PERPTO ..

04090·
04100 ER)OI

BJM

MONITR,OJ090,67.

040~0

MO~

0~050

1

111>J~

n 1820~ 00000
26 18218 18208
17na 21 IU07 UI~2
CAU OISTF SUBPROGRAM VIA MONITR
17670 27 02~00 18198
CALCULATE DISTANCE FROM PII-1I TO PilI
176B2 27 02410 1822)
ADDRESS OF A-tOEFF IC leNT
1769~ 11 17456 000-2
11<706 26 182H 17457
17718 26 18U9 1823~
17730 26 18H4 18234
17742 ]) 182~0 00000
17754 21 18243 181~8
17766 3J 18230 00000
17178 JJ 18U5 00000
'AU OTOS SU8PROGUM VIA MONITR
17790 17 02 .. 00 -2510
CALCULATE SLOPE OF UBCVL IN LOCAL SYST.
17802 27 02~10 182 .. 9
CAU ATANF SU8ROUTlt4E VIA MONITR
17814 17 02400 -2020
MXV-AUNF U'ST I
118262702410 18265
ADDRESS OF ALPHA
17838 11 18233 OOo-J
MXV.A UNF IMS T I.ALPHA 11850 01 O~J15 1823M
CALL TANF SUBPROGRAM VIA MONITR
17 862, 21 02~00 lun
MXV-UNFI ATANF IMST '>ALPHA I
17874 17 02410 -4115
17886 14 0173J OOOKl
BRANCH IF "OOIFIER IS TANTO
17898 ~6 18006 01200
176~6

04060·.

87M
0~120 PERPTO TFL
041]0
FOIV
0~140
TFl
0~150
BY
OHIO

04160·
04170 TANTO

11.71,18,610
t

TYPERR,JOI,6.
TEMP.MINI.O
TEHP,MXV,.

MKY,TEMP
VERTL, ••

11910 14 077JJ OOOJI
BRANCH IF MOOIFIER IS PERPTO
11922 ~6 17958 01200
CAll TYPERR SUBPROGRAM VIA MaN I TR
17934 17 02 .. 00
179~6 11 02~10
17958 06 00079
-l.O/MKY
17910 09 00019
17982 06 O.. J15
BRAIliCH IF SLOPE IS 0.0
1799~ 46 18106

-3090
OOLOI
18178
04315
0007~

01400

CM
BNI(

MXY,5,I0

04200 NYERTL
05010
05020
050]0
05040
05050
05060'
05070 NTUST

TFL
TFL
FHUL
FSUB
B
DORG

SYMB6, TDATA6
TEHP.HXY
TEMP,TOATAS, ,

HXY_X

SYMB6, TEMP,.

SYMB6-Y-MXV_X

RETURN,,6,
-J

RETURIII TO MONITR

AM

COMPX·11.9,10.

05080

B

SCALe.2 ..

ADORESS OF A-COEFFICIENT
180B6 11 IH57 000-9
18098 49 17706 00000

05090
05100·
05110 veRTL
05120
05130
05140
05150.
05160 CON60
05170 CN1020
05180
05190 I.OE48
05200 X
06010
06020 "IN1.0
06030
060 .. 0 1.0
06050 OSAI
06060
06070
06080
06090
06100
06110
06120 CSA2
06130
06140
06150
06160
06170
06180 DSA)
06190
06200
01010
07020 DSA4
070]0
07040 OSA5
07050
07060
07070'
07080 TOATA
01090 Y
07100 TDATAS
07110 TOATA6
07120 MONITR
01lJO TYPERR
071"'0 OISTf
07150 DTOS
07160 "UNf
07170 IIXY
07180 UNF
07190 lUI

DORG - )

0~180

VERTL."

18006 14 04315 000-5
BR ANeH I F SLOPE INFINITE BY DEFINITION
18018 46 18106 01300

0~190.

18030
18042
18054
18066
18018
18086

06
06
OJ
02
49

04325
00079
00079
0 .. J25
0241J

03312
0 .. 315
03362
00079
00000

PAGE

onoo

TeMP

08010 SYlta.
Oi020 RETURN
010]0 "ST
oeo",,, S
08050 0.0
010.0

TFL
TFl

"XV.l.OElta,.
SYH86.0.0
NYERTL.12
OORG '-4

18106
MKY-l.OE48

B

DC
DC
De
DC
OC
DC
OC
DC
De
OSA
OSC
DORG
NOP
ODRG
NOP
DORIO
Dsa
OORG
NOP
DORG
NOP
DDRG
OSA
DaRG
NOP
DORG
DSA
DORG
OSA
OSC
OS
OS
OS
OS
DS
OS
as
OS
OS
DS
as
OS

DS

os

OS
os

DS
as

DS

6,600006
6.100002
B.10000000
2,",,9

10,0
8.-10000000

Ztl
8,10000000
2.1
SCALe+12
5,02101
OS41+5+5.5-11
0.5

-21
0.0
-14
0
•• 5_5-".+5_5-11
O,MST
.-21
0.0

--14
S
•• ,.5-40'.1-11
MST,MXY
.-1 ..
1.0
•• 5'1-4
HOO
S,022ll

I'"

.un
,x
,3362
.3H2
,2"'06
,2"16
,2416
,2416
,2"'16
,4)15

,2416
.7131
10,19
,4325
,2411
,"XY

,x

,71>60

OENO I.T~T"

fill LIST SECTOR

18106 06 04315 18158
18118 06 04325 07680
181]0 49 180~2 00000
18131
18142
18148
18156
18158
1816B
18176
18178
18186
18188
18193
18194
18212
18212
18202
18202
18199
1820J
18238
1823B
18228
18228
1B225
18229
18254
1825 ..
18251
lB255
18266
18270
18211
18361
03333
1816B
03362
03372
02406
OH16
02"16

02"16
02"16
04315

02416
GTTU
00079
04125
02411
0"315
18168
01680
17162

00006
00006
00008
00002
00010
00008
00002
00008
00002
00005 J7694
00005
41 00000 18168
41 00000 00000
00005 -0000
.. 1 00000 0"315
41 00000 00000
00005 J8168
"1 04315 04315
00005 JI188
00005 J7886
00005
000B6
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00010
00000
00000
00000
00000
00000

95

SY140CL TAIILE

TVPERII 02416
flZE~O

S'1~fllO

076UO

SHG

16590
STARf 165)0
SVNBA 04]U

0~]65

ER1iO~

166'l~

SEn

!6UD
04219

SYMSI

RETualol 02411
FORN 07712

SeTa

16710

SVIIIIS OHIS

MONITR 02406

GCONIC
RIGHT
SETF
IYN87

tAT! 07731
SETE 16770
SYIIIB. 04325

16462
16922
IloilO
04))5

SYM89 04U5

.................. .

01010.
01020.
01030.

IBM 1620-1311 AO-APT . . . . . . .

INTRAN SU8PROGRAM CCONIC
THE FUNCTION OF THIS SU8PROGRAM
I S TO PtlOCESS A CONIC SURFACE
DEFINED 8Y THE COEFFICIEIjTS
OF THE GENERAL CONIC EQUATION
CCONIC/At •• C,O,E,'

OIO~O.

01050'
01060'
01070.
010S0.
01090'
01100
01110 GCONIC
01120
01130
01140
01l~0.

01160
01110
01110 nART
01190
01200
02010
02020
020)0 SETa
02040
02050
02060
02070

020.0 SETC
02090
02100
02110
02120
02UO SETO
02140
02150
02160
02170
02180 SETe

OORC
SF
87
CM
BE

16462
RICHT
START-24
FORM,40n,8
START

Ib4~2

16462 32 16922 00000
16474 49 16~06 00000
16482 14 07712 011095
16494 46 16530 01200
lOAD a~D CALL TYP!RR SUAPROGRAM
BTII IIOIUTII,03090,.'
16sn6 17 02400 -3090
8TH TYPEAR,)OltU
16518 17 02410 OOLOI
All
IATl,U,IO,
INCAEME~T TO FIRST COEFFICIENT
16530 11 07731 000J2
TFL SYH85,IArltll,
STORE A COEFFICIE~T
16542 06 04315 077lJ
FSUB IAT1.FLZERO,.,
CHECK FOR ZERO COEfFICIENTS
16H4 02 011lJ 07680
BZ
SETB
16566 46 16590 01200
SF
RIGHT",
INDICATES aT LEAST I NON-lERO COEFFICIENT
16518 32 16922 00000
AM
IATl,14,10,
I~CREMENT TO NEXT COEFFIClf~T
16590 II 07731 000J4
TFL SYHB6,IATl,1l,
STORE 8 COEFFICIENT
16602 06 04125 0773J
CHECK FOR'ZERO COEFFICIENT
FSUB IATI,fLZERO,',
16614 02 0771J 07680
16626 46 16650 01200
8Z
SETC
SF
RIGHT, ..
INDICATES AT LUST 1 ~O~-leRO COEFFICIENT
16638 32 16922 00000
AM
IATl,14t10,
INCREMENT TO NUT COEFFICIENT
16650 II 07731 000J4
TFL SYH01,IATI,1l,
STORE C COEFFICIENT
16662 06 04)15 0773J
FSU8 UTl,FLZERO,.,
CHECK FOR ZERO COEFFICIENT
16674 02 0773J 07680
8Z
SETD
16686 46 16710 01200
INDICATES AT LEAST I HON-lERO tOEFFICIENT
SF
RIGHT",
16698 )2 16922 00000
AM
IATl,H,IO,
INCREMENT to NEXT COEFF IC lENT
16710 11 07131 000J4
TFL SYH&8,IATI,ll,
STORE 0 tOEFFltlENT
16722 06 04345 07UJ
CHECK ·FOR ZERO tOEFFlClENT
Fsua IAT1,FlZERO,',
16114 02 0773J 07680
16H6 46 16770 01200
8Z
serE
INOltATES AT LEAST I NON-lERO COEFFICIENT
SF
RIGHT",
16758 )2 16922 00000
INCRME~T TO NEXT COEFFICIENT
AM
IATI,1~,10,

PAGE

03010
01020
03030 SETF
03040
03050
03060
03070
030&0
0309003100
03110 ERROR
03120
03130 FLZERO
03140 RIGHT
03150
03160 FORM
03170 IATI
03180 SYM81
03190 SYM85
03200 SYMS6
04010 $YM81
O~OZO

$YM88

04030
04040
04050
0401t0
04070

SY"810
MOHITR
TYPERR
RETURN

040.0

16770 11 07731 OOOH
STORE E COEFFICIENT 16782 06 04155 0773J
CHECK FOR ZERO COEFF ICI ENT
16794 02 0773J 07660
16806 46 16830 01200
SElF
8Z
NON-lERO
COEFFICIENT
INDICATES AT LEAST I
SF
RIGHT".
16818 32 16922 00000
16830
II
07731 000J4
AM
IUl,I~,IO
16842 44 16898 16922
ERROR,RIGHT
BNF
16854
06
04365 0773J
STORE
F
COEFFICIENT
SYMBIO,IATl,ll,
TFL
SET REtORD LENGTH FOR CONIC
TFM SYII8I,81,8,
16866 16 04289 0-081
16878 15 OH66 00000
TOM SY"SI0.1
16889 00001
DC
RETURN TO CALLING PROGRAM
16890 49 02"IJ 00000
RETURN .. 6
87
16898 17 02400 -3090
BTM MONI TR,0)090,1>7
16910 17 02410 -0122
8TM TYPERR,322,1>7
01680 00000
,7680
OS
16922 00001
OS
I
16960 0003&
FILl LAST SECTOR
OS
38"
07712 00000
,07712
as
0773l 00000
,07731
OS
0420'1 00000
os ,4289
04315 00000
,04115
OS
04325 00000
,04325
OS
04335 00000
,04335
OS
04345 00000
.04345
04355 00000
,005S
OS
04)65 00000
,Dun
as
02406 00000
os
,02"'01>
02416 00000
,02416
OS
02Hl 00000
,2411
OS
l'~6Z
OlHO GeOH"
TFL SYMB9,IATl,Il,
FSUB IATl,FLlERO,6,

021'10
02200

5Y"89

1.·.·

os

Oil

PAGE
TYPEIIR
RHUR"
A
fL2
SINF
SYMB6
TEMP2

02416
02411
17)26
174Z6
OZ416
04125
11'116

TDATAt.
PII180
B
FORM
SHU
SYMSl

Oll72
17446
17))1>
01712
17386
04))5

SY~8tll

TADlE

TOATA5
MONITR
COSF
H
START
SY"B8

03362
02406
OZ4Z1
17346
16518
0045

010100
010100

010300
01040.
01050'
01060'
OIOTO'
01080.
010900
01100'
01l10.
01120
DORG 16462
01130 ELL IPS CM
FORM.121.8.
01140
01150
01160'
01170
01180
01190 START
01200

B7
8E

START-24
START

BTII
8TII
AM
TFL

MONITR.03090.67
TYPERR.301.67
IATI,26,IO'
A.IATI.II.

02010
020Z0

AM
TFL

IA T1,14.10
S,IATL,II.

02030
02040
02050
02060
D207D
OZ080

AM
TFL
TFL
FMUL
FNUL
FMUL

IATI.14.10
H, T04TA5.,
K,TOATA6 ..
A,A"
8,8"
IATI.PI/LBO.6.

02090
OZ100
OZIIO.
02120
02130
02140
02150
D2160
02170
02180
02190
02Z00
03010
030Z0
03030

TFL
TFL

SNALSQ,lATI,ll,
CSALSO. SNALSO ••

8TM
BTM
8TM
TFL
TFL
FMUl
FMUL
TFL
FMUL
TFL
FMUL
FAOD

MOl'll TR,02010.67
SINF.SNALSO.6.
COSF,CSALSO,6.

SNAL,SNALSQ, ,
CSAL.CSALSO, •
SNALSO,SNALSO ..
CSALSQ,CULSQ ..

TEMPt ,A"
TEMPI, SNALSO ••
TEMP2.S, ,
TEMP2.CSALSO ••
TEMPI. TENP2 ..

03040
03050
03060
03070
03080

TFl
TFl
FSUB
FMUL
FNUL

03090

FMUL TEMP1.CSAL ..

03100
03110
03120
03130
03140
03150

TFL
TFL
FIIUL
TFL
FMUL
FAOD

SYMB6.TEMP1.,
TEMPltA"

03160
03170
03180
03190
03Z00
04010
04D20
04030
04040

TFL
TFL
FHUL
FMUL
TFL
FNUL
FMUL
FADO
FAOO

SYH87,TEHPI ••
TEMPI.A ..
TEMPL,K 'f
TEMPI.SNAL ..
TEMP2.B ..
TEMPZ.H ..
TEMP2.CSAL, •
TEMP I, TEMPZ
TEMPI.TEMP2 ..

010050

0"060
04070
04080
04090
04100
04110
04120
04UO

FMUL
TFL
TFL
FNUL
FMUL
TFL
FMUL
FIIUL
FSUB

TEMP1,FLM2 ..
SYMBB. TEIIP1 ••
TEMPI.A ••
TEMP1.K ..
TEMP1.CSAL ..
TeMPl.s ..
TE~?2.H ••
TEMP2.SNAL ..
TEM'I.TEMP2 ••

04140
04150
04160
04170
04180
04190
04200
05010
05DZO

FNUL
TFL
FHUL
FfiiUL
FHUt
FIlUL
FAOD
FIlUL
Fsua

H,H,.
H,a"
K,H,.
A,8.,
.,A,.

050)0
05040

TFl
rFM

SVII810.IC ..
$YMI1.Il.a,

050'0
0'060
05070
05010
05090
05100
05110
0512'0

"TOIl

SYMBlOH

DC

B7

...
1
H
IC
SNALSO
05UO CSAUO
05140 SNAl
ost 50 CSAL

0,160

rfH~l

SYMB5, TEMPt.,
TEMPI,B, ,

TEMPl,A,.
TeHPl,Fl2,.
TEMPI.SHAL.,

TEMPI,CSALSO ..
TEIIPZ.8 ..
TEMPZ. SNALSQ ••
TEMPI, TEMPZ, I

TeMPl,HMl, •
SYMB9. TEMPI ..

tt,K,.

K,A,.

1.·.·

OS
(', e,

RETURN".
10
10
10
10
10
10
10

O~
O~

10
10

DS
DS
DS
OS
OS

SYM810
ElllPS
CSAl
IAT!
SYMSI
SYM89

04365
1646Z
17391>
01711
04289
04355

SNALSO
CSAlSO
FLMZ
K
SV.. 85
tEMPI

17166
17371>
\7436
11556

04315
\7401>

INTRAN SUBPROGRA" ELL IPS
THE FUNC TI ON OF TH I S SU8PROGRAM
IS TO CALCULATE THE COEFFICIENTS
OF THE GENE RAL ceN I C EOUA TI ON
FOR AN elLIPSE DEFINED BY ITS CENTER
LENGTH OF ITS MAJOR AXIS AND MINOR AXIS
AND ANGLE THE MAJOR AXIS MAKES
WITH THE X COORDINATE AXIS
ELLI PSIC POINTI.H.K.·
• WILL DENOTE THE ANGLE
,16462
CHECK FOR CORRECT FORM NUIIBER
16462 14 07712
16474 49 16494
IM82 46 16518
CALL AND LOAO TYPERR SUBPROGRAM
16494 17 02400
16506 17 02410
16518 II 07731
STORE LENGTH OF MAJOR AXIS
16530 06 17)26
16542 11 07731
STORE LENGTH OF MINOR AXIS
16554 06 17336
16566 11 07731
STORE H OF CENTER
16578 06 17346
STORE K OF CENTER
16590 06 17356
16602 03 17326
8-8-_2
16614 03 17336
CHANGE ANGLE TO RADIANS
166Z6 03 0773J
16638 06 17366
SNALSO"
16650 06 17376
CSALSO"
LOAD AND CALL SINF-CDSF SUBPROGRAM
16662 17 02400
16674 17 02410
SNALSO·SINFI "
CSALSQ.COSF I' ,
16686 17 024ZJ
16698 06 17386
SNAL'SINFI "
16710 06 17396
CSAl·COSF I' )
16722 03 17366
SNALSO·SINFI ')"2
16734 03 17376
CSALSO'COSFI ')"2
rEMPl·A-eZ
16746 06 17406
16158 03 17406
TEMPI-A •• Z.S' .. " ) •• 2
TE~p2-Be.2
16770 06 17416
16782 03 17416
TEMP2-a._2eCOSF'I' •
TEMPld"Z.SINF, ·) . . 2*'''Z'COSFI ')"2
16"4 01 17406

"-"··2

--2

0-127

OCOOO
01200
-3090
-0301
OOOKlo
0773J
000J4
0773J
000J4
03362
03372
17326
17336
17446
0773J
17366
-2010
17366
17376
17366
17376
17366
17376
17326
17366
17336
17376
17416

SY~B5'TEMPI
16806 06 OHIS 17406
TEMPI-a"2
16818 06 17406 17336
TEMPloA'.Z-8"Z
16830 02 17406 173Z6
TEMPI.2IAo'Z-S.02'
16842 03 17406 17426
TEMPI·21A"2-B"2)·SINFI "
16854 03 17406 17386
TEMPI'Z IA .. z-e"2)05INFI' 'oCOSFI ')
16866 03 11406 17]96
SYMB6.TEHPI
1687B 06 04325 17406
TEMPI-A •• 2
16890 06 17406 17326
TEMPI . . . . 2.c:OS'I ')"2 16902 0] 17406 17376
TEMPZ'B"2
16914 06 17416 17336
TEMP2.8"Z.SINFI') . .2 16926 03 171016 17366
TEMPI-Ae-Z-GOSFC' J.e2+8 •• 2-5 INF I' »_.Z
16938 DI 17406 17416
16950 06 04335 171006
SYMB7·TEMPI
16962 06 17406 17326
TEMPI . . . . 2
16974 03 17406 17356
TEMPI-A,··2-K
169B6 03 17406 17386
TEMPI-A··Z·K.SINFI·I
16998 06 17416 17336
TEMPZ-B·-2
17010 03 17416 17346
rEMP2-S •• 2·H
17022 03 17416 17396
TEMP2'B"ZoK'C05F I"
17034 01 17406 17416
TEMP1_A'.2'K.SINPI·'+So'Z.H.COSFI')
17046 01 17406 17416
TEMPI.-20TEMPI
1705B 0) 17406 17436
SYM8S.TEMPI
17070 06 04345 17406
TEMPld"2
17082 06 17406, 17326
TEMPI.A"Z.K
17094 0] 17406 17356
TEHP1 . . . . 2.UCOSFI'l
17106 03 17406 17)96
TEMP2.8"2
'17118 06 17416 17336
TEIIPZ,S"2'H
17130 03 17416 '17346
TEMP2-a •• Z.H'SINFI·)
17142 03 17411> 17386
TEMPl . . . .2.K.CQSFI·'-a . . Z.H.SlNFI·")
17154 02 17406 17416
TEMPI'-2.TEM'1
17166 03 17406 .17436
SYM8Q.UMPI
1717. 06 04355 17406
K.Ko.2
17190 03 17356 17H6
K'Ko'2.Ao02
17202 03 17356 17)26
H'N"2
17214 0] 11346 17346
H.H •• Z. . . . 2
17226 03 173'16 17336
... K•• 2.A •• Z.B •• Z...... z 1123. 01 113S6 17346
'_'''2'.''2
17250 03 I.7lU 17336

K·I( •• 2·••• Z.H•• 2•• ··Z-A.·z.a.·z
SYM810*K

17262 02 17)56 17326
17274 06 04365 17351>

SET RECORD LENGTH FOR ELl! 'SE
,

17286
17298
17309
17310
17126
17336
17)4'
17356
173. .
17376
17386
17396
17406

16 04289 0-011
15 0",66 00000
00001
49 0241.1 00000
00010
00010
00010
00010
00010
00010
00010
00010
00010

C~170

nN'2

o~uo

051'0 'L2

os

10

();:

a.200CCOOO

DC
DC

05200
06010 fLNZ

DC:

0'020

DC

041130
06060
06050
06060
06070
06080
06090
06100
06110

PIIIOO DC
OS
fil~"
OS
IAn OS

2.1

8,-20000000

2,1

G.lnnnZ
2,-1

14 ..
.71ll
,1731
,3362
,)312
,4289
•• 315
.4125

TDATAS OS

TDATA' OS
SVH81 OS
SYM8S
SVMI6

OS
DS
OS

,43)5

01>130 SVMBa

OS

a6HO SVM89

DS

.4H5
.4155
.4365

OlllZG $V14a?

06150
06160
06170
06180
06190
06200
07010

SV14810
51liF
COSF
1I01IITil
TYPERR

OS
OS
OS
OS
OS
RETURN OS

FILL lAST SECTOR

.2416
,2421

.2406
.2416
,2411
DENO ELL IPS

17'116
lH24
lHZ6
17434
1143'
11444
17446
11460
07112
071]1
03362
03372
04289
04315
04325
04335
04H5
04355
04365
02416
OH21
02406
02H6
02411
16462

"GI

00010

)

ooooa
00002
00008
00002

..

ooooa
00002
OOOI~

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

PAGE
Sy~aOL

POCUT IltU2

A HUEH£NT OF THE FORM ••••

OlOSO'

'NA~I! POt~ET ••• HON-UASULE
~uwOfR 03S4+0
MXXlF 01416
X2
1781'

l"-!tO

01010.
01020.
0103001040.
01050.
01060010700108001090.
0110001110.
01120·
01130.
01140
01150.
01160 DSA!
OU10
01180
01190
01200
02010
02020
02030
02040
02050
02060
02070
02080
02090
02100
02110 OU2
02120
01130
01140
01150 OSA3
02160
02110
02180.
02190·
oUOO L""QN

NOU"_ 11690
FO"MTB l'U,10

COOP

17570
DSA) 17Hl
F
03453
SY"BS 04115
Yl
17884

MOI/ITR 02406

•

MODIFY 17534

0)403

CO~Pl

00079
E
034H
FLAG 00079
SYM86 0"325
21NT Ll606

B

OJ"3

0
ER301
IATI
TEM'

O)Hl
17770
077n
OOOU

IBM 1620-1311 AD-APT DEFPRE SUBPROGRAM FOR DETERMINING
A POINT OEFI NED 8Y A STATEMENT OF THE FORM ••••
RCS
PTl-PDI NT IXSMALL.I NTOF. L I. GCONI
PTl-POINT IXLARGE.I NTOF. Lf. GCONI
PH-POI NT IYSMALl.1 NTOF. L I.GCONI
PTI-POI NT IYURGE.I NTOF. L I.GCCNI
'NAME LNICON ... NON-ERASABLE OEFPRE SUBPROGRAM
.10 NUMBER 0355+0ELDIM
'STORE CORE I"AGE
LI HUGE - B
LNICON .. 6
DORG 11362

17362

OSA
OSC
OORG
NOP
OORG
NOP
OORG
NOP
OORG
NOP
OORG
NOP
OORG
NOP
OORG
OSA
OORG
NOP
OORG
OSA
OOR,G
OSC

17366
17367
I7H5
17426
17416
17416
11406
17406
17396
17396
17386
17386
1/376
17376
17373
17377
17435
I1H6
17413
17437
17H8
17448

aT

03010

aT

03020

80

03030.
03040 ER]U
03050

TF"
8TM

lNICON024
5.02091
OSAI+505.12-6
Y2.0
--21
SYM86. X2
-21
F.SY"85
-21
E.O
--21
A.C
-21
Bl.B
--141

"L
•• 5-12-4+5-),-11-2
O.COMPL
.-14

o

•• 5-3-1t
1.0

00005 J1474
00005
41 17184 00000
41 04325 I1B74
41 03453 04]15
41 03443 034)3
41 0]40] 03423
41 03372 03413
00005 -3)62
41 00000 00079
00005 -0000
00001

SUBPROGRAM ENTRY
HONITR,GSAI.'...
tA~L LINca" $Uil~_OClU" viA MONITA
17450 17 02400 11371
DETEAMINE INTERSECTIONS LINE AND CONIC
L1NCON .OSA2+55,6.
17462 21 02410 17432
8AANCH IF INTERSECTION EXISTS
17414 43 17522 00019
WERM+II.]23.9.
MONITA.0]090.67.

SET ERROR NO •• ]23
17486 16 11521 OOLl]
CAlL TYPERR SUBPAOGRAM VIA MONITR

PAGE
BTM
03060 WER"
TFM
03070
030ao MODIFY AM
03090
CM
BNl
03100

17498 11
17510 11
11522 16
17534 1l
COMP+11.14,10
17546 H
COIIP+I1.FORMTBHH·14
EII301...
BRANCH IF FORM NO. NOT IN FORM
17558 46
TYPERR .. 6.
COMP.oll. FORMTB-13

\lRITE ERROR "USAGE

02400
02410
17581
17581
11581
TABLE
17170

-3090
00000
J7797
000J4
J7861
OUOO

0]11003120 CO"'
03UO

C
BNE

IAT1 •• 6
MODIFY ...

11570 24 0113J 00000
BRANCH IF FORM NO. NOT lOCATED
17582 H 17534 01200

03140.
03150

BNR

RETURN.FLAG.6.

BRANCH IF ONE INTERSECTION EXISTS
17594 45 0241J 00019

AM

COMP+10.1.10
05A3+5.CO"Pol1.l1.

SET SELECTIVE

03160.
0317021NT
03180
03190
03200
04010
0,,020
04030

TF

17618 26 17442 1158J
17630 11 17581 000-1
COMP+II • .l.IO
0$A3+I1.CO"P+I1.I1. SET CONTROL DIGIT FOR SELECT SU8PROGRAM
11642 25 11448 115BJ
17654 06 00048 1743P
TFL TEHP o OSA3.11
11666 02 00048 1744K
FSUD TEHP.OSA).'.l1
BAANCH IF MODIFIER IS NOT DEFINITIVE
. BE
ER307 ...
11618 46 17790 01200

AM
TO

0,,0"0.
0""050 NOTAMB 8rM

MONIlR.02UO.67.

0"060

aT

""-070

FSUB COMPL.OSA3.11
BE
RETURN . . . .

O~il30

0409004100
04110

04120
GltHQ

MXXIF.OSUoll.6.

04160
04110
MUO-

MOVE RESULT TO OUTPUT 17738 06 04315 17874
17750 06 0""25 17884
RETURN TO MCNUR
17762 "9 0241J 00000
IT770

TFM

11£1111+11.)01.90

SET

8

WERII-12

TFM
B
04200
OOllG
05010
05020.
050)0 FORMlI N~
05060

0$070
05000

05090
05100

OSIIO

DC
CSC

_

DC

csc

N~

DC

csc

WERN.H.JOT •••

WEIlII-12
-J
SYIIB5.X2.2
2.31.0-10
1.1

SYI4IIS.X2.2
2.JZ.o-10
1.6
SYMB6,Y2.Z
2.• 35. 0 -10

hT

HOI'

OSl?):·~

DC

SVMI6.Y2,Z
Z. ),.0-10

CSi.40

Oi;C
DC

I,'
10.0

051:0
OSUO U

ERROR MO.-301

17770 16 IT521 OOLOI
17782 49 I n98 00000
17790

OOllG -5

04190 EUOT

050<,0
0$050

CALL MINIF-MAXIF SUBPROGRAM VIA IIOHITR
17690 17 02400 -2130
SELECT COMPARATIVE ELEMENT
17702 27 02""10 IH48
17714 02 00079 1143P
IRANCH IF RESULT IN SYM8S AND SYM86
17726 46 0241J 01200

SYMB5.X2 ..
SYMB6. Y2
RETURN,,6.
-)

TFL
TFL
II
OOllG

04140.

04150 £11301

17606 11 17580 000-1
ELE~ENT ACORESSES

SET ERROR NO.030T

17790 16 IT521 OOLOl
17802 ". 1 n98 00000

17810

17810 H

-un

naT4

17.11 00002
17822 00001
17824 41 -UIS U874
17U5 00002
nU6 00001
n838 41 -U25 nl. .
1T8l9 00002
uno 00001
17852 41
nU3 00002
17G6~ 00001
nll4 00010

-un n ....

PAGf

n

05160
OS110

DC

10.0

OS

16 ..

OS

.1l3H29

OS

.6L·~1

"n~

Q~UO.
II~
a~

05190

05200
06010
06020
06030
06040
06050
06060
06070
06000
060'0
06100
06110
06120
06130
06140
06150
06160
06170
.06180

8

A
C
f

os

F

SYIIBS
SY""
COMPL
MOIiITR
LINCON
FLAG
TY'ERR
IAll
RETURN
TEMP
MXUF

01362 00000

,IIL.la

OS

03312
03413
OHO)
03<\2)
03H3
03H3

,6-10
.11+10
.'+20
.C.10
.e.10

DS

OS
OS

0

os
OS

10.19
.H06

0"315
04325
00079
02"06

.2 .. "

OHlt 00000

.SYHSS.IO

OS

OS
OS

,79

OS

IU76
OZH6
175710

03423
17814
DSA" 17469
F
03463
MN
17991
M4SLP L1U4
TAIITO 17132
IE
01362
1.296
VI

co.n

00019 00000
OHI6 00000
07731 00000
02~lL 00000
000"8 00010
02~16 00000
17HO

OS

.2416
as .7731
OS
.2H1
OS
10.41
OS
.24"
DENO LN/COII

TY'~R_ 024"
,011lTR UIH
LINlIli 02416
18396
D2
03443
D
DSA5
1751'
FABR 1G1Z4
112
18186
PE.'F 17'192
TEM' 0001'
16216
Xl
Y2
1831'

OSA TAIHO-24
DSC 5.02651
DOiIG DSA 10'+'. 12-'
Nili' Y2.0

01170
C/lUD
01190

-21
NOP YI.X2
DOllG -21

G1200

1ICll>
DOiI' -21
NOP D.E
DOiIG -21
1101' D.c

02060

02000 OSU
02090

02UO
02110

8:120
OlUO
IlZlioO

021'0
CZ16f1
0217&

8ZUO
021 ••
OUOO DIU
OlelO
IlroZO
Oinll

02406

RETURN 02~ 11
111111.0 18266

te2l'
111316
17377
03453
077)1
10040
SYMU 04315
WER~

17660

VIIS

I.n.

A

OHll

C

03H)
L7H7
17616
17672
lC366
OHU

OSA)

ER301
LEFT
114
SYIII6
XGIS
YE

pn6
UHI

.NAME LPTCOIj ••• NOII-EUUILE DEfPU $UI'1l0GUM

01010'
OIOUOo
01090'
01100'
01110.
01120
01130 0$101
01140
01150
01160

02070

TANCON 024U
MCNITl
HCRIlL
84
OSA2
E
UTI
MlSL'

Res

OIO~O·

020S0

TWOTAN 17780
IIVERTL 13064
LC~ONI 02H6
U356
U
OSAI 17366
OSA6 17549
FLAG 00079
In46
H3
RIGHT 17672
VERTL 10218
IGlIl.l.
Xl
01&.0
0.0

L IIH-L I liE IPT l.-RI GHT. TAIlTO,GeONl
L IHI-L I NEIPTl,lEFT. TANTO.GCOHI

OlO~O.

02040

"Gf

TABLE

IBM 16Zo-UU AD-APT OEfPRE SUBPROGRAM FO. DeTERMINING
A LINE OEFI~eD BY A STATEMENT OF THE FORM ••••

01010.
0102001030'
01040.

02010
02020
020)0

10000
00000
00000
00000
00000
00000
00000
00000
00000
00010
00000

03~H

."3IS

os

SY~BOL

1.0H'
PTSLCT
LPTCDII
8

17684 00010
11.60 00016

un seeroa

.10 NUMGER 03S6_0fLDIM
oSTOl. COilE IMAGE
LINKAGE - 8

DDAG 1731>2

oeM

',Xl

Dca, -21

IIOP Yi .4
OOllG -14

XE
•• S.12-4.'.I . . .-2
VI ••
-21
VIIIS.lIl
OOIIG -:21
IlOl> YE.1UI1S
DaRG' 0-21
lIeI> va,XI
00II0 -21
OSA
OaRG
NOI>
OOAG

DaRG
OSA
DOli
OU
DOIlO

n.n

-14
Xl
_+lIeU'-4
I ••
•• , .....

L'lCON .. 6

17)62
113"
17367
17425
1HZ.
17416
17416
11406

e0005 J77"
00005
41 IU16 OCOOO
41 112 . . Ina,

IHO' 41 OJ4U 11216

17]96

In96 41 0)443 0)45)

Ina6

Inn 41 OJ4Z) OJ4U
17376
17376 41 0))72 03411
1737)
17317 00005 -))iZ
17H5
17~76

'1& 182 . . 00000

IHU
17""

41

In16 In ..

&745'

17456 41 'UTa USU

1'1'.44'

17446 41 lOU nuz

174,.

11.,6 41 181. . lU",

174)3
lT~"

..105

174U
"401 .iNl

"SOl

~.a

••

IUU

.

03040
0)050
Oi060
OJ010
OJOIO
03090

onoo

DSA4

OH10

OUZO
OlUO
OJl40
03UO
D3ao
0]170
0"80 OSA5
D3190
03200
04010
,D4020
04030
04040
04050
04060 DSA6
04070
04080'
04090.
Olt100 LPTCON
010110
aloUD

NOP
OooG
NOP
DOIIG
NOP
DDRG
DSA
DDAG
NDP
ODAG
NO"
DDAG
NDP
DORG
DSA
DORG
NOp
DORG

..,

•• 5.'-4+5.'-6-2

SVMU.O

-21

n.SVIII'
-21
VE.X1
-14
XE
•• 5''-4.5 •
112,0
+-21
NOP YZ.M2
DOIIG -21
Nap
OOllG -14
D5.\ XE
DCRG '.5 • .-4

.-'-2

YE.xa

RIGHT."

04UO.
04140
010150

CM
BE

IATl.I.610
LEFT".

0411>0.
04170 111301
04180

Tf"
BTM

IIERII+11,301.9,
MONITR,03090,I>7,

04190 IIERM
04200 RIGHT
05010

BTH
511
TO

05020
050)0
05040

All
CM
8NE

05050.
05060 TANTO

IT

'MONITR,OU1+5,6.

05070

IT

TANCON,OSA2+",6.

TFM
BNR

0510005110 TWOTAN 8TM

oH 11U6 00000

U

1&316 11326

00005 .113"6
41 OUU 00000
41 1129. 04515
41 DUll 182 . .
00005 -3)62
41 11396 00000
41 lU16 183 . .
41 OU72 11306
00005 -U62

IATl .24.610

1757. 11 077U OOOJIo
17588 14 0773.1 GOOK4
lUNCH IF "OOIFIER IS RIGHT
17600 U 17U2 01200

17.12 14 077).1 000-8
lRANCH IF MODifiER IS LEFT
17624 46 UU2 OllOO

SET ERROR NO.-301
17.3. 16 17.71 OOlOI
CALL TYPERR SU8PROGRAM V10\ MaN ITR
17648 17 02400 -3090
TVpERR,,6,
IIRITE ERROR MESSAGE
17660 17 02410 00000
17672 12 07731 000-1
IATl.ltIO
DSAl+5.9+I,IATl.11. SET IIODIFIER CODE fOR PTSLCT SUBPROGRA~
17684 25 17483 0773J
IATl,1+14,10
17691> 11 07731 OOOJ 5
lATI.27,610
17708 14 0773.1 OOOK?
lRANCH IF IIODIFIER IS NOT TANTO
ER)OI".
17720 47 17636 OUOO

IlERM+1I.324,9.
WERM-12.FLAG, •
MONI TR,02110.67.

C,ALL TANCON SUBPROGRAM VIA MON ITR
17732 27 02400
CALCULATE TANGENT POINTS ON CONIC
17744 27 02410
SET ERROR NO.-)24
17756 16 17671
8RANCH If TWO POilUS 00 NOT EXIST
17768 45 17648

17371
17432
00124
00079

CALL'LCNONI SUBPRDGU" VIA MONITR
17780 17 02400 -2120
OETER"INE ECI. OF LINE THRU PE AND PI
17792 27 024\0 17544
DETERMINE ECI. OF LINE THRU PE AND P2

BT

LCNON1.OSAS+2S,6,

05UO

IT

LCNONI,DU6+U.6.

05140

aTM

PERPf.OSA4.711.

05UO

8TM

PERpF.OSA4+10,711.

05160

BTM

MOIU TR,02D50.61,

05170

8i

LINLIN,OSA4+'5.6.

OS180

BNR

CONT,.BIS ..

05190'
05200
06010
06020060)0 COIIT

B
IIERM-12
DOIIG - )
8TM

MONITR.03600,67.

06040

at

PTSLCT ,OSA3+46.a.

06050
06060

FSU. XL,X2
8NE RETURN ....

06070.
06080
06090

FSUI n,Y2
8NE RETURN.,6.

17932 02 18296 18316
lRANCH IF POINT 1'1 SELECTED
17 . .4 47 0241J 01200
MOVE RESULT TO' OUTPUT AREA
17956 06 0~315 18)86
17968 06 04325 18396
RETURN TD IIGNITR
179aO 49 024lJ 00000

06120
06130
061"0061500616006170'
06100 MN
0"190 PEIIPI'
06200
07010
07020
07030070<\0 M)SL'
07010

CALL 'lSLCT SUlpROGRAM VIA MON ITR
1788'4 17 02400
SELECT POINT PI OR P2 PER MDOIFIER
1789. 27 02410
17908 01 18286
IRANCH IF POINT Pl S'ELECTED
17920 47 02~1.1

SYII85.M2"
SYNU,82
UTUIIII,,6.

DS
7FL

SUBROUTINE FOR DETEII"IIIING THE SLOPE AND
Y-INTERCEPT OF A UNE PERPENDICULAR TO
" GIVEN LINE AT " GIVEN POINT
17991 DODOS
17992 06 1799J
IIN,MIN1.0.6
1800" 15 18134
FAIiUl0.3.11
'uo
16 14 17991
IIII,OU4.711
lRANCH IF ARGUMENT IS NOT 113
'MSL'".
1802. 41 18116

CM

'III!

,,-

'Dill IlI4,SYMIS.6.
.v
VeaTL."
l1li,-49.610
MORIIL •••

0709001100
01UO

'"

TEII,.MN,ll
II1II.5.10.

07UG
07UO ""BR

"
SIC

POINTR.NN
POlNta.S.10.

07140
07UG
01160

I'IIUL TEll' ...
Sill
POINTiI.lItIO
7FL ~.POlNTII.all
t'SU' lIII,nll,.a.

TPL

17574
J7~8R
J7~9R

-2050
17514
18326

17876 49 17648 00000
17884

TFL

07060.
07010 NV."t&. CII
07010
IMP

on70

17804 27 02410
DETERMINE EO. OF PERPENDICULAR liNE
17816 17 17992
OETERIIINE EO. OF PERPENDICULAR LINE
17828 17 179~
CALL L1NLlN SUBPROGRAII VIA MONITII
17840 17 02400
CALCULATE 'OINT ON BlSECTO' LINE
17852 27 02410
IRANCH IF POINT IS DEfiNED
1781>4 45 178U

TfL
I

TOM

I

41 Un6 1n66

05120

0610006110

'AGE

SUlipROGUI' ENTRV
IATl.14,10

All
CM
aE

05080
05090

:7501
17491
1h91
l1UI
l1UI
17415
17489
l1537
l15J.
17518
l15Z8
11518
l1518
17515
17519
l1567
1756.
17558
175511
175'"
115<\8
17545
17549
17575

VilS.O
-21
•• ,XIIS
-21
83."4
-14

-3600
17481
18)06
01200

18266
OOOOL
.174811
01200

MN-I.O/SYM85
18040 09 U99J 04115
lRANCH IF SYMI' IS 0.0
1.052 46 1.,11 01400
11064 14 119.J OOOMA
'''Ntll

I" LlNI, IS HORIZONTAL

L1076 41 UU' OUOO

".J

110.. O' 0007. 1

tllOllI.tt ADDRESS OF CORRESPONDING INTeRC
18100 12 17991 000-'
IUn 16 11,41 119tl

I.DIIIECT ADORESS 01' CORRESpONDING 'OlltT
lINeXN
.N.y..........

'.124 12 11147
lIUt OS 00079
11141 11 11141
11160 06 17"J
lInl 01 17....

00C)oo5
00000
000-5
1114'
000"

1111

onst)

on eocacao IIUL'
oecao

aaQ ...
t~

080'.0

DCIIIO

•

08060 VEIITL
08010
01080
OCD90-

NVEATL_Z.
II
IlllAG ....

"L

lIII.l.oaU.6.

0.010-

08150 Mlln.o
01160'
olin a 1.0'••
011180 Xl
00190 Yl
08200 xa
09010 VI
09020 XIIIS
09030 YOIS
0904Q 113
09050 13
09060 M4
09070 B.
09000 MI
09090 U
09100
09UO09120 XE
09UO VI
091~O 4
09150 I
09160 C
091 70 D
09UO I
09190 ,
092QO $YI485
10010 $YII66
1002C LEFT
10010 UTI
10040 MONUR
100'0 TYPER"
10060 TAIICDN
10070 LeNON1
10080 LIIiLIN
10090 PfSLCT
10100 AETURN
10110 POINTR
10120 TEMP
lOUD 'UG
101.0 0.0
10lS0

SET IUI-l.o,. .

18211 06

Ot

DC

uan

liZ •• 0000.
lU .. ooooa
lau. 00001
18216 00001
00010
10296 OOOLO
IU06.oeae
IUl6 00010
1,8326 OCOIO
un. 00010
lUU 00010
""6 00010
IU. . 00010
IIHt 00010
18306 00010
113116 00010
184600006.

UIoO

DC
DC

10.0

, 10.0'

DC
DC
DC
DC
DC
oe

10.0"

10,0 '.

10,0
10.0
10.0
10.0
10,0

DC

"If
,nn+I'

OS

os
OS

"ILL

un

SlClat

onn

.H~+lO

,A+lO

,e+l0
,C·10

,D.,O

DS

.e+,o

os

,.iU

DS

OS

,SVItD~·lO

DS
DS

.IUGHT

onJl

,77l1
,2406
,2416

as
OS
DS

02406
02416
OZoB6
02416
02416
02416

,ZIti'

DS

,2416

OS
DS
DS
DS
DS
DS
DS
aENO

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
,00000
00000

03112
03413
0J423
03431
01443
OJ453
03463
043U
04321
17672

,YE+LZ+,.,

DS
DS
DS
DS

'

nu.

10,0
10,0

DC
OC

1'1''''

,., •• 0' IT.... 01'10
IUSO ., no. . 00000

I,.,

OC

•

11216
UUO . , 110•• 00000

.,-10000000
1,1
'
lit 10000000

Dc:

'AGe

18186 111 'IU. 000014
1819' O. 11".1 lU06
lOUO 49 110ta 00000'
IU'1

IIN-I.O/lla

sn .".0.0

•

oc

ooeoe 00000

UU.

08,GO HoaUL "'. _400.0.6,
O.UO
NVIUI._U
1)8130
Deao .... '

o'UO.
oeao

it U4 U
lOin

"1111·10,1,1&

!'OIV NII,.2 ••• '

lIuv_.a
.. ,

oaoso

un

•••

1:1

011'>0

.Z4U

,2416
,24U
,f4. ._U
10.79

ggggg

~:m

00079 00010
00079 00000
07680 OOOCO

.19

.T680
L"tON

nil.

$YNDOL UBU!
I.OUI
MOtll TR
8
Ii
SYMI6

ye

11701
02406
0)423
03453
OUIS

, TYPeRR. 02.16
MINI.O 17697
e
OS45'
ERlO' ""'.
TANTO "'.....
0.0
0'''0

03312

OUZO

OU10

OUIIO
01190
01200
02010
02030
020S0 0.""
020.0
02050_
01060'
01070 LTII'A'

onn

00019

NVEIITL nlOo
A
OJ411
OYDX 02416
SYMas 0431'
JI~'

onn

LIII1-1.11ICI"Tl.PElPTO,GCDNl
LIN"LIIICIIPTl. UNTO.GeGN'

OIO~O.

011]0
01140
01150
01160,

IATl

TE."

OUI 17367
110014 17520
VOlL nal4

11M laZ0-1Sll AD-APT OEF'RE SUI'IIDGRAM FOR aeTERNINING
'LIII' DEPINED IIY " STATEMEIIT 0' TilE 'OIlM ....
Aes

0101001020'
01030.
01040'
01060.
01010oloao.
01090OUOO01110-

'Ellno lTS4.
HOIII ZL 1764.

RETUIllN 02411
LV"F1U: 17.04
D
0344]

'NAMI LTNPlle ... IIO,,-e16UI,,1 01"111 SUBPROGRAM
.ID NUMER Oln.DILDIM
'STCAI CallE IMAGI "
LINUG. - I
UN'le .. 6
OORS
DC
DOU
NO'
OOAS

o

In62
11401 00040
IU96
1t]96 41 oun 00000
nll6
In . . . , 0.4U 01441

nuz
40.0
.. S'.5....
$YIIII5.0

"'2&,
I,D

un.

OOAG --ra
NO' A.e

1.7'" .1 O'.U 'OIU'
lU66

ooao
--II
NO'. 'Ye,.
g:o
:C'.'
IlllAI .......

113.66 .1 osne 01413
In"
ITS.' 00001 ...."

n.os

.

nil

SUanGGA"" 'IITIIY
IIOIIITI.oaOIO.67,
"LL OYOI lu,,,aGIWI V~~4:~NnAoa40a -2010

, .: ;....:.. ,- ":m!!irmc ::m

m:g" ~: '.: ::~t':H:lt~;""

02080

.,

0,01l',0IA&-".6.

eALeU"'TI SLOPe GF 'Ollie AT GlVIN 'OIIiT

01110

....

1ID01....

"'NCN "

OZUOOlUO ' ....TO
0,.+0
.

lY•••• 1 OOOY. 0•• 1.
lYIOO " 0.'" 0007.
a'I'1 ., 0•• " 0000.

02160

0;&70
oatH

OMlI

Ina.
~.

..

..,.,.1,.,.

"M~",

01010-

OIOSO IllIIITO "L' n",.III",

010..

OlOtI

llNOY ' . .TO
n ... U If'ao 01200
" ••• 0.' 06.a. OJ."
In.,. . . onn 03161

oauo

on~
oa.oo
MODII

"001""

'DIV f .........,.

IV. Vii'''!.. .:'

nu. 0"'"
000011
P.", I' .......... 110'
.
a'..."..'fO ...
Il.OO
nu... DOD" ,.,."
.-hO"'."
.."
PANCH •••,... ••••e,n.. It "OY' 0
~.

·;~Y"

102

17"8 46

OlQ~O'

0)Ql0 NVUTL eM

TfMP.-~9.10

010&0

INP

HORUL".

TfL

SYM8S. TEMP
TANTO

03090.
01100
03110
03120
03130_

B

onoo

TFL

SYMBS.I.OEU"
TANTO

DOIIG

.-3

TFL
8

SYM8S.0.0"
TANTO

a

EII30L

O~O)O

04040.
0~050
0~01>0

MIIIIL.o
04070
04080 I.OE~I
04090
04100·
04110 XC
04120 YC
04130 A
04140 8
04150 e
04160 D
04170 E
04180 SYM85
04190 SYMI/>
04200 MONITA
05010 !'YOX
05020 IAlI
05030 rEMP
05040 RETUIIN
05050 TYPEIIII
05060 0.0
05010

SET SYM85.I.OE4I

sn

MDN ITII. 0)090.61'.
TYPEIIR.IOI ....

DC
DC
DC
DC

'.-10000000
l.1
8.10000000
5~"

OZLSO
OZ160
02170
02100
021.0
02200
0)010
03020
03030
03040

LT64~

17656
17664

17~"

0007.
00000

06 Dun 11707
00000

~9 17"~

06 043L5 OT680
~. 1746.. 00000

CALL "'ERR SUBPIIOGRAM VIA MONITR
IT664 IT 02~00 - 3090
IIIIITE ERROR MESSAG.
17676 IT Ol4LO OOLoL

filL UST SECTOR

os
os
os
os

.3333+29
.IC+lO
• YC+I2+29
•.A+IO
OS
.8+10
OS
.COlO
os .0+10
OS
.4115
OS
.5YMU+l0
OS
.2"06
DS
.2411>
OS
.T731
OS
10.T9
OS
.2411
OS
.HL6
OS
.7680
DEliO LTNPRC

IT695
17697
17705
17T01
ITT61

00008
OOOOl
00008
OOOOl
0005.

03362 00000
033T2 00000
03413 00000
OH2J 00000
0)4)) 00000
03443 00000
0345) 00000
04)15 00000
04325 00000
02401> 00000
02416 00000
07731 00000
00079 00010
02411 00000
02416 00000
OT680 00000
17404

"t:E

TABLE

RETURN 02~ 11
CODE 00051R
X8
OOOI5R
YAYe 00291R

XCOORO 00045R
CAMAD 0028611
XAxe 00288R
VA
000 lOR
YDYA 00298R

'T5LCT
NEG
xC
YB

00052R
00191>R
0002511
OOOlOR

POINTB 00214A
0026011
POS
XD
00035A
OOO)OR
YC

lASED ON WHetHER IT IS LEPT OR RIGHT AS VElIlED FROM A
THIRD POINT e LOOKING TOIIARO POINT 0
LlNUG.E - 8T PT5LCT.OSAULH6
OSALBL IS ADDRESS OF POINT A X COORDINATE
DSALBL+5 IS ADDRESS OF POINT A 'I COORDINATE
OSALBL+IO IS AOOR!SS OF POINT B X eCOROINATE
'DSALBL+U IS ADDRESS DF POINT 8 Y CCOROINATE
D'SALBL+20 IS ADDRESS DF POINT e x COOROINATE
OSALB2+25 IS ADDRESS OF POINT C Y COORDINATE
OSALBL+)O IS AODIIESS OF POINT 0 X COOROIIiATE
OSALBL+l5 IS ADDRESS OF POINT 0 Y COORDINATE
DSAL8LHO IS AODRESS OF X COOROINATE SELECTED
OSAL8LH5 IS ADDRESS OF Y COORDINATE $fLECTEO
DSALBL+46 IS MODIFIER COOE - 2 IS RIGMT. 0 IS LEFT
THIS PIIOGRAN IS EIlASEABLE
OS

I •• START DC

IN.oa~ POSI~ION

DC
50.0
OSC: 1.0
0.eoOE-~6
XlI
OS
o,eOOE-41
VA
as
OS
O,COOE-36
O.COOE-31
YI
OS
020~Q xC
OS
O.COO£-26
O,CODE-21
020re ve
OS
0.COOE-L6
020~O XO
OS
O.COOE-II
02090 YO
DS
0.CODE-6
02100 xCOOIlD DS
O.COOE-l
02110 YCOOIlD OS
0212002UOPROGRAM ENTRY
02140 'TlLet TFL XAxC.u.n.
01200
02010
02020
02010
02040
02050

S'tMI5-0.0

l.~9

SY~BOL

01010.
01020_
010]001040'
0105001060_
010 TO.
0108001090_
01100.
01110.
01120.
011 10.
01140.
01150.
01160.
01170.
01180.
01190

Dun

1764~

BTM

veOORo 0005011
POINTA 00208R
XA
0000511
xou 00308R
YO
0004011

176l~

17636

arM

os

01400

1762~

DOIIG - I

04010.
O~OlO

17604 06
17616 ~.

DOIIG - 3

031~0 VERTL
03150
0)160
0311003180 HOR UL
0)190

IT"'~

17580 I~ 00019 OOOMR
lUNCH IF LINE IS HOIIIZOIiTAL
17592 47 L76~~ 01100

.
CODE

x,

nUl
TFL
FSUI
FNUL

XAXC.IC.lI.
YOYA.YO.lI.
YOU.YA.U.
.XAIC.yOy....

'SUI
TFL
FSUI
,MIlL
'SUI

XCXA.IA.Ilt
YUe.YA.U.
YUC.Yc.ll.
XCIA.Y"'C ..
CAI..O••OI ....

"I.

O]OSO
INfI
0)060 NIG
10
03070 POIII'.. TPL

xc .... Io.lh

POs.CA ...o-2 ..
POINTI.eOOE ••
XCDDRII ...... n.

SO THERE IS NO GAP
00000
00050
00051
00005
00010
00015
00020
00015
000)0
00035
00040
OOOU
00050

AFTER CODE
00001
00050
00001
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

CALCULATE c.oss ,aDDUCT OF VECTOR CA
OOOU -0 00211
00064 -. OOZII
TIMES AD.
00016 -0 OOZ9I
000 . . -x OOZ9I
YO-VA
OOLOO -L 002 ••
I XII-XClIYo-yU
OOlll "'" 0030.
0012.. -II OOJOI
Xo-u
DOL" "'" OOZ"
YA-YC
00141 -It 00'"
Ilo-KAIIYA-YCI
00160 -L 00]0'
• x ..·.C I lyo-Yll-l.o-... 1 IYA-YCI
OOlll -II OOl.1
IS RfSULT POSlTl,e
0.0114 l1li 00260
IIHAT IS MODlflU COOE 00 . . . ML 00234
"CK 'OIIiT ..
OOlOI -0 000411

OOOON
C002.
0004OOOLOOZ,.
000)11
000011
OOOL·
000]Doni
0030a
OOUi
OOOH
OOOON

103

YCOORD,VA.,U

030ao
Tflo
Ol090
Dill
onoo pOllitt TFI.

~mg

m

leoORo,xD •• I"
YCOOIIO,V"'''

03130 POS
031 .. 0

60
87

POIIIU.COOI ..
POllon ...

'IC.

~H4' IS MODI~IE. cae.
"I:I "OINT' " '01""

'OINT •

10.0
10,0
10.0
O,YOYA

03150 UXC i DC
03160 VOVA
DC
Oll10 XOXol
DC
0)180 VAye
OS

03190 CAlAO OS
o.xue
03Z00 ~'TU~II 05
o.Z.11
040&0
oeNO PULeT

00220 -0 0005- 0001oo~~~ .. 2 ~~OOO 00000
002)4 -0 0004N 0001N
0.:2(·6 -0 011115- OOOZO~"8 ~z 00000 UOOOO
00260 MI. OOZOI ooat'
A Not rUEN
00272 119 0021. 00000
00288 00010
00298 00010
00308 00010
00298 00000
OOZ" oauoo
02611 000011

"'I

00012

. .Gf

SYMBOL TABLE
TOTcn 024)4
INPUT OZ626

9RYCLO 005U
E~OAO

02655

18~

010100102001030-

OUTPUT 02640
ISEEK 02462

MOVDAT 02402

CYLCT OZH.

STORE OZ426

1620-1311 AD-APT PROGRA" FOR

~OVING

FilE DATA IN PREPARATION FOR EXECUTlOIi
OF THE POSTPROCESSOR

010~0.

-ID HUMBER 0391
_STORE coae IMAGE
LINKAGE - CALL LINK.MOYDAT

010500106001070.
01080.

01090 •••••••••••••• • ••••••••••••••••• ••••• •• ••••••••• ...................... .

01100.
01110011Z0-

POSTPRoceSSOR INPUT FROM INTRAN-DATA AT CY~Il0-161
POSTPROCESSOR INPUT FROM ARELEM-OATA AT CYLILT-231

~n!g:

SeT INPUT FOR INTUN

Oil 50.

Oil

•
•

•

ARHEM AHD MOYE DATA TO CYLU-8I

:
•

tALL EXIT (POSTPROCESSOR EXECUTION UNDER MOIiITOR 1 CONTROLI.

01160.

01170.

•
01180 ••••••••••••••••••••••••••••••••••••••••••••'•••• f ••••••••••••••••• ••••
0119002402
01200
DORG 2"02
02010.
PROGRAM eNTRY
POR INTUN OR AlleUM
02020 MOVOAY TI'
INPUTtJ.9I1YCLO..
SF
02~02

26 0262' 00511
0:629

02010.
u2080 ISUK

\l~CnOgl0' INTU"I
02414 21 02629
9RCYLOal71AREUMl
OHU 51 02628
SET rOUL NUMBER Of CVL INOERS TO RIIi
T.M TOTCYL.T.lO.
oun 16 02434
SET CYLINDER COUNT 'OR Z R/W PER CYL
TFM I:Y.Lcr .2.l0.
02450 16 OZ6)6
INPUT/OUTPUT CCRE SYOUGE ... LOO seCTORS 110000-199991 ...
set DUI ARM FOil INPUT
s. IIiPUT ...

02090

110ft

IIiPUT ...

ouoo

S.

OUTPUT".

02110

WOft

OUTPUT ...

OU20

AM

INPUT+S. &00.',

oauo

AM

OUfPUT+ •• 100,.,

••

I:YLc:T.&.&O •

02030
02040 STOR.
020'0
OZ060

02140

INPUTU.INPUT+I ..

A

C,

INPUT+2 •••

,..

02110

IMl!

02190
022 10

"I:"

DnIO.
O~OlO

000-2

02462 14 OZ626 OOTOl

02160

02150

00000
00D-1

11141

ISEI!K
TOTCYL.hLO.

READ DISKINO wLIIC 1100 seCTORS)

02414 Ii OZ'2' OOTO'
,., DISK 'R. POR OUT'UT
oa~

WArV

0"40 OOTOl

onaa

0"10 11 0'.,& oo~oo

Ule"ININT OUTPUT $""011 ADDIIU'
DIC.iilINT ''LIND'' COU:;'" U 0,..., GOJOO
OU'4 La 0141. 000-1
OIl'U ., 0,4" OUGO

o"I.lIeNT TOTAL

1~'EI!K-&a.
.
A~~ u4YA NO.~ •• _._r 'VL;~c.S 0' DATA

lien

•• ,.

WRITe Olll'NO WLa, 1100 $e~TO.5'
OZ.98 .. 02"0
INCIIIIIINT INPUT au'TOII AOOAln

CYLINDeRS "

~fL

ousa ta

MOVIDI

02414 OQo-&

02'10 4' 02"0 'laoo

02502 It; 00000 oOloa

.t

025<;4 '4 00000 OOlO'

~I;D~O ...

IND II,' &o-APT ... c;unON IIUSAoe
OltO'

oa'"

QOIUO

1114

".!PAU POll POS".ClCESSOIo UE,,~T 10111
C'LL EXIT",
RETURIII CONTROL TO MONITOR I
02611 ~9 DDT•• 00000
2,STOU+I.
TO'AL NUMaEII OF CYLINDERS TO R/V'
03010 eYLeT

OS

2,STOIIE+10,

030.0 INPUT

00"

,0,0,100,10000
,0,00400,100.10000

OJ080 INDAO OAt
0)0'0 .IIYC1.005

24.END

op

CYLlNO!R GOUNT II ./M m3~y~~:g=,"
.
0243. 00002
02626 00006 0-0000
02Ua 00003 JOO
0261S 00005 JOOOO
02640 00006 0-0400
02646 0000' JOO

'o-APT meUTION'

"LI,

.

'DOIIISS O.

DENO MOWAT .

'!'l00

'.Iot

cn

gm; gm:

.
JOOOO
IIUII8EII 'DR INPUT DATA
oosn 00000

01401

PAGE
SYMBOL ""BLE
.. RITEl
SRTYPE
PUIiICHI
GET! Nil
CHKFLG
AOOI
fORM
INCOR
N04

01712
19541
01'101

OUTZ

18Z"

RET
seTP

17966
015'17
17~06

17070
17310
n)~.

186'10
11'34
sun UI66
5YMD5 04315
TEMP 19583
Til.
&'ISTO

0101001020-

01030

TYPERR
SETPIN
ONEfR"
GErDEX
CHKENO
AD05
HEADI
INDSK
NTlII

02416
16194
11>582
169~2

18390
16f111
187U
195n
19571
Dun 19199
SEE9 17190
SETP2 17750
5'1'1111 04289
S6
17554
TflLL 11216·
TYPE U514.

TE~PNO

SETfMP
NowalT
OEXSEC
CAHOUT
CH~R

19515
17106
07890
l'1U2
164102
17310

HEA02 uan
INSEC 1''.1)6
ONE· '19511
PIN
01)'1
SETGM lY051
STYPE lY414
S"Maz 04301
TABIN OU"
'OUT 19519
wRnE 17116

11M 1620-Ull Ao-APT~ ••••••
•••••••••••••••••••

OOR' 16462
010~0 tANOUT CF.
TOUT
01050
.
CF
ON~
01060
ell fOIlM,3,1
01070
IE
ONEFRII
01080
CM
fORM,2~'
01090
BE
.ALLFlIl
OUOO
CM
FOIIM,I,1
01110
IE ONE'RM
OU20
UII NONITR,03090,6?
01130
nil TYPEIIII,301,67
on,.o ONenM U; SYMII-S, TO""
aliSO'
Sf
ONE
on60 ALL'IIII TFM CLDUT+6,TAIIN-I
01110 ADDI
AM
CLDUT+6,I,10
OUIO CLOUT· TFM 9999..
.
0IUO'
CII
CLOUT••• TAl I N+700
01200
Bill! ADDS .
02010
TOM '''IIN+700
02020
DGM •
020)0
eM
$11",,1.1,10
020,.0
8E
TVPE
02050 PUNtN WACO HEADI
02060
. IIACD HEAD2
02070
WACO NUD2
02010 ,
NACO HUDZ
02090
. wACO HEADJ
02100 .
NACO HeAD2
02110 'UII
I'" IIT'IN,OIII
02120
..,. llTeIl'
'02no SI"'1t TPM PIN"
021 .. 0
T'II INDSK.,
02il0
T'M N04,,10
02160
"II NO'U ...
02110
C , . N, TDIX
02UO
I'
lilT .
oa190
C
NDGIT,NOIIR1T

TABOUT
"eTUA ..
'MDNIU
OEXCSK
alVAN
CLOUT
HEAD3
INII
DUT
PINZ
SETlII
5UU
SYNIl
TDATA
TIIV10·

07770
OZUl
02406
1'154'1
16606
16610
19035
19520
11986
16174
16890
lt022
04303

onn

111,.

TARCOA
PUNCH2
INDEXA
OEXCDR
ADOPIN
COMP4
INA
NOGET
OUll
PUNCH
SUIN

18482
17530
1'l5H
19557
18298
169"8
19528
078'1)
19)61
16702
11566
sun 18102
SYM" 04)05
TDU 07386
TRVZO 18078

16462
164U
16474
U.<\I6
16498
16510
16522
U.534
16546
16558
16570
16512
165.4
16606
16611
16630
16642
u.n4
16666
16611
16678
16690
16702
16714
161U
16UI
167'10
16762
16774
1"16
16194
16106
161"
16130
1.... 2
1"'4
1....

n
n

19519 00000
19578 00000
14 01112 0-003
46 U.582 OUOO
14 07712 0-002
46 16606 01200
14 07712 0-001
46 16582 01200
11 02400 -30"0
11 02"10' -0301
11 04286 Olln
32 19578 00000
16 16636 -3329
11 16636 000-5
U. 099'19 -0000
14 16636 -4034
47 16618 01200
IS 0100)4 00000
00001
14 07591 000-1
46 18514 ·01200
:s9 Ul11 00400
39 llln 00400
39 18.n 00400
i t ll1n 00400
39 &ton 00400
)9 uen 00400
44 16"4 19578
49 1110. 00000
16 on91 -0000
16 19513 -0000
16 07901 000-0
" 071'1 00-00
24 071'1 on. .
46 11690 01200
14 071" 0'''0

I

02200
0]010 SEUM
030Z0
0)030
03040
0)050
0]060
0]070 GETOE.
03080
03090
03100 COMP4
O]UO
on20
03UO'
031 .. 0
OIUO Sl!TGII
OU60
03170 GETINII
0]180
03190
03200
04010
04020
0(0)0
04040
04050
04060
010010
010080
010090
04100
04110
04120
04130
041100
04150
04160
04170
04110
0101'10
04Z00
05010
05020
050JO
050100
05050
05060
05010
05080
05090
05100
05110
05120
05130
05140
05150
0511>0
05110
05110

BE
T'M
T'"
rPM
TFM
TFM
A
Sit

RON

AM
TF
TFM
TfM

TAiCOR
COMP4+11,T"IIN.ll
NT!M.,10
DElseC,7,9.
DUCOII.TABIN
DEXDSIt,II00
DUDSIt,N04
INOfU
INDEX"
N04,l,10
INsec,"99"
INCDR.SYM81-J
SETGM+.,SYM81-1
SETGII+',INSEC
INSEt-l

" "9'
•

CF
TON
DGN
GET

rOM
SETEM' TF
SM
A
CM
8NE
CM
BNE
SEE.
C
8E
tM
SE

INII

SETGM+.,,6
TENPNO.SVNIl
TEMPNO.21.10
INOSK.INSEC
$VN84.5.10
SEE9
$YN81,51,1
AOOPaN
5YM82.TII.
AOOPIN
$Y"83.1.10
$TYP~

CF
SYMBl
TFM OU"+18,24.10
TFM Duno24.4,10
TNF (IUTHZ2. SVNn
TFiLL T'I' oun+36,SY"'.
TFM .CHKFLG+U.5YM8Z-1
CHKFLG 8NF 5U82.9999
TDM S'"B2+1
DC
1.' ,Til
OUT)+5,CHKFLG'll,11
TPM C:HKR+u.oun
AOOI
CHKR+U,l,IO
A"
CHKA
6NIt 10001 •• 999
TOH CHKR+U .. '
8NF PUNCHI, TOUT
RCTY
TOM DunHO
DC
WATV Dun
TR
DUU-1,HEAD2
RCTY
PUNCHZ+12
81
STYPE rFN DUT3+18 .. 10
TFH Dun+24,,10
61
TFlliL
PUNCHI WACO OUT]
TA
OUTl-I.HEA02
'UNCII2 WACO HEAD2
TFM SETI N+I1.$VM85-Z

1,-,.

1681.8
U890
1"02
16,914
1"26
1691.
16950
1.91>2
16U4
1698.
16998
11010
11022
170)4
17046
1705.
11069
11010
11082
11094
11106
11118
11130
11142
11154
111.6
17118
111'10
17202
11214
112Z.
11238
11250
11262
11214
17286
17298
11310
17]22
lun
11314
11346
17358
11)70
11382
17394
111006
17418
17429
17430
11442
171054
11466

17ltH
11486
17498
11506
17518
175]0
11542

U 18412 01200
16 1700. -U4.
l ' 19577 000-0
16 195" 00-07
16 19551 -3334
16 ln4'! -1800
21 19549 07901
34 19544 00101
)6 19544 00102
11 07901 000-1
26 19536 09999
I. 19541 -4286
16 17•• 4 -42 ••
21 1706Z 1953.
n I.US 00000
IS 0 •• 9900000
00001
10 00565 Jl0.3
4. 005" J95Z0
IS 1106N 00000
26 19S15 0428.
12 1.515 OOOKI
21 1.5)) 19536
14 04)05 000-5
47 11190 01200
14 04289 0-051
47 18298 01200
24 04]01 19510
46 18298 01200
14 04'03 000-1
46 11414 01200
J3 01t303 00000
16 19211 000K4
16 19zn 000-4
13 19221 OHO]
n 19235 04305
16 17321 -10]00
41t 11866 09'199
15 04302 00000
00001
J1 19204 1132J
16 11]81 J919'
U 17)81 000-1
45 11358 09999
15 1738J 00000
44 17506 19519
]4 00000 00102
15 19U9 00000
00001
19 19199 00100
)1 19198 18873
34 00000 00102
4'1 11542 00000
16 19211 000-0
1. 19221 000-0
49 11286 00000
n 19199 00400
1I 19198 18813
)9 11873 00400
16 17511 -4J1)

P"Gt

PAGE
05190 $6
05200 SETIN
06010
06020
060JO'
O'O~O

06050
06060 SETP
06010
06080
06090
06100
06110
06120
06130
06140
06150
01>160 serpz
06110
06180
06190
06200
01010
01020
01030
01040
01050
01060 SUU
07070
07010 IIIInl
01090_
01100
01110
07120
07UO
07140
07150
01160 IIIIITI'
07170
07100 OUT
011'0
OTaOO
01010 SUIA
01020
08010
o.o~o

o.oso

08060
01010 TIIVZO
0.010
01090 SUlI
011100

08UO

DiUO
08UO
. 0""0
oouo Ylno
01160
01110
01 . .0

TFH
NOP
5N
8NF
CF
TFM
81
TFN
AN
TNF
All
AN
5M
8NF
CF
TFM
B1
TFM
All
TNF
511
BZ
AN
CN
8E

AM

n

SM
17

Sll

IN'

SETlN+6,OUT1+)I
9999.9999
SETlN+6,18.10
SETP. $ETlN+U.l1
SETlN+11 ,,6
SET IN+6,20.f>10
5ETPt12
SETlN.... O, .. O
SETlN'6018.10
SETIN+6,SETIH·11.'11
SETlN+11,2.10
SETlN+60,10.10
SETlN+.,4,10
SETP2.SETIN+11.IL
$ETlN+11 .. 6
SETIN+6.20.610
SETP2+12
SETlN+ •• 10 •• io
SETlN+6,4,10
SErIN+6.SETIN.l1,'11
TEIIPNO.10.10
OUT
SETlN+U,8.10
SETIN+6,DUT1+UI
WRITE
·SETlN+6,SO,10
SETIN
CHKPLG.U ,1.10
CIIK'LG
5V"III,IO,10
IIIIITU,TOUT

IICTY
TDII OUT1+UO
DC
10',-

TlTV

WAn OUTl+IO
1IIIITlh11
MACD OUTI

17

U

INI'
TI'
5M
SM
IN
INt

TOM

DC
17
TP
SM

s.

IN
IIiZ
TIIII

DC
17
TON

DC

aeTY
TlTY

S.

OUTZ,TOUT
TEMP,IVII"
TeMP,2&,lO
TeMP,ID,IO
TIIYIO
SUIA
ounHIO
1,' ,"'no."
TEIIP , IVMIl
TIMP,ll,lO
TIIIP,IO.10

"'''0.
GUn.,'
"'"
10',-

TIIY10UI
oun+'D

&.' -,

17554
11566
11578
17590
11602
11614
11626

16
41
12
44
n
16

11512
09999
11512
11634
1TS7P
1151K

.9 l1f>46
11f>H 16 11S1K

1164.
11658
11610
11682
11.94
11106
17111
111)0
17142
11150
11162
11174
11786
11198

J9399
09999
OOOJ8
1151P
00000
OOOKO
00000
000.10
00DJ8
1151'
000·2
OOOJO
000-4
1157P
00000
OOOKO
00000
OOOJO
000-4
1751'
OOOJO
01200
000-.
J.489
01200
OOOLO
00000
oOo-Z
00000
OOOLO
1'579
00102
00000

11 11512
13 1151K
1111511
11 . 11512
12 11512
44 17750
]] 1751P
16 I n7K
49 11162
16 1151K
11 11572
1) 1151K
12 1951S
46 11.86
11810 11 11571
11822 14 11512
11834 46 n886
11846 11 17512
11851 4' 115..
11.66 II 11)21
11171 ~, 17110
11116 12 0.219
111. . . . 11'61.
11910 14 00000
17922 " 1'491
ITtn 011001
ins. J6 00000 00101
11••• I' l'S'1 00100
nUl . . In,, 00000
17 ••• I. 1"'1 00400
17976 •• lTI'4 00000
17 ••••• 1121. 1.17.
17••1 a. 1.'.' 0421.
1'010 11 1"') OOOKl
110a2 lZ 1"" OOOLO
1'0)4 .7 11071 OISOO
110~' 47 11022 OIZOO
11051 15 " . . , 00000
UO. . 00001
11070 •• 11 ITO 00000
11071 •• ,.,., 04Z ••
110.0 11 I"" OOOll
11102 " Uln 0001(0
1111" ·n·lIl" OUOO
UUz'012OO
lliU . " lU" 00000
1114' 011001
11150 •• II 170 00000
1Il'S1 lS it.. U 00000
U1 . . OOtOl
11170 ~. 00000 00102
IIlU ... 00000 00 I 01

•

1Iu.·..,

ll1G

08190
08200
09010
09020
09030
09040
09050
09060
09010
09080
09090
09100
09110
09120
09130
09140
.. 09150
09160
09110
09180
09190
09200
10010
10020
10030
10040
10050
10060
10010
10080
10090
10100
10110
10120
10130
10140
10150
10160
10170
10180
10190
10200
11010
11020
11030
11040
11050
11060

~4TV

DUTI'lO

~CTV

BNF
81
OU12
WACO
IIACD
TOM
10M
TOM
AOO,IN AM
C
liE
AN
CN
liE
AM
B1

CHIIEND All
C
BE
CM
8E
AM
TFM
81
T. .COII TFM
TFM
81
TVPE
RCTV
TOM HEA01'Z.SO
DC
1.· ••
WATV·HEAOI
TOM HEA01'Z.50
RCTV
RCTV
RCTV
RCTV
TOM HEAD]+Z·50
DC
1.' ,I
WATV HEAD3
TOM HEADI'2.50
RCTV
RCTV
SF
TOUT
87
PINZ
Ref
TOM TA81N+700
B7
RETURN".
HEAD 1 OAt. 50.

11010
11080
11090
IliaD HUOZ
11110
11120
11130
11140
11150
11160
Ull0 HUD3

DC
DC
DC
DAC
DC
DC
DC
DC
DC
DC
OAt

111 80
111'10
11200
UOIO
12020
12010
12040
12050
12060
12010
12080
12090
12100
12110
12120
12130
12140
12150
12160

DC
DC
OAC
882
DAe:
DC
DC
DC
DC
DC
OAe:

50.0
10.0

OAe

8.

Dun

Dun

18194 39 19]81 00100
18206 34 00000 00102
18218 44 18262 19518
uno 49 18690 00000
18238 39 19361 00400
18250 39 18873 00400
18262 15 I9Hl 00000
18274 15 19451 00000
18286 15 19491 00000
18298 11 07391 000-1
18310 Z4 07391 07386
18322 46 18690 01200
18334 11 19511 000-1
18146 14 19511 000-6
18358 It6 18390 01200
18370 11 11009 000J6
18382 49 16998 00000
18390 11 01893 000-1
lUOZ H 01893 01890
18H4 46 18412 01200
184Z6 14 17009 -4029
18438 46 16890 01200
18450 11 11009 OOOKO
1846Z 16 19H1 000-0
18n4 49 16998 00000
18482 16 17009 -1185
18494 ~6 19511 000-0
18506 49 16998 00000
18514 14 00000 00102
18526 15 18811 00000
18537 00001
lUll " ~B111 00100
18550 15 18811 00000
18562 14 00000 CO 10Z
18574 ]4 00000 00102
18586 34 00000 00102
185'18 ]4 00000 00102
186 ~O 15 19135 00000
18621 00001
18622 19 19035 00100
18634 15 ~9135 00000
18646 34 00000 00102
18658 34 00000 00102
18610 32 19519 00000
18682 49 16114 00000
18690 L5 04034 00000
1810Z 4' 0241J 00000
1620-1'11 Ao-APT ",..CNICAL FOIIM PRINT OUT
18111 00100
18859 00050
18869 00010
18810 00001
18813 OOOOZ
18921 00048
18971 00050
1'1021 00050
19031 00010
19032 00001
190)) 00001
TVPE
PARAMETERS
NAMe

OUTZ'Z4.0"'E
RET
OUTI
HUDZ
DUT1'SO
OUT1'90
DUT1'130
PIN.l.10
PIN. TOEI
RET
NTIM.l.10
IHIN.6.10
CHIIENO
COMP4'11.16.10
COMP4
NOGET.I.I0
NOGET.NOWRIT
TAIICOR
COMP4+11.TABIN'695
SETIM
COMP4'11.20.10
NTlM .. 10
COMP4
COMP4'11.TAIOUTtl5
NTlM,,10
COMP4

50.0
10.0

I.'

1• •
48.0
50.0
50.0
10.0
1.0

1. •

50. SYMBOL

10'
1• •
4 •• 0
50.0
50.0
10.0
1. '
2,

2, ••
8.
1••
2.U
Z.
5.

12180
12190
12200
13010
n020
13010
1)040
U050
110'0
nOlO
n080 INW

DAe
OAC
OAe
OAC
OAC
DAe;
DAC
DAe
OAt
OAt
OAC
OAt
OAC
OAC
DAC
DAe:
OAt
OAt
DOW

U090 INA

DDA

.. 0.0.0

13100
U110
13120
UUO
UI40

DC
OS
OS
OS
DDA

I, •
.INA"
• lilA ••
.INA+U
.. 0.0.0

DC
OS
OS
DS
DC
DC

1.'
.INOEU,5
.INDEXA'.
.iNDEIA.ll
12 •• 9 9 ' " ' ' ' ' ' '
'.0
2.0
I
1
4
78 ..

uno

11150
Ul'O
13170
nllo
UI'O
1)200
14010
14020
140)0
14040
14050
140'0
14010
14080
14090
14100

I NOSII
INsec
I NCOR
INDEXA

OexOSK
OEXSEt
OUCOII
TW9
TEMI'NO
NTlII
ONE
TOUT
TlMP
TOATA
TA811t
'ORM
sIIn"
PIN

DC
OS
OS
Os
OS

os

OS

OS
os
liS

2,+.

a.

I,·

Z.E+

2.
5.
2,+.

a.

10·

2.E'
Z.
15.
.INA,.lNtA

.un

.TOATUI
.01712
.on.l
.0119'

PI LL LAST IICfOIl

19035
19183
1'1191
1'1195
19196
19199
19247
19291
19]47
19]57
19]58
19361
19365
19381
19]85
19401
19403
19401
1'1411
19421
19425
19441
19443
19441
19451
19461
1'1465
19481
19483
19481
194'11
19520
19522
19521
19528
19534
19537
19542
ItS))
19536
19541
1,.,44
19550
19553
Inn
19549
1955Z
19551
19510
195"
19sn
19518
19519
19581
19661
Dun
On)4
onu
01591
on.l

00100
00050
00010
00002
42 00000 00000
OOOOZ
00048
00050
00050
00010
00001
00004
00016
00004
00016
OOOOZ
00004
00004
00010
00004
00016
00002
00004
00004
00010
00004
00016
00002
00004
00004
00010
00002 20
00005 J95Z8
00001
00006 0-0000
00003 -00
00005 -0000
00001
00000
00000
00000
00006 0-0000
00003 -00
00005 -0000
00001
00000
00000
00000
OOOU
00005
00002
OOOOl
00001
00004
00071
00000
00000
00000
00000
00000

'AGE

•

•

1117

HIIO

r;o~

1~120

IIOGET

I~I)O TOEX
14140 NOIoRIT
10150 SYM61
14160 SVM82
14170 SYM81
14180 SYM84
1~190 SYMeS
14200 lA60Ur
15010 MONITR
15020 TVPERR
15010 RETURN
15040

os
OS
OS

as

OS

OS
OS
05

os

os
OS

0$

os

PAroE
.01901
.0169)
.07306
.07890
.04289
.OHOI
,OHO)
.04305
.04115
.01170
.2406
.2416

.HII

OENO CANOUT

01901
0189]
01386
01890
04269
O~lOI

OH03
04)0'
04H5
01110
OH06
OHI6
02411
16462

lU8

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

•

PAGE

SYMBOL TABLE
lCOORD
SRTYPe
RES TOR
MESSER
ERROR4
ENDALL
CHKREe
AGAIN
CAROl
DIGIT
ERNUM
HIGH
LOW
"IN
NRIN
NRU
NSAU
N55
OVERI
P2
READN
SPACE
STS
0.0

YCOORO
SIXIND
PWORDS
MESSAG
ERROR)
DUMMYI
CARDNO
ALPHA
CARD2
OISKR
EVEN
HILO
MAX
HOVE
NRT
NSEcr
NSAn
rHY
OVER2
P]
UY'E
STt
TEST

D6B19
0]6.]
04010
0745]
051050

041811
027211
04B44
0652<0
03977
0546]
05334
05302
06993
04160
04074
0]671
05555
05104
024811
02138
0'1130
04260
0'161

06809
0]978
on08
0'1235
05418
0460Z7
0425]
04628
06685
011844
05545
05370
07013
048118
0556]
05545
031186
044112
05136
03074
01225
0)97'1
061)4

KCOORD
SIGNIT
PRETST
LIS TAD
ERROR2
CUTLOC
ALPNUM
Alser
CHKSW
OSKIN
FIRST
INOtC
MESSI
HVREC
NRU
NSAF
NSRT4
DUn
PSPN
P6
sern
STZ
TYPE

06799
0520'1
06824
02402
05426
04820
0]914
05216
03722
02618
028011
02911
070])
04.,0
03252
05569
0]766
06445
04522
0]916
onlL
04154
04U6

TSTREC
SEcrOR
NUMHRK
INSPAR
ERRORI
COORDS
ALPMRII
AHOV
CLEAR
ENOIN

0]178
06518
06858
0)]114
05414
06973
06687
04664
06918
02830
04988
FIX
INITI 02534
MESS2 07195
NPII
onu
NRT] 0]516
NSRT 05567
NSRT5 0]810
OUT2 0"27
PSPI 03448
P7
04166
SETUP 04402
sn
04210
02874
VGM

STOREl
SECTNO
NRSAVE
F \LElN
ERPROC
CONYER
ACON
BUNK
DATA
EOUIV
GONPIl
INPUT
MESS)
NR
NR:n
NSATt
NSRT6

04231
0.266
04216
06835
05.64
06789
04724
067)7
0<0274
03980
0]878
05544
07157
05559
03572
03670
OJ810
oun 06688
02450
PI
RUO 021178
SI GNI 051118
04248
ST4
ZEROS 06866

AD-APT POSTPROCESSOR FOR LISYING THE OUTpUT OF
01010THE IBM 1620/un AD-APT NUMERICAL CONTROL PROCESSOR
01020010]002'102
oaRG 2402
01040
pROGRAM ENTRY
01050OUTPUT TITLE AND HEADINGS
01060TEST PROGRAM SIlITCH 1 ION-TYPE.
OIOTO LISTAO 8Ntl Pl, t.
02402 47 02450
02414 17 0424'
2 CARRIAGE RETURNS
ITM TYP"+12.100..
01010
TYPE TITLE AND , CARRIAGE RETURNS
8TM TVPE.MUS1 ..
01090
02426 17 042)6
024)1 J4 00000
RCTY
OUOO
02450 )9 070)]
PUNCH TITLE
IIACO
MESSI".
OlUO "
02'162 47 02486
BNCl P2
01120
TYPE HEAOINGS AND , CARRIAGE RETURNS
ITM TYpE.IIESS, ..
01UO
02474 11' 0.216
02416 JI 06. .'
PUNCH 'UNitS
IINCO BUNK-4.".
01140 P2
02491
I I 0661.
IINtO BLANII-4.
01150
025l.0 J9 07195
PUNCH HEADINGS
IIACO MESS2 ...
OU60
02522
) ' 0 . . .1
IINCO BLANK-49
01170
INITIALIZATION
01100INITIALUI
CARO
SEoueNCE
NUIIIER
ou.o INIU T"" CARDNQ.l.I,
OZ5l4 &6 OUU
INITIALIZI STUnNG SECTOA MUMIER
01200
"M S.CTHO.BOO ..
02546 &6 04'66
1111 "ALue OOA S"IIT1NG SEcrOl
0". . . ,,'100 ..
02010
02551 16 06149
INITIALIZE IIIPIIT RECORD NUIIIEA
02020
TF" IIIIIN ....
0'570 l6 04&60
INIT'IUII .-COOIIOINATE
TfL IICOOIO.O.O ••
02010
025" OB 06'"

,.""

00100
-0100
-70J]
00102
00400
00100
-'195
00400
00400
00400
00'100

•

0-001
-11400
-0400
0-000
04'6.

1\19

OlO~O

TFL

YCODRO.O.O..

02050

TPL

lCODRD.O.O ••

02060'
02070 DSKIN

INPUT
TON C""RIC-U.I..

sn

02080

TFM

SET POUP II. .K ADORESS

VIiN+6.INPUnlOO..

INITIALIZE Y-COOllDINAfE
DUM O' 0 . .09 0....
INITIALIZ. '-COO.OINArE
02606 06 06.19 06'"
V.. IAlLE OP CDOE TO BD 1431
0261. 15 OZ115 00003

026)0 &6 OZIIO -5644
SET POOP IIARK FOR a: UtTDR READ
0264Z 15 02"- 00000
OGM •
OZIOO
026U 00001
OZUO
SET CO.E ADORESS fOR I SECTOR RUD
TFII OISIIR+n.INPUT ..
02654 16 0. . 51 -554.
OUZO
SIT SICTOR COUNT FOR I SECTOR .eAD
02666 IS O."Z 0000 I
02UO .UD
GET FILE IN.
.EAO N SECTORS Of Ao-APT RECORD
DUn 10 00565 -2701
02"0 ... 00566 -6U5
02140
DISKR.'.OISK.....
READY SECTOR AOO.ESS FOR NEXT .UO
02702 n 0 ....9 06852
02&50
VARIAaLE 0' COOl lNO' OR BDI
02714 41 02138 05'''5
02&60 CHlCAIe CM
NAlN ....
CHECK
02726 14 04160 0-000
02170
BE FIRn ...
INPUT
02738 46 OZI06 DilDO
NIIUve.NR,.
02&80
TF
RECOIID
02750 26 0 ..216 05SS9
02190
S
NIISAVE.NRIN ..
SEQUENCE
02'62 22 04216 06160
02100
SM
02774 12 04216 000-1
NRSAYI. Ie 10.
NUllaER
0)010
8E
FIRST
02186 .. 6 02106 01200
03020
17
RECORD OUT OF SEQUENCE •• ERROR I ••
eIlRORI".
02798 49 05U4 00000
0)030 FIRST TF
SAYe CURREIIT INPUT RECORD NUIIBER
02806 26 01t&60 05559
03040
fOM VGM.6,,6.
CLEAR GIIOUP MARK
OZ8ae IS 0281- 00000
OJ050 ENOIN 17
END 0' INPUT O'ERATION
INDIC".
02830 .. 9 02918 00000
0)060 READN TOM CHKREC-II.I ••
SET VARUIU 0' CODE TO NOP lUI
02838 15 02U5 00001
TOil INPUT+l00 •••
nOlO
CLEAR. PREVIOUS GROUP MARK
02850 1.5 056" 00000
01080
A
VGII+4.INPUHI ••
UPDATE NUMIER OF SECTORS
02862 21 02118 05545
0)090 VGM
TOM
SET GROU, IIARK FOil N SECTOR READ
02874 15 00000 00000
O)lOO
OliN •
02885 00001
03UO
TFM DISKII.U.IMPUT.JOO.sn CORE ADDRESS FOR N SECTOII RUD
02886 &6 06157 - ". .
TO
DISKR+ •• INPUT.I..
SIT SECTOR CDUNT fOIl N SECTOR ReAD
OJa20
,
02898 25 06852 05545
B7
READ
02910 Itt 02UI 00000
03UO
OHItD.
OUTPUT I - INDICAT
.
03&50 INOIC TR
OUTi.IH'UT..
SET U' INDICATOR PORTIDN 0' IIECORD
02918 Jl 06_45 05544
0)160
TF
CARD1,CARDNO
02930 26 0"24 04251
02942 26 06518 04266
TF
SECTOR,sfCTIIO
03170
02954 47 OJ,-", 00100
BNCI PJ
03180
on90
SET UP TY'EWRITER OUTPUT
Til
199JI.I"'UT ..
02966 SI 1997S 05''''
TYPE INDICATOR PO.TlON DF RECDRD
DNTY 199U .. ,
03200
02978 S5 1997) 00100

02090

TOM

...

0~010

040Z0
040]0
04040
04050
04060
04070
04080
04090 Pi

TBTY
fDM
DC
WNTY
TO
TlTY
IINTV
RCTY
IINCD

."
SECTOR+I ...
1.' ,SECTOR-"",
SECTOR+I.ILANK ••
.. ,
CAROl-I ...
.
OUH ...

. TAB SET " COLUMN 70
SET RECORD IIARK

02990 14 00000
01002 15 06i19
03013 00001
TYPE SECTOR NUM8ER
03014 38 0651 ..
RESTORE NUMERIC ILANK 010211 25 06519
TAB SET " COLUMN n
OlOJa)lt 00000
n'E CAID NUNIE.
03050 J8 usn
DI06Z I .. 00000
PUNCH IIIOICATOR PORTION OF RECORD
03014 JI 06445
03016 11 042n
STEP CARD NUMBE.
03098 11 042. .
STEP SEC TOil IlUII8EII
D3UO 21 O..Z66

00101
00000
00100
06U7
00108
00100
110102

00..00
000-1
AM
CARDND,I.IO.
000-1
AM
SECTIIO.I.l0.
05545
A
SECTNO.NSECT
OUTPUT Z - DATA
TEST INRUT .ecORD TYPES
CII
NRY,6.1.
TEST .ECOIID TYPE GRIATER THAN 6
03122 H. 0556) 0-006
.
INN TSTREC
011)4 _1 03178 01100
04160
CM
NIIf,I.....
TEST
FIlii
IlECORD
03146 14 05563 0-014
04110
INE ERROR2...
'ILLEGAL .ECORD TYPI •• ERIIOR 2 ••
0""0
03ue 47 05426 oazoo
01110 .. 9 041)0 00000
SPACE
04190
B7
03171 IS 0556) 000-"
CALCULATe
NRT.-5.10.
04200 TlTRIC MIl
03190 ... 05426 01200
ERROll2
05010
IU
OJIOZ II 0009. -3220
i
RecaRD
05020
511
01214 ... 000911 00000
99 ••."
lUNCH ADDRISS
05010
"
nzZI
DOODS
010..
DU .IIRoaz.N.Ta.NRU.luoaZ.NlU.HR'.
0)230 00005 -.25a
Dun 00001
03240 00005 ·'426
'0)245 DODD' -lIlZ
0)2'0 00005
050'0'
RECORD TY'. a .. AUI.1.1611Y 'UNCTIONS AND ".WTERS
05060 Narz
CM
N'Ii.6.10.
Tin NUll. . . 01' "RA..IUR WOROS
DIIUZ 14 DSS.7 000-6
lIP .. &alA Til 'NAN 6
0126...6 oSloa 01100
1M 'IIDIlIIS ...
05010
01276
I. 051., 000-0
NPII .. 10
CM
05010
11,..-0 INO ASSOCIA'EO DATA OUT'UTI
SPACI ...
05090.
D)ZII ... 0...0 01200
N'W LESS 'HAN ,
0)300 .9 041" 00000
DUA ...
05100
If
TlSf '''''NO IICORO sua-TV,e
NSaT.IO.....
05UO P..ORDS CM
OUOI 14 01"" DJOU
OUZO ... OU •• 01200
I NSPAR
BE
05120
'I" INS.I' ••CORO SUa-T"E
HSU.lO.....
CM
OllUO
OUU 14 0116'1 OJ066
011 .. 0
I.
INS''''
OU" ... 01166 01200
OIL 50
n OA"...
",W 11,.nl ,MAlI •
on5. . . 0427. 00000
05'60' . . T NU .... O. III.'. . . .CORD
.
OIUO INSP'" , .
OUU-hl.,urt""· !IOVI OUtpUT ll16TA . .~:~•• U 06126 05'"
051.0
INCI PSPI
Dsl76 . , 0 ...1 00100
05190
TI''' DUn.'..... " .
SIT "'PH, llCOID .....K OU. . " 0 . ." 000-0
05200
DC
1....
01." 00001
06010
WAn DUn...
nPi ''''''110 011
IT IDAfA IKDIOI
01600 .9 0 •• a7 00100
TA. M' " COLUIIIII 17 01'112" 00000 00101
06020
nPi
C
....
.
,
.
••
ID"A
leCOlDI
06010
0142. . . 04210 00100
0
•••6 16 00000 00&02
.CTV
06060
0 .... Z6 0.." 06...
'" oun+'IO.1I1101
06050 " "
04100
04&10
04120
0.. 130.
041 .. 0.
04150

99 •• TY,.-••

0."'1

TY,.

-"26
-IS"

-40'"

I.

.fI..

1111

01>01>0
01>070

tA~OZ.tARONO

~~4.0 fS 0~6'5 0..25)
flAG LUOING DIGIT OF CARD NUMBER·
01472 15 06678 OOOOS
01>080
WACO DUll ...
PUNCH 'AlltNO OR INSERT IDATA RECOROI
0)484 )9 OUl7 00400
06090
AM
CARDND,l,lO,
STEP CARD NUMBER
01496 11 0425) 000-1
0.100
&7
SPACE
OlSOI 4. 041)0 00000
O~lto.
RECORD TYPE) - DRIVING SURFACE OR PART SURFACE
0.120.
lINEINSRF-l,NPW·ZI
CIRCLE INSU-Z,N'W-11
06UO.
CONICINSRF.hNPW-1>1
TA8CYLIMSRf-4,N'W-114-8611
0111"00
PLANE I NSRf.a,N'W*41
06UO NRh
eM
NSAF,4,IO,
TEST TABCYL OS
03516 14 OS569 000-4
OI>U,O
8NH DATA, ..
NPW ASSOCIATED WITH SPECIFIC OS
015Z1 41 04274 01100
ell
NSRF,a,10,
TESt "LANE PAltt SURFACE
gj,~o 14 8t"9 goo~.
".. IRROR4".
I LLIGAL iURfAel TYP. •• IRItIiR " ..
0)552 47 05450 01200
NPW ASSOCIATEO WITH SPECIFIC OS
OAT' •••
0351>4 49 04274 00000
OI>ZOO.
RECORD TYPE 5 - MOTION
070100
INOIRPlNSRT-11
lNOIRVINSRT-ZI
070Z0o
GODLTAINSRT-41
GOTOI"SRT-' OR 61
070S0 NUS
CM
NSRT ,6,1,
TEST RECORD SUI-fYPE GRUTER THAN 6
01572 I~ 05S67 D-OO.
BH
ERROR)" ,
070"0
ILLEGAL RECORO SUI-TYPE •• ERROR 3 ••
03584 46 05~38 01100
HM
07050
N5R7>-5.IO,
CALCULATE
03596 13 05567 OOO-N
ERROR)
0701>0
Bl
03608 46 05438 01200
07070
SM
99, SRTYPE-S..
RECORD SUB-TYPE
03620 12 00099 -36)8
B1
07080
99,.6,
BRANCH ADDRESS
0361Z .. 9 0009R 00000
07090 SR TYPE OSA NSR T I. "SRT Z •.NSRn, NSR T.. ,NSR n, NSRU
03643 00005 -3670
036~1 00005 -1618
0365) 00005 -3686
03658 00005 -3766
03661 00005 -3810
03668 0000' -)810
01100.
INDIRP
07110 NSRTl B1
DATA, ••
BYPASS ALPHA CO"VERSION OF COOROINATE
0)670 49 0~Z7'" 00000
07120.
INDIRV
07130 NSRU 81
BVPASS ALPHA CONVERSION Of tOORDINATE
OAT ......
03678 49 04214 00000
07140.
FROM
07150 NSRU TR
XCOORD-9,INPUHZ7" SET FROMIPOINT COORDINATES
01686 31 06790 05571
BTM AlPHA,,10.
CONVERT NUMERIC OATA TO ALPHA OUTPUT
07160
03698 17 0"628 000-0
07170
TFM OUT 2-60, ,10,
sn ALPHA RECORD MARK 03110 16 06587 000-0
DC
03721 00001
01180
1.' ••
03722 ... 1 03986 00100
07190 CHUN 8NeL P6
TR
19969.I"PUT+21 ..
SET UP TYPEIIR ITER OUTPUT
07200
0373 .. 31 19969 05571
TYPE, DATA COORDINATES INUHERIC I
ONTY 199691 ••
08010
on46 35 19969 00100
·87
on58 ... 9 0391 .. 00000
AlPNUM
08020
08030.
GOOlTA
UPDATE X-COORDINATE
03166 01 06799 05580
080 ... 0 NSRT4 FAOO XCOORD, INPUT+)6,.
03778 01 06809 05590
FADD YCDORO, INPUT+46.,
UPDATE V-COORDINATE
OB050
UPDATE l-COOROINATE
on90 01 06819 05600
08060
FAOO lCOORD, INPUT+56.,

TNF
TOil

CAROI-7,5 ..

.
n

PAGE

5

03802 ... 9 03698 00000
ICONTINUATION NSRT-61
TO
DIGIT,INPUT+57"
SAYE LEADING DIGIT OF ItTH PARAMETER
03810 25 03977 05601
03822 15 05601 00000
SET RECORD MARK
08100
TOM INPUh57".
038)) 00001
oallO
DC
1,',XCOORD-9.INPUT.Z7., SET GOTOIPOINT COORDINATES
TR
08120
0383 .. 31 06790 05571
CONVERT NUMERIC DATA TO AlPHA OUTPUT
8TM ALPHA.,lO.
08130
03846 17 041>28 000-0
TEST NPII-3
0]858 45 01a78 06587
8NR GONPW.OUU·60. ,
081"0
UST THREE PARAMETER WORDS
CHKSW ...
08150
87
03870 49 01722 00000
03878 47 03986 00100
03160 GONPII BNCI 1'6
TYPE DATA COORDINATES INUMERICI
WNTY INPUT+27 ....
08170
03890 38 05571 00100
SPACE TYPEWR ITER
03902 3 .. 00000 00101
08180
'spry t"
SET ALPHA RECORD MARK 03914 16 06.67 000-0
08190 ALPNU" TFM DUU.",O .. IO,
03925 00001
06200
DC
1.· ••
Type X.Y,l COORDS ICUTTER LOCATIONI
09010
WATY ourz.I>Z ...
03926 39 06589 00100
RESTORE ALPHA BLANKS 03911 16 01>667 000-0
09020
Tf" OUTZ_HO .. IO,
03950 3" 00000 00108
T8TY
090JO
0391>2 18 0"250 00100
TYPE CARD NUMBER
WNTY CARDNO-). "
090'>0
03974 3" 00000 00102
P FIELD STORAGE
RtlY
09050 sn
03986 39 06527 00400
PUNCH DATA RECORO
09060 P6
WACO OU12".
03998 11 04Z53 000-1
STEP CARD NUMBER
CARONO,I,10,
09010
A"
TEST NI'W-)
0"010 ,,' 04030 06587
BNR RESTOII,OUU+60, ,
090ao
0402Z
49 04130 00000
SPAtE
0'1090
81
RESTORE LEAOING OIGIT OF 4TH PARAMETER
IIIPUT+57 .DIGIT ..
09100 RESTOR TO
040)0 25 051>01 01971
TR
INPUT-Z7.INPUT.'7" SHIfT DATA RECORD
0404'2 31 05571 051>01
09110
SM
"'W,3.IO,
DECREMENT NPM
04054 12 055 ... 7 000-1
0'H20
81
IISIU5
0"066 49 Oll10 00000
09130
RECOIID TYPE I> - TOLERANCE AND CUTTER PARAMETUS
0'f40.
INTOL I NSRT-" ,
OUTTOI.INSar-51 CUTTERINSRT-"
09150.
CM
NSR T
Tll!Sf INTOL,OUTlOL ANa CUTTER
O'UO NltT6
04014 14 05567 0-0o",
DioDe, 41 05 ... 38 01300
IIECORO SUB-TYPES
09110
BL
EIIROIIJ ...
04098 14 0551>1 D-006
CM
NSIIT,6.S
09180
LEGAL
RECOIID
SUB-TYPE
0"'10
47 0421'" 01100
BNH
09190
DATA" •
ILLEGAL RECORa SUI-TVPE
ERROR ] ••
ElllIon ...
09200
117
04122 ... 9 OSUB 00000
OIJTPUT ) - SPACER
10010.
04130 4) 04186 05562
TEST FINI IIECORO
10020 S,,,CE 80
ENOALL.NRT-I,.
04142 .7 04166 00100
lOO~O
ImCl"
041S4 S4 00000 00102
P FIELO STORAGE
lIeVY ...
10040 STZ
04161> II 0 . . . . OO~OO
PUMC" SPACER
WileD OUTl",
100'0 P1
PREI'ARE faR NEXT AD-APT RECORO
a1
OSUN" ,
100"0
0417. . . 0261. 00000
END Of AD-APT POS"RotESSOIl IIXECUTION
10010. .
041 •• 11 04248 -0100
2 CAlIUAGE RETURNS
100&0 ENOALL BTII nllE+U.loa..
0419 • •9 01357 00100
10000
M"'Y IIIln
0..210 I . 00000 00102
Ittn • I I
P " ' U STORAGE
10100 SO
RETURN CONTROL TO MONITOR 1
10UO08070
OG080.
08090 NSRTS

B7

NSRT)+12

GOTO ••••• (NORMAL NSRT-S)

'"

.It.I,

lonolOUO

'ALL lilT ...

AlL AO-A"

OUTPUT pROCESSED

o..UZ . . 00'" 00000

III

10140 stOIEI aAS I
OUU 0000'
10170 hlSSAG DS
S.S10l11+4
04235 00005
10"0 TV"
WATV MiSS......
t". . . SS~
04236 J. O4ZSN 00100
101to ST4
'IUD SfOliA&E
0'1:44 " 00000 00102
10200 stt
IItTV...
P "ULD STIMAGE
~UO 54 00000 00102
110.10.
01'...
.
OUICClI UtI
DUll "2 011000 00000
HoaoDATA IIleOOI OUTPUt "ITN 110 o\UClCUTI!D tOCIOINUn
.
UOla DAU
til
OUU+1i1,Dl.AIiK-4... CLUt.O eoulM4ts TO _ERlt 'l.AllltS
. OUH SI 0 . .05 01>. . '
110.0
TIlII IITYH ••••
SET ONTY DIGIT
042 •• I. 0 .... 3 00005
11050
Tf
UIUIV,NPII,.
EQU'V'LINT N'... ToRAGE
04'" , . 0'''0 OU4?
ell
TIS' .-...1."1. 'MAN •
04'10 '4 0"'0 ooe-.
11070
OUU 4' " .. 402 01100
U080
'" IINTV 010"
04114
OOGO.
IU .lIuIV4UN, IiJlIiNIT till" It
00110••
11100
SIT .., .. INDICAToa IO_GREATIR THAN 6'
04)5' l' OJ.7. 00000
TO
11110
SAYlE 'nH ,uw.UEII 1>lA01lifG DIGIT
OIGIY.IIII'U'''' ..
04370 25 OJ977 OS.31
11120
TON IIIII\IT ..1 ...
sn 111:0110 IIMK
oun It 0"31 00000
11110
oe
04193 00001
11140
n
snUhU
043M 49 04414 00000
uno SITU, TON $IIINO.l ..
51T NPW .NDICATOI II-Less TMAN "
04402 II 01'" 00001
04414 . , 04522 00100
INGI '''N
1"60
uno
CALCULATE ,rOllAGE IY VALue OF KPW
ifll !lVlK.', 1ft'" •
044" 16 0445. J99.'
Illao
S
MVlII:'lI.EIlUIV
0408 22 04U5 0)980
11190 MVIlEC TR
.IIiIjtUTU1
TYPE DAU "ECORO ION'YO~:S:":~'OOOOO oun
11200. Nn
ONTY IWItC, ......
04461 .1 04UO 00104
TiTV
U010
OHl4 " 00000 0010.
Tlltv
ll020
044.. 54 00000 00 101
UO)o
iiIITV C~h,.
r"'i C""O IlUMUI IDA" UCOIO'
04490 J. 04250 00100
04510 14 00000 00102
lcn
U040
,. DUY,.,.,INPU't2'
12050
OUit II 0"04 01171
12060
TP
Co\lIOZ.C4II1lIIO
04514 h 0'U5042U
PUNCH OAT A RecoaD
04'4' ,. 0 •• 0. 00400
WNCD DUT2+79 ...
U010
STIP CAIID NV$IlIER
045511 11 04lU 000-1
12080
All
CARIl!:Q.l.10.
80
$~At8.$IlIIHO ..
12090
TEST NPW INOltATOR
04'70 4. 0.110 0197.
TO
INPUT.iT.DIGIT ••
nlOO
RESTORE 'TH 'A"AMETER LEADING OIGI'
045.2 25 05'31 OJ'"
U110
Til
INPUT+a,.I~'UT.'7"
SHIFT III'OT DA'A
045" '1 05571 O'.Jl
12120
SM
"'W.t.l0,
OICIIEMfNr "PW
04406 12 05541 000-'
uno
.7
OATA
04611 •• 0"" 00000
12140.
COliVia, IlUKUIC COORDINATES.CUlT. . LOCATIONS AND
C6110 NII",I. '0 ALPHA POl OUrPUT
naoDUMMY STORAGE
04.27 00002
12160 OUHMYl DAi 1..
ourZ.59.CLfAR-4',. eLEA. 10 COLUMNS TO AL'HA BLANaS
11170 AVHA T.
0462. II 0.... O'U'
lNIT1ALIlE MDV'NG COORDINATE
TfN AllOY tU. XCOO~O ..
laliO
04'40 ,. 04675 -'799
INlTlALill ALI'HA CONVERTED COOROIIiATE
12190
04652 14· OU'O -'145
MOVE COORDINATE
04464 O. 06U4 00000
12200 AIIOV
TfL rUT ...
CONVEI,
CH'"ACTERlsr"
TN' CONV.R,rIST ••
U010
.
0"" non •• 04114

"n...

•

,

I' .".,
uno

nil".

I..',.

,,'N

UOZO
nOlO

U040

TOM

U050 &CON

TF

UO'O
U070

COIIIVER-19.S.U.

AM
AN

uoao

eN

U090
13100
13110
UUO

eM·

DNE

AlIOV

eNE "'".J.l0.
cunac
HII

13130
DC
13140 CUTLOC T'M

OUU.'O .. lO.

't'

1.
MOVEtl&,ICOORO ••

uno
Ull0
11110 MOve

T'lo

UI90

'"
IL
til

LOll

IH

HIGH

naoo

14010
14020
140)0
14040
1..0S0
14060

"" ".·'hrn'-9
..
nST.. ·
flhU.fur ..

'I .. U ....
fl .. l1.4 ••

1~070

14oao fill

CDDROh .....
TEST-.
TIST .. IO •.

140eo
14100

14110

'UT,I.10.

aNII

14120

112

INF
fOIl

"O~O

"060

nolO

nOlo
15090

SIGNIT ""
ALsn ff
".

lSlOO

All

lSUO

til

nazo
1S1l0
15&.0

INI
tllF
tOIl

ISIIO

Ul'o.

lSHO LOW
ISIIO
IS Ita
lS200 HlfIIt
16010
16020
160JO HILO

AlSn,tESt·2,.
CDOlloson,T"

TUt NEGATIVE NUIIIU 05110 4~ 0'll6
Al'HA DIG" IU'
051" 15 0 ...0
.20,10.
05204 16 00000
.tt
IIOYE tONVUJlO oua
05216 Z6 00000
NO'UlltIO.,
Sfl' "UIIEIIlt tllOllO nOIiESS
o,n. II OU"
STEP AL'H' tDO"O AOOIIESS
0'2~0 II 052'2
NOVI.II.ItDOllO.,0 •• tESf ALL tOOllOIN'tll '''OtESSEO
05151 I. OU"
AGAIII
au .. " 0.....
tallDZ,taIiOND..
sn U, tA"O """IEII o,n. n 0 . ..,
UIIOl-'.'"
'UG LEADING Ollilf O' CAIID ""... EII
'UII II " " I

cua" NfGUIYf
sn SIGN IIINUS

06812

'III

00001
0001t0
00000
-0010
-0024
- . ."
01200
o~n'

OOOOS
":1"'&' .....U.OII ..... OU~:~r~A~~:: IIClfOlO onoo •• 00000 00000
.SUI tE5t,D.0"
tESt tOOIiOINAt'-O.D
05'02 D2 0'81' 061.1
It
ALsn
OUI . . . D'216 01Z00
IT
HIGHtlZ".
LESS fNAN IIIN 'ALUI ISIt YO D.OOODO.'
D5.2t •• 05J .. 6 DOOOO
".. AUntll,II... I...
110111 tHAN II. . '''LUE ISIt TO .... 99" •• '
O'J" I. 0522' -'OJI
TF
HI LD.t, AUf f.'o.
SET ADOillSS .011 •
D51. . , . OSJ" 05ZU
AM
HILO"'Z
DU,. U
-OOOZ
tFll , 14.10.
1I0V. • fOil III N 011 II.. ou"ut vaLUE
0"'0 It 00000 000J4
C..
tESf"IO,
TESt '"O'EII CHAllAtt.IIISTIC II.tUIIN
0"12 I. 061J. 000-0
IH
OVIUol2".
MAX
0"'" . . 0514. 01100
11
S llill 1 ...
..IN
".0. 49 0"" 00000
ERROII CONOITIONS
ItM lEl'IIOC, 1,10,
IIECOIID aut OF SEOUENCE
0541 .. " 05.... 000-1
ITM EIiPIIDt,Z,IO.
ILLEGAL IIECOIIO nPE
05426 If 05... 000-2
IT.. EII'IIOC".IO,
ILLEGAL UtOIiO SUI-fY'E
05UI H 05... OOO-J
IfM UPIlOC.'.IO,
ILUGAL SUlifACE " . . 05450 IT 050\.. 000-..
TYPE ERIIOII _IEII Il1O SOUlitE SEQUENC. _1.11
.
OAS It.
ERROII ""illER
05461 00002
TO
.. ISSlllolI.III_..
SEt EIIIIOIi _IEII I. MUSAIll
05464 " 0' ..1& 0'46'
sn 100000ti STATEMI'" "".. IEII IN "ESSA'E
.54'. " OT'ZT 055'5
IItn
05 •• 1 J. 00000 00102
IIATV MESSEII, ••
05500 J9 OT45J 00100
T"E EilIIOII IlESSA'1
055 lZ ,~ 00000 00101
Rcn
H
OE'IIESS S"lIt IE' TO CONtiNUE PROCESSING
0"2' ~I 00000 00000
SPACE .. ,
IGNOIII DATA PORTION OF IIICOIIO
0".' 49 04 ..0 00000
IN,ut All. A
on45 00001
OAS 1
U11 01S1l FIll ......, .IIEA
OS
• EVEN-I.
Ots" 00000
O. . . . OatoO
OS
900,INPUt.900
IIUI'IER It CARD AIID "'111111 TEll OUtPU' .011 OUTI
DOIIG IN'Uh'OI
064'"
OUTPUT
064'" 00080
OSS 10"
ONI 42,oun.6I,
nOllAGE
0.'" 00042

OS,"

160~0

16050
16060
1.0TO.
160.0 ERROIII
&6090 EIIROIIZ
16100 lillian
16110 EIIIIOII.
&6l20.
&6lJO EII_
16140 IIIPIiK
16"0
16160
16110
16110
16190

'"

16200
ITOIO.
11020 IVI.
UOIII I.PUT
1'0'0
11050.
11060
110lO oun
nOla

06511 00005
5,DUHon,
'011 INOlt"OII
I T090 SEtTOII DS
06520 00002
nloo
'OIInON OF
ON8 1,0Ut .. " ,
Ao-APT IIEtOllO
0652. DODO.
17110 CAIIOI OS
~. Duno".
onU 00001
DC
,.',OUT .. IO
nuo
ALPHA CARD OUtput FOIl oun
.
I1UO.
In.o.
MI XED AL'HA AND NUllElllt "'EIIII ITEII OUTPUT 'OIl OUTZ
DOlG OUf....
06526
n150
DAS 80"
output STORAGE
06521 00'60
In60 oun
I,DU"."8.
O"A POIITiON OF
06615 0000.
UHO tAII02 as
Ao-A" 1l1CORO
o.6IT 00002
11110 AL'_ D"C 1,',DIITZoIIO.
In,o.
.0 tOLUIINS OF """'"IC IU""S
066"
lUOO
00'" oun'''l
067" 00050
1I010lUNlt ON. '0
onn 000'0
ONI JO,IUNUJO
11020
06'" 00001
OC
1,',IUNK.U
11010
"UNERlt CAao OUT,ut
oun
110.0.
os
•• LAIIII-49.
ou"ut STOIIAGE Fall $'AtEIi
II0sa oun
0 .... 00000
1.060.
StallAGE
""IIIEIi
OF
SetTOIIS
PIli
IlECOIIO I ADD II
IIOTO NSECT OS
.INPUT.I.
0"'" 00000
NUIIIEII
OF
'AIiAIlETIIi
lI0II05
as
.IN'UTtJ,
11010 "'"
....
0"'" 00000
SOUIiCE SEOUENCE _IEII
.IN.UT ....
DS
110.0 NSS
0"" 00000
0~55' 00000
IN'Ut IIECOIIO NUIIIII!II
18100 NIl
DS
,INPUff".
05561 00000
IIEtOllO t"E
11110 NIIt
OS
.IN'U'·".
on6T 00000
IIEtOllO SU'-T"E'
IItZO NSIIt
DS
.III'Uftn.
on. . 00000
suaFAtE "'E
.I ••ut.ZS.
IIlJ. IISII' OS
DUllII' LAIU ISAIIE I'UIIC" 11M I
.IISlin.
MS"" as
0)11000_
SAVE DIGIT
O'9T7 00001
"150 OlGIT DS
ItS"oJ.
... INDlt"OII tlASED ON VALUE OF ..
''Il100 Slllte OS
losn"',
0"" 0_1
lDUIYALIII' II•• STO...H
Z.st,.6.
0 lDUI' DS
0.910 00002
CUllII.N' vaLUI 01' I.CORO NUMIIII
DS
11110 . . IN
4.stl."
04160 00004
04216 00004
SA'. IICOIIO NUIIIIa
1'''0 . . UVI DS
•• sn•••
CAlO _ _
OUS) 00004
11200 talillMO OS
•• Sf.+!h
042'" 00001
19010
DC
1.·,Sf.+.
I.,. . 0000'
SftTOII NUIIIIIII
1.020 SEtTNO os
' •• T'+ ••
06'"
.".0
DOIII ILANI+',
, O""_at
19040 'lYE'
...... ClllVDU. STOIIA"
OS
00000

.011

".40

"If

,to" call'"

...

.a....s.",••••.

It""'"
••• YCOOII.....

19060
......
.9010 lCOOIO OS
....
19010 'ICOOIIO os
1•• ~lOt

'a.aoo
9090 _'. es
...~I
"'" ",m
.....
"If ..lit .•••
•....",....
,.....

.1

OS

loZtoIIIa..,

m....

..fl.

l-cooa......" .

IKGIO ............

...f

' . IJU . , . , .... _ I I .

" ,.........
. ... ...
I..t ...
.......

"".........

06"0
. - C 0 0 l l 0 ' " ' " ' ' ' ' ' lOt..
'-COlllOI ...."
. ., " lOt ••

.

..." lOt"

. .. . . . . . . ,

,.

..... .....

MIll ..........UI

::::: ....,
..........

at

. . , ' . . ., ......

In

•

eeeo . . . 0tI0tI

06U,

o• .,e

OtlllU -10
0 .. 51 OIon -",I
06"1 enel

1911 I) It\IMItIlM DC

nltc.

19200 IUOS

10010 0.0
IOOIt!
100)0 elfU
200'0
10050

I.'
COfISTAIUS
DC
8.0

DC

1.-99,lElOS'2,

'LOlfl.'

DORG IUDS')
DC
50.0,.

0'"

DC

50,O,tlfUHO

DC

1,',Clf ••• 52

OAt
OAt

10100.
10110 MUSI

oae

10120

lOUD

10'40 . , , "
10 Ito

lOltO

Nfsn

10110

10'" .'SSII

06910 00001

'0.,"

"'0"

. oun

'OS "'oCl nOlI tOIl'

0.0"

oel9o~

SHI" 00114.

CNfI

OOUII

tOIl'

Nlllle ODOUR
n T OOHoa

000


002H"
EX'
NOilII 00476_
00067
z·

LOGIOE 0076711
00651R
AD
0071111
A5
EXIT 00334R
NEG. 0005411
UNFLO, 006l'11

TAILE

ARGHOD 0031>U
A2
0067511
A7
0013SR
EXPF 0000611
OVFLO DOoDOR
0074511
0.0

AIIGAOD 0000511.
0063711
n
Q~~OP 0029811
EXPOI 0040411
POSK 00110R
1.0
OOUIII..!

00019
00699R
005)3R
EXPOI 00548"
nail 00202.
ARG

A4

cllra

01010.

11111 llJZo-UP AD-APT FLOATING EXPONENTIAL SUBROUTINE les

010]0-

oNA"E EX'FA ••• ERASABLE SYSTEM SUBROUTINE
-iD NUMUR 0203+DElOIM
.ASSEMBLE RELOCATABLE
_SToae RfLOADABLE
LIIiKAGE - 8TM EXPF.ADDARG.67
ADDARG IS THE ADDRESS OF THE ARGUIIENT AND RESULT
THE RANGE OF THE ARGUMeNT IS UN_eSTRleTEO
CORE/POSITIONS 00056-00099 USED FOR TEMP. STORAGE
METHOD •• "ASTI"GS APPROXI.ATION 1'.OIG~T .ANTISSAI

oloao.
OIO~O010~O_

01060_
01010010S00109001100OllIO_
OIUO01 lIO A.'AOO DC;
011"0OlUO . ."

OW~O

OIlTO
OUIO

OU90-

OIaOO 1110.

02010

oauo

LOCATION 0' AODIIISS 0' CALLI"' '.GUMINT
00001 .0006
SueAOUTlNI ENTRY
OOC06 00 '00079 0000"
IIOve 'RGUMEIIT
TfL AilG. AAGADI)' 11,
.A •• leATI Ia-DI'IT MANTISS'
PlL ARCI- 11 ,AllCl-a t f
oooia 0' 000." 00017
00010 OL 0001. 00161
'RG-ILII 10.01
'NUL ARG,LOG10a ..
.UNCN IP ARGUIIIIIT " IICII-NEGU I VI
IN' POSlC.Allfiooll ..
00042 M4 00110 00017

6.0 ..

TOIl llIIIIOIItl ....
ep
. Me-a .. ,

02010

ell
rPlI

ARG"LO
Ill'" 10,

ozo~o

I ..

AIIGfIOlh ..

T"~

&,AlO ..

O~O50'

01060

0:0'0

'lUI.

0:090

TF!!
'I'll
It

02000-

onoo

I,n ..

flll".U."
CI4I11.T,1O

OlUO

1'11811
00110 ...

02140 ~"
UUO
GaUl)

TIIII f,Illlil3lltl,hU
NilG.. " ..
DOIIO ....

02110

021Ut

GUle.
caUl!

lin"
OUOO

o.o~O

o~co
c~:;a.

no.o

'UII

•

'NUL

Z,A.'

Sill
Sill '

"1,12,10

'ADD I
11HZ

Clill1,,,,, .
fI .... la·;··

.\.

'IIUL. 1,2

lilT

fl'

"I

00096 .. ,'00'"
00011
000" '6 000"
CLI' ••• 'ONaIlT 1I0DIPliR
000'0 J6 001'1'
.UNCN I' '.'0111.' IxelEOS 00
00102 "' Oo.t.
OP·CODI
IIIGeAII'UIOI

eo066 .,

,.""
'-AIIG

0000'
00000
000-0
.00-0

Olaoo

0011' Ot 000.' 000"

oon,
eo,al -0'2.

.. ,,. &I. 0.061
001"

JO

OOUO J6 ODin 000-'
00L61.1I' 00'0' 00000

00110 '

.I,

. . no
001" 0000.1
OOLG2 II. O' , . 00000
o

001'0
001.0 O' 00061 OOOY.
00202 OL 00061 00000
00214 J2 OOiU t:l~M~

111'12:' JIOOUU lI/' .;,

. 0013. lilT OIl"

i~;;;>1;1

> 002.0 OJ 00061 0006'

11&

PAGE

03050
03060

All
IV

1."
OVFlO ...

03070.
03010
03090 111110'

E "ARG
00262 II 00061 -0000
lUNCH IF USUlT OuT OF RAIIGE
00274 116 00600 01400

TFl
NOP

ARG,l
EXIf.a".

00186 0& 00079
lRANCH ., ARGUIlENt liAS NEGATIVE
0029' III 00336
SItIFT TO 8-DIGIt IIANTISSA
00310 01 ooon
RETURN RESULT
D032l -6 OOOON
EXIT
00334 42 00000
00336

0311D
03120 EXIT
03UO
03140'
03150
03160
01170

miO

OIUO'

TFl

ARG400.AII0'6,

.1

...

00110 .-.
tFl

AIIO.I.O

00075
00074
00000

00336 00 00079 0065 I
00348 O' 00079 00067
ooa611 M' DOUO OODOD

fiolv ARlhl ..
1\

00067
00000

un-I.

00110 ....

OUU

03200 41101100 ell
04010
IH

AIIII.2.,0
OVFlO".

04020'
04030

00368 14 00079 000-'
aUNCH ., ARGUIIENT OUT OF RANGE
00380 116 00600 01100

8E

exPOI ...

BRANCH If EXPONENT IS 02
00392 116 00568 01200

04040'
04050 EXPOI
04060
04070

TO
tF
FSL

EKP,ARG-II
EX'
ARO-U,ARG-2 ..

010080
04090

SF
TFII

AIIG-II

04100
04110 NOlllI

TFII
80

tNTR.e.IO
NEGX'60.ARG-II ..

0040~ K5 00273 00068
00~16 l) 00273 00000
ELIMINATE INTEGER PORTION OF MANTISSA
00~l8 05 00067 00077
00440 32 00068 00000
ASSUMe NO LEADINII ZEROS IN DECIMAL
00452 " 00019 000-0
00106~ J6 005]) 000-8
.UNCH I F NOli-ZERO DIG IT
00476 113 001l~ 00068

04120.
04130
04HO
04UO
04160
04170
04\80'
04190

SF
FSl
SII
SH
IINZ

ARG-IO
AAG-II.ARG-2
ARG.I.IO.
CNTR.I.IO
NOAM

TFL

Z.I.O ..

AA.G,.lO.

04200
05010
05020'
05030 ElIP02
05040

I
TERII'60
DOllG -3

05050
05060
05070'
05080 OVFlO
05090
05100
05110
0'120'
05130 UNflO
05\40

I
EXPOI+36
DOIIG 0-3

TF
FSL

EK~.AIIG-IO

AIIG-13.ARG-2 ••

INF
TFl
88
DOIIG

UNFlO.IRNOP+I
ARGADD.FLlNFN ••
.,'
-9

TFl
18

4llGADD.0.0.6

I.,

00~88

00500
0051l
00524
005]6

OECIlEIIENT EXPONENT

)2
05
12
J2
117

00069
00068
00079
ODS])
00476

00000
00077
000-1
000-1
01200

ARGUMENT I S AN I NTEOEII
0054. 00 00067 00651
00560 M9 00262 00000
0056.
00568 Kilo 0027) 00069
·ElIMINATE INTEGER PORTION OF MANTISSA
00580 05 00066 00077
00592 M9 004~0 00000
00600

EX IT

EXIT

00600 MM 00626 00199
00612 -0 OOOON 00755
00624 42 00000 00000
00626
OQ626 -0 OOOON 00745
00638 4Z 00000 00000

PAGE
05150
05160.
OSl70
05180 AD
05190
05200 AI
06010
06020 A2
06030
06040 A3
06050
06060 A4
06070
06080 A5
06090
06100 46
06110
06120 47
06110
06140 0.0
06150
06160 FLINPN
06170
00180 LOGIOE
0619006200 1.0
07010 ARG
07020 EXP
010)0 Z
010..,0 CNTR
070'0

DORG -9
DC

DC
DC
DC
DC
DC
DC
DC
Dt
DC
DC
DC
DC
DC

DC
DC
DC
DC
DC
DC
DC
DC
DS
DS
OS

OS

as

00640

10.1000000000
2,1
10.1151292776
2.1
10.6.21308843
2,0
10.25439]5141
2.0
10.7295113666
2.-1
10.1742111.8.
2,-1
10.2554917960
2.-2
10.932642670D
2,-3
8.0
2.-99
•• 999"9"
2,"
10.4342944819

00H9
00651
00661
00663
00673
00675
00685
00687
00697
00'6'19
00709
00111
00721
00723
00733
007]5

.AO
14,79
2,TERM.n

00651
00019
00273
00067
00533
00006

z.o

12,61

Z.NDRII.'.,
OEND EXPF

007~]

00H5
00753
00755
00765
00767

00010

OOOOl
00010
00002
00010
00 DOl
00010
00002
00010
00002
00010
00002
00010
00002
00010
00002
00008
00002
00008
00002
00010
00002
00000
00014
00002
0001Z
00002

I I !l

SY.BO~

1.0000.O OOO'ZII

IPl.USl 00079

C1

C?
lOG.
lOG.
lUll

en

OQUI
005\1'11
001561
OO!Ull
OO1741!

006111a

"

I.OGO
LOG II

006Q1A
oOl>'lsa

"GlIaD OOOOU
en 00U1R
00005.
IiJP

lOG 1 OOUla

mna

IIUIIG OIlOU.

.Imn ooon

1

U"

TA8LE

000.1

AIiG
C]

00019
0051111

~OGAll GO~20.

LC~lO

GOUU

$I GIlA 000"

UO

00019

clln oon71
LOGI

005U.
0000..
00 ....

1.0

001411

C5

~o~,

sar

00440R

, .. ""'-Un AD-A'T FL04TII4G NIT, LDGARITNI! sue.GUTlN,

OUIIO01020_

010)00
010.0.
01050.
OlOtOo
01070.
OlOGOo
01090.
01100.
01110.
01UO.
01110 "IIGAOO ~

••USE"IU RHOtAUILI
oSTCIII'

atLOAOU~E

UNIAO! .. IT" ~DG'.40DAIIG.61
IDDARG I S THE ADDRESS OP THE ARGUMENT AND .ESU~'
IT IS ASSUIIEO THAT THE AR'UMENT IS NOH-~EG4TIVE
COte POSITIONS 00044-000 •• USED FOR TEM'. SfORAGE
IIIflloo .. TRUNCATED INF. IfRlES 18-DIGIT MANTISSAI

.,0 ..

"OCATIOII Of ADDRESS OF
SUB~OUTINE

OU400
01150 LOGF
01160

TFL
TFM

ARG.UGADD.Il,
ARG, .10,

01110

80

NUIIG,".G-., ,

01UO01190 1.000.0 Ifl.
DOIIG

.. ,
-,

F5L

ARG-ll.AltG-2 ..

TFM
til
8 ...

tOGh 11. LOG 1
ARG-10.SO,lO

4

ARG-Z,UG-Z ..

01200
02010
02020.
020)0 NIU'

II

02040
020'0
020'0
020TO_
02080

&l1;400,1.0Ii0,',

-ENTRY
MOVE UGUIIEIIT
REDUCE RAIIGE OF

CA~lING ARGUMENT
00005 00006

00006 00 ooon OOOON

ARGU~eNT

00018 16 ooon OOD-O
aUNC-N IF AlliUIIEII' IS NON-ZERO
000)0 II) 000" 00010
SET RnULT fa - IIlfI NlTV
00042 -0 OOOON 0041'
00054 'Z 00000 00000
00056

UIT

•• ft4,. ,

AM
LOC,,".12.10
NlARG.'.
DOItG -3

02090
02100
02110
02120e

lei

oNAII! LOG'I ... UAUDLI IUTU IU •• OUfiNI

olD t/IIlt$U OaOHDeLO,M

8

FURICArE 10-01GIT MANTISSA
OOOS6 05 00061
00068 JO OOJ41
00080 14 OOot.
aUNCH IF LEADING OIGIT EXCEEDS 4
00092 116 0011.

00011
-0411
OOONO
01100

DOUBLE REOUCED ARGUMENT
0010. 21 ooon 00071
00116 Jl OOJH OOOJl
00128 119 00080 00000
00116

02140
02150
02160
02110
02180
02190
02200
0)010
0)020

TFI.
FSUI
FADD
FDIV
TFL
FMUL
TFL
FIIUL
Tfll
TFII

03030
0)040

TERM
8
DORG - J

00164

FMIIL SIGMA.UII
FADO SIGMA
SI!
-1.12.10
SM
CNTft ,1,10
TER __ 12
8HZ

0026~ 0) 000"
0001.
00276 01 000" 00000
002G8 JI 002Ql OOOJ2
00100 J2 001., 000-1
00]12 liT oon. 01200

02130

XMI1I1,.RO
KMIf4ll.1.0,.

X-1.0

XPLUSl.l "0,,
XMINloXPLUU"

X'1.0
U-l.OIIIIOl.OI

ZSQ.l"
SIGMA.UQ
51G"4.CI) ..
TERM+lI.CII
CNTII, •• 10

Z··2

lSQ,l

CIUI·I'"

00116
00148
00160
00172

06 00067
OK ooon
OJ 0007.
09 00061

0018~

06 00079

00196
00208
00220
00212
OOZ"

0)
06
OL
JO
J6

00019
00055
00015
00117
Ollln

000r.
00547
OOtU
00019
00061
00061
0007.
00U1-0619
000-.

00256 M. 00116 00000

"01

,

OlOSO.

03060
01070 TERM
OlOCO

0)090
0)100
0)1 laO
0)120
03UO LOGX

FNUL SIC" .. ,Z"
FSUB SIGMA .. ,

0)1.0

TDII

LOOAX" II"

LOGINeXI, Hol.2,.,8

03150

'M'

I.OGU-Z.,fXl',ll.

0116003170

tF

OlUO

TOft

01190
0)200
a.OlO-

511
DN

Up .. r.
LOCU.102
EK',i.610
SAT

-J. '

F400 SIGltA.LCG10 ..

O~OiO

III

DOItG -S

O~'Oo

040.a SlIT

.sa

""

04070
O4OfXI
040911
04100.

eD

DC

0';120 LOGO
041241
0411tO LOGl
041110
041'0 LOG!

DC

ee
DC

~,

04110

DC

04110 La"
041"
042ilO lOGa

~

C$~lO

O!fOao LOG10

asuo

OS040 1.0
O$O~O

05040 c:a
O~O10

Q~'1111

,.

"., ..tl

ell
,.s

l.a

1.1
10.1000000000

ee
DC
DC

ee

10,U02,.1091

2,1

10,20G0000000

lhl

DC
CIt
DC

a,o

II~

J.o

DC

OlH.O"
InUO

10.",nnlOO.

2.0
UI.ilI.....,sn

ac

DC

osUo

11.-999,"''''
2.99
10,0
2.-99

10,2OT..·U5U
2,1

O~'§"t

o,.~

.. ,

DC
DC

OS110
OSJ.iO C7

o:mlO CS

on70

SrGII"2•• I~"
ARGAC'II.II'GPiA,li

DOfI8 _9

04110

DC
CIt
DC
DC
DC
DC

aw:

00061

00)" 02 000" 00000
ASSUME POSITIVE lX'ONIHT
oom"J!I -0042& 00001
IRANCH IF EXPONENT IS :g~;'~i~:96 0000.
001"
00)84
00)96
00408

'- f

040 '0 I.OGAX
O~040

00324 0) 000"

~DGI XI-~OGINOXI-LClGIHI

LO ...........

&11.4000000000

10 ,'GSflUIU
2.0

lO,IZU'UUII

I.OGI".'I

ODDeN
00421
0000,.
0a.40

00000
00002
000-1
OUOO

OO.ZO·OJ 000" 00S3.
OO~)Z . , 00.96 00000
00440

SHIn '0 "'OIGI' IlAIIYlSSA
00440 oa coon GOO!1
DDUZ .... -OCSQlt OOO~'J
AuuaN .nULl
DO~ ••• 2 O~ 0000II
alUT
00466
0047) 000011,
00~75

00401l
00411
00491
C049.

00'0'
OO'U
DO'"
OOSU

O\l~n
Go~n

0094D
OO'H
cosn

0(1'
"
001169

OiI!I?&
OOSOl
DDsn
COS . .
OQSts

ClIlOO:
00010
00002
00010
OIIlIO!
1Il0010
00002
00010
oocoa
OOOiO
OOIl!JZ
00010
00002
00010
OiIOO:
0iI010
l1li001
00010
00002
00010

)

~a

000011 (1;1:010

CCWy c,,-wa

'~~:lI&m'm
2.0 -

OOG1'

1.0

006H

lO.1U046&IJ. ,

U'
JS
JZ
III

oo~n

00629

11'11110

(1"'1':;;:

GC{~~O

OI1~ill

1211

0'1'10.
0"00 , . ,
0.0\0 U'
06010 1_1_.
06030 l'lUSI
0.0_0
060'0 ISQ
060tO SIC-'
060 TO Clnll

r

"ala

OS
OS
DS
DS

Z,UGAIIO
., •• 1

DS
OS
OS

•• 'lUSI
lI.n
I.

OS

I'.,.

00079
00005
00061
00019
00061
00079
000"
DOl"

.AII'

• __ ._1

'11".1&

0000.

DI"O 1.11..

sy~eOL

PIRLEL OOZl4A
IUOOR 000091
YAODR 0001911

IlJADUA OOO\U
ADDCO" 0002.1

25,0
5,AODCDIt-ZO.

UIU

"UOOA 000041
Flon 001611

UNLIN 000]01
F20F. OOlUA

OUOO . . .OOA OS

"NUDOAo"
'.llADOII.5,
5,NUOOll.,.

OIOJO . ._

OS

"IUDOIl.,.

02040 '1lIOIl

DC

Ito ..

02010'
02060-

OOOH

SUg'1I0G"'. I.ra,

ooon ,.11

1111.,,,. •,.-..
.......
••,

TFL ,aODI,N,100II.611.
'SU. Yl.ODII,.UDDII"" f
.,
'AIILIL".

oooU -II '0021 ooaON

' • •f-II'

,"IIItH I' NO IN'I.SICTION ellSTS
OOOf' •• 0021. 01100

0"60

•••IItH "

021.0

......
..... ...tt
....

....0.

IlJO" , . . . .
01010

"

"' • • • • • • • "

,~ "DOII •• "1IOI.6'I.
, . . . n _ ... . -.....

no ..

00GS4 -0 OOUI 000'"

......-...11........
,.x

DIUII

111111'. 00001

""041 -I 1I0tl,.

• '140

lIuro·

ooon

ADOIIESS OF SLOPE ILINE II
00004 DODOS
ADOAUS D' Y-INTlltE" 11INE 11
00009 00005
ADDU IS OF SLOPI I LINE 2 I
00014 00005
"DOIIESS D' Y-INTIIICE'T ILINE 21
00019 DODOS
ADOIIISS UP X-COORDINATE
00014 DODOS
IOO.US UP '-COOIIOINln
00019 00005

nOlO ",.,. "UI
' " UIIOI,
uqo!l,'U
1111"...
...

OlOiO

CII

us

NO INTI.SICT. INDICATED I ' ." IN DSALIt"O ADOI'SS

02020 .taOOll DS

.2110

UAODI 00019R
UDDII 0001.1

oHA"E 1I NlIN ••• EUSAeu S'STEII SU.,IOGUN
olD NUMBU 0205.0ELD'"
oASSEM.LE IfLOCATlllE
oSTOAe lelOADABlE
LUIUGE - IT UNLlN,OSlUloU.,
DULBl IS AoDIESS OF SLOPE ILINE 11
DS'lllO' IS AOOIESS OF '-INTEICEPT ILINE 11
OSAUlOlO IS AODIESS OF SLO'E ILINE ZI
DUlIlOn IS ADDIESS OF '-INTUCEPT ILINE ZI
DULBLOIO IS AoOIESS 0' l-tOORDINATE OF IESULl
OSAlILors IS ADDIUS 0' '-CDOIOINaTE OF InUL T

01010 llZADOA DS

Oll 00

00001

..II lUD-Ull AD-APT suaPIO'IA" FOI CErUII'''IHG
TIlE I NTERSEt TI ON.oF TlIO 1I NES
.

01010'
01020'
01010'
01040'
01050<
0\060'
01070'
01080'
01090'
01l00'
01l10'
01120'
011 10'
011>0'
011'0'
01l60.
01l7001110 ADDeo" DC
Oil to "IAOOA OS

020tO

00011
00001
OOOU
00000
00000
00000
OOOU

.......

U.' II ,"flU\.
001,••• 001., OIIDO

liMeN ., " ••

,,.",
...,
I."

000.0 •• 0001. oooza
OOlDI -0 0001. 0002 •
Don. ~" 00011 000"

001,. I.

0000. 00,"'

It '""CAt

II' . . . . 00 ... OUOO

01." "'" 00.,. DOli..
00114 -~ 000 •• 0000'
10... . . 00000 00000

t 2I

030~0

03090
OUOO.
OlllO

y-,;<-.

fMUL VAIlDA.6iNOIlR •• U.
FADD VAOOR •• '40DR,611,

UIT

DORG --9

'AaUL TDM

UDOII,,6,

SET K.....

1.' ,_
DC
OSC 2,~l ..
DENO UNUN

01120
0)130
0"40

I

oOlse .~ 0002. oa01M
00200 -J 0002a OOOla
00212 ~l 00000 00000
OOli.

V';"2-X.81

.to

88

OJOIO

'AGf

OOlaa

DOlt' - 9

010'0'
03060 FiOF.
03010

LINES

ARE PARALLEL

00214 J5 0002N 00000
00125 00001
00226 00001

UIT

OOUO

(
,aGE
SY~BOL

YUDDR 00035A

Y2AODR 00045R
SINGA" OOhlR

RETURN OHll

TABLE

X2AOOR OOOitOR
ONE! NT 006 ... 0R

lINCIR 00046R
00811R
CSO

AOOCON 00045R
OSAI

00279R

FLAG

00079

COSGAM OOt'HR
DISTF 02414

KADDR

NOU
$1
TEMP

00576R
00663R

HAD DR OOOUR
RADOR 00025R
S I GNC 00340_
TRANI 00U2R

00020R
003761\

YC-K

00079
0060111

VI

0091\1\

xe

1.0

C
DSA)

MAOOR 00005.

IlO IS ADDRESS OF a-COEFFICIENT OF COIIIC
DSALBl+U IS ADDRESS OF A-COEFFICIENT OF CONIC
DUlIL'ze IS ADDUSS OF (-COEFFICIENT OF COIIIC
DULBL.n IS AOOUSS OF .-COEFFICIENT OF CONIC
OSAUl+)O IS AODIIESS 0' O-COEFFICIENT OF CONIC
DIALaU" IS ADDAESS OF TMe SLOPE OF THE CONIC

OF

01l~0.

01150.
01160Oil 7001180 AOoCON DC
01190 140011 OS

<1'0.0
'.AooCo .... n.

01200 YAODR

OS

'.UOORH.

02010 UoDIl

OS

'.YAOOII+5.

02020 UOOA

OS

5.&A00U'.

02030 CAoOR

OS

5."'00R+5.

020~0

UOOR

OS

5.CADOR+5.

02050 OAOOR

OS

'5.EAOOII+I.

02060 OYOXA
02070'
020800
020QO OYOX
02100
02110
02120
02130

OS

S, -,

00039 OOO~O
ADDRESS Of X-COORDINATE OF POINT
OOOO~ 00005
ADORESS OF '-COOROINAn OF POINT
00009 0000'
ADDRESS OF I-COE"ICIENT ICONICI
00014 00001
AODAESS 0' '-COEPFICIENT ICONICI
00019 00005
AOOAESS OF c-caEfFlelEIIT ICONICI
00024 00005
ADDRESS OF E-COEFfICIENT ICDNICI
0002' 00001
ADDRESS Of O-COEFFICIENT leOHICI
00034 00005
ADDRESS OF OVIOX
00039 00005

030~0

BV

SUBPADGU" fNUY
OYOXA,eAODR.61l
OYOlA,YAOOR.611,
COV
OYOXA, OY-OU. 611.
2.0.C-V
OYOXA.EAODR.6Il,
2.00C.Y'E
TEMPl,BADDR,ll
BOX
TEMPI. XAOOA.ll,
Ox o2.00COY'._UE
Dx.DVOXA.ll,
oyon. UOD~. 611
,,"X
OYO_A,UOOA.6I1,
OYOXA .MI HZ.C. 6,
TEMP2,8A00A.ll
TEMPZ. VAOOR
80Y
OVOU, TEMP2.6,
-2.0·'.X-I·Y
DYo-Z.Oo'OI-loY-D
DVOU.DAOOR.loll,
OVID.
OVOXA.OX.',
IUNCII IF ox IS 0.0
INF"1t ..

Ol050.
03060
03070

eN
8N

OVDn ,5.610
IIIFIN,U .. ,

02l~0

02150
02160
02170
02180
021QO
02200
03010
030Z0
01030

03080.
Ol090 INFIN
03100
03110
031200
03130
OlHO MIHZ.O
Oll50
01160 FLINFII
031700
03180 TEMPI
03190 OX
03200 TEMPZ
O~lO

IU

SUI'IDG.'"

TFL
FHUL
FAOO
FAOO
TFl
FMUL
FAOO
TFl
FMUL
FNUl
TF~

FMUl
FSUB
FSU8
FDIV

-l.o-.e.

.11,

00040 -0 OOOla
00052 _~ 0003A
0006~ -J OOOlA
00076 -J 0003.
00081 -0 00029
00100 -L 0002'
00112 -J 00029
00 I Z. -a 00031
00136 -l 00031
00 1~8 -L 0003.
00160 ,:,0 00019
00172 "'L 00019
oolh -I( 0003.
00196 -I( OOO)R
00201 -A 00031
00220 N6 00256

0002M
OOOOR
0003a
0002R
0001M
OOOON
0003~

OOOIA
OOOOM
00179
OOOIN
oeOOR
00019
0003N
00029
01400

'I"

...

TFl OVOXA .FLI NFII,6,
B8
OORG _9

00232

,

.i~

000)1 000-5
8RANCH IF SLOPE FINITE 8Y OEF'INITION
00144
002" 01300

M)

SET RESULT TO I.OE4'
EXIT

00256 -'0 0001. oozn
00268 42 00000 00000

00170

DC
DC
DC
DC

8.-20000000
2.1
8.10000000
2.<1'9

00277 0'0001

DS
OS
OS
DENO

10.UOOII
• TEMPI
10.UOOR
DYO.

00029 00010
00029 00000
00019 00010
00040

00279 00002
00217 00008
00219 00001

IU

" ... DL ""U
nADDII
NYUn
tADD.L
CNI
'UII
lULl

000...

'JIll

OllM.
0.....

YlNI

"ADOI
IIONIT.
IADDlC
CI
.LAll
ll00T

OOU~

OODO..
01012.
000.,9
00412.

Tllla
TIl

0004..
02"Ot
0001""
0092111
OL01211

000""

OUIDII

IUDDII
"INZ.O
ADCCDN
DADDII
'UIII
IISGN
¥elln

00"""

01010OlOZO010'0_
010"0·
010'0.
01060.
010700101 ••
010.0.
01100.
OUIO.
OIUO·
aUlD·
011"0.
OllSO.
01160.
01170OUIOO
OU90.
01200020100
020200
02050.
02040.
020'0.
02060 AODCDN OC
02070 "'OOIlL OS

10.0
•• ADDCDN-"'.

02010 UDDIIL OS

'.IIADDIIL+I,

vao

ODDS. .
01",,11
000""
ODDS""
OlUU
OlOlaR
DO""
OOAO..

IUODII
IIAODIIL
UDCA
EADCII
NEil

ODD""
0000411
0001911
aDonll
0011011
sail" OIUt
weltz OOUIII
0.1 .......

IIETUIIN 0'411
LlNCDN 0006011
"DOl 0002411
fADOII 0001911
NUll 0024011
TEll' 00079
'U
0011111
..0
01".11

'.11 1.21-1111 AI-A'T SU.'IIOGII' .. '01 DI'.III1INING
THI INTIUICTIONS UP , LIlli AND A IIII1'IIAL CDIIIC
.NA". LlNCOII••• NON-I....ILI "STIli SUIPIIOGIIIIII
.10 NUMa.. OZO'+DILDIII
oIlSSE"ILI IIfLOCIITA.LI
.STDIIE IIILDADAILI
LI . .AGE -'T LINCDN,DSALIL.51,.
DSilLn IS llOOllns 0' SLD'E UP LINE
DSALBU' IS ADDIIESS UP '-INfEIICI" 01' LINE
DSALlL+1D IS IIDDIIESS 01' .-COE'flCIENT ICONIC!
DSALIL+l' IS ADDIIISS 01' ..CDE'I'ICIEN' ItDNlC1
DSAL.L.ZO IS ADDIIESS OF C-CDEFI'ICIEN' ICDNICI
DSAL.UZ5 IS ADDIIESS 0' E-CDI'I'ICIIN' ICDNICI
DSAL8UIO 15 ADDIlESS OF D-CDEFfICIENT ICDNICI
DSAL.UU IS ADD"ESS OF F-CDEFI'ICIENT ICONIC!
DUUL-.O IS ADOIIESS 0' I-CDOIIOIIIAte CPOIN' 11
DSALIL.4. IS AOOIIISS 01' '-CDO"oINATE "'DIN' 11
DSALIL+'D IS ADOIIESI OF I-COORDINAte "DINT II
DSALIUSS IS ADDRESS 01' '-CDDRDINATI! "DIN' 21

IICS

NO INTERSECTION INDICATED ., 0 IN 0007'
ONE INTEIlSECTlON INDICATED IY I IN ooon
'"0 INTIRSICTlDNS INDICATID IY "" III 00019

onto '&ADOI OS

',X1ADOII-',

02110 UADOI OS

',llADOI_"

000'" 00050
ADOIIESS 0' SLOPI ILiNII
0000. 0000'
AODUSS 0' '-INTeRCEI'T CLINEI
., 00009 00005
ADOIIISS OF I-CDI'I'ICIINT ICDNICI
. 00014 0000'
ADDRESS 0' A-COE"ICIIN' CCONICI
.
00019 DODO'
ADDIIESS OF C·CDE'I'ICIEIIT ICDNICI
Doon 00001
ADDIIESS OF !-CDEFfICIENT ICONIC!
.
0002. 00005
ADDIIESS OF D-CDEFI'ICIENT ICDNICI
0003" 00005
ADOIISS OF '-CDE"ICIENT ICDNICI
000)9 00005
IIODUSS 01' I-COORDINATE CPDIN' 1I
000"4 00005
ADDIIUS 0' '-COOIIDINATE I POINT 11
OODU DODOS
lDOIESS UP I-CDOutIlAte CPOINT 21

MOOD'" 00005
AODIIESS 0' '-CDDRDIIIATE "DINT 21
1 00059 00oa5
" 00059 00010

02090 lADOIC OS

I.IIIDDIIL-I,

02lDO UDDII

OS

.,IIIDDlC."

Olll~

,,00II

OS

I.AADOR."

02120 UOOII

OS

',CAOOII+'.

02UO DADOI

OS

I.UDDII-'.

Oil "a PADOI

OS

'.DADDU',

02150 U'DDI OS

I,FADDR+'.

PAGE
02UO ,zaDOI OS
02190
022000)0100
0)020 LINeDN
05010
010'10
030'0
03060
03010
030.0

DC

10,0

TFL
FNUL
TFL
PADD
'NUL
PAOO
FADD

SU8PRDGUII INTII'
00060 -0
Y1ADO","ADDRL,611
00072 ·L
YIADD",CADD",611,
"oCI
YZADD",YlADOR,61l
0001" -0
00096 -J
'UDOR,IIIDDRC,61l, 11I_lIoCI
YUDDR,IIAODIlL,tll,
:;!:!m~~!CII
:~~~):~
nADOR,UDOII,tll,
YZADDII,'ZADOII,611. YZ-2.00'''.''.III_''_~~ I ~n2 -J

OJO.O

.1

'21",

TOIl

"11'1.11,1"

OJUD
03UO
01140
011'0

FIlUL 'lAODII,1I11I2.0,.,
I'IUI Y1ADDR,IADD"C,lll,
FIlUL Y1ADDR,'"DD"L,'11.
FSU. 'IADOII,DAOOII,611.
TI'L 1110011,1'0011.611.
FIlUL X'"DOII,IIAOOIIL.611,
flU. nADOI,XUDDR,6ll.

031000
OIUO YZIIZ

01&60

olno

OJUO IIIIYI

,aD...

01190

.IIANCH IF yz IS IIIID

DOD""
DOOU
0005"
0005"

000011
000211
0004"
0001"

m:: ~::~:

0005. 000'"
00 1"" lit 00,." OUOO

SET 0' COOl TO 41 1110-0'1
00156 JI
00168 -L
DOllO -It
00192 -L
0020" -II
0021. -0
11011
DD2Z1 -L
-ID..II.II ••-1I.0."ocr •• 1I I-yt
002"0 -II
.RANCH ., 'I II IIIID .VA•• aILE
002S1 III
-Z.O·C"oCII
-11I+I.Oo".C ..
- ......1.0."ec: II
.
-IO...... I+I.O.II.CIII

0025]
0004"
000""
000411
000"11
000""
DOD."

00001
01444
0001"
000011
000]11
000211
0000"

000... 000411
DP CDDEI
006"" 00000

OJaOO0.010
O4OZ0

CIt
IIIL

1lA00IIL."9,'10
VlIITl ...

0026" J4 0000" 0001119
.UIICII I' Lilli IS VllITlCAl
oont '" 00161 0 1300

0.030.
o.ou
0.0'0
04060
0.070
0 ..0.0
04090
04100

TI'L
'IIUI.
'lIDO
I'IIUL
FIIDD
'IIUL
FADO

XZADDI,CAOOII,lll
IUDDR,.ADO"L.Ilh
X2IoDII,IAOOll.III.
IIIIDOII,.AODRL.tll.
XIADOIl,'AOOII.Ill.
XZaODII,"ADOR,IU.
XUDO" ,""DOIl ,61 h

I 0011'
00100
" •••"
D03U
•• I .....CII
00114
..... I II •••CII
Don.
'a."I •••• II ••• CIII ,. 001"
I.D.........·II ...+l:111
i I 001'0

0.110
04110
04110

TI'L IIADDII,'lADDR,tll
I'IIUL IIADOI,""OO"_61h
'SUI Il00' ,.Uoo.,eu.

041 . .

...

TIIII .. ,

...

IIONITI.Dlooo,.T.

MUD·
0.110

o.no

04110
04&90
04100
D'OlO
0'010
D50tO
010.0
DIDIO

oto..

.IAL. .TII ...",IIOOT•• 'll
"'I.

"Aooa,VIADDR,'II-

,sua ...DOIl.II00,.ell,
,aao .UDDI,n'DDR.'I"

'DIV XIADO•• YlADDII.61lt
'OIV . .ADOI.,aADDII •• llt
TPL VIADDI.IIAIOIIL •• II

'IIUL YlAIIDR.llaaoa.6U.

.IIDO YIADDI,'AOOIL~'ll.
"" YI............Lo.U

••cr

-0 DOD'" 0002"
-L 000'" 000011
-J ODDS ... 000211
.1. 0005" 000011
-oJ 000511 DOOIII
-L 000'" 000'11

-J 000'"
oon, -0 000411
'1 ••'
00 ••• -L Doa,,"
IIDOT." •• z-Z.o.,ae.,.."'U·.·tllt
00... -It 000""
.IIAIICII IF a"T IIOT IIDSI.,."I
00.0. liT Dil,.

000'"
000""
000..11
000'"
_
01100

CALL "I" WilMa.. , .. lION."

'"' :m t: :=:~g :::::
00""
m~~!.DOT,,,,\I. ::::::: ::::: :::;:
".'Ya-ucn't,.,.
",.........
"U'
ll-lt",

...

004." -0 000511 000411
-It Ooa511 ODD""

004.1 -It 000111 000111

OOS04 ·0 OOO"R 000011
00111 -L "0"" 0004"

-oJ 000411 oaOOll

. .,.0 ... ODDIt ......

127

6,o10

'MUL UADoa,UADDR,611.

05010

05100
OSllO.
'OS120 ' "
OSHa
OShO
051SOo
05160
0511005180

•bOltG Fun
0-)

0058~

'tOIl

NEGV .. U ....

8

'ZNUU

SEt 0' eODE TD ~. C'.ANCNI
005.4 JS 002s) 0000.
00596 II. 00161 00008

It

ytl ...

'.'NtN

"L

UADIlR.CA\lD •• 6U

00110 "'1

no

0060~

opu

FiluL ••• 0011 •••
;.al I
'ADD lUDORfflIlDR,.Ut
,~y.
~
•.
l
.•.•
BM."AO.6~.
~.I
..•. i •
'~1I8 .UIIDII"AOQ.,61h
FOIV XIADDR,YIADDR,611,

0'.1'0

::m
• '/128
060)0

060~0

TFl

06050
06060

CII
BNL

X2ADOR,XIADDR,611,
IIADORL,4 •• 61DU
VUTZ ...

TFL
F"UL
FAOO
B
ODRG

YUOOR,UADDR,.11
YUOOR.IIADORL.6.II,
YlAOOR,8AOORL,.ll,
FLAG 1

TFL
FDI V
TFL
B
OORG

X·UDOR.VlAOOR •• lI
.clAOOR.Y2ADOR,6U.
XZAPPR,XUOOII,61h
VERTZ
0-)

TOM

'LAG",

060700
06080 MveRn
06090
06100
06110
06120
061300
061~0 VERT!
06150
06160
06170
06180
061900
06200 Til
01010
01020
070)0.
010~0

01050
07060
01010

aD", .... 000'. 0005M
00564 -J 000'. 0000.
Don. II. Oll16 00000

FAOO V2ADO_.8AOD_L.61I,

05090

010800
07090 NEG
07100
01110
01120
011 )00
01140 CI
011 500
07160
01110
071.0
01190

onoo

1$ aERO

TFL TE"p,UODRe,ll
FIIUL TE"P.X1AOP~, lit
FAPO 1'EIIP,UOOII.lh
ap
ASGN" ,

ooa04

116 8011' 01200

utaecl .

00616 -0 000411 000211
006Z8 -L 000411 OOOOR
011640 .oJ 0004,. 0002.

".U'U ••*1I1\

e1l6. . -J ell"N OOOlR

tlla

IIlm*'ifGII

il@6U "I. iii•• " iI'lil'!•

UoCFI+Ulfl+lotl1 IIYl
,
00676
.l-Xl
00688
00700
'.ANtN I. LI"E IS veRTICAL
00112
MOXI
VI-MOIl ... ·

0-)

RETURN ... ,
8
OORG ,;.)

vun

I' fa

XloY·lIY2.
Xl-XI

OOO~R
OOO~M

.1'4 000011 00011.
116

oonl

OUOO

00124
00H6
00148
00760
00168

-0 0004. OOO~"
-L OOO~R 0000"
-.I' OOO~R OOOOR
119 OIOll 00000

00768
00780
00792
.00804
00812

-0 OOO~" 00041\
-A OOO~M 0005R
-0 0005 .. 0004"
"9 001)2 00000

SET 0 ••• NO INTfUEClION

RETURN TO NON ITA

-R 0004N

-0 0005"

exlSn

00812 I,. 00019 00000
00824 49' OZ41J 00000
008)2

008)Z 00
008~4 OL'
BI'Xl
.EI'BloXl
00856 OJ
BRANCH IF RESULT IS 'OSITIVE
00868 116

00019 0001 ..
00019 0004"
00079 OOOlR
01032 01100

CF
TFL
TFL
80

YZAOOR,TE"P,6,
T.EMP,eAODR, II
l:;'Il, TENP-9"

8I

VU" •

eUNCH IF VZ IS lERO

00928 M. 00812 OUOO

TFl
F"Ul
fROD
FNUL
FAOO

'UAODA,AAOOR ,611
VIAODR ,XlADOR,6Ih
Y1ADOR ,OAOOR,'",
'UDOIt.XIAOOR •• lI ,
YUDOII.FAODR,611 •.

_I.XI
OI+AIOXI
XlotOltAlOXl1
FI+X 1.'01+101 .. 11

00940 -0 0004.
00952 -L 0004R
,..1' 0004R
0091. -L OOOU
00988 -J 00041

TEMP-2ft •

00880 n 00011
00892 -6· OOOSR
00904 00 00079
8RANCH IF C'-COfFF ICIENT IS NON-ZERO
00916 II) 01052

"EVERSE SIGN
Y2.-1E 1+11"11

0096~

00000
00019
0002"
00010

OOOIR
OOO~M

000)"
0004M
000]1

08010

FOIV YlAOOR,VZAOOR,.ll.

08020 FLAG I

TON

08030
08040
080500
oa060 UGH
01070
01080
010.0.

8
REnjRH" ••
OORG 0-3

n-t FI+II'IOltA loin Il/n
01000 -R 0004. 0005R
seT I ••• ONe INTERSECTION EXISTS
0101Z 15' 0001' 00001
RETURN TD 1I0NITII
01024 49' 0241.1' 00000
010)2

SF

IIEVERSE IIGN

g:mm,

•

OORG

F(";'I ..

TEMP-a, ..
NEG+U

"""

011 aD
OIUO
08140
08150
01160
08UO
01180
08190

TPL 1I"',DAOOII,1l
'IIUL TEMP,XlADDA,ll.
'ADD TEMP, fADOII. U,
TPL Yl'ADOII,UOOR,6U
FNUL YIAOOR,XIADDA,61I,'
FNUL VUODR,XIADOR,6U,
FADO TENP,YlAODR,Il,
TFl YUODR, YlADOR •• ll
FMUL YUOOA,YUOOR,.U,
FIIUL TEMP,CAOO.,I,i.

01Z00

'NUL n"',~.o"

0.010

FSU. YUOOR,TI""',

09020

IN'

TI,IIZ" ,

01032 3200011 00000
01044 119 00192 00000
01052
'

alan 00 00079
010. . OL 0001'
01016 OJ 00019
. 010 . . -0 000"
AloU
01100 -L 0004.
01112 -L 0004.
AI'U'"
01124 OJ OOOH
,..01 .. lUloIl002
01136 -0 0004A
'Z"Z
01148 -L 000411
elo"1_01·ll·AloXl· 0 21
01160 OL 00019
4.00Clol'I.DIIXI.'1011··21
.
01112 OL ODon
Y2.0'-4.0.' I_CAlOlI •• '+OloX I+F II
.
01114 -, 000 ••
•• ANCH.I' YI NOT 'DIITlve
0119 ...l OUIO

090)0.
0.040

ITII

lION I TR ,02000,67,

09050
09060
0'070
0'1010
09090
09100
09110
0.120
0'\.10 'I.AOZ·

ITII
"L
PAOO
"Ua
TfL
.01V
'MUL
'!lUI.
TOIl

SOUF,rUODR.UU
TEIIP,ytADOII.U
YUDOR,vaADOII_.U,
YUOOR,TI"""
TII",0.5
TEM,.I:AOO•• U.
Y1ADDR,TIII',.,
YUODIl,TlII'",

09140
0.110

De
1 ••• 0
I
.arURII ....
DOIIO ....

CALL SOllT' SUIROUTINE VIA "ONtTII
01201 11 02400
OUZO" 01410
01212 00 00019
YI •• OOT
'01Z44 -J 0004.
'2-IIOOT
OtZ,. -a 000 ••
OU" 00 00079
O.IICI
01210 Oil 0001.
YI-o.UlntRGOTllel
01292 -J OOOU
yzaO,'.CU-lODT 1IC1
OUO. -) 000 ••
S.T 1111 •• 0 TWO INTI"SICTICNS IXIST·
.
01316 11 000.,.
01121 00001
RnUlN TO 11011".
01121'1' 01 .. .1'
,1U.

'N' Yl.''''

"ANI:"
.

0'160
09110-

09UO flMI

",,,G ...

000511
0004"
000)1\
0001.
0004"
OOO~II

0004R
0005R
0005R
OOOZIOI
01454
0007 •
01100
-2000
-004.
OOOU
OOOS.
0001.
01".
000'"
00019
000"
00000
00000

1f'llIOT III IIlI~TlV.

09UO-

.
OUU liT 00112 01200

0114. -0 000411 0004.
OU60 -R 0004 .. 000'.
. onu 119.00714 00000
OUIO
.

OUOO

10010
10020
10010
1004010010 TlIIZ

l1li

VU ...

&0060.
10070
10060
10090
10100

TfL
'IIUL
'OIV
•

YI.ADOII,YUOOR.'"
YlAOOlltO. 'J. I,
YlADDII.CAQOR,IU,

'UOl

lIIANC" .1' n

O. ,-n
Yl-O.'· • .tICI

IS NllAfiv.

on.o III OOIlZ .,,00

OUt, -0 DOO~R 000"
0140. -L 0004R 0'."
0'.16 •• 000. . 000'"

olue II. 010la 00000

128

10110
lOUD.
10130
10140 "INZ.O
10UO
10160 4.0
101 to
10180 0.5
1019010200 ROOT
11010 FLAG
11020 TEMP
110)0 SQUF
U040 MONITII
UOSO InURN
11060

001lG "'4

•• -20000000

DC
DC
DC
DC
DC

2,1
'.4000.0000
2,1
.,50000000
2.0

DC
OS

"Gf

ol~n

.XUDOIl

OS

It 79

OS
OS
OS

10,19

,nl6

,Z406
,2411
OENO UNCON

os

0lH2
0lH4
01452
01454
01462
OHU

00008
00002
00008
00002
00008
00002

00044
00079
00019
02416
01406
0241\
00060

00000
00001
00010
00000
00000
00000

~

PlGE
SYMBOL TABLE
nAOOR ODD lOR
OELVSQ 00019
DIS TA 00025R

V2ADDR 00020R
MO~ITR 02406
AootON 000251\

01010010200103001040010500106001070010800109001100·
011100112001130'
01140 AOOCON DC
01L 50 UADOR OS

X2AOOR OOOI5R
OflUO 00025R
OISTF 00026R

Res
-NAME DISTF ••• NON-ERASABLE SYSTEM SUBPROGRAM
-ID NUMBER OlIO_OElDIM
_ASSEMBLE RElOCATABLE
_STORE RElOADABLE
LINKAGE - BT DISTF ,OSAlBl+20,6
DSAUl IS ADDRESS OF X-COORDINATE IPOINT 11
OSAl8US IS ADDRESS OF V-COORDINATE (POINT 11
.OSAlBl+10 IS ADDRESS OF X-COORDINATE I POINT 21
OSAL8l+15 IS ADDRESS OF Y-COORDINATE (POINT 21
OSAlBL+20 IS ADDRESS OF DISTANCE BUWEEN POINTS

26,0
5,AOOCOM-20,

01160 nAOOR OS

"XlADOR+',
5,YLAODR+5,

\

01180 YZADDII OS

5,KlADOR+',

01190 olsn

os

5,nADOlI+"

0120002010'
01020 DIS"
02030
02040

TFt

SU8PROGRA~

DU TAX,XZADOR,l>l1
fSUB OELTAX,X1ADOR •• 1I,
'HUL OfLXSQ,OILT".,6l'.

02050

ITN

MONITR,02000,61,

02060
02010
02080
02090
01100

TFl
Fsue
FHUL
FADo
aTH

OflTAY,VZAODft,ll
DElrAY,YIADDR.Il.
OElYSO.OElTAY"
oElXSO,DELYSO,',
SQRTf,DELXSQ,6711.

02110 EXIT
02120
02UO02140 DELTAX
02150 DELX·SQ
02160 DELTAY
02110 DEL YSO
02100 SQaT'
02190 liON ITa
OlIGO "nURN
0)0 10

DSC
OSA

2,49"
-RETUIIN

DS
OS
DS

.DIS1A
,DILT"
10,19
,DEL TAY

DS

RETURN 02411
DEL TAX 00025R
SORTF 02H'

IBM 1620-1311 AD-APT 01 SUNCEFUNCTlON SUBPROGRAM

01170 XZAOOR qs

OS

x LAOOR 00005R
DEL TAY 00079
EXIT OOI1"R

.Z~16

OS
.Z~06
DS
.Z~ll
DEND 01 Sf'

00025 00026
ADDRESS OF X-COORDINATE IPOINT 11
00005 00005
ADOltESS OF V-COORDINATE (POINT 11
00010 00005
ADDRESS OF X-COORDINATE (POINT 21
00015 00005
ADDRESS Of '-COOltOINATE I PO INT 21
00020 00005
ADDRESS OF DISTANCE IETWEEN POINTS
ooon 00005
ENTAY

00026 -0 0002N OOOIN
000!8 -I( 0002N OOOON
00050 -L 000211 0002N
CALL SOR" SUBROUTINE \/IA "ONITR
00062 11 02400 -2000
00014 00 00079 0002Y2-YI
00086 01( 00019 0001IVZ-YII--Z
00098 OJ 0001. 00019
1X2-XIl"Z+lY2-VIl"Z 00110 -I 0002N 00019
oUTaSQUf.1X2-XlI"Z+IYZ-YlI"21
0012Z lP 02410 -002N
OOIH 00002
IInUIIN TO MOIiITR
00140 ooon ·'41.1

X2-11

lXi-Xli'"

ooon
ooon
00019
00019
02.16
02406
Dnll
ooon

00000
00000
00010 .
00000
00000
00000
00000

12!J

uve a'" 0001."
flU Cloua.
yeOIlP 0000...

VICOII' DOC 14.

0101001020010)001040'
0105001060010700108001090011000111001120'
OIUO01 HO ADDtOlf DC
OUIO xeoll' os

OU'O "OMP
GlUO

20,0
',"ODCON-ll.
"XCON'o!5o

OUIO UYCONP OS

1.0f4a
MI.EU
DEL TAX
FLAG
VERT

00019 00020
'OOAISS Of I-COMPONlIIT 0' VICTOR
00004 DODOS
ADOIIUS 0' '-CO"'ONIIiT 0' VECTOR
00009 00005
AODIIESS Of I-Call PONE NT OF UNIT VECTOR
00014 00005
AOOllESS 0. V-CO.. 'ONENT OF UNIT VEeTOII
00019 DODOS

5,UXCOIIP.,.

SUIPIIOGUM ENlIIY
UXCOMP.XCOII,,6U
00010 -0 0001"
MONITII.OZOOO.6f.
tAL~ 5011"· SUIIIOUTINE VIA 1I0.. nR
00031 11 02400
TFl x50i XCOM',11
00044 00 00079
XCOM,.02
FMUL XSlh XSO"
00056 OJ 000~9
00068 00 00069
TPL YSO,YCOII',ll
'HUl VSO.VSQ"
yeON".'
00080 .J 0006.
FAOO. XSO,YSO"
.COII'''2+VCO"'''' ...
00092,01 00019
ITN c_ SORfF.I.".
I-SOli" 'ICOII''''+'(:0"'''2I'
00104 17 02'110
FDIV UXCOMP,Z.6,
00\16 -9 000111
TFL UVeO"p,YCOII'.,U
0012. -0 0001R
UV.YCOII,,1
FOI V UVCO,,'., •• ,
00140 -9 0001R
00lS2 00002
OSC 2,49"
UTU" .. TO MONITR
OSA -RETURN
00151 .!,OOOS
TF~·

000011
-2000
000011
00079
000011
0006.
0006'
-0019
00019
DOOOR
D001.

-,.1.1

OS
OS

10,1'
10, ••

OS

,X$O

OS

,2406

os

00019 00010
00069 00010
00019 00000
or416 00000

,2'1"

OS

02406 00000

,2411
OENO UNITV

02411 00000

oooro

VZADDA 00019A

MOVEl2 0001811
ADotON 0002911
IIADOl 000a4A

OOUOII

'.ADOCllH-as,

02010 'flAOOll OS

"UADD"'"

I,,,,...."
.,IUOIII+l,

01040 IIAOOII
D2010 UllOA

""UGOII'"
1,-.

02110 lIaVl.a T'~
021"0
'SUI
O~l'O
I'
02&4.001110 SLOP. '01.,

'M

....

XlADOIl 0001411
UF~AG 0020011
COlNe OOIIlR
no" 0011411

1 UDOR
DEL TAV
UIT
flM'

0000411
0002411
001 . . .
00079

lies

COIICIDEIiT ,n. INOICATID I f III IN OUUUIO ADDII.

JII.o

OZOSO YZAODII os

020600:010DIDIO LCIIIIIU
020.0
OllOO
Ol110.
oauo
""

TA8U
00009.
000)0.
0002.11
oonOA

.NAME LCNON1 ••• EU"ILI IVST. . SU.,.OGUII
-10 HUMO •• OZlZ+DILDIM
• .sUNIL, Rl!lOCATULI
oSTORI RI~OADA8L'
LINKAGE - IT LCNOMI.DSALIL.ZS.I
D'AL'~ II AODAISS Of x-caORDIIIA,e "OIN' 11
DaALIIL+' IS ADDlless 0' V-COOIIOINATe 1,01NT 11
DUUL+lO II ADOII.U 0' II-COORDIN"" CPOIIIT ..
DI"LIL+U IS ADDRESS a, V-CDDIIDINATI CPOINT II
DSALIL+ZO IS ADORISS a, SLa,. a, LINI
DIALIL.al IS "OD.ISI 0' ,-INTIIICI'T 0' LINI

01010 UAOOII OS

oS
01

SY"80~

YUDDR
leNONl
IADOII
IlVEIIT

1111 "20-1)11 AD-APT SUBPROGRAII fOR OElEIIMIIIlNG
THE nOPE AND Y-INTEIICEPT Of A LIN' DEfiNED IV
TWO UNIQUE POIIITS

0101001020.
010300
01040.
OIOSO.
0106001010.
01010.
010.0.
01100.
OUlO.
01120.
OIUO'
OIHO'
01UO'
01\60.
OU10'
OIUO.
01190 'DOCDN DC
01200 UADOII 01

0002. 00010
&DOAUI O' I-caa.DINAn !pa'Nl 11
0000400001
AUOIIIU 0' .,-COO.DINAT • • '01NT 11
0000. 00001
ADOII •• I II. "COO'OINA,e "Ol.T II
0001400001
ADDllns O' Y-COOIIOlN"'1 CPO INT II

0001. 0000.

AOOllIS. O' SLO'I
0002. aoool
AOOllIII 0' '-IIIUI'I"
.
0001' 00001
00011 -0 000'. 00011
000'" -II 000111 00001
0001. M6 00100 01'00

YZ-Yl
,.ANCH •• .,a-Vl
kCW. . . ,VlU ..

IU 1111"" IIIOICAT 1111· IIiIOUAl. n.,

DlLTA.,IIIADOI,.,I
OILT'I,.'ADDI,""
, ••

XI-XI
,.ANCII IP la-II

OILT.y,DlL'. . . .' . .

.." . .'11/ .....1.

WlU ...

..ANCII

""coat"'"

'''00.
Ol010 IIVIU

TIlL, IADOI.,Uooa,."

0)0)0

'l1li\ " ... ,."OOlhllt .

oloao

AODCOIf 000 I ...
lSO
00079

BTII

00281A
0029111
0002911
0002'1"

alU.
'2190

MGNITII 02406
leG"p 0000411

tNANE UNITV ••• NON-ERAS"LE SYSTIII SUer"OGII'M
elD NUMIER 02U+DUDIM
USSEMBLE UI.OtAUIU
'5'011. II.LOADAILe
LINKAGE· aT UNITV,DSALIL+U ••
DSALaL IS ADOlleSS OF X·COMPDNeN' OF VICTOII
DSALB~+I IS ADO~ESS 0' V-COMPGNIN' 0' VIC TOil
OS'LIl+IO IS ADDRESS OF X-COII'ONENT OF UNIT VECTOII
OSAlIIL+15 IS ADDItESS OF Y-COMPONENT OF UNn VECTOII
IT IS ASSUMED THAT THE VICTOII IS NOT lEIIO

"YCOII'.,.

02090
02100
02110
02120 UIT
02UO
02UO02150 XSO
02160 ,SO
021 10 Z
02180 SQAff
021'0 1I0lliTII
02200 IIETURN
OJOIO

01411

11M 1620-1111 AO-AP' UNIT YECTGII SU8'1I0GIIAM

OS

02030
02040
02010
02060
02070
02080

:gm" .

~'dTY

000. .

uxeON" os

01190.
01200'
01010 UNITV
02020

"'.LI

SClillf 02"",

no

"'"

S'f"80~
RETUA~

TPL TlMP ••,oaa.u

I'

OOO".IlI 00l0' -0210
DOOll -0 ..... 000111
000'0 . . 000111 0000II
00101 ... 01000 IUDO

OOU . . . 000. . 0001&
OOUI ... 000111 00. .'
SLOP! • ..,111"1 I., DlPlIIITlOli

,

DOln . . . .U. OUOO

00lH -0 000.11 . . . .

OOIU 00 ..., ' 100••
DO'" 0\ . . ." 00I0Il

tat

030~O
O)O~O

un

. ..

00116 -, ooon 00019
00191 U 00000 00000
ooaoo

'SUI I&OD"'''"',I,

03060
00II111 ... .
0)010.
0)010 ERFlAII 1'M SLO'E-6,eOINt"
03090
01100
03110'
03120 'lEU
0)130
OH40
O)ISO
0)160
03110'
on.o COING

1\
MOVUI
DoaG ....

03190
0)200
04010
Olt020'
040)0

De

D"O~O I.OUI
Olt050
Olt060 MI.UI
OltOl0'
0"010 DElTAY
04090 DEll ...
0"100 TEM'
0"110 FLAG
04120

SET SIIITCM 1li0ICUIliI EQUAl"Y

lfL MADDR.I.OE4., ••
1'L IADDR.III.EU,1
FIlUL 1&000 •• 'AOOI,I,I.

ea

,to

..

'L.O ....

DC
DC
DC

OORI ....
lOll

sn

lI-l.0EU

'--1.014'."

lilt

00 aDo
Doa u
00220

...

JO

0010. -D'S'
00011 00000

'OOZZO
00n2
00"'4
ooan

-0
-0
-L
.,

000 2M
0002.
0002.
00000

Don.

SU ...... '0'11" Alii '"I~CIOINT

001..

n

8.10000000
2.49
8.-10000000

DC

I, ...

00119
OOZII
00U9
00291

ooooa
00002
00008
00002

OS
OS
OS
OS
DENO

.MADDR
,UDDII
10,1'
I,DEL TAY
LCNONI

00014 00000
00019 00000

1.'..,.
_0 - .

EXit

00111
00291
000111
00000

111001. 110000

0026. 00001
00270 U 00000 00000
00n2

00019 00010
000'" 00001
000)0

neE

SYMBOL TABLE
StELM' 00009R
MOY I 00011.

SCELMI 00004R
!IOva 0006".

010~0'

01050'
01060-

DC
oS
OS
OS

01190 OPCOOE OS

ouoo-

0201002020 IIINIF

020)0
02040
02050 Tn.T
02060. ,
02010 II0V'
02080
02090
02100.
oallo MOVI
ouzo
O2UO02140IlU'"
OUH

MUll' 00016.
TEST 0005211

MINIF 0001411

IB" 16Zo-1311 Ao-APT fUNCTION SUBP.OGRAM FOR SELECTING
THE SMALLER OR lARGIR OF TWO fLOATING-POINT SCAlAIlS
RCS
.NAME SELECT ••• ERUAIU SYSTEII SUBPROGRAM
-10 NUllBEII oaU+OELDIII
.ASSEMBLE RELOCATABLE
-STORE RELOAOAaU
LlIIKAGE ., IT JOINIF,OSAlIL+ll,6
IT JOUlf,DUlIL+I1,'
OSALBL IS ADOUSS Of SCAUII ELEMENT I
DSAl8L+5 IS AOOIIESS Of scau. ElEMENT 2
DUL81.+10 IS ADDRESS OF SCAUR FUNCTION
OSAlBUI1 IS op-cooe DIGIT . . . . IIIIN1F1, 1 lllAXIF'

01010'
OIOZO'
01030.

01070'
01010'
01090.
01l00'
01l10'
01120'
01110'
Oil "0'
01150
01160 SCEl"1
01110 SCElll2
OUIO S&fUN

OPCOOE 000 "R
StFUN OOOIU

16.0
S.,·-ll.

5,--6,

"e-l,
1.-,

00015 0001.
OOOO~ 00005
"OOUSSES OF
00009 00005
SCALAR ElEMENTS
ADOIIUS OF SCAUII FUNCTION
00014- 00005
LOIl-ORDEa O,..COOI DIGIT
00015 00001

SUB""OGUII INTIIY
T£5Tol,O"00£..
SET 46 ell I oa 41 .,''" OP CODES
00016 _N 00053
0002. '·0 OOOIM
TFL SCFUN,SCELII2.6U
000"0 -II 000 I II
SCELIIl·SCELIII
'SUI SC'UII,SCIlN106lh
_
!IOVhUOO ..
OOO~, III 0001.
eVAaialLI 0' COOII
TO

TFL

SC'UII.SCIlIIJ,6U

••

It.

UIT

DOIIIII - .
'I'I.

OSC

os

SC'UII,SCEUII.6U
2,41 ..

,11111"
DlNO 11111"

un

00015
000011
000011

DIlDO

000. . -0 000111 0000.
00016 '2 00000 00000
OOOll

Doon -0 000111 OOOOM
00090 00002
000 . . 00000
00016

131

S .MaOl fABLE
"ORM~" OOO}O~

NVERT

0006b~

'0

00009.

MI"I.0 OOl15~
YERT 0018.R

0101001020.
0103001040.
01050.
010600
01Ql0.
01080.
01090.
011 00.
01110.
01120OIUO.
01140011 SO.
01160 ADDCDN DC
01110 XO
OS

01180 '0

OS

01190 II
01200 8

OS

02010

I"

020801
02090 IIVERT
02100
02110
02120
02UO
02140
02150
02160
02110
02180
02190
02200
03010'
0)020 VERT
0)0)0
0)040
0)050
03060

'N

au

)0.0
S.ADoeo.... n.

00029 000)0
ADDRESSES Of' • AND Y-COOAOlliun
00004 00005
POI''' EXTERIIAL TO U"E
.
00009 00005
ADDRESS OF SLOPE
00014 00005
AODRfSS OF V-INUItCE"
.
00019 oeo05
ADDRESSes OF • AIIO Y-CODIIOHIUU OP
00024 OOOOS
POINT ON THE LI"I
00029 00005

o.

SUa'ROGUM ENTRY
YII.YO •• 11
000)0 -0 OOOZR 000011
1I.49,/tlO
00041 J4 000,10 000'"
VERT",
BUNCH IF LINt IS VUTlCAL
000S4 M6 0011. 01300

YN.8,611.

VO-B
MO"0-81
XO+M'I VO-II

...

00066
00078
00090
OOlOZ
00114
00126
. 00138
.IoI-IIYO-II, ....OIlIM"'+I.O I
00150
M'XN
00162
VNoM'III+'
00114
EXIT
00116
0011.

XIII.B.61L
XN.H.611.
X".1I1I11.0.6.

11M
-8/11'

VN,M,61l.
YII,.0.611.
XII.M •• U
XN,M.Ul.
XN.MIIU.O.6.
VN,.N.411
XN.VN ... "

FNUL VN.H.611.
fAOD 'N.8.6U.
88
DORG '-9
TFl
FDIV
FMUl
8B
OORG

II

""AME NOR'lll ••• ERASA8L£ SYSTEM $Ua'ROG••M
olD "UM8ER 021hDflDIM
.ASSEMBLE RELOCAT ABU
-STORE RELOAOAeU
LINKAGE - IT NOR"lll.DUULo""
DSA~Bl IS ADDRESS OF X-COORDINATe OF EXTERNAL "
OSAl8U5 IS ADDRESS OF '-COORDINATE OF EXfERNAL "
DSAL8l+10 IS ADDRESS OF SLOPE OF LINE
OSALBl+IS IS ADDRESS OF Y-I"'UCE"T OF lilliE
DSAL81+Z0 IS ADDRESS OF X-COOROIIliATE OF " ON LI"E
DSALBl+15 IS ADDRESS OF v-eOOROI"ATE OF .. , 0" LillI

os . s,e.,.
s, 1ft.!,

FSUB
FMUL
FADD
TFL
FNUL
FSUB
FDIV
TFL

8
10

.... 1620-1311 AD-APT SUBPROGRAM FDA PROJECTING' 'DI"T
'D A GIVEN LINE. NORHAl TO 'HE LINE

DS

OS
02020 'N
02030.
02040.
020'0 NORII~N TFIo.
02060
C..
OZ010
8,,"

AOCtO" 0002'~
X~
00024.

tt.

0-9

UIT

-K 000211 OOOlR
-L 0002. OOOlM

-J OOOlR OOOOM
-0 0002N OOOIM
-l 0002M OOOIN
-K

0002N 002n

-II 0002R 0002M

-0 000211 OOOIR
-L OOOIR 000111

-J 000111 000111
. , 00000 00000
:

00\88 -0 0002M OOOIA
00200 -I D002M 000111
00212 -L 0002M 00U5
00224
00000 00000
00116

4,

PlGE
0)010'
03080
DC
8.-10000000
03090 111111.0 DC
t.l
03100
DE"O _MLII

2

002)) 0000.
00235 ooooa

OOOJO

132

"Gf
SYMBOL 'AIU
AETUR/j 02411
DHZ OOll)R
UN lTV 02416
XH
OOOISR
00035A

IIO"MCA 000)611
fLAG 00019
DOlTBR
UAX
OOO)OR
XII

MONITA 02406
RAD
00025R
un 00288R
YtOM' 00261A

AOOCON OOO)SR
SETRM 00200R
XCOM' 00258R
0001011
YE

""

DSU 002n"
UN If A 00096R
OOOOU
If
ODoaOR
Y"

11M 1620-1311 Ao-APT SUBPAOGRAM FDA PROJECTING A 'OINT
TO A GIVEN CIRCLE. NORMAL TO THE CIRCLE

01010·
010200103001040010'0.
0106001010.
01080'
~IO~@'

-NAME liOAMCR ... NDN-ERASABLE lAUEN SUBPROGRAM

lies

.10 NU"IIER OZlhDElDIM
-ASSEMBLE RELOCATABlE
• STORE ItElOADABlE
NDRMCA,DSAL8L+10,6
Du~n II ADD_lin II. x·~OOA~I~U. 0' 'U'MN~~ . ,
OSAL8L+!J IS ADDRESS OP V-COOROINAfE Of EXTUNAL "
OSALBL+lO IS ADDRESS Of X-COOROUIAT! Of CENTER
DSAL8l+1S IS ADDRESS OF Y-COOROINATE OF CEIilTER
DSALBl.20 IS ADDRESS OF RAO IUS
DSAL8L.U IS ADDRESS OF X-COORDINATE OF PT ON CIRC
DSALel.30 IS ADDRESS OF Y-COORDINATE OF P7 ON ClRC

~INKA&E ~ IT

011 GO.
01110.

01120.
OIDO.
01l4001150.
0116001l70.
0118001190 ADDCOIII DC
01200 XE
OS

RM IN 00079 DENOTES EXTERNAL PT. AND CENTER'COINC.
31>,0
5,ADDCON-30.

02010 VE

OS

S, X£+5.

02020 XH

OS

5,Yh5,

020]0 YK

OS

02040 RAD
02050 XN

OS
OS

I

02060 YIII
02010.
0208002090 /jORMCR
02100
02110
02120
02UO

OS

00035 00036
ADDRESSES OF X AND Y-COOROINATES OF
00005 00005
POINT EXTERNAL TO CIRCLE ,I POINT PEl
00010 00005
ADDRESSES OF X AND Y-COOROINATES OF
00015 00005
CENTER OF CIRCLE fPOINT Pet
00020 00005
ADDRESS OF RADIUS
00025 00005
ADDRESSES OF X AND Y-COOROINATES OF
00030 00005
POINT ON THE CIRCLE
000]5 00005

Bf

SUBPROGRA" ENUY
XCOMP, XE , 11
XCOMP,XH.ll,
XCOMP'XE-XH
YCOMP,VE,Il
YCOMP.YE-VI(
YCOMP,YK,Il,
MONlTR,DS"t5,6,
CALL UNifY SUBPROGRAM

0214,0 UlllnR

IT

UNIT·y,OSAZ+I5,"

02 I S,O

8Y

SETR .. , "

TFL
FSU8
TFL
FSUB

021~0.

URX,RAD,Il,
URY,RAD,ll.
XN,XH,611
YN,YK,611
XN,URX,6.

02170
02180
021"0
02200
03010
O]OZO

FMUL
FMUL
TFL
ffL
FADD
FADD

030)0
03040
0305003060 SETRII

8
RETURN".,
ODA& 0-3

03010
03080
0]090
OHOO'
03110 OSAI
03120
03130
0)"0
0)1'0

1,' ,DC
RETURN,,6,
8
ODAG _4

YN,UltV,6,

00036 -0 00258
OOOU -I( 00258
00060 -0 00268
00CH2 -I( 00268
VIA MONITR
00084 2P OZ40D
CALCULATE UNIf RAOUL YEC,OR
00096 ZP 02410
IUIilCH If UTUNAL POINT AND CENTER
00101 N6 00200
OF CIRCLE ARE IDENTICAL POINTS
00120 -L 00Z18
URX'RAD
URVOUO
00 U2 -L 00288
00144 -0 000)00151> -0 000)'1
XN'XH+URloRAO
00168 -J 000)YN·V .. +U.V .... &D
00180 -J 0003N

OOOON
0001'1
0001000200Z28
0024.
01400
0002N
0002'1
OCOIN

000100278

ooz ..

PAIlE

O}~

'!!fO

OH10
0)180 OSA2
0)190
0120004010 XCOMP
04020 YCOMP
04030 UAX
O~('i""O

UAY

0405004060 MONIfR
04070 UIIITV
04080 RETURN
04090 FLAG
04100

TOM

FLAG •••

OSA UNITRoIZ
DSC 5,02111
OORG 05'''5+5'4-'
NOP URV,O
00R6 -21
NOP VCOMP,URX
OORG -14
OSA XCOMP
DDAG •• 5 .... 4
DC
DC
DC

DC
OS
OS
OS
OS
DEND

RETURN TO NONnA

00192 49 0241J 00000

se, ReCORD "ARK ••• NORMAL UNDEFINABLE
00200 15 00079 00000
00211 00001
RETURN TO MONITR
00212 4" 02'HJ 00000
00119

00223
00224
001'2
00Z42
00232
00232
00229
00Z33
002"

101 00288 00000
MJ 00261 OOU.

00005 -025'

00258
00268
00278
00281

00010
00010
00010
00010

,240.
,U16

02406
02411>
02411
00019
000).

00000
00000
00000
00000

,19
HOINCIt

,

00005 -0108
00005

10,0
10,0
10,0
10,0

,2411

2

00100

133

UGE

SVIOBDL TABLf
OIO)OR
NO_Mlli 02416
00166R
BUll OO'l"OR
DISTl 00'l60R
DUIZ 0060411
DU6 0052)R
FCDII OOO)'IR
MDVI 00858R
SO
00'l30R
XIIO
0004411
n
0000.,.
liNT 00651A

1.0£48 06085
0005011
000"'1.
0002"11
00'l40R
00H111
OO'UR
0001'1
100'12 0071111
51
00'60R
lNI
009TOR
0004911
'NO

5fMIN4>

NO~"CII

APCtON
etON
DIU2
DSAZ
OS. .
FUG

eMPARE

SELECT
100'<11 Til
Aellll
CCNV
OSAt
OSA)
DU.
ITER

"TAN
TEI'P
Xl

VNI

00106.
OHat.

0001'1"
02411
0033111
0040T1I
00H4R
0081411
00960a
0095011
00990R
0098011

UTuali
LlNCON
eCCN
oeCN
DUIO
OU4
DYDX
LNDEF
NDINT

fEsn

n

YI

OHII

OHI!>
000l4R
000]1011
0058411
004JTR
02416
00610R
0090211
00890R
0101011
0100011

PfoP1i1
LeliONI
aDR ttl
DISTF
DUll
DSU
fCDN
"DUH
SLOPE
XE
'ICE"
'12

00326R
02416
oonoa
0241t
0059411
004'111
00029R
00960R
0019411
0000411
00242A
OlOIOA

01010.
OIOZO.
01030.
01040.
01050·
01060.
01010.
01080·
01090·
01100.
01110.
01120.
01130·
01140.
OIUO.
01160.
01110.
01180·
01190.

. "" 1620-1311 10-A" SU8PRaGUM 'OR 'RDJICUNG • '(liN'
TO A GIVEN GeNERAL eONIC. NOR~'L to THI eONIC

OUOO AOOCDN DC
02010 XI
" OS

50.0
5.AOOtON-45.

02020 VE
020)0 8CON
02040 ACON
02050 CCON

lies

.NA"E NORMCN ••• NON-EliAS AILE AAELEM SUI'IIOGIIAM
.10 NUMBeR 021600ElDI"
.assEMaLE RELOCATA8LE
.STORE RELOAOABlE
LIN~AGE - IT
"ORMCN.OSALaL+4S.6
OSAlBl IS AOOIIESS OF X-COORDINATE OF EXTERNAL P'
OSALllt51S ADDRESS OF Y-COOROINATE OF EXTERNIL ,r
OSAliltlO IS ADDRESS Of a-COEFFICIENT OF CONIC
OSALaLol5 IS ADORESS OF A-COEFFICIENT OF CONIC
OSALBL020 IS ADDRESS OF C-COEFFICIENT Of CONIC
OSAL8L.25 IS ADDRESS OF E-COEFFICIENT OF CONIC
OSALllt30 IS ADDRESS OF D-CDEFFICIENT OF tONI~
OUL8Lo,. IS ADDRESS OF F-COEFFIClEH't OF CONIC
OSAL8L040 IS ADDRESS OF X-COOROINATE PT ON CONIC
DSALIL+4' IS ADDRESS OF Y-COOROINATE PT ON CONIC

. OS

OS
I

OS

as

020.0 ECON

DS

02010 DCON

OS

02080 FCON

OS

02090 X"O

OS

02100 'NO

OS

02110.
02120.

00049 00050
ADDRESSES OF X AND Y-COOROINATES OF
0000. 000055. XE+5.
POINT EXTEIINAl TO CON" I PO INT PE~I
G0009 00005,
5,VE05.
ADDRESS OF B-CDEFFICIENT ICONIC! .
110014 00005,
5,8CON+5,
ADDRESS OF A-COEFFICI!!NT ICONIC.I •
00019 00005.
_OORESS OF C-COEFFICIE!" ICONICI ,
,.ACON+5.
000Z4 0000';
ADDRESS 01' I-COEFFICIENT ICONICI ;
'.CCON.5.
.00029 00005
ADDRESS OF D-COEFFICIENT ICONICI '
5.ECON+5.
GOOH 0000'
5,DCON05,
ADDRESS OF F-COEFFICIENT ICONICI
00039 00005
AOORESSES OF X AND Y-COOROINATES 0'
5.FCON'5.
00044 00005'
POIMT ON THE CONIC IPOINT PNOI
'.XNo05.
00049 00005
"IT IS ASSUMED THAT POINT PNO CCNSTITUTES A GOOD GU~SS'.

02130.
021100 NOII"CN TFL
02UO
Tf

SU8PROGUI' ENTRV
50.1.0£48
SET OSA ADDRESSES
DSAz05,VE ..

02160
02110
02180
021'10
02200
0)010
O)OZO
OJOIO
01010

OSA30S.V!
XNO-4
OSAI'5.VNO
ICON-4
OSA .. 30.0CON
DU1 ..
OSA4.U.'CON
OSlo4+.
DU,,'.YNO .
IIONITII.02OIO.O'"

IIJO.O SLD'.

DYOIl.DIAloSl,O,

0)070
01080
01090
01100 'ICE"
OJilo

BTAN.VNO.1t
TlM'.MTAN
TEMP,INO,Il
lTAN.n"p"
lION I TA,03l40.61.

~JO~O

OUZO

NOR"LN.DSAlol' •••

011)0

aTM

IIONlrll,02120.6T,

0)l~0

IT

LCNONI.OSA,.a'.6,

OliSO
01160

TO
INA

FLAG.MOIUH
LNOfF.PLAG.,

OU700.110 ,..'NI B

RETUIIN ••••

01190

DORG ... 4+1 ...... '

04010
04020
040)0
040.0

NOP
OORG
NO'
DORO
NOP
DORG
NOP
ODAG
DSA
OORG
NOP
OOAG
NOP
DOIIG

onoo·
O~OIO

040'0
0'1070
040.0
040'0 OSAl
04100
04110
04120
O.UO
04140
04110
04160
04170 OSAI
04110
04"0
04200
0'1010
05020
DIDIO

HOI'

DOIIG
OSA
OOllG
NOP
DOIIG
NOP
DOIIG
HOI'

"TAN.O
"'21
0.0
"'21
0.0
"'21
0.0
"'1'
0
•• ' ...4••••• ... ,
YNItO
-21
"AN. INa
-21
O,MrAN
... a4
0
•• ' ....4.'........
IORTH,.
-21
Y"ltMOUH
"'21
•• _NI

00050 -6 00910 060.'
REQUIRED
00062 ~O 003.2 00009
00014 110 DOH 2 00009
00086 L2 00040 00000
00091 KD 00342 0004.
00110 LZ 00010 00000
00122 KO 0036T 00034
0013'1 L' 00S4) 00000
00146 KO 0047' 0003.
0015. L) 0044) 00000
00170 KD 00114 0004.
CALL, OYOI IUI'ROGAA" VIA MaNITA
001.' 17 02400 -10.0
CALCULATI no,. OF CONIC AT POINT 'NO
00194 ZP 02410 00311
0020. -0 00'40 000411
0011. -0 00''1000'60
00230 -L 00.50 OOO~M
aTANoVNO-MTAN.XNO
00242 -K 00940 00"0
CALL NORMLN SUI'AOGRA" VIA MDNITII
002'14 17 02~OD -2140
'1I0JECT 'DINT '1 TO TANGENT LINE IPNII
00266 I' ·01410 00401
CALL LCNONI SUIPAOGAAM VIA MONITII
00171 17 01'00 -21'0
OEFIIIE LINE 'ASSING TIIfIU PlS. PI AIID PNI
002.0 " 02410 004)1 .
OO'OZ 2N 000" 00••0
lUNCH" LINI DIFIIIAIU
. 00314 "' 00610 00019

as

RetuAN ••• GUill .ALUI INACCURATE
00lZ6 4' OZ.lJ 00000
00166
00166 MI 00 •• 0 00000
00)"
0015. 4l 00000 00000
00146
00146 _I 00000 00000

Don.

00 n.
OOUI
001l?
00196
00196
001..
00...
OOJ16
00316

oO)n

00171
OOU.
00426
00416
004'6
00406
00'06

_ I 00000 00000
0000. -0000
MI 00... 00000
MJ 00.40 Don.
'1J 00000 DO •••
0000. -0000
"' 00'4' 00000
,
MJ 00.80 .0•••
44 0.00. ...,.

134

o,o~o

DORIO _I.

05050 DSA!
05060
05010
0'010
05090
05100
05110
0'120
O'UO

GSA

05140

0'150
05160
05110
05110
05190
05200

0"_

06010

060Z0
060)0
060.0
06050 OU,
06060
06010
06080
06090
06100
06110 05106
06120
061)0
061~0

06150
06\60
06110
06\80
06190
06200
01010
01020
010)0

DORa •• , ..._.'.1 ....1
Y2,0

NOP

001110
NOP
DORIO
Nap
DORa
Nap
00110
HOP
DORIO
Nap
DCRO
DSA

DU"
DSAlO
05"11

010~0

01050 DUIZ
01060
01010.
01080 LIfDEF

'-21

VI

,x,

-21

O,XI
-21
0,0
-ZI
0,0
-21
8DIITH,O

-I.

MOATH

DDRG •• 5.u-_ . . . . . ll-&
NO' VI,Olln
DORO -21
NDP
DDRG
DS"
DORG
Nap
OORG
Nap
DORG
OS"

oooos -0000
'
"1 DIDIO 00000
IIJ 01000 01010

"J 00000 00990
"I 00000 00000
'" 00000 00000
"1 00.40 00000
00005 -0960

00501 Mol 01000 00 • .0

DO ..'

YNI,XI
'-1.
XNI
"5.5-.""-11
YZ,DIST2
'

00496
00"93
00491
OOS)2
00')1
00522
00522
00519
0052)
00558
005"
00548
0054'
OOS45
00549
00510
00514
00'515
00'584
005es
0059.
00"5
00604
0060'

-I.
-I..'5.,."
.-21

YNI,X'
XNI

DDRG •• , . ' -.... ,.11

NOP YNI,Sl
DORa .-21
O,XNI
DORIO
OSA a
DORIO
oSA 2INT-Z"
OSC 5,0209\
OSA 211011+12
OSC 5,02101
OSA SELECT-12
OSC 5,02101
OSA CMPARE
OK 5,02101

NDP

051"

PAGe
00401
00407
00486
00486
00476
00476
00466
.00466
00456
004"
00446
00441
00416
00436
OOU.
00411
00106

0

Mol 00910 00990
0000. -0910
Mol 010Z0 009"0
Mol, OOtiD 01010
0000' -0'10

1101
.01

00910 00960
00000

Dono

0000' -0000
00005
00005
00005
0000.
00005
00005
00005
00005

-01._
-0610
-0694
-0766

IT

HONI TR,OSA9.,,6,

01090

6T

LlNCDN,DSUo!n,6.

01100

8NII

01110'
01120

If

01UO UNT

IT

OISTF,DSU'ZO, ••

CALL DISff SUBPROGRAM VI.\ IIONIT.
00~46 ZP OZ400 0051.
CALCU""TE OIST. BETWEEN p'TS. 'NI AND Pi

01l,40

8T

HONITR,OSAUo" ••

CALL 'DISTF SUI'ROGRAII

01150

aT

DISTF,DSA6'ZO.I.

00lil0 2P 01400
CALCULATE OIST. BETWEEN "5. 'Nl ANO
00'82 2' 01" 10
00694 -It 00960

1

TES!I,fLAG"
HONIJR,DSAlO"'"

1

FSU. DISTI,DISTZ

on ~O

08010

n

TFL
TFL

XNI,II ..
YNI,YI
HONITII,OSIU2'!I,I,

&T

0ISTF,DSA"20,I,

POIN' PI IS CLOSE"
001'11 -0 00910
Dono -0 00980
CALL DISTF SU.,"OGIIAII VIA" HONITR
00T42 2' 01400
CALCULATE DIST. IETWEEN PITS. PNl AND
00154 2P 02410
SO-Sa-51
00766 -It Dono
AI5f1SO-SII
00"'1 U 00921
00790 -It 009]0
lUNCH I' !leIlIN6 IXCEED~'ABSFISO-Sll
00802 41 014\J

080)0 CMP""E FSUI 50,51 ..
CF
SO-I",
FSU. SO,5EMINI
~~P
CONV, ,6,

080~0

aII 00

0081.
00826
00838
00850
008,8

TFL
TFL
8
DbIIG

INIoXl ..
YNI,YI
CM'ARE-I"
-)

'OINT pi IS CLOSEII

00858 -0 00910 00. .0
00870 -0 00980 01000
00882 M9 00142 00000
00890

eo

HOVl,FLAG"

IIIaNtH . , I

TOM
DC
B

FLAG .. ,

SIT ""

It'.·

001110 _4
0.040
09050'
10,0
09060 SO
DC
10,0
09011l 8TAN
~c:
0.010 TEM'
DC lO,O
10.0
09090 "ORTH DC
10,0
09\00 IINI
DC
10,0
09110 YN1
,DC
10,0
0.120 x,
DC
O.UO Yl
Dc ,10,0
10,0
091~O XI
~
10,0
09150 VI
.....
• ,50000000
09160
DC
o.ato 51111"" ~
o.tlo·
"
,60lS,
091'i! I.OEUOS
09200 01011
11$
.ZUI
10010 HOIUiL" 05
.ZUI
100:/0 lClIOIIl OS
10010 f'L_
OS
It"
10040 IITAII
os
.n.1I
100'0 lOatH DS
,IIoaTH
10010 DUTI aS
.loaTH' .
10070 DUTZ OS
.DUTa·
10010 I i
os
10090 LlNCON OS
10100 DIS'" . .

a.-.

,2""

, tllOll'"
.z""
.,a••

00930
OOO"M
000411
OOIlZ

0060'
PNO
00569
00.60
00000
(10)0

SO-SI
XNO-XNI
YNO-VlII

RETURN., ••

-0
-0
-0
119

01010
01020

T'FL 50,51 ..
TFL .INO,INI,I,
TFL YNO,YN1,6,
.'
SLOPE-IZ
OORG .-)

DilDO.
09010 NOINT
09010
090]0

OO,u
00""
PZ
005'"
009.0

IRANCH IF POIN' Pl IS CLOSER
00706 Ml 008,. 01100

08050
08060

06070.
080do ITEII
08090
08100
08110
081Z0
081l0.
08140 MOVl
08\'0
08160
01110
08180.
01190 TESTl

~~25:0~~T:2"10

HOYI .. ,

SEUCf OleP

01180.
011<10 MOVI
01200
08010

CALL LlNCDN SUBPROGRAM YU MONITR
00" 0 ZP 01400 00519
OETERIIINE INTERSECTION 01\ LINE AND CONIC
00~21 IP OZ410 00"'1
llIANCH If Z INTERSEC"ON~ DO NOT EX 1ST
00~)4 M5 00 . . 0 00079

00960
00910
00910
00000

IN,eR~!CTIONEXISTS

00890 M' 00'"

0001.

00.02 15 00079 00000
009U 00001
IIETUR"••• Guns VAWE INICCURATE
00"'4 4. 0241.1 00000
00921
00910 00010
00940 00010
00950 00010
00960 00010
00910 00010
00. .000010
009.0 00010
01000 00010
01010 00010
OIOZO 01l'll10
01011 oooe•
01010 00002
06015 00000
02416 00000
oZ~16 00000
02416 00000
00079 00001
00960 00000
00'''0 00000
G0960 oooeo
009"0 oeooo
GO.60 00000,
oza" 00100
02"" . . . . .

135

10110 CONY
10120 MONITA
10130 RETURN
10140

as
OS

.2411
.2406
.24\\
DINO NORIICI!

OHIl 00000
02406 00000
OHIl 00000

OS

Dono

"CE

SY"IOL TABLE
3ROOTS
TZCAlC
IIETUIIN
LNCUBE
ANOll
Bcuee
CAP8
COSF
EXPF
LOG'
PI)
0/1
SIGN'
51
Tl
113
IPIII

0039211
0071611
OZ411
000S611
0012811
0002011
0182011
OZUI
02416
02416
0180011
0112011.
OU4811
000)011
000"11
0175011
0111011

'KIIOOT
TlCALC
REFAOO
CUBIITF
AIIG
8NOn
C8RrA
OSAI
FLAG

0182011
0012IR
oonoll
0126411
0125811.
0\41611
0102611
0016311
00019
OOOOSII
liST
0111011.
PHI
0111011
II
SIIA/I 0112011
0004011
S2
ODOUR
rz
liNT 0115111
ZIIEAL 015. .11

IIIOOTS
SZCALC
111"1.0
A-O

850/4 0181011

8ST
CCUBE
Dsn
FUGO
NYEIIT
0

u/n

tlllT8
OSA2
FLAGT
NOTO
PHil)

0106211
0077911
00lt01R
0153111
0181011
01810R
11/2
SMI/2 0119011
OOOSOIl
U
0005511
n
lllEAL 0152411
0180011
ZXI

51

SOlITA
TEMP
YEIIT
11100T
)INT

0 IZ lOll
0119011
01 J.4011
0138011
01UOII
0001011
0002'11
00789R
01"411
00918R
0179011
0019911
0181011
0111011
00n411
0091011.
0069211

nCAlC
SICALC
IIINO.5
ACUBE
8*0
CAPA
, CMI"M
EXAOO

0070U
0163611
0178011
0001511
0169211
OIUOR
0179011
0126311

HP/EI
P
0/2
SIGN
SQUF
TEM"
0.'
21NT

0019811.

4111

1111 'tZU-l'l' AU-APT SUIPROGRAM 'OR DITERMININI
fHI INTlIISICTlONS Df A LlNI AND A CUlle

01010Ill0200103001040010500106001010010100109001100OU100IUO01UO01140011S0-

o1800R

0119011
OU5I11
02416
0114011.
0116011
OU)411
0114011

lit.

-NAill! LNCUI •••• NON-ERASAI... SYstEM SUIPROIIIAM

-10 NUMlell OU1+DElDU'

_ASSEMILI II!LOCAUBU
-$TOIII "ILO'DULI
LINa'GI - IT LNCUI •• OSALIL+'O"
OSALIL II ADOIIESS A. SLD'E 0' LINE IS-T SVSTENI
DSAL.L.' IS ADDlleSS T-INTIIICI~T LINI IS-T SYS'IMI
DS'LIL+IO IS ADDRess o. '-CDe"ICIENT ICUIICI
DIALlLH' II ADORISS Df I-coePPlellNT ICUBICI
DSALIUZO IS ADOIIESS
c-coe"ICII!NT ICUIICI
DSALIL+I' IS ADDIIESS O. S-COOIIOINATE l'OINT II
DSALIL.JO IS ADOlless a. '-COORDINATE lPOINT II
OIALIL." II ADDlless O. S-COOIIDINATI! !POINT ZI
OULIL.40 IS AODIlISS D. T-CDOIIOINATI "DIN' Z I
OSALIU4' IS ADDRESS O. s-caOIlDINATE .'DIN' JI
DIALIVIO IS ADDnlS lIP '-CooIlDINATe "OIN' II

o.

ou.o-

01110OUIO011'1001200020100202002010_
02040 ADOCON DC
020'0
DC
020.0 Mst
OS

eNUMIIII O. INTI!IIS!CTIONS INDICATID IV I-DIGIT
.IELD •• COAl POS"IONS 00011-00019
'0.0
•• 0
'.AODCON-44.

02010 1st

OS

,.IIU •••

010.0 'CUIII

OS

'.Ist.,.

01090 lCUIII

os

S."'Ulle"

02100 ctutl

os

S.KUlE.'.

sa

01

5.celllleS.

OlllO II

os

I.Sl."

02110

0111811.
0080011
02406
0004911
02U6

IU"EEK
T-FOFS
MONITR
AODCDN
ATANF

ODO~9 00050
00055 0000.
ADOIIESSES O. SLO'! AND T-INTEIICE'T
00005 00005 .
OF LINE ILOCAL 5-' IIEFEIIENCE SYSTIIII
00010 DODOS
AOOllESSES OF ..eOE"ICleNT ICUIICI
00015 00005
"OOllESSES O' I-COE •• ICIENT ICUIICI
00020 00005
'ODRISSES OF MOE"IC lENT ICUIICI
00025 0000.
AOOUSS OF S-COOIIOINATE .'OINT II
000)0 0000.
AOOllESS OF '-COOIIDINATE "OINT II

'AGf
021)0 52

OS

5,TI+$,

021'0 T2

DS

5.52"''1.

02150 U

O~

5,T2+',

02160 13

OS

',5)+5,

00015 00005
ADDRESS OF S-COORDINAH IPOINT 21
00040 OOOO~
ADDRUS OF '·COORDIN.FE CPOINT 21
00045 00005
ADDRESS Of S-COORDINATE IPOINT 11
oooso 00005
ADDRESS OF T-COORDIIIAre IPOINT 31
00055 00005

02170'
021801
02190 LNC;Ue£ TFII
02200
03010
03020
03030
03040

c

nnoli
03060
03070
0)080
03090
01100
03110
03120
0)130
0)140
01150
03160
03170
011 SO

ANau

SUBPROGRAM ENTRY
FLACY,I,IO,
ASSUME ONE IHTUSEtfiON EX IStS
00056 J6 00'03
lfL CMINM,CCUBE,Il
OOOU -0 01190
F$UB CMINM,HST ....
CMINII'C-IIst
00080 -K 01790
TFL P,BCUBE,II
00092 -0 01800
FOIY P,'CUBE,Il,
p-aIA
00104 -R 01800
BY
A-O, ••
BRANCH IF A-COEF'ICIEIIT IS LERO
00116 01. 01)80

FDIII

e~IN".AeU8I.II,

TFL
FCI V
FMUL
IFL
FHVl
FMVl
TFL
FHUL
FSUB
FMVL
FSUB
FHUL

R.OST,II
K,ACU8E.ll,
R.MIN1.O ..
On,Q
OIl,I/). ,
p, l/)"
TEMP,pn
TEMP, PI)"
0/3, TEMP"

Q,0.5 ••
012, TEMP ..
G/2,P/), ,

03190
0)200

FHUl R,O.5, ,
FSUS Q/2,RIZ, ,

O~OIO

010020
04030
04040
04050
04060

TFL
FHUl
TFl
FMUl
FHUL
FADD

8SQ/4.5HB/2
BSQ/4,5MB/2. ,
Al/27,SMAn
AlI21.SHAIl ..
Al/21,SMA/)"
850/4,'3/27 ..

04070

8NN

HP/EZ",

04080'
0'090 3Roon CF
BIM
04100

SQRTA-2 •• ,

HONI TR .02000.67.

04110
010120

8TH

BTM

SQR TF •.SQR TA, 67,
HONI TR,OZ020,67,

04110
04HO
04150
04160

BT
FHUl
CF
BTM

• UNF, aSA \+ 10 ,6.
PIlI ,1/3 ..
SM./3" ,
MONITR .02000,67.

04170
04180

BTH SQRTF.SHAn,n,
FADD 2XROOT, SHA/) ..

04190
OUOO

TFL

8T"

05010
05020

8TM
FMUl

050)0
05040
05050
05060

FSU8
FAa!)
TFL
arM

05010

FMUL

05080
05090
05100

FSUB
FADD
BTH

05110
05120

TFl
FHUL

05130
05140 31NT

FSU8

OOIU
00140
00152
00164
00176
00188
00200
00212
002H
00236

Q·e"I"""
R-eSTlA
R'-BSTIA
0/3.0
PI3.0

'·.2/9.0

-R
-0
-R
-L
-0
-l

-l
-0
-l

01 "0
01810
01810
01810
0lB20
01820
01800
0lS30
0lS30
01820
01190
01790

Sf4A/J-Q/J .0-P •• ll'.0
-K
0/2.0
002~8 -l
Q/2.0-P"2I9.0
00260 -K
P/3.00IQ/2.0-'''2I9.0 I
00212 -l 01790
R/2.0
00264 -l 01810
SHa/2.P/3.00IGIZ .0-PI02 19.0 I-R/2.0
0029(1 -K 01790
00301t -0 01810
0012Q -L 01810
5"8··2'4.0
OOHl -0 01830
003410 -l 01830
5""··2/9.0
SMA··3/21.0
00356 -l 01830
SQRT A-SMBo'2I4.0' SMAo01l21. 0
00368 -J 01810
SRANCH IF RESULT 1I0T NEGAT lYE
00380 M6 0089S

ABSF ISQRUI
00392 l) 01808
CALL SORIF SUBROUTINE VIA HONITR
001004 17 aHao
SORTF lAB SF I SQRrA II
00416 IP 02410
CAll AUNF SUUOUTINE YIA MONITR
00428 17 OHOO
CALCULATE PHI
00440 2P 02410
PHII).O
00452 -L 01810
AaSF I SMAI3I
00464 L) 01820
CALL SORTF SUBROUTINE V I. MONITR
00476 17 02400
SQRTF IABSF I SMA/lil
00488 IP 02410
2 .O'SORTF IABSF I SMAn II

000-1
0002N
OOOON
0002OOOIN
01400
800lN
0001ODOIN
01740
01190
01150
011~0

01800
01800
0lS30
01760
01830
01800
01760
OIUIO
01790
01790
01820
01820
01820
01830
01100
COOOO
-2000
-IBlO
-2020
001H
01750
00000
-2000
-1820

PlGf

TO"

O~ 150

BCAlC 8 TH
05160 TZCAlC BTH
05170 TiCALe 8TM
05180
TF
05190
05200
060100
06020
06010
01>040 OSAI
06050
06060
06070
06010 DSAI
01>090
06100
06110
06120 OSU
06130
0614006lS0 $1

a
DORG
HOP
DORG
OSA
DORG

HOf
DORC
OSA
DOIIG
"Of'
00«<1
DSA'
00«0

os

0'160 T-fO" TF
0"110
'"
0. . .0
TFL
06 . . 0 111'1100 OS
0'200
01010
010Z0
01010
07040
OlOSO
01060
01070-

FIIU~

FAOO
'MVl
FAOO
'NUL
88
DOIIO

00500 -J 01820 018Z0
00512 -0 0003- 01810
CAll SINF-COSF SUBROUTINE VIA "ONITR
00524 11 02400 -2010
COSFIPHI/).OI
00536 IP 0242J -001COSF,Slt6711,
2. OoSORTF U8S'« S"Al3lloCOSF« PH II 1.0 I
Sl.2XROOT,6,
00548 -l 0003- 01820
00560 -K 0001- 01800
51,P/),6.
SI
00512 -J 01810 01 lTO
PH 1/3 .0+2 .0-' 1/3.0
PH1I3,2P1/3 ..
00584 -0 000.- OLBIO
S2,PHII],6
COSF IPHI /).0+2 .00P IIJ.O I
C05F,$2,6711.
00596 IP 0242J -00452, 2XRODT, 6, Z.OoSQRTF« A8SF I S14Al3llo(OSF I PHI/) .0tZ •.Oop 113.0 I
00608 -L 0004- 01820
S2
00620 -K OOO~- 01800
S2,PIl.6,
PHII3.0+4.00PII3.0
00632 -J 01810 01770
PH1/3,2P1/3"
COSF« PH 113.0+4.0 0'113.0 I
COSF,PHIIl,6l,
00644 IP 0242J -IB 10
53,PHl/l,6
00656 -0 0005- 01810
53 ,2 KROOT .6, 2.00S0RTF UUF I S"Al3lloCOSF« PHI /),0.4.0'PII3.0 I
00668 -l 0005- 01820
53
00680 -K 0005- 01800
$),P13,6,
THREE U'nQUE INTERSECTIONS 'EXIST
FLAGT,),.
00692 J5 00401 00003
f)-Slo«S3oIAoS3'BI-CI 00704 JP OOBOO -005T·FOFS,S307l1,
rz-SZOIS2+IAoS2+BI'C1 00716 JP 00800 -004T·FOFS,S2.711,
T1-SI+I5Io«AoSI+8I+C1 00728 JP OOBOO -003T.FOFS,SI.711,
MOVE NU"BER OF I"TERSECT IONS
FlAC,FUGT"
00740 20 0001. 00403
00752 ~9 0241J 00000
RETURH TO MONITII
RETVRN .. 6,
00762
-'+5')-11-1
SI,PHII1,6
MON 1T1I.02010,67,

00762
00759
00763
00778
00778
00775
00779
00788
00788
00785
00789
00T'I5

SOU A. PIli
0-14
SH8/2
0,")-4'502-6
teRlA'U,O
-1<1
CAPA
"5'2-10.,02-6-1
CBIIUtU,O
_14
CAPS
0+502-'"

5,.

NEGATIVE ADORns OF 51

•• '0.· . . 1
"18.5,10
,ACUBE,U.
,_."

T1-a
NEGATIVE ADORUS OF TI

IIEFAOO.SI.6I1,
ftEFADO,IICUDe.6U.
UFADD,SI,'".
UfADO,C:CU•• ,6U.
REFADO,SI.61h
.. ,
-,

MJ 01810 01810
00005 -1190
HI 01038 00000
00005 -1830
"I 01014 00000

OOOOS -18Z0

00799 00005
00800 kO 00830 00799
00812 JZ 00830 000-5
0082~ 00 00000 OOOIN
008)0 00000

n·A.SI

fle,·U"
n-SI,,,·51+81

"·S ..... SI ....'

n-s ••• Slo,,-S '01'0'
un

00836 -L
.J
00860 -L
00812 -J
I 00884 -L
001" U
00"8

oona

0083- 0079R
008)- 00020083- 001'111
oon- 0002N
oon- 0079.
00000 00000

1 :r:

""'ft

u

I~OOrs ...

07090.
07100 I~OOf
on 10

IRANtM IF RESULt IS lEIlO
00 ...

tM
IN

MST.U.6lO
NYEIIT ...

on20.
07UO YEn
01140
01150
01160
01110
on80.
07190 IInllY

00910 J4 0000/1 OOOM'
IUNtH IF LINE IS NOT VERTIcal
0092' M? 009T8 OIJOO

fFL Si.8U.UI.
FNUL SI.NINI.0.6,
FOIY SI.NSf.6Ih
B
TiCALt
ODRG .. )

07080

SleaST
Ste-IU
$I-tlTlMST

00934
00946
-0095'
00970

0!I91.

M' 01210 OUOO
-0 0001- 0001-l 0001- 0lT40
-II 000)- OOOON
"' 00?2. 00000

CALL SOIlTF SUIRaU"NE YIA MONUII
00911 17 OHOO
SORJFISQRTAI
0"990 I" 02410
(11002 -0 GIUO
CAPAeSIII/I+SOIITA
01014 -J 01.31
U""lill""IO~YU .. lleO/ItOI

-ZOOO
·1110
01810
01790

1110" I" 0".4 1I0U'

08040
08050
08060 CUTI

TfL ¢API.SMB/Z
HUB CAPS.SQIIT .....
IT
CUIITF ,OSU., ••

08070
08080
08090
08100
08110

TFL
FAOO
FSUB
tM
IE

08120·
08130 21Hf
08HO

FMUL tAPA ,tAPe ..
Bit
JUHU" ...

tApAtUpl
01134 -L 01810 01810
IUNtH IF IIESULT IS POSITIYE
01146 "~ 011 JI 01100

TDM ,FLAGT,I ..

ONE INTEIISECtioN EXISTS
Oll,a J5 0040. 00001
011TO 119 00T28 00000
Oll T8 "

08150.
01160 liNT
08170
081ao

g:~~g. ZU"eEK
09010 SZtAU:
09020
090]0
09040.
09050 2ROO'S
09060

S1,CAPA,6
SltCAPa,6
SI,P,6.
FLAGT. It 10
TlCALC .. ,

TlCAlt
ODRS --3

,8

010)8 -0 01828 OIT90
01050 -It 01810 01810
CAPI-SMB/Z-SDRTA
CAPa-ISM8/Z-SQRTAI •• ' 1.0/].01
01062 ItP 01164 00794
01074 -0 000)- 018]0
01086 -J 000'- 01820
st-CApA.CA,.-P
01098 -It 0001- 01800
01110.1400401000-1
lUNCH IF ONE INTERSECTION EXISTS
0112l M6 00T21 OllOO

'fL 5'2.$1,611.
FMUL 52,MINO.',6,
T2CALC
ODRa - )

01lT8 -0 0004- 000301190 -L 0004- OUIO
01202 M' 00716 00000
01210

B

01210 J4 OOOON 000M9
lUNCH IF LINE IS VERTICAL
'
01222 11600n4 01300

tM
BN"

IIST.49.610
YEIT ...

09090
091 00
09110.

B

NYERT
tEMpF.ARG,11

01264 -0 01840 01250

09140 ARG
09150 EX"OO
09160.
09110

OS
OS

"CUBRTF-6
5,ARG.S

Dun

MF

SIGN, TEMPF-Z

01216

09110

aTM

MOIIITR,OZ040.61,

09070090ao
DORa

g;gg. CU,.RTF TFL

09190

.~6

10010

ITN lOGF.TEMPF,61.
FMUL TEMPF.II), ,
I'" MONITR.OZOJO,.'"

10020

BTII

100]0 5IGt.F
10040
10050
10060
100TO'
10080 A-O
10090
10100101l0.
10120 .NOTZ
10UO
10140
10150
10160
10170
10110
10190
10Z00

TEMpF-l, SIGN
A'RG.TEMpF,6
I
E,ADD,,'.
ODRG 0-)

09100

11010·
11020 lREAL
110)0
11040.
nOlo Nato

eXPF.TEII".67,

MF
TFL

TFL aicl.ICUU.U
'ADD IXI.axl ..
•• 0 ...
'Z
'1
TPLTlMP,CMINM
FMUL TiMp,eIllINIII ..
TPL TIIII".UI
PADD 1,M". ax ...
'HUL 4X1.ln,U.
I'AOD TI"P,u...
FNUL '"INM,MINI.O"
FOIY tMINM.axl ..
NOTO, TEIIP-9 ..
10

TMO INTERSECTIONS EXIST
01234 J" 00403 00002
00918 00000
01246

Dun

II"'

01258 00 ODS
oqoos
,~

0135. 01.,1

CALL LO" SUIROUTINE YIA MONITII
012.1 17 02400
LOGfIAIS,,'RGII
Ol.OO I' OZ410
lOGFIAISPURGIIII.O
01312 -L 01840
CALL EXPI' SU8ROUTINE VIA MONITR
01324 11 02400
EX" I LOC;F I AlSI'IAllII IIJ.OI
OU]6 II' 02410
01348 ,,,, 01838
01160 -0' 01250
EXIT
oun N9 01Z6L
OU80
-i

'AGE
-l040

-1840
017'0
-20)0
-1840
OU5a
01840
00000

ouao -0' 01100 0002OUU .J 01100 01100
01404 ' .. 01692 OUOO
"
01416 -0'01130 01190
01428 -~OI'JO 01190
It-IISTlt.'
01440 -0 018"0 01100
01412 -J 01140 01100
4.0-1
01464 -1.' 01840 00014.0 •••• ST
IC-IIIT'·.2· •• 0 •••• IT 01416 .J OIUO 01840
014.8
-LOU'O 01740
-CIIINM
01500 -II OI?tO 01100
-CIIINIII/I.OII
IIIANtM IF flOT aNI IIITERSECTION ulns
01512 ilL Dlnz 01821
'.0.'
''''NCH IF • IS liRa

oUZ4

B
ntALC
ODRa --.

OUIZ

"' -01616 00000

INF

ZRUL,TE"P-2 ..

lRANCH IF TIIO INTERSECTIONS EX 1ST
01'32 Mil 015.4 0112.

•""

I'UG .. 10.

NO INTIRSECTION . . lin

RnURN ....
DOIIG .....

RITURN TO MONITII

ITIII

""NlTlI.OZODO.I?,

CALL SQRTI' SU.IIOUTINI

U120

ITM

SORTP."M,,6?,

lIUO
11140
UUO
nUD

,FOI v
TFL
FADO
TOIl

11060.
UOlO ,"UGD
UOIO
11090
11100·
11110 IREAL

11170 SIC"LC fSUI
1l1l0
TFL
U190
CM
nZDO
IE
12010.
11010 '
12010
12040.
12010 .-0

fE'M,.aXI ..
sa,CMIHM,.,
$2',TEM'.6,
'L~GT.2 ..
CMINM. TEM' .. '
ShClil1 HM,.,
"LUr,a.i0
TlCALC ...

'.
Tl~ALC
OCIIIII ....

01'44 16 0001. 000-0
01556 49 014iJ 00000
OU64

VI' MONITR
0156. IT 02400 -2000
SOIlTP! It-MIT , ....4.Dt. .IISTtIe"OOT
01576 II' 02410 -11)0
ROOT/II.O.'.
015 .. -I Dina 01100
UeC-IIIST
01600 -0 0004- 011'0
sa-C-IIST+ROOT
01612 -J 0004- OIUO
TMO INTIRIICTIONS 1.11~1624 JS 0040)00002
t-IiST-ROOt
0161' -KOIT90 OtnO
Sl-C-MIT-ROOT
01648 -0,0001- 01190
,
01660 J4 0040' DOD-.
''''N," I' 1'110 IlIfERSltTlDNS IXIST
_
Otn. II. 001'1. 01100
0 ...4 119 oaTil 00000
01692
• ....NCH ., "-lIlr) .. IIOT ZIIIO

0 ...2 IlL OUU

on••

w-

PAGE

e
FUGO
DOIIG _I

U010
12080
120'10.
UIOO
IlllO
12120

011~~

...

TFL

SI,8ST.611
VERT.Z4

e

DOIIG

UHO.
121.0
DC
12150 111111.0 DC
DC
12160
12110 11)
DC
12180
DC
12190 0.5
DC
12200
DC
U010 2PI/3 DC
U020
DC
nOlo MINO.5 DC
no.o eMlliM DC
n050 P
DC
U060 R
DC
DC
n070 011
13080 TEMP
DC
13090 TEMPF ~C
1)100.
us
U110 SIGN
U120 FLAG
OS
U110 FLAGT os
OS
Ul.0 II
U150 PlI
OS
1)160 11/2
OS
U170 RIl
OS
U180 8511/'1 OS
13190 5MB/2 OS
1)200 AJlZ1 os
10(,010 SMAIl ·05
10(,020 SORIA OS
1.010 SIIRTF OS
1.0..0 AU~F liS
1.050 PHI
OS
10(,060 2XROOT OS
H070 PHIII OS
14080 COSF
OS
1.090 LOGF
OS
I)S
14100 EXPF
I~IIO ZX8
0.5
14120 4X8
OS
1.130 CAPA
OS
1410(,0 CAP8
OS
14150 MONITR OS
14160 IIUURN liS
14110
DEliO

6

"9 on44 00000

OUU
0ln2 -0 000)- 00010171~

01711

•• -10000000
2.1

•• nnnn

2.0
1.50000000
2.0
8.Z09419"
2.1
8.-50000000
Z.O
10.0
10.0
10,0
10.0
10,0
10.0

"9 Don.

01718
·on40
01148
on50
01158
OU60
01168
01170
01nl
OU80
01190
01800
01810
01820
018)0
01140

00008
00002
00008
00002
00008
00002
00001
00002
00001
00002
00010
00010
00010
00010
00010
00010

OU58
00019
00403
017911
DilDO
01190
01810
OUIO
OU90
01830
01820
01110
02U6
02416
01110
01820
01810
02.21
02U6
02416
01800
01840
01830
01120
02406
02411
000,'6

00000
00002
00002
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

.51GNF+l0
2.lt
2.IROOrs."
.CNIIiM
.p

.11
.R
,R/2
,1112
,TEMP
.1113
.8511,.
.2.16
,2~16

.SIIRTA
.SMAIJ
,PHI
,2421
.2.16
.2416
.1'/3
.TEMP'
.TEMP
.2XROOT
.2406
.Z-HI
"NCUle

00000

PAGE
SY~'OL

E
J
TU

MIN1.0 06024
GOI
06U1
TUR T 0018~R

05954
0000111
0"47

lABLE

F
0596~
TLl
061~5
TUON 00150R

F-I.O 0013611

TLilT ooonll

0.0

06034

FISH 0000211
TL ION 00 16411
1.0
06075

010 to.
OIOZO010300
OIOliOo
01050.
01060·
01010·
01080'
010.00
01100.
01110·
01120 J
01110·
OIHO FISH
01150

CM
BE

01160.
OIlTO

8P

TLlON .. ,

8RANCH IF TOOU IS fLON
00026 N6 00164 01100

011 aD.
01190 TLI'"
01200
02010

TFI.
CM
BE

E.t.O ••

SET f-l.D

T&.2.3,10
TUOII ...

S
Il

.. ,GOZ ..
'-1.0

""-G02

ell

.I.-Z.IO
F-I.O

02020·
02010
02040
0205,0'
02060
02010
02080'
02090
02100
02110

IBM 1620-1311 Ao-APT SUBPROGRA" FOil ESTABLISHING
THE DRIVE AND CHECK SURFACE OFFSeT INDICATORS
BASED ON CONVENTIONAL MOTlO" AIIO THE CHECK SUIIFACE
MODIFIERS ••• TO. ON, 'AST. TANTO

Res

'NAIIE FISH ... ERASA8LE AREUII SUBPIIOGRAM
olD NUMIlEII 021UDELDIM
OASSEMBLE RELoeATAI"E
oSTOIIE IIE"OADABLE
LINKAGE - IT FISH.TlZ ••
DC

) BE

,,0

0000 I 00002
SuaPIIOGRAII EIITIIY
00002 I~ 06145 000-2
TU,I,IO
lUNCH I' TOOLI IS TLIIGT
TLlIIT ...
00014 146 00184 DilDO

~m:·".I.O

00074 III 00001 Dun
00086 146 00156 01200
00091 J4 00001 000-11
00110 146 00136 01200

TFI. F,MINI.O ..
.8
00"

...

SET "Sf IltDteATOII

001Z2 06 05964 06024
00134 4' 00000 00000
00U6

TFL

••
""

... 1.0..

SfT '0 lNOICATOII

00116 06 05'64 060"
00148 4Z 00000 00000
00150

sn

00110 06 0596 .. 06034
00000 00000
00162
00164.

'A.

1.0.0. .

0-,

02140
02UO
02160.
01170 T"'Off
OIUO
02190
02200'
03010 'UON
0'020
OJOIO
0104003050
030'0
03010
0)01003090 TU

00038 06 0595~ 06015
00050 " 06141 000-3
IUltCH IF TOO'"' IS fLON
00062 116 00150 0 1100

tt'

EXIT

exIT

00l1li-9
F.O.O ..
II
tt.
l1OlIO - ,
I

'LU'U'
lI0II1 - I

,un ,A.
OIC

01&

DS

....

1,111141.0,.

.....

'UUU.

Off INDICA'OII

III IT

SIT ,-•• 0

,a

:m: :;. ::::: :::::
0011'

O' 0"" .....

00114
00196 0000'

ol.oa 0010' -....
0 • •, HOOO

139

OllOO TlZ
03110
0)120
0)1)0
01140
0)150
OU'O
0)170

G02
E
F

OS
OS

.6141
.6331

OS
OS

,5~54

06147
oun
05Q54
0"1>"
06034
060TS
060n
00002

.hlO
i6014
,0.0>41
.0.0-10

0.0
liS
1.0
DS
.NI"'I.O OS

DENa FISH

"'GE

00000
00000
00000
00000
00000
00000
00000

PAGE
SY"80~

TOlCHK
NONITR
81
05A2

EXIT
RO
XN

12696
OH06
03)72

RetURN 02411
~NSTR T 12540
CRill 02488
OSA) 125H
F~II
02488
fENP 00019
.0
05892

12~O9

un6
01'08
02488

OFFSTO
ERPROC
CRIT2
E
FLIIST

12'11>
02411>
02498
05954
on.2
TlRAD 0598"
02498
Yli

OFFCHK
EP$lON
OISTF
ERlOO
1'0 ON

TOLl
YO

1t0R"~N

12764
06004
0241.
U884
02508
059."
05902

OEYUT
OSAI
ER201
"I
fOLO

11M 1620-1311 AD-APT SUaPRaGU" FOR YUIFYING
THE START-UP POSITION OF THE CutTeR
DH LlItE DRIVE SUR'ACES

01010'

01020.
0(0)0'
01040.
01050'
01060'
01070'

02416
12614
12419
12860

OU62

06014

RCS

.HAMI LNS.fRT ••• NDN-IRAU.I.I AAiUM SUIPRDGUM
'10 NUMIU OI1900UDIM
• STORe CDU I MAGE
LIHKAGI - .
LN'T'f •••

DIDIO'

"41.

01090'

01100
01110.
01120
011)0
01140
01150
01160
Oil 70
01180
01190
01200 DSAl
02010
02020
020)0
02040
02050
02060 OSU
01070
02080 aSA)
02090
.
01100'

fA8~E

DC
DDU
NDP
DORa
NOP
OORG
Nap
OORO
DSA
DORG
NOP
DORG
NOP
DORG
DSA
OORG

DSA
DSC

XO
•• 5 .... 4+5.'-lI-1
VN."OOH

IUD)
12491
11498
\Z488
12488
"47'
12471
12475
1247'
125"
12518

VO,X"

1250' .1 OI.OZ 0' ....

)0.0
\2474 .......
VN,O
-ll

Il,XN
-21
VO.MI
-14

'-2\

Dono

41 0'4" 00000
41 Dun 0' ....

41 Ott02 OUU
0000'

U50a

0-\4

12'0'

.05'"''

UUO
12114 0000.
UU. 0000.

xo

O"STDoU
1001101

-un

41 024.. 02508

Iz'Ot 00001 -, •• ,
JIl,.

SUI'RDGU" ... TRY
MaH"".OIl"O,"',
CALL HO""LN lul'ROGUII YIA MDN""
"UO If 0'''00 -1140
'''DJetT cutt •• C.HT." TO as LIN •• NO.MAL TO LINI
02no.
"
HDRMLH.DSAlo""
una 21 0'''10 "50.
OIHO
Il
MaNIlR.DS.......
tALL DIS" SU8PROGIIAM 'IA MDHITR
OIUO
U56" 2f 02.00 u,n
0211>0CALCULAT. OISYAIICE '''OM CUT"" CeNTIR TO LINE
021 70 o,.,no IT
OUfF.osu-ao,.
u'f. 21 O~"IO. un9
02110
Tf~
CRITI.Ta~1
UUI 06 02411 05994
02\'0
FAOO CRIT1.EpS~D"
12600 01 0'4'8 06004
02200
SF
,RITl-2...
CR!Tlo-iTOLloE'SLONI 12612 12 02486 00000
0.010
TFL CRlTa.fa~o
IU2 .. 010 02498 06014
OJ020
FADO CRITI.I!IISLOI'Iu
tRITZ.TaLOoEPlLOt!
12636 01 02 ..98 06004
OJO)O
TFL TEIIP..
&2641 06 000'" .,"'.
0)040
FNUL TEMP.fl.R~D..
f"~"'D
12"'"0 0)00079 0'....
O)OSO
CF
TeM'-2...
AaS'IE.TLRAOI
12672 )) 000f1 00000
01060 IEYIA' 'SUI MOOIIoT'"'"
MDOII-DISPLACEMEN' OF CUTTER 'EAIPMI.'
U6U OZ.I"OI 00019
02110.
021 ~O L.. ,,'" IT"

\

03010.
OJOIG TOLtHA 'SUI tRnl."ODH
01090
.,
E~aOO-Ia",

nOM os UNE liN DlatttlON OF CfNTER I
un6 02 OZ488 OliO.
'UNCH ., cunu NOT WIT"IN TOLEUNCE
12701 46 UI12 01100

ouoo·
01110
OUZO
OlUO.
OJl~O

03150·
0)1'0 EUT
Oll 70
OlUO.
01190 OFfCHII
0)200
04010
040Z0
040'0
04040
040'0

'SUI CUU,MODH
8N
uaOO-12".

UUO 02 02498 onoe
UANCH I' cunEII IIOT WITHIN TOLERANCE

ID

lUNCH IF TOOLl IS TLLFT OR TLAGT
12144 4J 12164 019'"

_ 121)Z U una OUOO

OfFCHK,E-.,.

•
RETURN .. 6.
DOIIG _1
c
TPL
FSU8
tFl
FNliL

UH6 4. OZ41J 00000
12764

RO.'O
RO.8I"
UNP.NI
TEMP.XO ..

06 02508 05902
02 oaoa 03112
06 00019 OU62
OJ ooon 0,..,
"1·.0
1I0oVII-M,.10-1i
lUll oz DuDe 0007'
Ao·e
12824 03 OU08 05"4
IIIANCH I' CUTfER IS ON PAOPER SlOE
128)' U OHlJ oliOO

'SUI RO.TI", ••

FNUL RO.E ••
IP
/InURN ....

04060·
04070
04010 EUOI

atM

ER'ROC.20101.61,

8TM

ERPROC.20001.61.

0
010~0>

fNAIIE STACK... faAS •• LI
010 NUMBU D2U'DELDIII
.ASSE.llE allOCATA.L'
onOke RIlDAOAlU
LINKAOI - IT STACK,S"L

01050'

0106001010'
01000'

°1"U
illU Hili ...

III

01110'
01120'
OIUO SUCK
01140

eM

Oil S0'
01160
01170

TP

01110
01190

CM
BIlL

01200'
02010

TA

02020
OZOJO
02040 UIT
02050
02060'
02010

/I,t
SUBPROCUM .NTRY
STPX.'XWST-a . .ahU
00006 14 0616' -S.11
STOVPL-U",
IAANCH ON OVIA'LOW OF 'IUD-WORO SUCK
0001. M. 0011. 01100

BIlL

000)0 116 DOD" 01."
AODKISS 1111 'LWIT 0' NUT UtORD
00042 II 06163 00-01
STPl,'LNsr-"IO'IU+1\
000'4 14 OUU -"14
STOV'L-U...
lUNCH 0111 OVUHOII 0' PLOATING-WORO STACK
00066 M6 00116 01300
>+22,H'N
ST'L.I,9"

AI,

SUCK PlxU"WOaO 'DATION 0' ReCORD
00011 31 0616Q Ol4S'
STKPL,PLW.O.IO-•••• srACK 'LOAfiNG-WOAD 'ORTIOH 0' RECORO
00090 1I OOOOH OZ4"
AM
AOOUSS IN ,un 0' NUT ReCORD
00102 II 0616' OOOK'
a8
•• ,
Ulf
00114 U 00000 00000
OORD ...
00116
TA

ITM

MONI ra,oano,61,

02010 srOVH ITH

UPROC.a0600,.1,

02090'
02100 STPM
02110 FKWST
02120 SUL
02110 N'N
02140 FLWST
02ltO HSECT
02160 nil
02110 IRPAoe
02110 MONITa
021'0

At.

'1111.1" SUIPRDGUII

os
OS
os
os

CALL III'AOC SUIPaOGaAM VIA MONITa
00116 11 02400 -U'O
lIalTE IUOR IIISSAO .... SURCH FOR END
00121 11 02410 110.00

,616.
,"40
,61U
.2455

06161
05540
,06161
OH"
OUU
024"
02488
02416
OZ406
0000.

,uu

OS
OS

,2451

,24"

os
os
os

,Z~16

,2406
OENO STACK

00000
00000
00000
00000
00000
00000
00000
00000
00000

SY"80L TABlE
SEMINZ 06095
STaL 0000611

MONlTa 02406
STOllE 0004ZR

"$LON 06004
TO"N oooosa

FLII
TOLD

DIU.

06014

IBM 1620-1111 AD-APT SUI'ltOGIIAM FDa PROCESSING
AN INTOL OR OUTTOL RECORD

01010'
01020'
01030'
01040'
01050'
0106001010'
01000>
01090'
OUOOo
Ol110 TO"N
01120>
011100
Oil40 STOL

ERPRDC OZ416
TOLl OS994

>NAME STOL ... ERASABLE ARlLEM SUI'IIOGRAM
olD NUMIEA 0224+0ELOIM
'
OASSEMBLE RELOCATABlE
oSTORE RELOADAILE
LINKAGE - BTM STOL,TOLAOD
TOLAao IS ADDRESS 0' INSIDE OR OUTSIDE TOLERANCe

'.0..
INI'

AOOIIESS Of TOUUNCE SPECIFIED
00005 0000.

SUBPROGIIAM INTII'I'
STOIlf,FLII.OoaD-Z,. IIIANCH If 'AUMITEa IS POSITIVE
00006 M" OOOU OZ'"

011500
O~"O

ITII

IION" •• OU50.6",.

OU.,O

8TII

.1I'''OC.20TO .. ' ' .

aUlD STDRI TFL
'fL
Oll90
'ADD
OUOO
Of 010
FNUL
02010
OSC
020JO'
02040 PLY
as
020'0 MONITR OS
oaoto I''''ROC OS
01070 E'SLON OS
OJOIO TOLl
DS
020tO TOLD
OS
011 00 IIMIH2' OS
DlUI
OIHO

aes

TOLN,'~1i00.10.6.

!PSLON, TOll

I'S~ON,TOLa,.

"SLON"'NINa"
2.41"
,241'
.240.
,a416
,6006
,1994
,'014
,60"
ITIIL

CALL . .'IIOC SUIPIIIICRA.. VIA NONITR
0001. 17 0240D -22S0
NIIITE 11111011 NISUCI ... SURCH '011 END
00010
OZ410 K0701
STOll' TDURANCI VALUI 00042 -6 OOOON OZ411
00056 06 06004 0'''4
fOUL TOLIRANCI
DOD. . 01 06004 0601.
IAVO. TOLI.'NCI"II.1 OOOT. 01 0.004 D.O.'
U"
000'0 0000'

'7

0148.
02406
out'
06004
0"'4
0.014
oUtS
00006

..

00000
00000
00000
00000
00000
00000
00000

•

PAlO!
SY"IOL TAILE
SHAtH 00162R
EAcaDE OOOO~R
EANF 0011911
HIDSA 07815
N5RT Ol415

IISETHI
CLEAR
eR20)
NFINI
NSS

01010'
01020'
01010'
01040'
01050'
01060'
01010'
01080·
01090'
OLIOO'
OLllO'
oL120'
01 \l0.
OLl40'
01150 fAtODE DC
OLl60'
01110'
01110 ERPlioe TNf
01190
0\200
02010
02020
02010 EXIT
02040'
02050

0015011.
00102R
08292
002)411.
0246~

MON IT II 08562
CNTII 00099R
EXIT 00046A
NNE
00007
RIiIN 061)9

EAPRoe
DSCIN
FlNI
NA
SSNf

0000611.
01121

EII."ESS 00291R

OUH
01467
OO)UR

END
HI
NAT
"PEl

07390
004)4
02411
0025111

11M .620-1)11 AD-APT ERROII PIiOtUSlNG SUBPROGRAM
IItS
OHAME IRPRoe ••• EUSAILI AIIELEII SUBPROGRAM
olD NUMBER 02Z5-DELDIII
oASSEIIBlE RELOCAUBLE
'STORE RElOADABlE
LIHKAGE - BTII ERPROt,ERRNO,67
EUHO IS EQUIVALEIiT TO THE fOLLOWING •••
DC 3,NNN"
3-DIGIT ERROR NUIIBER
DSC I,ll"
CONTROL INDICATOR
1M-DIGIT ••• RETURN'
111"0 ••• SEARtH fOil END OR FINI REtORO.
OSt 1,1"
I-DIGIT DEIUGGER AID

.,0

00005 00006

SUBPAOGU" eNTRY
SSNf,NSS"
fILL STAT!MENT NO. FIELD
00006
FILL ERIIOR NO. FIELD 00011
TN' UNF,ERCODE-2"
RtTY
RETUAN TYPEWA ITER tARA IAGE
000)0
RtTV
RETUIIN TYPEWRITER tAUIAGE
00042
2, ~z ,_-6
00047
DC
00046
,--1
OS

'"
",

WATY ERMESS, ••

02060

110

UIT,ERCDDE-I"

02070_
02080
02090
02100 CLEAR

TF
TFM
TF"

CLEAA+6,MONITR+1l
CNTR,NNE-I,IO

,,111.

Pl 00)5) 02461
PL 00)79 00003
)4 00000 00101

J4 00000 00102
00002
00000

WRITE ERROR OR ALARM IIESSAOE
00054 19 00291 00100
EXIT If DIAGNOSTIC COMMENT ONLY
00066 ilL 00046 00004
00018
00090
CUAR "ON I TR MAP ENTIII ES
00102
00114
00\26
OOUI

K6 00108 0851]

J6 00099 000-5
16 00000 -000JI 00101 000-2
JI ooon 000-1
117 00102 01Z00

02110
02120
02110
02140'
02150 RSETHI
02UO SURCH

'M
5M
BNl

ClUR+5,2,10
tNTR,l,lO

lF
BTII

HI,HIOSA"
OSC IN, 10610,

02170
02180

C
8NE

NR,RNIH
ER20)",

0219002200

AM

RNIN,I,IO,

03010

eM

HRT,14,'

INCREMENT INPUT RECORD COUNTER
00198 II 06\]9 000-1
00210 14 0247\ 0-014

03020
03010>
03040 HF INI
03050
03060'
01010 TYPEZ
03080

BE

FINI_12 .. ,

IUNtH IF FINI IIEtORO 00222 46 083)6 01200

til
8NE

NRT,2,'
SURCH

CII
'NE

NSAT,lt8
SEARCH,,,

tLU~

AesET HI INDICATOR
00150 26 00434
READ ONE AD-APT AECORO FROII INTRAN
00162 11 0112P
00174 24 02467
BRANCH IF REtORD OUT OF SEQUENCE
00186 47 08292

0181'
000-1
06139
01200

PAGE

03090.
03100

00234 14 02471 0-002
00246 117 00162 0\200
00258 14 02415 0-001
IRANCH I F NOT AN END AECORO
00270 117 00162 01Z00

8
ENO+12
OORG --4
OH20>
03130 EAIIESS OAC 49, •• SOURCE STaTEMENT NO.

onlO

03140'
03\50 CNTR
03160 SSNF
03170 ERNF
Oll BO N5S
0)\ 90 OStlN
0]200 NRT
04010 FINI
04020 NSAT
04030 END
04040 NA
04050 HIOSA
04060 RNIN
04070 NNE
04080 EA203
04090 MON ITA
04100 HI
04110

as

OS
OS
OS
OS

os
os
OS
OS
OS
OS

OS
OS

OS

2,CLUA-)
,EAIIESS+12·2-2
,SSNFH)02

,Z46J
,7727
,2471
,832'"
,2475
,7390
,2467
,7875
,6\)9
2,7

,anI

,8562
OS
,43'OS
OENO EII'IIOC

00282 49 07402 00000
00289

..

,

EAROR
00291 00091
00099
00353
00379
02463
01127
02471
oa324
02475
01390
02467
07875
06139
00007
08292
08562
004H
00006

00002
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00002
00000
00000
00000

'ACt

SY",Ol hllE
O.Upt OIUOR

.PWSl
NlEROY
AfANFH
ARGADO
CNT.
FLCON
REG
SOR"

0001l
OU'IR
02441
OOOOS.
OOUlll
00103.
00051
0000611
Act
11091011
ASlGli' 00055
OilO19
I!!
009!01l
i,}, 'DI,tOll

SHADD 0008lR
FLINFN
'RGCON
AIIG
eX"N
ODD
SLt
AC)
API

nm

l

leli

02'25_
004S1A
00079
02''''
0008811
00'4011
00"1.
0085011

".

~::~;"

OlSTeR

11115111
00067
016 .. 6R
OaUl/l
OU9311

IT!lEfA IIIIC49.
BYiOOR 0094~R
81."1 016S6.
CU
onu"
CAT
OZ~OSR
eEXPf 0lU6R
COVFLO 0227011
CO.O
02 .. 1511
Dell
0305711
DC.
0304511
OLDGO 029UII,
DLDGI DZ91>lR
DXNINI 00061

01'~SR

0214."
00061
0299111
030nR
oaTT4R
02949"
0271411

010100102001030010400111'00106001070010800109001100-

USII

n,.,

:5:
... :!m"
"01" ".,•• liY- Illii=
IfUII
8Y
110."1
CAl
CA6
CEXP
eNOR"
el
Del
DCl
OLOGX
OLOG4
DTERM

• PLONE
HlEROK
ARGU"t
AIICUN
ceNt
INOX
$FLAG
tEAN
AC?
ASI'"
'~Ntll

flC),

00079
0102211
OZ4,,3A
0109411
00280A
00190R
003 l611
0038 .. "
00U2.
110"'111
00061
0101111
OlU."

!UU'I
LOGIOE
UGMOO
ADOZPI
COS'N
LOGFN
SIll PT
ACoSF
AC.

ASRt

AO.Spl

ICI

Id

OO~84 •
024]7R
OZOl8R
00560R
OZU6
OZUI
00 "41
00'24R
00934.
OOIOOR

Don ••

orr
0150811
01'.011

==ym
11m: AnD, u ,k
IIII!III . "
1M,
IN",a

00019
&lEROX 0135611
112.0'1 01658/1
cn
023511l
CBANO' 019681l
CEXPOI oa07 .. 11
CPIISX 01.~OR
Cl.O
OU2111
OCU
0306911
DEXP
02443"
OLOGI 02925R
OIiIUG 0249~1I
01
00061

IX~DDR

8lEROY
eARG
CA4
ceNTII
CEXP02
CTEIIM
DARG
DC3
OLOGAX
DLOGIO
DUG""
DlSO

e.93.11
0 U68R
00079
0236911
OazOSR'
02238R
OI87ZA
00079
0300.R
OZ85811.
02'l13R
00055
000"

SIIRTFN
LOGO.O
ARG"Nf
AooeON
EVEN
IIURG
SlN'N
ACI
AEXIf

02426
02480.
OI615R
00949.
000S611
0003211

OHH

00886R
0082 ..11
. "HEtA 00019
AU'I OOiUR
OU6611
lIell
11:7
01'42.
I ..
01 ..... "
.~ tiii 01" ••

SClYI

IU

8X"INI
IlIIO
CAO
CA5
CEXIT
CNEGX
CUNFLO
CCNTA
DCS
OLOGF
DLOGZ
DSRT
01.0

euu_

000"
01614R
OUllR
0238111
0200U
0172~R

02291tR
02nSR
03021R
02"~4R

029nR
02ITeR
029nR

11M 1620-1311 AD-A" FUNCTIONAL SUIROUTINE PACKAGE
Rts
-NA"E FSPIIG ••• ERASABLE SYSTEM SUBPROGRAII
.ID IIUMBU 0226+DELOIM
-ASSEMBLE RELOCATABLE
.STORE RElOADABLE
LINKAGE - IT" SQRTfN,AODARG,61
8T" SlNFN,ADOUG,67
8T" COSFN,AODUG,61
liT AUIIFN,DSALBL+10 ••
IItM EXPfN,ADOARG •• ,
BTM LOGFII,ADDARG.67
IDoARG IS THE ADDRESS OF THE ARGUMENT AND RESULT
OSALBL IS THE ADORESS 0' THE X-COMpONENf
OSALIL.S IS THE ADDReSS OF 'HE Y-COMPONEIIT
OSAUL.IO IS 'HE "DDRESS OF tHI RESUlt

olHo.

01i20.
OIUO·
OU40·
01Uo.
01160011170.
OU80 SQATFN
OU90 SlIIFN
DUOO COSFII
02C110 AUHFN
02020 EXPFN
OZ0.30 LOGFN
020,40020.50·
021160-

'OS

OS
,OS
'os
OS
OS

02426
02431
02436
OZ441
02446
OZ451

.2"26
.2411
.2436
,2441
,24 .. 6
.2UI

00000
00000
00000
00000
00000
00000

II" 1620-Ull AD-APT FLOAflNG SQUARE ROOT SUBROUfiNE

)1

02~'r0-

OZ080·
02090.
02100·
OZUO ARGAOO

DC

LOCATION OF ADDRESS OF CALLING ARGUMEN!
00005 00006
SORT' SUIRCU""! SUBPROGRAM ENT"Y
00006 00 ooon 000011
ARGtARGADD.n.
MOve ARGU"'N' '
NU"',."Qoo'..
lUNCH IP A"GU"'NT IS NlIN-ZIRO
DOOU '" 00012 00070
ocio 10 U 00000 00000
Uif
II
.. .
OOOU
DIIA. . ..
•• 0"

4"0.10.10

ODD .....
02200.
03010 IVIN
03020
OSO~O

TfM
,1Ft!

I

"RG-IO,,9.
III0X.AlllI-il

ODD_'"

DOR. -]

010 .. 0
0)050'
03060 snADO '""
03070
0]080
0]090
OllOO
03110
DIUO

TF"
TFM
fFM
'fll

"N

TIIA

SOIlTFN • .,OIl"' ..
SINFN,USI .."
COSI'N,AICOSf
AUNFN,III"IINP
EX"N,CIEX"
LOGFN,DILOGF

,

031)0
on40
onso·
on60 ODD
03110
aUlD
01190
032(10
04010
04O~0
040 a
040.. 0 SMI'"
040S0
0..060
04070
04010
04090
O"IIJOO~110

0"120
O"UO.
04140 CON'

'aGe

CORE POSITIONS 00049-0009' ~SED FOR fEMP. STORAGE
If IS ASSU"EO fHAT THE ARGU"ENT IS NON-NEGATIVE
"ETHOO.,. DOD INTEGEII 18-DIGIT "ANTISSAI

,co

SETAOO
DOIlO 51 TAOO

00012 II 000" OOONO
lUNCH I' ODQooIiUMIIRlD CHAueTUUllC
ODD.... MI 000.. 00091
CLEAR , .... OS UQooIO "NO ARG-n
00056 16 00069 00-00
00061 .16 00190 -0061
000.0 119 00U6 00000
00088
SET SUBIiOUTlNE ENtllY ADDRESSES

00088
00100
00112
00124
00136
ODl'U
00160
00172
00 ll'
001.1
00116
001.7
0019S
00196
0008.
000. .
000..
00100
00112
ROUND .nUL' IXPOMEN' 0012 ..
SIT PlIOI'll SIGN
OOU6
001'"
00160
0017Z
III'AND N',.TlIS"
001U
001"
0020.
00.120
00U2
002""

10 02426 -0006
10 02431 -0"S2
10 02436 -05Z4
10 02441 -0950
10 OZ.... 6 -1'76
10 OZUl -2 .... 4
10 00165 -Oll'
4. 00716 00000
00002 2.
00005 -0117
00001 •
0000. 1.1'7'1
0000] -01
0000. -0000'

JJ 00070 00000

,NIt

ARII-9
MII-lo .. n
INOX.llltG-at
99.50.10,
97,99"
SFLAG'" _18
SlH6.REII-2
CNTII ••• 10
.1I1IG-2"
INDXthlO
IIIG.'.'LCDII
IIEG.2.10
,NOI.III•••
. .a ..

SN
II

CNflltlotO
TERN

00n6 .12 00111 000-1
0026. N. 001.' oa2OO

II

'"OI,AlG.'

OOUO III ooa9- too"

CF

'1M

,,"
"N
NP

"II

'I'll
'I'll

'SL
All
TFL
liN

S-

I'
.16
II
71

J.

.16
.. I>
OS
.II
00
U
RZ
116

0006.
001.0
00099
ooon
00)2Z
00)46
00111
00000
OOltO
00059
ooon
DOa9OOZZO

0000-0060
OOONO
00099
-0061
-00"
000-1
00077
000-1
DOlO)
000-2
000'"
01100

IU

O~UO

CF

o~uo

All
SF
AM

O~170

SFLA'

O~UO

0~190

SH

04200
05010
05020
050],)
0504005050 TUM
05060
0'1070
05080
0'090
05100

QUia

05t

20 •

nl!: m

05150 eNTR
05160 INDX
05170 'LeON
051800
05190
052000
060100
06020060]0-

fSl
5"
51!

B

OOltG -1

""

.

00lt;

....

=1os

$~'~'
2.SHIFf-]

OS

,SHIFT>6
4,CONhU

TF
SF
tF
TFL
88

os

ARG,91"
REG.5,10

MovE _nUL t UPONENt

AAG-2.", •
ARGADD.ARG •• ,

MOYE USUl t IIANU SSA
R!fURN USULt

.tt

06110

001900190
00000
00]22
00000
00H6
00051
119 00U2

o-J-O
000-2
00000
000-1
00051
000-1
000-9
00000

00]84 26 OOOt.
00]96 13 OOO,t
00~08 ]2 00091
00~20 Z' 00011
OOHI -, OOOON
0044~ 42 00000

0009t
000-'
00000
0009.
OOOf.

eeil'r~

Gllen

ellete
Q80~'

00181 00002
00190 00000
00)0] 00004

THE RANGE OF THE ARGUMENT IS UNRESTRICTED
CORE POSITIONS OOOH-ooon USED FOR TEMP. STORAGE
METHOD .. HASTINGS APPROUIIUION II-DIGIT MANTISUI
LOCATION OF ADDRESS OF CALLING ARGUMENT
OO~~I 00006

S I NF SU81l0UTI NE SU8PROGRAM ENUY
TFL THETA.0.5PI,.
P1/2.0
00452
TFL XSQ.ARGeON.II,
MOYE AIlG TO XSQ
00464
FSL XSQ-ll,XSQ-2.,
FA8RICATE 10-01GIT MANTISSA
00476
FSU8 THErA,XSQ"
THETA-PI/Z.O-AIIG
00488
TF
COSF-I.ARGCOH
00500
8
"]6
00512
eOSF SU8RDUTI HE SUBPROGRAM ENTRY
TFL THErA.o-I.Il.
MOVE ARG TO THETA
005Z4
FSL THETA-ll,THETA-Z,. FA8RICATE 10-01GIT MANTISSA
005]6
BNF SUBZPI.THETA-Z ..
8RANCH IF THETA IS POSITIVE
00548

061800
06190 AOOZPl FAOO THETA,TIIOPI"
06Z00
BNP 4002PI!"
010100
070Z0 SU8ZPI FSUI THETA.TIIOPI"
01030
8NN ' SU8ZPJ".

00 00019 00838
00 00061 0045J
05 00056 00065
02 00079 00067
itO 00523 00451
M9 005~8 00000
00 00019 0052L
05 00068 00071
114 00584 00071

THETA-THETA.Z.OOPI
00560 OJ 00019 00814
8RANCH IF THETA IS NaN-POSitiVE
00572 Ml 00560 01100
THETA-THETA-2.0o'l
0058~ OK 00019 00874
8UNCH IF TMerA IS NON-NEGAtiVE
00596 "'6 005810 01100

01040.
07050
01060
01070
01080

FAOD
SF
FlOD
FMUl

THETA,PI ..
THETA-Z".
THETA.0.5PI"
X,21P1.,

THETA-THET. . PI
THETA--USFITHEUI
THETA-THETUPIIZ.O
x-n.ooUG""

01090
01100
01110
01lZ0
011]0
01140
01150
07160
01110
07180
07190
01200
08010 SRT

TFt'
FMUL
TFl
FMUL
HOD
FMUL
FADD
FMUL
FAOD
FMUl
FADO
FMUL
FSR

XSQ,X
SIGMA, XSQ"
SIGMA,C9
SIGMA,el
SIGMA,XSQ
SIGNA.es
SIGMA, xSQ
SIGMA,el
SIGMA,XSQ
SIGMA.CI
SIGMA.X, •
SI GMA-2. SIGMA-4 ••

TFL

CDSF-I.SIG"A,6,

88

.,'

00656 06
00668 03
00680 c06
MOVE x··z
00692 Ol
0010~ OJ
00116 03
00728 OJ
00140 03
00752 OJ
00164 0]
00716 OJ
00T88 0]
SUMMATION II-O,NI
MANTISSA
SHIFT TO 8-01GIT
00800 08
00912 -6
RETURN IlESULT
OOSH 42
EXIT
00821

08020
080]0 EXIT
08040
080500
08060 THETA
08010 X
08080 .SQ
08090 SIGMA
08100
081100.SPI
081Z0
08110 ,1
08140
08150 ZIPI
08160
08110 TIIO'I
08110
08190 Cl
08200
09010 C]
09020
09030 C5
09040
09050 e1
09060
09010 "
090100
09090
091000
09110091200
0911009140.
091500
09160 ADDCON
0"'0 UODR

XSQ,X. ,

OORG - .
OS
OS
OS
OS
OC
DC
DC
DC
DC

OC
DC
DC
DC
DC

OC
DC
DC
DC

OC
DC
DC

OC

00067
00067
00055
00055
00055
00055
00055
00055
00055
00055
00055
00055

00079
00079
00067
009]4
00922
0006T
00910
00061
00898
0006'
00886
00079

"GE

4

00053 00051
005U 000"
00000 00000

00019 00012
00079 00000
00061-00012
00055 0001Z
00836 00010
00838 00002
008~8 00010
00850 00002
00860 00010
00862 00002
00872 00010
008110 00002
008H 00010
00186 00002
00896 00010
008980000Z
00908 00010
009\0 00002
OO'ZO 00010
00922 00002
00932 00010
00934 00002

12,55

10.1570196327
2,1
10,)1415926)1
2.1
10,6366197151
Z.O
10,621]185274
2.1
10,-1510796]18
Z,I
10.6'1596)1111
Z,O
10,-1"8961928
2.-1
10.'161)16"10

2,-2

10,-1514141900

a.-]

HEAD 8

00608 OJ 00019 00850
00620 3Z 00071 00000
00632 OJ 00019 00838
006~4 Ol 00019 0086Z

.··2

12.19
• THETA
12.61

00000
IBM 16ao-1]11 AD-APT FLOATING INVERSE TANGENT SUBROUTINE
THE IlANGE OF tHE ARGUMENTS IS UNRESTRICTED
CORE POSITIONS 00020-00099 USED FOR TEMP, StORAGE
IIEtHoa •• HASTINGS A,'ROX1MATION I'-DIGIT MANTISSA'

OC
OS

15.0

,."OOCOH-IO.

0.110 YAOOII

OS

s,.OOCOH-5.

09190 THEU

OS

St·.

09Z00·
100100
100Z0 AUNf
100]0
10040
10050

00006

00~4'

HUO A
00000
1811 1620-1311 Ao-APT FLOATING SINE-COSINE SUBROUTINE

060500
06060 &AGCON DC

06110
06120
06130
061400
06150 CO SF
06160

un

.. AGE

LJ
J1
12
JI
05
J2
12

00304
00]16
00328
00]40
00352
00 ]6~
,00116
00]14

*-&,l.lO
.REG
.-6.1.10
REG ••• IO
SHiff . . .

060~0-

060100
06080 SlNF
06090
06100

ooal

IND •• 100''''10
,1010 •• 2.10

00949 00015
ADDRESS Of X-COMPONeNT OF VEC TOR
00939 00005
AOOIIUSO. '-COMPOIlENT OF VECTOR
00944 00005
00949 0000'
"OOlllSS Of IIESUL'

AUNF SUIROUJlNE SU.,,,OGIIAIl lifT'"
MOVE X
•• UGOR.lI.
MOVE Y
V.YADDIl.llt
MOVE 01 vlOIND
""Ta,y ..
FOIY ARTIl ....
T'~

TFL
TFL

AlllIt-".

00950
00962
00"4
00. . .

00 0001. 009)"
00 00061 00.4"
06 ooon 00061
O' Doon OOGt"

IH

10060

C'

10010
IY
10010.
100'0 NIEIOX 8N'

&1I1l-2 ...

Z•• O••••

un-lI"u.1f1l
I . .IICM . . . IS UIO

'OSI,K-,.,

IUNeN . ' . . . .osnne
0102' •• 01.'. COO,,

10100.
lOliO NeGX
10lZ0
10110'
lOUD

II

OIlEGA,,. ••
SlIT ...

OIiEGA.',
I.AII(H ., Y IS lUO

III

!'Osn ...

•• ANCH I' Y

10150.
10liO NEGYI
10110

TON

SIT-U.l
AIlfI-u.nTl-, ••

TF~

'S~

OIIIGA.o.25'",

nOlO

"00

11040
11050
11060

TFL SIG .. A.QUO
'NUL SIGIIA.QUa
Tfl QuaSQ. S1GIIA;.

11070
11080
11090
11100
11110
l1ll0'
liDO
lIHO Tea"
11150
11160
11110
11110.
11190
11200

FMUL
TFN
TFII
I
DOlO

01070
'A.IIC.T' 10-01 •• ' .'."SS'
010'2
01094
X-ltO
01106
0111'
.·ltO
11-10011 ... ,.01
011)0
01142

0••••• 0.10' , ••-, "/ •• 0
"'-1.01" •• 1.011 •• ' •

01Z4,
012S'
01270
ol2n
Oil"

80

IUlleM "

TFL OMEGA.lIIO ••
I'
SRT
DO.G te)

SEt IIIULT TO 0.0

OMeGA-2.0"EGA-.,.

TFL

TMETA.OIIEGA.t.

88

It.

8H'

I>OSn.Y-2 ••

lUNCH "

12110121'10 NEGn

f'lo

laUP

II

...

II"

12160
12170".
12180 'OSU
12190'
12200
13010·
13020 POSK
U030
130.0'
U050

coao

-9

TFL

THETA.O.,"""

Ba"

, ••

'.0"

0)
01
JZ
JZ
.. ,

11010 _9

FS'

'4190

z•• z

01190 O.
01102 OL
01214 .10
0121. J.
0125 •••
0124'

SU ..... TlO .. tI-O • .,.
OUO. OJ
O"IG'.OMIG' ' •• -1 S'G"A
0~)1' 01
IHI" '0 '-DIOIT .'NTISSA
OU30 01
RETUIN IISUlf
01)4Z -6
un
OUS4 42
01356

'IiUl SIGMA.OUO ..
'&00 GIIEGA,SIG .. A••

TFl
TON
8
001'0

OMEGA.Z.O' •••
sn-li ,Z
UCTAN-U
.-.

SIT InUlT '0 Z.o."

ac
DC
DC
DC
OC
oe
DC
DC
DC,
DC
DC
DC
DC
DC
DC'
De
De
DC
DC
DC'

10.9999993)2'
2.0
10.-U329.,60S

~C'

OC
DC
De
DC

lie
DC
DC

DC
DC
OS
OS
DS
OS
OS
OS

os

DS
OS
OS

IO."H59ZUf
2.1
10.0
2.-99
10.1000000000

I. I
, •• HU)I'O

'01

I.Uf0796)
2.1
10.UUlI"'.
2.1
lOflin,,, ...

hO

12,ft

lI.n
12.n

12ft)

,v
12,)1

.aua

,,111111

.1
"NUIOI-a

MUD C

0001'

OU" 00 OOOH '''14
o UIO M. a 1 no 00000
OU"

tall,

014" 00 0004) 01U4
01440 •• 01UO 01200

lUNCH "

2,-Z

00041 000]9
0094. 0004)
00000 00000

01414 -a 0094R 01.46
0 lUI U 00000 00000
0142.

ARCTAH·Z4 •••

10.-U90'''''0
2.-1
10,ZU61ZUIO
2.-1
10,-4054058000

00061 ooon
0004) 00061

SET USUU fa ,",.0
Ell T

I'

10 • .,..200.4.0

000"
00000
000J2
000-1
01100

01414

SEr USUlf '0 0.0
UfUIN I' V IS IUD

Z.O

0006'
00067
OIZU
01021
01'"

SET .esu~' to s.o-,.".o
01400 -0 00.4. 01.'.
01.\' 41 00000 00000

ONEGA, ZRO ..
SU ...

Z,-I

ouSt

00067
01590
-157'
000-1
00000

., IS 'OSltIVE .
on . . . . 01416 000.,

TFL
8Z

2.0

00079
00061
01,.9
01021

v IS NOli-lEla
0131 • • ) 01)"

00110 .. '

10.1994nn"
2.0
10.-1)90In)51

01)00

.I, OUI' 00001
.
01 00044 00053
06 000)1 000"
OK 00055 01626
OJ 000)1 01626
0' 000" 000]1
KN olin OU19

au . . OJ 0004) 01610
0116. O' ooon ooon
011" 0] '000" 000"

fIiULSIGIIA.QUOSO
FAOD SIGNA
$11
-1.U.l0
511
CIITR.I.IO
8HZ TUII-"

120Z0
120)0
120.0
12050'
U060 lEROI

14200
nOlO o.,SP.
15020'
UOlO 1I
15040 Y
150S0 'I\TII
110'0 OMEGA
15070 SIGMA
15080 .'LUSl
iSOtO ."IHI
1'100 QUO
15110 OUOSQ
\tuo CH'.
UllO.
UI40

IS 'OS.,.VI

SIGMA.C1' ..
'ERN'Il. CU
CN, •• 1.10
fUll
.-)

12010 sn

13060.
13070 HEGy)
uoao posn
1)090
13100
1)110'
13120
13\)0 CI
13140
U150 C)
13160
13170 C5
1)180
13190 C7
1)200
14010 C9
H020
14030 ell
140.0
14050 en
1401>0
14070 eu
HOlD
1.090 PI
14100
14110 litO
141Z0
141)0 ONE
14140
14"0 1,"1
14160
14170 0.,,,
14180

Dial. 00 000.' 01602
010 •• II. OU'O OllOO
0105 • • , 01'"

10180 AICTAII TFL X'lUS1.ART_
10190
FSUI XIIII1I1.aNE ..
10200
FAOO XPlUS1.0NE ••
11010
FDIY Qua.XPlUS1 ••
11020
TO
•• U.SIIT-U

12010'
12080 lEROY
U090
12100
12110.
12120 NlUO'

00991 n OOOU 00000
0&010 •• OUU In"oo

Y IS '0$1 fiVE
01UZ Mt 01070 01100
0lU4 00 0004' 01."
014't J' 0131' OOOOZ
0141 • • t 01011 00000
0149.
01504
01506
015lt
OISI.
OuU
01530
01540
01542
01n2
OUH
0"'.
015U
01"6
0151.
015 ..
OUtO
01600
01602
OI.IZ
01".
01624
OIUt

00010
00001
00010
00002
00010
00002
00010
OOOOl
00010
00001
00010
00002
00010
00001
00010
00002
00010
OOOOZ
00010
00002
00010
00002

0 .. "
OU ..
0 ....
0lU6
oun
DIU'
01610

00001
0000.
00002
00010
00002
OC010
00001

e",. ooooe

000" CCOII
ooon OOOU
ooon 0001Z
00041 0001Z
coon 00000
ooon OOOU

ooen ooeoo

000" OO~(lO
000" o~OOO
flOIi "00'
00001

•

PAr,f

I~I'O'

11M 16ZQ-UIl AD-APT FLOATING UPCNENTIAL SU8ROUTINE

U160'
1~ll0'
1~180'

THE UNGE OF THE ARGUMENT IS UIIRESTR ICTED
CORE POSITIONS 00056-00099 USED FOR TEMP. STOUGE
METHOD .. HaSTINGS APPROXIMATION II-DIGIT MAIITISSAI

1~190'

15200'
110010 AIIGMNT DC
16020'
16030 UPF
160~0

16050
16060

S,O,.

LOtATION OF ADDRESS OF CllllNG ARGUMENT
0\615 00005
EXPF SU8ROUTINE SUBPAOGRAM ENU'
TFl AAG,ARGMIIT,II.
MOVE ARGUMENT
01616 00 00019 016111
FSL ARG-II,ARG-2 ..
FABRICATE 10-01GIT MANTlSSl
01688 05 00068 00017
FMUL lAG,LOGIOE"
"GIILH 10.01
01100 OL ooon 02431
BNF POSK,AAG-Z ..
BUNtH If AAGUNeNT IS POSITIVE
01712 M4 01840 00011

16010'
16080 NEG.
16090
"100
16110

TDM
tF
eM

rPM

8RNOPtI ,9
AAG-a" ,
AIIO"IO
IKIt,.10,

16120

IH

AIIGMOO" ,

TFL
FHUL
TFM
TFM
8
DORIO

l.4RG. ,
l.41, •
TUM+II,A6
CNTA,7010
TEIIM
--3

16130'
16140
16150
16160
16110
16\80
16\90
16200\1010 POU
11020
17010

01124 J5
011)6 ] )
0174. 14
CLIAII I.'ONUT MOOIFIIR
0\160 J6
lUNCH " EUONENT extEEOS 00
01172 116
UG-AII'IAIIGI

ZeUG
Z"1l1

TOM 8R>lOP+I 01, II
8
>lEGX.2~
DORG '-1

0\184
0\196
01808
01820
01812
01840

0196. 00009
00017 00000
ooon 000-0
01'43 000-0
02038 01100

06 00061
OL 00061
JO 0\883
J6 ·02203
M9 01872

00079
02405
-2393
000-1
00000

01840 J' 01969 OOOOJ
01852 109 017~8 00000
01860

170~0-

11050
17060 TERM
\1010
17080
17090
1110017110
17120
17130
1114011150
17160 BRNOP

-FMUL
FAOO
SM
SM
8>1Z

Z,ARG
--l.12.10
CNfR, 1,10
TEIIM-12

F"U~

1,1

A"
8Y

OYFLO" ,

TFL
'lOP

ARG,Z
EXIT+2 ...

Z.tI

11110

FSR

11180
11190 EXiT
17200
1801018020
18030
18040
1B050
18060-

TFL lAG"NT.AIIG,6,
BB
OOllG _-9

ARG-2,ARG-4"

.. ,

TFL
FOIV
B
DORG

01860
01812
01884
01896
01908

1

ARG.l.O
ARG,Z ••
EXIT-24
--3

03
01
J2
J2

00061
00061
0\883
02203
Nl 01860

00079
00000
000J2
000-1
01200

01920 01 00061 00067
e·.ARG
01932 11 00061 -0000
8RANtH I F RESULT OUT OF RANGE
01944 106 02270 01400
01956 06 0007Q
BRANCH If ARGUMENT liAS NEGATIVE
01968 MI 01006
SHIFT TO I-DIGIT MANTISSA
01980 08 00011
RETURN RESULT
01992 -6 0161'1
02004 42 00000
EXIT
02006
EU'-ARCI

00061
00000
00075
00019
00000

02006 00 00019 02321
02018 09 00019 00061
02030 M9 01980 00000
0203B

PAGE
18070 ARG"DO C"
BH
180BO

OYFt.O •• ,

02038 14 00019 000-2
8RANCH If ARGUMENT OUT OF RANGE
02050 106 02270 01100

1809018100

BE

EXP02 •••

BRANtH IF EXPC"ENT IS 02
02062 106 02238 01200

1811018120 EXPO I
18\30
18140

TO
CF
FSL

EXP,ARG-ll
EXP
ARG-12 ,ARG-2 ..

18150
18160

SF
TFN

ARG-II
ARG"IO,

18170
18180 NORN

tFII
BO

CNTR,8,IO
NECKt'O,ARC-II"

02074 ~5 019H 00068
02086 L3 019~3 00000
ELIMINATE INTEGER PORTION OF MANTI SSl
02098 05 00061 00071
02110 32 00068 00000
ASSUME NO LEADING ZEROS IN DEC I"AL
02122 16 00019 000-0
02134 JIt 02203 000-8
aUNtH II' NON-ZERO DIGIT
02146 101 01184 00068

18190'
1B200
19010
19020
19030
19040
19050.
19060

FSl
SM
SM
8NZ

5'

ARG-l0
ARG-ll ,AtlG-2
AAG, 1,10,
CNTR,I.10
NORM

DEtIlEMENt EXPONENt

TFl

l,l.O, •

ARGUHENt IS AN INTEGER

\I

TERM.60

19010
19080
190'0_
19100 EXPOl
19110
19120
19130
1914019150 OVFLO
19160
19170
19180
1919019200 UNFLO
20010
20020
20030'
20040
20050 AO
20060
20010 AI
20080
20090 l2
20100
20110 U
20120
20130 A4
20140
20150 AS
10160
10170 A6
20180
201'10 AT

lRG,2,10

EXp,ARG-IO
o\RG-1],AIIG-2, •

EXPOI.'6
DORIO - 3

8

EXIT

TFL AIIGMNT .0.0,.
88
OORO . . 9

un

'"

DC
DC
DC

10.1000000000
2.1

DC

2,1
10,111>2150.643

DC
DC

DC
DC
Ot
ot
DC

DC
DC
DC
DC
DC

10.11512.2176

2,0
10,25439)"48

1.0
10.7295173. . .
2,-1

10.1742111'"
2.-1
10,2S549lf960

2,-2
10,'I3Z6U6100

2.-)

32
os
\2
J2
,,1

00069
00068
00019
02203
02146

00000
00011
000-1
000-1
OllOO

00 00061 02Ul
01912 00000

"'I

02238 ~6 01943 00069
ELlMI"ATE INTEGeR POUION OF MANTISSA
02250 05 00066 00071
02262 MQ 02110 00000
02270

ONF UPlFlO,BRNOP+!
Tn "'IIGMNT .FLINFN ••
86
OORO

-....

ouu

01230
02238

OaR II -3
TF
FSL

021'8
02170
021B2
02194
02206

02270 NM 022.6 01969
02282 -0 0161N 02425
02294 42 00000 00000
02296
0229. -0 OI61N 021oI'
02308 42 00000 00000
02310
023\9
02321
02131
02333
02543
02345
02355
023ST
02367
0236.
02)79
02381
02391
02391
OUOI
02405

00010
00002
00010
00002
00010
00002
00010
00002
00010
00002
00010
00002
00010
ooooa
00010
ooooa

J4!1

Z0200
21010 0.0
21020
ZIO)O 'LlN'N
Zl040
Zl050 LOGIOE
210.0.
21070 1.0
Zl080 AJIG
11090 U,

OS
OS
OS

21100 Z

OS

21110 CNTI
ZIUO.

211S0

21140-

1l1l0-

DC
DC
DC
DC
DC
DC

OS

22040

TFL

"M
80

22050.
12060 LOGO.O TFL
22010
22080
220'.00
UIOO NUIIG

88

a.99

10,HU'441lt

.AO

12.67

'.NOAII+U

00000
ItaD-IIll AD-A'T 'LOATIN. NAT. LOG'IITHN SUa"OUTINE
IT II A$lUIIIIIO THAT THI! ....UIIIIIT IS 1I0N-IiEGATlVE
CDRI! 'OSITIONS 00044-000'9 USED 'OR TEMP. STORAGE
METMOD ••• TRUNCATED III'. SERnS II-DIGIT .. ANTISUI

6,0,.

LOCATION 0' ADDRESS OF CALLING ARGUNENT
02443 00006
LOG' SUIROUnliE SUIPIIOGUII EIITII\'
ARG.ARGUMT.n.
MOVE AIIGUME"T
02444 00 00079 0244L
ARG" 10.
IIEOUce UNGE 0' AllGUMENT
.
0245. 16 00079 000-0
NUII.,AII0-9 ••
IIIANCH I' 'RGUIIEIIT IS NON-lERD
.
02461 MI 024'4 00010
ARGUMT.LOGO •• ,

...

o01lG . - '
FSL

ARG-II ,ARG-2 ..

T'M
eM

UUO

Bill

LOGX.U ,LOGI
Allo-IO.50,10
••• 4 •••

l21400
22150

A

ZZ160
22110
22110
22190.
22200
230ao
23020

AM
LOGXHI,lZ,ao
I
InARG.' ..
OORI .. )

nOlO

no .. o
23050
23060
23010
no aD
230 .. 0
23100'
23lao
nuo·

2JUO
UI .. O TERM
nuo
2J160
nll0
UIIOo
UltO
23200 LOGI

ARG-a,ARG-2 ..

TFL
FSUI
'ADD
FOIY
TFL
'MUL
TFL
FNUL
rPII
TFM
I
OORG

XMINI,lRG
Xllllla,a.o ..
XPLONe,a.o,.
IMINI •• PLONE,.
lSII.l
lSII.Z ••
SIGMA.UII
SIGM,.tU ••
TERM+U,Cn
CNTR ••• ao
TER"
-J

FNUL
FADD
SN
SM
8NZ

SIGMA,lSlI
SIGMA
-1.12,10
CMTR,I.IO
TERM-II

'NUL SIGMA.Z ••
FSUI SIGMA ...
LDGAI+I, It •

' ..DID

. TOM

24020

8NF

LOGU-, ... u " n .

eF
TOM
SM
IN

EXP,,6
LOGAX.I.Z
EIP.lttaO
SlIT

2.. no.
2"040
2.. 050
24060
24070
2..0800
2..0 .. 0 LO".
24100
24110
1'1120.
2''1)0 SlIT
24140
HUO
2 .. 160
2"110.
24UO
2~a90

LOGD
l4200
25010 LOGI
25020
250)0 LOG'
250"0
25050 LDG4
25060
25010 Lo,a
nOlo
n090 LOIlO
ZSIOO
ZSIIO 1.0
25120
251)0 ca
25a .. o
nuoCJ
25a60
25L10 ct
25110
25190 Cl
25'00
2'oao t9
26020
2'0)0 tll
2'0 .. 0
26050 til
260.0.
nolO AItG
26010 U'

FAOD SIGM"LOG10 ••

• -"
OORG - )

'$II

SIGMA-2.SIGM.-....

TFL
81

ARGUIIT.SIGNA.t.
It.

DORQ -'I

OC
DC

DC
DC
DC
DC
DC
DC

DC
OC
DC

DC
DC
DC

DC
ot
DC

DC
DC
DC

DC

DC

DC
DC
DC
DC
DC
DC
OS
OS

02321 00000
0001 .. 00014
'OI9U 00002
00067 00012
OUOI00002

14.19

Z. TEIINUI

22110

llllO

OHI) 00008
OHU 00002
OHU 00001
oz.n OOOOZ
014U 00010
OZHl 00001

2.0

"IA' •.1..

21160.
211 JO.
21110·
21190.
21200 AIIGUNT DC
22010.
22010 LOG'
220JO

.."',,...
'.0
2.-..

SET RESULT TD - INFINITY
02480 -0 0244L 0291 J
02492 42 00000 00000
02494

IXIT

"IRICATE aD-DIGIT .. '"TISSA
02494 05 00068
02506 JO 021.5
02518 14 00069
IRANeH I' LUOING DIGIT EXCEEDS ..
025]0 M6 on74

. x-a.o
1.1.0
11-1.01111+1.01
ZUZ
ClUI·, .. a

02514
02586
02598
02610
02622
026)4
02646
02658
02610
02612
02694
02702

0210l
02114
02126
02738
02150

06
OK
OJ
09
06
06
OL
JD
J6
...

00067
00067
00019
00061
00019
ooon
00055
00055
onu
02n5
02" ..

00019
029 ..
01 ....
00019
00067
00061
00019
03069
-Jon
000-6
00000

0)
01
JI
JI
"1

00055
00055
02725
OU"
02102

00019
00000
OOOJ2
000-1
01200

OJ

LOGINoU, N.I.2 .....
02162 0)
LOGI XI-LOGINo.I-LOGIN'
02174 01
ASSUNE 'OSITIVE UPONENT
02186 J5
lUNCH I' IIPCN!NT IS POSITIVE
02198 11M
02810
02821
028J4
021 .. 6
LOGIARGI

L)
J5
JI
III

00055 00000

02U .. 0244L
024 .."
02859
OI .... L
Ol.1.

I .lIa.lll."
1.0

... IU ........

00000
00002
OOD-I
OIJOO

02851 OJ ooon OI9JJ
02170 II. 02U4 00000
01811

SHIFT fa I-Olin ""'''SSA
02111 01 ooon 00051
02890 -6 0244L 00055
RETURN ,nUll
02902 .. , 00000 00000
UIT
02904

OOOf. 00011
014U 00001

I'UUUUU,
a
.~

10

OU59 00001

a2."
,.'.GUM'

Z.O
10.UII,.U61
z.a
ao.207944".. 2
2.1
10.2102515091
2.a
10,1000000000
2.1
10.2000000000
2.1
aD ...........
2.0
10.4000000000
2.0
10 •• 15114""
Z 0
.
.

"toE

00055 00067

a••

2.-"
10 •• na ..1I10'

ouoo

OOUlLE REDUCED .IIGUNEIIT
02542 II ooon ooon
02554 JI onn OOOJ'
02566 M9 DUll 00000
02574

02911 00001
onu 00002
OZUJ 00010
02'125 00002
02U' OOOLO
029)7 ooooa
OZ,",1 00010
02949 00002
029,. 00010
0296a 00002
02971 00010
02913 00002
02"" 00010
02985 00001
029'15 00010
02991 00002
0)001 00010
DIDO .. 00002
03019 00010
OJOza 00002
o)on 00010
0)OnOOO02
OlOU 00010
0'0"" 00002
01055 oooao
0)051' 00002
olon oooao
01069 00001

a.-9999999.
2 ....
LO.O

00011
-29Z5
OOONO

as I'

01010

IfN

O)otO

Ifll

DSCOUt, •• " •• "

0)040

t'"

II.UU .. IO,

"ON I TI,02160,61,

Ulua

ouu

If
a

,...,.

:~

4,.
4,.

SfUCf,OSAloaO,6.

DOli 0-4
lOGOII

0)150
0)160'
01170 KUTI
01180 KUTl
01190 NSU
OUOO RnUIIN
04010 OSSII
04020 nil
0"010 .0
0"040 IIPII
04050 NRr
04060 IIONITII
0"070 OStOUT
04010 TIICTSII
040.0 STuer
04100

tALL "UU SU,,",,'" YII 11011 ITIt
IlOOl 17 02400 -"'0
tucut 10 to 'Olllt
12014 17 Ol410 II .. '
1l0U 4' l i t " 00000
UOU

I.Die OilOh

DC

JoI'

U040 011004
12041 0000)

DS
D5
OS

,614'
,Kun'l
,2U5
.2411
,6151
.2"81
,5892
,2455
,l"71
,l406
.2416
.61n
.2416

06148
06149
02U5
02411
06151
02488
OU.2
02"55
OlUI
Ol406
02416
06151
02416

os

DS
05
OS
OS
OS
OS

os
OS

os
OlNO

1

sn

0]050
a
RETURN,,6,
01060
DOAG 0-,
010700
01010 tucut ITII IIONltll,OUZO,",
01090
otlOO
01110
01120·

'aGE
Clll DSCOut suaPROG.AM Yll MONIrA
119~' 11 02400 -2)60
••• 8RANtH UCII.
"'" TI olle aD-a" RecOAO11970
17 Ol410 JI'.Z
CUT " " ' IIOOE IIIOICArOR.5 " 05 AND CS
11.82 16 06149 000-0
IIUUIIII TO 1I01I1T1l
II "4 4' Ol41J 00000
1l00Z

seu,

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

Ill..

PAr.E
SYIIBOl TAIU

'Re rsll 0615)
ForROC 02416
ER20' 11'132
NUM 11920

TUCUT
DSCDUT
FLII
10

11952
OHI6
02481
05892

STUCT 02416
OUI 1181'
FRIIISII 06151

UTUIIII 02411
D5S11 06151
~OYf
UU2

MONI TR Ol"06
ER208 118'6
SfROM 11796

IBM 1620-1311 AD-APT SUIPIIOG.IM FOil PIIOCESSING
I FROII RECORD

01010'
OIOZO.
01.030.

ItS
.NAIIE SF ROil ... NO.... E. . SABLE UElfll SUBPROGRAM
.10 NUIIBER 012S+0ElOIM
'STORf CORE IMACE
LINKAGE - I
SFROII

010.0_

01050'
01060.
01070'
01080.
01090
01100.
01110 "RO"

INA

ERlO •• OSSII"

01ll0.
01110

DOIIC 11196

SU8P.OCItA~

11196
ENU V
IUNtH I' IIEVIEII "ODE PREVAILS
111'16 45 11896 06151

10

EII209,FR~SII"

lUNCH "

011 ''0.
01150

TOM

FIIMSII,l.II,

01160 NOVE

Til

lo-9,FlII.0.10-9..

01 "0

INIt

TUtUT, TIICTSII..

SET SIIITCH INOICITING FROM STHEMENT
11820 ., 06151 OOOOJ
STORE '11011 POIIIT tOORDIIIATES
11812 11 05lU OlH9
lUNCH" "'ICUT II00E PRevAILS
11I4~ 45 1I'15l 0615]

01180'

01190
01100

02010
OlOlO

020JO
02040 OSAl
02050
01060.
02070 E1120.
01080
020.0 IIEII"

CALL DSCOUT SU.PIIOGIII" YIA MONITR
11156 I? Ol"OO -2160
DSCOUT ,IIETUllII,a,", IIIIITI ONE ao-a" RfCORD ... RETUllII
11866 11 02410 -l4lJ
11I8~
oOllG . . 5.J-1I*1
1111" "I 024'11 02501
NOP FlII+I.IO.FllI.'.IO
11111
OORG 0-1"
11885 00005 -2"'1
OSA 'lll-O.IO
11896
DOItG •• 5.J-4
ITII

110111 Til .0UaO.61,

IlII

T'"

IIERM+ •• 201.'

ITII

fIlPIIOC,O,a"

IT" 1IOIIITII,ozz,o.a"

02100 111209 T'" IIEII".t.,O •••
01110
I
'11101."
OliZO
00111 - .
01l10.
021"0 TUCUT
Ol150
Oll60
01170
02180'
011.0 OS5111
OllOO 'IIMSII
0)010 .0

FRO" SUTE"ENT I S REDUNDANT
11808 4] 11912 06151

IT

ose

OSA

os
os

Os

11196 16 11'29 OOKOI
CALL ·IRPROC SuaPIIOGIIA" YIA NON'TR
11901 17 02400 -2250
IIIIITI ..IIOR IIUsa••••• SURCH 'OR EN.D
lIUO 17 02410 -0000
lI.U 1& u.n 0011.0.
11944 'I'
00000

Itnl

"'D.

Cau ITU" SUI,..", V,A IIONITR
11.5' 11 02400 -2520

STUChDSaaHD.8.
1.4.

11."
.19"
11.12 0000'

,an.
,al51
.5.92

... " 00000
.6151 00000
051" 00000

1ID,,1f'.

11964 " OJ"lD
00002
,.156

15:!

0)020
0)0)0
0)040
0)050
0)060
0)070
0)010
010.0

FLN
MONITR
DSCOUT
RETURN
UPROC
STUC'
fllCTSII

SINORI'
OFRUO
FRMSII
XI

,

OS

,'411

OS

024 . .
02406
OZ4a
02411
02416
02416
061"
11196

,240'
,2416
,'411
OS
,'416
OS
,2416
OS
,6153
DEliO SFIIOM
OS

OS

OOOOOR
OU02
0'151
05U)

MONI'R
DSSII
PDVSII
10

010100
01020.
010)0'
010400
01050010'00
01070.
010800
01090'
01100'
01110 SINOII' INII

02406
06158
06152
05192

SY~IOL

TABLE

UPROC
ER208
STORE
YO

024l1>
DOL \2.
00060R
05902

OyoO.O 000'l2R
EUIO OOI48R
MERM OOn6R

00000
00000
00000
00000
00000
00000
00000

OXoO.O 0010411
02481
HI<
XCONP 00024R

IBM 1620-1311 Ao-A" SUBPROGRAM FOR PROCESSING
AN INOIRP RECORD

RCS

ONAME S I NOR' ••• ERASABLE ARELE" SUBPROGRAM
olD NUMBER 02Z9+DELDI"
oASSE~ILE RELOCA'ABLE
'STORE IIELOAOAILE
LINKAGE - I
SINORI'
SUIPROGIIAII ENTR Y
ERZOI,OSSIl"
lRANCH If REVIEN 1I00E PREVAILS
00000 '" 00112 06158

01120.
OIUO

8NF

EAlIO,FRMSN,.

lUNCH IF NO PREVIOUS FROM SUTEMENT
00012 M" 00148 06151

01140'
01150 XCOMP

FSUI fLlltOoIO,XO ..

X-COMPONENT OF DIRECTION VECTOR
OD02~ 02 02""
05892
V-COIIPOI'IEII' OF DIRECTION VECTOR
00016 02 02~" 05902
BRANtH IF Y-COMPONEI'IT IS ZERO.
OOO~. 116 000'2 01200

01160

fSUI FLlltlOID,YO"

Oll70

Il

cOl1800
011.0 STORE
01200

Oy-O.O ...

TR

XI-9,fLllto o lD-'"

TOIl

'OVSlI,l,ll,

OfREAO
02010
I
OORG - I
02020
020100
STORE.FLlltOOlo-" ,
020"0 OY'O.O 80
020500
02060 OX-O.O
02070
02080'
02090 ER208
OllOO
02110 NEAM
02120 IAZIO
02110
OZHO
021500
DlI60 OSSIl
02170 fllllSII
OlteO FLII
Oll'O XO
·02200VO
OlOlO U

I
Of READ
OORG - I
TFII
aTlI

NERM.9,201.,
1101'1"'1002250.61.

""
T'"

IIIPIIOC .1,61,

os
OS

,6151
,61'1

OS

.58'2
,XOOlO
.19,.

OSC
OSA

0'OS
os

NERII••• UO"
2,49
EII20 •• "

.2...

STORE X-V COMPONENTS OF VEe TOR
00060 U at"" 0247'
sn AIIIING DlaEttlCN INOICUOR
00072 15 06152 OOOOJ
D008~ It, OU02 00000
00092
IRAI'ICH I' X-COMPONII'I' IS NON-IERO
00092 Ml 00060 0247'1
0010~

•• 06]02 00000

OOlll
00112 J6 OOlltS OOKOI
CALL EIIPIIOC SU.,ROGIIAM VIA MONITR
0012~ 17 02400 -22'10
IIlIltE 11111011 111516#1 ••• SEARCH FOR END
00U6 17 02410 -0001
00148 J6 001'" DORIO
00160 00002
0016. 0000' -aU"
06lU
06151
02411
0'11"
05.02
019U

00000
00000
00000
OOGOO
00000
00800

0)020 Of READ OS
0)0)0 NOHliR OS
0)040 ERPROC OS
03050 POVSN OS
01060
DEND

PACE
,1>301
,2401>
,2416
,61H
SlNORP

OU02
OH06
02416
06152
00000

00000
00000
00000
00000

PAGE
S1ND~V

OOOOO~

e~208

00076R
000441\

xc liP

MONI TR 02406

flW
Xl

01010'
01020.
010)0'
01040.
01050.
0101>0'
01070'
01080.
01090.
01100.
01110 SINORV BNR

02488
0592)

UP.OC 02416
NXCIIP 00024.
Ye"P 00044R

Of READ 06302
NVCMP OOO)U

ossw 01>158
POVSW 06152

IBM 1620-1)11 AO~APT SUBPROGRAM fOR PROCESSING
AN INOIRV RECORD
Res
_NAME SINORY ••• ERASABLE ARElE" SUIPROGRAM
'10 NUMBER OnO'DeLDIM
'ASSEMBlE RElOCATA8lE
• nORE RHOADABlE
liNKAGE - B
SINORY
SUBPROGUM ENTRV
BRANCH IF REYIEW MOOE PREVAilS
ER208,DSSW"
00000 '" 00076 06158

01120'
01110

110

XC MP 9 FLW.O e 'O-9 ••

BUNCH IF X-COMPONENT IS NON-le~O
00012 III OOOH 02479

01140'
01150 NXtMP

80

YCMP,FlW.lelO-q,.

IUIICH IF V-COMPONENT I S NOli-ZERO
00024 III OOOH 02489

B

OfRUO

.-

01160'
01170 NYCMP
OIiBO
0\190'
01200 XCM'

OORG
TR

XI-9,FlW+0+10-9"

02010

TOM

POVS .. , it ll,

02020
020]0
02040.
02050 ER201

DHUD
B
DDRG 0-]

Ul!

IION"R,02250,67,

02060

8TM

ERPROC ,20802 ,."

OS
OS
OS
OS
OS

,615B
.2488
,XCM"
,6102
,592)
,2406

02070'
020BO DSSW
02090 FLW
02100 "MP
02110 DFREAD
02120 ..
021 \0 MONITR
02140 ERPROC
021S0 PDYS"
02160

OS

00016 49 OU02 00000
00044

]

,2411>
OS
.61U
OS
OEND SINDRY

STORE

X-y~Z CO"PONEIITS OF VEt TOR
000 . . ] I 05Ql4 02419
SET AIMING DIRECTION INOltATOR
00051> 15 06152 OOOOJ
00068 49 06302 00000
00016

CAll ERPROC SUBPROGRAM VIA MONITR
00016 17 02400 -2250
MRITE ERROR "£5SAGE ••• SEARCH FOR END
00088 11 02410 KOI02
06U8
02488
00044
06102
05923
02406
02416
06U2
00000

00000
00000
00000
00000
00000
00000
00000
00000

PAr.f
SUIOl TABLE
TRtTSII
RnURN
DHI
Ell lOB
NOEU
.0

0615)
02411
11900
11'168
11880
05892

TUtUT
MONI TR
DUY
UllO
NDllY

YJ

12004
02406
11"00
12210
11892
05933

SUPPRS IU68
ERPROC 02H6
DSAI 12111
nw 02418
POVSII 06152
YO
05902

STRAtT
DICOUT
OSAl
FAH5N
WUM
ZK

02416
02H6
Il I "'I
06151
11992
059U

seOl TA
CTMOD
DSSN
KUll
XI

10

11196
11832
06158
06141

on21
05912

11M 1620-Ull AD-APr SuaPROGRAM FOil P"OCESSING
01010'
010200
A GOOL TA RECORD
010)0'
RtS
010400
,"AME SGDl U ••• NO .... EIIAS .. U AlIELEM SU8PROGUM
010500
'10 NUMBER OUI+DUDI"
01060'
oSTORE CORE IHAGE
01070>
LINKAGE - I
SGDLTA
01080.
01090
oORG 11796
11796
SUIPROGUIO ENTRY
01100'
01110 SGDL TA INII ERlOI,DSSW, ,
lUNCH IF REVIEN MODE PREVAILS
11796 45 11968 06158
011200
011)0
BNF ER210,FRMSN ••
BRANCH IF NO PREVIOUS FROH STATEMENT
11808 44 12210 06151
011400
10
SUPPRS .kun ••
01150
lRANCH IF ONTCUT HOOE PREVAilS
11810 U 11868 061U
01160.
01110 CTHOO INR TRACUT • TRC TSW ..
IRANtH IF TUCUT HODE PREUILS
11832 45 12004 06153
011800
BYH MONITR.on60.6T,
CALL OSCOUT SUIPROGllAM VIA MON ITR
01190
11844 11 Ol400 -2360
BTN DSCOUT.OH2,61.
01200
IIRITE ONE AD-APT RECORD ••• 8RANCH BACK
11856 11 02410 JI868
OELl.FLII_0010-9.,
02010 SUPPRS eo
lRANCH IF OELTA
IS NON-lERO
11868 4J 11900 024n
020200
02030 NOEll 10
OElY.FlNH o I0-9 ••
IRANCH IF DELTA
IS NON-lERO
11880 4J 11900 02489

,.

020~Oo

02050 NOELl'
02060
0201002010 OEU

8
RETURN ....
DORG 0-3
TR

XI-9.FllI+0010-•••

02090

TOM

PDVSII.I.Ilt

02100
02110
02120
02110
02140
021500
02160 ER20.
02110

FADO KO,XI,.
FADD VO,YJ ••
FAOO lO,lK, ,

TFM
8TM

WERH.9.208.9
HONITR .02250. 67,

02110 WERM

BTM

ERPRDC.3.61.

B

RETURN, ,.,

DORG - )

RETURN TO MONITR

11892 49 0241J 00000
11900

. STORE l-'_Z COMPONENTS OF VECTOR
11900 31 0~914
SET AIMING OIRECflON INDICATOR
11912 15 06152
lO-lOUI
11924 01 05892
YO-YO+YJ
119J6 01 05902
119~8 01 05912
ZO-ZO-ZK
11960 ~9 0241J
RElUR.N fO MONITR
11968

02419
OOOOJ
05923
05933
05943
00000

11968 16 12001 00k08
CALL ERPRDC SUBPROGRAM VIA MON ITR
11980 11 02~00 ~2250
IIRITE ERROR "ESSAGE ••• SEARCH FOR END

rAGE

03120

TR

03130
-)140
03150
03160
0)170 DUI
03180
03190
01200
0~010 OSA2
04020
040)00
04040 ER210
04050
04060
04070'

8
001\6
NOP
OORG
OSA
OCRG
NOP
DORG
DSA
OORG

11992 \1 024 10 -000)
FLII+)oIOH-9.flW_OolD-9" SAVE DELTA VALUES
12004 ] I 02510 02419
XI-XO_OElTA X
12016 01 02488 05892
FLW+O.'O,XO,.
n-YO_OELTA Y
12028 01 02498 05902
FlW+lel0,VO,.
U-lO+DElTA Z
12040 01 02508 05912
FLW+2 0 10,lO,,
CALL STRACT SUBPROGRAM VIA MONITR
MONITR.02520.61,
12052 11 02400 -2520
STRACT,OSAI+IO.6,
TRACUT POINT PI
12064 21 02410 12193
FlW+6010+2-9.XO-9
12076 JI 02541 0588)
STRACT.OSA2+10.6.
TRACUT POINT PO
12088 21 02410 12209
Fi.W+OoI0.FLW+6010+Z,,
DELTA X
1210002 02488 02550
FLWtl010.FLW+7'10+2..
DELTA Y
1211Z 02 02498 02560
FLW+2oI0.FLW+8'10H"
DELTA 1
12124 02 02508 02570
MONITR.02J60.61.
CALL DSCOUT SUBPROGRAH VIA MONITR
12136 17 02400 -2360
IIR I TE ONE AD-APT RECORD... BRANCH BACK
OSCOUT,·+I2.61.
12148 17 02410 J2160
flW_0*10-9,FLNU_10_1-9 .. RESTORE DELTA VALUES
12160 JI 02479 02510
12172 49 11168 00000
SUPPRS
12181
e-,..5-3-11-2
12182 41 02498 02508
FLW+,oIO, FLW_ZOI0
12179
_14
12183 00005 -248.
nll+Ool0
11198
e+5e)-4.5.3-11
12198 41 02560 OUto
FLW+7 o I0_"FLII_.·10+'
lZ19~
-14
12199 00005 -"'0
nw+ul0+2
12210
."5e)-4

TFM
DSe
OSA

IIEIIM+9.210,'
Z.49
ERZO.-"

04090
04100
04110
04120
04130
04140
04150
04160
04170
04180
04190
04200
05010
05020
05030
05040
05050
0'0'0

OS
as
OS
OS
DS
0$
OS
OS
OS
OS
OS
OS
OS
as
OS
OS
OS
DEND

02190 TRACUT TR
02200
03010
03020
0)030

FAOD

0)040
03050
0]060
0]070
030ao
03090
03100

BT
TR
8T
FSUB
FSU8
FSUB
BTN

0)110

8TM

FAOD
FADO
BTM

040.0 OI'W

PRMSW
KUTI
MONITR
OSCOUT
STRACT
Flil
OElY
RETURN
Xl
xo
YO
10
VJ
1X.
ERP.OC
POvsw
T.CTSII

OS

•• Ifa

.6151

.61~'

.2406
.2416
,2416
.2"88
.0ELl
,Z411
,5923
.5892
,XOtl0
,VOtlO
,xl+IO
,VJ_I0
,2416
.6.52
.'15)
$GOLTA

I2Z10 16 12001 OOKlO
122Z2 OOOOl
Ull. 00005 JI"O
06lU 00090

00"1 00000

0614. 00000
02406 00000
02416 .00000
02416 00000
02488 00000
11900 00000
02411 00000
0592) 00000
05892 00000
05902 00000
05912 00000
059)) 00000
05943 00000
02416 00000
O.UI 00000
06U300000

lIl. .

PAGE
SVIIIOL UIU
fReTSII
"flU_II
OUI
FaNSIi
STOllE

061U
OZ4U
U9"
06151
U'"

TutUT 11...
11011"" 02406
OSSII 06"1
061 . .
• •" UO"4

"un

SUPPRS LL.Sl
EORDC OZH.

ell201 12020
NOEU UtlO
XI
onn

STUCT 024"
Os(OUT
EII2LO UO"

oa."

HOEU 'It'l

aD

Ose"

SGOTOI
""DO
FLI!
'O'lSII
YO

IL'. .
11916
02""
06&52
0"02

DIDIO.
"" 1620-1311 Ao-A" SU".OIUIl 'all ;ItOCISS'ING
010Z0.
, GO TOI IIKOIIO
01030'
IItS
01040'
oNAME SGOTO/ ... NDN-IIIHAIU AIlILEM S""IIOGIIAII
OL0500
olD NIIMBEII 02JloOELD'M
01060'
oSTORE COilE IIIAGE
01010'
LINKAGE - I
SGOTOI
01010'
010.0
0011. 1&796
nl'6
01100'
SUIPIlOGIlAII INTIIV
OlllO SGOYOI INII EII201,OSS''',
IRANtH If IlEVIEIi MODI PREVAILS
11196 45 U020 061Sl
OUZOo
OIUG
I.., EII2 10. fIlIlS." •
IIIANtH I' NO PIIE'IIOUS 'ROM STA'EMENT
1110. 44 uon 06"1
01"'00
01150
til
MOVE COO.DINAYES Of GO TO POINT
11120 JL on 10 02419
01160
DEUA X
'SUI FLIIU'LO+L.XO ••
un2 02 02519 058.2
FSUI FlW+4'LO+l,YO ••
01110
DILTA Y
1""4 02 0252' 0"02
.11
ttDELY, I t
IRANCH IF NO CHANGE 111'1
01"0
un6 46 11 . . 8 01200
011.00
oLZOO nOllE Til XI-9,FLII+J'LO-I .. STORE • AND 'I-COMPONENTS OF VECTOR
11861 JI 05914 onlo
02010
TOM POVSII, L,lI,
SET AlIIINO DIUCTION INDICATOR
IUIO IS 06152 OOOOJ
02020
Til
XO-.,FLN+Ool0-."
STORI x-Y-l COORDINATES OF GO to POINt
11192 JI oun 0247'
020JO
80
SUPPIlS,KUTl.6,
IIlANeN IF DNrCUT MODE PIlEYAILS
11.04 on II'U 061U
02040020S0 tTIIOO 8NII TIIAtUfo TRtTSN"
lRANtH .. TIACUT MODE PREVAILS
11916 "5 1198. 061n
020.0'
02010
BTII
CALL OSCout SUIPRDGIIAII VIA MONIT.
11921 11 02400 -2360
02080
• Til DSCOUT,IIETURII,6111, NIIITE DIIE AD-Apt IllCOIID ••• Il£TURN
II'~O I' 02410 -241J
020.0
DORO '050,.11+1
IIn6
NOP fLII+loIO,fLI!U.IO
OZIOO
11956 ~I 02498 anD.
1195)
O2ll0
OORO -I~
02120 OSAL
DSA FLN+OOIO
11951 0000' -2 ....
OZUO
11968
OORO "501-"
02140'
02150 NOEl y aD
IUNtH If CHANGE IN X 11961 4J 1116. 02"0
StOIlE.FLII+JOlo-I"
02L.O·
02110 IIDElI 8
STOllE +24
11.10 . . ""2 00000
II . . .
02180
OOIlG - 3
02190'

PAGE
02200 TUCUT BTM
0)010
0)020
0)0)0
O)O~O'

MONITII,02S20,6T,

8T
STRACT,OSAlolO,',
B
tTMOOoU
OOllG - I

03050 ER20e
03060

TFII
BTII

liE 11110' ,201,9
MONITR,02250.6f,

03010 NER"

ITII

ERPROC,4,n,

0)080 ERZlO
0)090
03100
03110.
OJ120 OSSII
03130 FR14SW
03140 KUTI
03150 MONITII
OU.60 OSCOUT
03110 flN
0)110 XO
03190 YO
03200 ..
04010 RnURN
040Z0 EIIPIIOC
04030 POV511
04040 STUCt
04050 TIlCTSIl
04060 SUPPIIS
0"010

TFM
OSC
OSA

IIER"+9,210,9
2,4'
E1I20.oU

OS
os
os
os
OS
os
os
OS
os
os
os
oS
OS
OS
OS
OINO

,6158
,6151
,6148
,2406
,2416
,2488
,5892
,XoolO
,5923
,2411
,2~I.

,6152
,2416

.61n

,CTMOOo"
SOOTOI

CALL stRA" SUIPROGRAII V:U NON IT R
11988 11 02400 -2'20
TRACUT GO TO POINT
12000 27 02410 11'161
12012 'I' 11'28 COOOO
12020
12020 16 120n OOKoe
CALL ERPIIOC SUBPROGRAM VIA MONITII
120J2 11 02400 -2250
IIRITE EIlROII IIESUGh •• SURCH FOR END
12044 11 02410 -0004
12056 16 120n OOKIO
12068 00002
12014 00005 U032
06158
06151
06148
02406
02416
02488
05892
05902
05923
02411
02~16

06152
02"16
0"5)
11951
ln9.

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

lh

'AGI
SY"Ol UtlU
RETURII
OSAI
HII
NPII
IIERH
YO

02.11
118111
02."
02455
11844
05902

MOIIITR
OSSII
FIIMSW
POYSII
XI

Yl

02.06
06158
06151
06152
0592]
OZSI'

lCNONI
ER208
GOOK
SGOI
XO

02H6
11.20
11 ••0
1179.
05892

ERPROC
ER2IO
GOI
TFlO"

Xl

02H6
11.00
06141

82

0249.

UIII 11820
M2
tLl
YJ

11t111

DUO.

Olue
06145

05913

01010.
OIOZO'
010)0'
01040'
01050.
01060.
0101001080'
010.0
01100'
01110 SGOI

INR

11796
SUBPROGRAM ENTRY
EII2DI,DSSII..
BUNCH If REVIEIi "ODE PREVAILS
11796 .5 11920 061'1

01120.
011]0

BO

TFIIDM,POVSII, ,

lRANCH If PREVIOUS AIIIING DIRECTION
11808 4) 11818 06152

OIUO'
01150 EIIZ II
01160

TFM
BTM

IIERM •• ,211,.
MONITR,02250,U,

11820 16 1115) 001l1l
CALL UPROC SUIPROGRAII VIA MONITR
118)2 17 02400 -2250
"RITE ERROII MESSAGE ••• SEAIIC." FOR END
1184. 17 02.10 -0005
U880
11880 41 024.1 00000
U870
11870 .1 0251. 02488
11860
11860 .1 05902 0250.
11857
11861 00005 -'192
11881

IBM 1620-UIl AD-APT SUBPROGRAM FOR '''DCfSSING
A GOI OR OffSET RECORD

RCS
oNAME 5GO/ ••• NON-ERASAIl! AR!lIM SUB'ROGRA"
'10 NUMIER D2U.OELDI"
-StURE CORE IMAGE
lINKAGE - 8
IGOI
DORG U7'"

ERPROC,5,67,
01180
01190
01200
OZOIO
02020
020)0
02040
02050 OSAI
020110
02070'
02080 TFROM
02090'
02100 ER210
02110
02lZ0
021l0'
02140 ER201
02150
02160
02170 GOOIt
02180
02190
02200
0)010

OORG
NOP
OORil
NOP
OORG
NOP
OORG
OSA
OORG
80

e.,e,-,+,
B2,O
--21
n.M2
'-21
YO.XI

--l4

..,......
XO

GOOIt,FRMSII ..

lRANCH If PUVIOUS fRO" STATfMENT
11888 .] 119.0 06151

TfM WEAN+.,llO ••
8
IIERM-ll
OURG 0-]

11.00 16 1185) aDitiO
11.12 ~. 11832 00000
11.20

11.20 16 11851 00lt08
TFM IIER"+9,201,'
11')2 4. 11812 00000
I
IIEII"-12
OORG - ) ,
CALCULATE EQUATION Of LINE THRU POINTS PO AND PI
11940
11940 1I 02500 Dun
TR
flll+Z'10-8,XO-'
11952 01 OlSO. 05923
XI-XOUI
FADD fLlI'2'10+I,XI ..
yt-YO+YJ
11964 01 0251. OS.])
FADO FLII+)oIO'I,VJ"
ITM MONITII,02lZ0.67,
calL LCNONI SUBPROGRAM VIA MON ITR
11.76 11 02400 *2120
CALCULaTE SLOPE AND V-INTERCEPT
8T
LeNONI,OSA"25,6.
11988 27 02410 11116

PAGe
0]020

TOM

0)0)0
0)040
0]050
03060
0)070
0]080
0)0900
01100 OSSN
0]110 POVSII
0)\20 "ONln
031]0 ERPROC
01llo0 xo
OllSO YO
0]160 FLM
OllTO XI
0]180 YI
Oll90 N2
0)200 82
0.010 FRMSII
0.020 XI
04030 YJ
04040 LeNONI
04050 Tli
04060 GOI
04070 NPII
04010 IIETURN
040.0

DC
TO"
TOM
TO"
OSC
OSA
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OENO

FlW+l-10.1."

1.' ,.
TLI,) ••
GOl,),.
NPW,2

2,4'h,
-RETURN
,6158
,6152
.20\06
,2416
,5892
,XO+lO
,2488
,FLII_ZoIO . .
,XI'IO
,nll_OolO
,112+10
,6151

,5921
,XI+IO
,2416
,61.5
.63.1
,2.55
,2411
5GOI

I

SET RECORD MARK fOR STACIt ING TRANS".
12000 15 024.9 00000
12011 00001
12012 IS 06\45 0000)
SET TOOLI TO TL ON
1202. 15 061.' 0000)
SET GOI TO GOFIIO
120)6 IS 02." 00002
12048 00002
RETURN TO MOM ITR
12054 OOOOS -24U
06158
06152
02406
02416
05892
05902
02488
0250.
0251'
02488
02498
011151
0592)
059)]
02416
06145
06341
024S!!
02411

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

1179.

lSi

Sy,aOL TiIU
MOIIIU 02~06
GOI
06U7
TLZ
061""

01010.
010Z0'
010)0'
01040·
010500
01060.
010700
010100
010'0'
01100
01l10'
01l20.
OIUO S"OT
01140
01150
01l60'
01170
01110
01190
01200
02010
02020'
020)0 TAli
02060

IIIPaoc 02416
IISIIT 024J!i

ARGT 06'15
. n'OT 00002.

OSSIl
TAli

06158
OOO"R

ER,,, 00U6R
"LI
0616'

11M 16,o-Ull AO·'''T SUBPROGRAM F01t PROCESSING
TO, 'AST. ON AND TAN REC01tOS
RtS
'NA"E 5"DT ... ERASABLE 'RiLl" SU.,.OG"""
olD NUMIER On4+0ELDIM
'ASSEMILE RELOtAT'ILE
oSTOR, RELOAD AILE
liNKAGE - IT" ST'OT,I,IO
DC

2,0 ..

DUMMY AaGUMEMT

00001 00001

SUI"RGORAI! INTRY
OSSIl,I,llt
sn ex'L1CIT CS MOOI INDICaTOR
00002 IS 06158 000 OJ
Nsn,6..
0001" 14 OZ475 0-006
TAN,..
aUNCH " TAN REtORD 00026 M6 000" 01200

TDIII
CM
I.
TO
TON

TL2,NSIIf
TLZ,I,IO.
GOI.It.

TOOL2-NSItT-2
SET. G02 TO GOlFT

18

....

UIT

$"

00038 25
OOO~O 12
00062 IS
00074 42
00076

OORO - .

c..
liE

AIIOT.n.IO
ERIu.1t

TO
TO"

TLZ.TLl ..
GOI.' ..

88

•••

02050'
02060
02070
02080
020'0
02100'
02110 ERZIZ

06147
06141
06))7
00000

0247'
000·2
00001
00000

00076 14 06'1' OOOK'
.RANCH I' OFFSET/TAN SPEC/FlED
00018 '16 00126 OUOO
SET TOOL2 TO TOOll
SET G02 To GOFIIO

EXit

OORG - .
IT"

MOHITR.02250.67.

02120

ITIt

ERPROC.21Z00.67.

OIUO.
02140 OSSII
01150 HSRT
02160 TlI
02170 G02
02180 TLI
02i'O .. ON/TR
02200 ERPROC
0)010 AROT
OIOZO

OS
OS
OS
OS
OS
OS
OS
OS
OENO

.6158
.2475
,6147
,un
.6145
,2406
.2416
,6'1'
STPOT

00100 25 06147 0614'
00112 15 061)7 00003
00 12~ 42 00000 00000
00126

CalL ERPROC SUBPIIOGRAM VIA "ONITR
00126 I' 02 .. 00 ·2250
IIItITE EIIIIOR .eSSIGE ••• SEARCH FOR END
00 U8 17 02""0 II 1100
06158
02475
06147
OU]7
06145
02 .. 06

00000
00000
00000
00000
00000
00000
02~16 00000
06515 00000
00002

'IGE

Sv.aOL faBLE
LOOPSII
ERZU
nliST
NSS
TLI

14011"R 02406
EUII 00154R
FLW
02488
NSAT 02475
TLI
061~'
ZUD 0010611

010100
010Z0·
010300
010400
010500
01060.
010'0.
01080.
01090'
01l00'
01110 TTLI
01120.
01UO'
01140 START

06))]
0017411
0~540

OIU)

06147

ERPROC 02416
eRll~ 0002611
061)7
GOI
POVSII 06152
TPOV 0014211

DC
TF

5UBPROORA. ENTRY
N5S,F.IIST+0-Z7-1'., "aVE os SOURCE STATEMENT NO. TO OUTPUT
00002 26 0246) 05525
1lE1I".12,TL1,.
BIIANCH If TGOLt SET OR SPECIFIED
0001 .. M) 00062 06145

01l60.
01170 EII2I"
01180

IT..

""

IIEIIM+.,214,.
MONITR,D'''O.6f.

011.0 IIEII'

ITM

11'11'01:.1.61.

01200

80

IUO-lZ.E'SL~' ..

02010.
020Z0 ERU.
02030
01040
020500
02060

T'" wIR .. +•• U6.9
8
IIU"-lZ
)
OORO

02UO'
021 .. 0 lRaU
02110
OZ160
02& 70.
02110 IUU
021.0
02200
010100

ElMNT 064'3
EXIT 00242R
NIIT
02 .. 71
TLUO 05984
.. U .. 00050R

0000 I 00002

" a

80

02110.
02110 T'OY

TTl!

06004
0007411
001'411
OOOOIR
0000111

II" 1620-1)11 AD·IPT SUBPROGRA .. FOil TESTING TME VALIDITY
OF TOOL PARAMETERS A"D MODIFIERS PRIOII TO EVALUATING
THE CUTTU LOCUS DURING A REVIEII "ODE CALCULATION
RCS
'NA"E START ••• ERASABLE AREUM SUB'1I0GRI"
olD NUMBER 0215+DELOIM
oUSEIII8U RElOCAUtlLE
o STORe RELOADA8LE
LINKAGE -'T START,TLI

01150

02010.
02080 IUD
OZO'O
02100

EPSLON
ER226
/NISH
SURT

.
00026 J6 00059 OOKI4
caLl UPROC SUIPIIOGU" VU ..ON ITR
000)8 17 0'400 -2250
illiTE ER.OR "ESSiCE ••• SEARCH FOR END
00050 11 OhiO -0001
IIUNCH " INTOl AND OUTTOL NOT lERO
00062 MS 000'" 05'"
00G74 J6 ODDS' Don.
00086 M' 00031 00000
00094

..

lUNCH" CUTUIIAOIUS IS NON-lERO
000.4 AS 0014' OS."

10

"OV,TLUO-...

A

5..
INZ

TTLl.TLl ..
TTLlt6,I0
IUU ...

TLlULZ
00106 III 00001 061H
00 III JI 00001 000-6
cl"'"CH IF TGGLl AND TOOLI ARE NOT TLON
OOUO '" Don_ OUOO

10

INI SH,,.OVSII,.

"'MeN"

11111"+,,""9
IIIR .... U
OORO .. )

•""
•""

00.0

...

1lE1I" •• ,ZU ••
III ..... .,

A"INO OII'CTION IIISTS
001.2 AS DOl'" 0"'2
00 ".. .16 000.. 00lt 11
00166 N' 0003. 00000
00lT4
00 IT. J. 00059 OOK II
DOl.. N9 OOOS' 00000
00 ....

lh

Ol020 \PUSH

'A(iE

lfM

EU4HY,FlW.O-'O-9 ••

III1TUlUE "aUF" SUBPROGRAM

-24"

Ib 06~9]
00206 16 01'11 0-00\
00218 16 0241'.1 0-00'.1
SEJ FIRST POINT INDICATOR
002)0 IS 06))) OOOOJ
EXIT
00242 00002
0019~

0)030

lfM

IIIAT.5,.

O)O~O

TFM

NSRT,S,.

03050

TON

lOOPSw,I,ll.

0)060 ExiT
01010·
03080 TL I
03090 MONITII
0)100 fRPROC
03110 TLRAO
01120 TL2
01l)0 "OVSW
03l~0 G02
01150 ElMNT
03160 flW
03110 lOOPSW
03180 EPSlON
031 90 NSS
03200 FXWST
0~010 NRT
0~20 NSRT

OSC

2,"2, •

OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS

0~030

oe~o

,6l~5

061~5 00000
02~06 00000
02416 00000
0598~ 00000
061~1 00000
06151 00000
06337 00000
06493 00000
02488 00000
06333 00000
0600~ 00000
02463 00000
055~0 00000
02411 oooou
02415 00000
00002

,H06
,HI6
.5q8~

,6104,7
.6152
.6137
,649)

.2488
,G02-~
,600~

,2463
,55~0
.1~11

.2415
SURT

PAGE
SY~80L

SEARCH oaOHA
OISCN 003l8R
NSECT 02~H
W~ITE 002061

SElVGM 00134R
00006R
NR
OH61
TABLE 00335R

OS~OUT

01010·
01020.
010}0'
01040.
01050.
01060.
01010'
01080'
01090'
01100 RnRN DC
01110'
01120.
01130 oseOUT TF
AM
01140

TABLE

OUTPUT 00309R
fR218 0021BR
OUTSA 06513

~es

DODOS 00006

6.0

SUBPROGRAM ENTRY
NR ,RNOUT..
SET OUTPUT RECORD NO. 00006 26 02461
RNOUT ,1.10,
INCREMENT ouTPUT RECORO COUNTER
00018 II 0614]
SEARCH+6,TABLf-I" SET NSECT IFUNCTION OF NPwl
00030 JO 00048
000102 24 00000
.NPW
00054 146 00086
MOO+20

TFM
e
8NL

AM
TO
TFM
A
TO"

SEARCH+6,1.10
NSECT, SEAReH+',1l
SETVGM+ •• NSECT-IUGO
SETVGM+Io,NSECT

OtOl0

DGM
TO
AM

o
01 SCW+8.NseeT
01Sell+8,I,10,

02100

Tf

01 sewn.OUTU"

02110

SEEII OUTPUT ...

02120 WRITE

PUT

02080
01090

.. ,

OUTPUT ,R8C ..

TDM

SETYC" •••• 6.

OZl~O

A

OUTSA,OI SCw ....

02150
02160

8N

OUTU,4BOO,'
RETRN,

02170'
02UO fllll8

IITM

NONI TR,02aso.'"

,6.

06141
000-1

-OHio
02455
01300

00066 JI 00048 000-3
00018 149 00042 00000

SEAAeH+6,3.10
SEARCH

02130

eM

ERPRoe 02416
NPW
024'5
RItOUT 0614]

oNAME oSCOUT ••• ERASABLE ARELEII SU8PROGRAM
olD NUHBeR OU.+DELDII4
oASSEM8LE AELOeAUIILE
.SToRE RElOAOABLE
LINKAGE - 8TH OSCOUT,RETAOO
RETADO IS ADDRESS OF ItEXT IItSfRUCTlON

01160 SEARCH
01110
011800
all 90 1400
01200
02010'
DIDIO
01030
02040
02050
02060 SElVGM

81

OH06
1400
00066A
RETRN 00005R

IBM 1620-1311 AD-APT DISC-FILE OUTPUT SU8PROGRAM

01150

AN

"~~ITR

00086 JI 00048 000-1
00098 2N 02453 0004Q
00110 J6 00140 -2552
00122 KI 00138 01451
SET TERM I NAL GROUP MARK
00134 15 00000 00000
00145 00001
DOIU K5 00}26 0245]
SET SECTOR COUNT FIELD
00158 JI 00326 000-1
SET OUTPUT SECTOR ADDRESS
00110 K6 00323 065Tl
POSITION ARM TO OUTPUT cn INOER
00182 10 00U5 -0205
00194 4R 00554 -0309
NRITE I Ao-A" RECORD IN SCRATCH AREA
00206 10 00565 -0229
00218 loR 00520 -0309
CLEAR GAOUP MAR..
OOUO J5 0014- 00001)
A~JUST SECTOR ADDRESS fDA NExT IIRITE
00242 IJ 0.51] 00326
00Z54 14 06513 OM801)
BRANCH If OUTPUT
'ilEA 'VA
00266 M' OOOON OUOO

one

luau

CALL EIIPROC SUI'1I0oaAM VIA MONITR
WRITE

ERROR

00218 "
MESS.; ••••

02.00 -22'0
END

seARCH .GII

I:) !l

"GE

2

002~O

02100
CAll EXIT •••
0)010 OUTPUT DOW .DIStll"II.'

EX IT all-A" SlUf"

0)020 OISCIl

aDA

.0,O,O,NUtf-1

03030
03040 UIlE
01050
03060
03070

DC
DC
DC

3.70
3,171

DC

3,272

O)oeo

OJ090
03100
0)110
OU20
031)003140 NR
03150 KNOUT
03160 NPW
011 70 NSECT
0)180 OUTSA
0)190 MONUR
0)200 U'ROC
04010

DC

I, •

).37)

DC

),471t

DC

3tS75

DC

DC

),6U
),n7

DC

30878

OS
OS
OS
OS
OS

.2467
.614)
,H55

11 01410 KI890
49 00796 00000
00002 KO
00005 -031'
00001 •
00006 11-0000
0000) -00
00005 -24ft
00001
0000)
0000)
0000)
00003
oOlH 0000)
00350 0000)
0035J 0000)
00)~6 0000)
00)59 0000)

00302
00109
00311
00116
00318
00)24
00327
00332
OOHS
00338
OO)H
00344

024&?
06143
02455
02453
065?)
02406
02416
00006

,H5l

,651)
,2406
OS
,HI6
OENO OSCOUT

os

00000
00000
00000
00000
00000
00000
00000

PAGE
SY~80L

9RCYl3
9CCYL2
5EIIIN2
TRAeut
STACKR
SINORP
seCNTR
POINTR
NOLDAO
MONITR
LOOPSW
INDIRV
GTOOSA
FRHDSA
£APRDC
ENDue
DIMTA8
CUT NOD
CLEAR I
AfOUIIP
CALLE
COSH
DIMND
OSSW
END
EROIM
EXIT
FINI
FROM
GOFWD

00519
OUIS
06095
07458
00862
0241611658
08616
10108
08562
06333
01310
07383
07283
0241609596
07906
01230
10400
0241608598
09156
08560
010158
01390
09116
09900
OUl24
07260
00938
06341
GOI
IHDX 01802
KleMP 0770)
LODE! O~826
00029
HE
HOFIl 10380
NSRF 02477
OFFST 08262
PAST 07516
PSt
05811
RESET 08946
SDUT 02416$lNFN 02431
STDIM 08742
SIISET 06191
TLON 068'1"
06145
TL I
TYPU 06374
WUR" 09748
OS'I))
YJ
O,OH
0.0
. ADISCA 11780
.MOOf 11810
UIIDO lun

9ReYLt
9ten I
100£48
SYMTlB
SQRTFN
SGOTOI
RSETHI
OUtlOL
NNfOYF
MINI.O
LOMHIP
INOIRP
GOOL TA
EXPLCS
£RASEI
ENOSET
OFRfAD
CUTDSA
CALLNE
ARG
CDFUV
COS20
DMPFL
DSURF
END"'P
ERENT
EXPFN
FIT
FXWST
GOLFT
G02
INMAP
KUTI
LOGFN
NECON
N'II
HSH
ON
PDVSII
PSO
RNIN
SEOOK
SPRET

00511
02113
06085
06S82
OH26
OHI612164
010S8
09712
06024
10204
07290
073)0
08218
09014
06184
06302
07253
09336
06511
10636
06105
0815~

07620
08186
10284
02446
10016
05540
06938
06))7
09908
06148
02451
00222
02455
02475
01576
06152
05881
06U9
06338
10752
STH 06163
07576
TAN
nRAD OS'I84
TLZ
061H
06125
UX
05820
X
YO
05902
060.,
0.5
ADscrN 11514
ANSEcr 02411
UNDD 122"

TABLE

9RCYLI oosu
geeno 02111
fR~ODe 01514
STRADO 095)6
SPTEST 10568
SGDLU 02416REV~OO 01930
OFSDSA 08285
NNECON 00223
MEHGAP 10172
LOLOAO 10084
INCORE 10348
GOBACK 069)8
. ER208F 08400
EPSLON 06004
DUHPSW 06169
DELOII4 00000
CMPARE 06506
8RMCOE 06818
ARGT 06SIS
CHTR OSSU
CSELF 102"8
DM'FX 08142
DUMP 08082
ENTRY 02136
EII203 08292
EXPL 01576
0248.
FLII
05974
G
GOMDO 069)8
00434
HI
INTNO 01162
06149
K~TZ
LOPRM 09943
NIOYF 10541
02467
N.
02463
NS5
OUTOS 07680
'ROGX 10460
.SIS 06110
.HOUT 06143
SETPT 08990
S'SIS 02416STFX 06168
09255
TE'"
TLRGT 06894
TO
075"
06U5
UY
05923
XI
05840
Z
06015
1.0

AfXIf

11646

AO"LD Uti.

9Reno 005U
5E~IN5 ObOH
TR~DSW 01494
S TNTRY 09094
SOFFST 02416SETVG~ 11696
RETURN 09168
OFFseT 01H4
NOSSET 06201
MATRIX 08440
LOD~EM 11196
IMPLCS 08034
GO/DSA 01569
ERROUT 02416
ENTRY2 02421
OSCOUT 02416CYlOYF 11140
CLENTI 10516
ATANFN 02410 1
ARROW 106'10
CO"P 09062
eSURF 07760
ollse 00201
05954
E
ERAS 08561
£A207 01131
EXTNT 10120
FLWST 03362
07534
Gal
GORGT 06938
HIDSA 07875
INTOF 06151
09175
LO
Oelll
MOD
NF
06155
NU
02471
NUOIM 08610
OUTSA on7]
05851
PSA
PSSW 06150
SCAN 08610
SFROM 02416STACK 02416STOL 02416TlLfT 0689.
nT.
01229
TOLl 05"4
VARe
051'12
XO
05.U
ZK
0 . . 15
"'NPur IITTI
A.UD U.62

oun

a.o

geCYL3
5EHIN4
TRt uw
STKSET
SINDRV
SEQeH"
RETADO
N0020D
NCORES
HA'ENT
LAIILOP
"ILOAO
GOLDSA
ERROIM
ENTRY!
DNTCUT
CUTTER
CLEAR2
AREUM
8RCST
COSFN
CUT
OSDSA
ELMNT
ERASE
ER201
F
FRMSW
GOCS
GDTDI
INDEX
INTOL
LOC
MYDNO
NNE
NSECT
HUEHT
OYOFF
.S8
RANGE
seUT

02111
06M4
06153
06114
0141606114
08556
10580
08934
10810
10144
08886
01353
02250
02416
07230
07018
10316
06206
08022
02436
01230
07eQQ
06493
09244
07426
05964
06151
06910
07360
0'1676
06'190
06550
07840
00007
0245]
08730
09142
05861
09038
02416-

SGOI

02416~

STAU
SfPOT
TLMOD
nun
TOLD
VARNI
y
ZO
AALF.M

024160241606894
06UI
06014
06U.
OU30

A.UIIII

&lu,

0"12

lIln

,,,us aun

I Gil
01010.

" " 1.,11-1111 AD-A"

.IIEUII MAlIILINI '"0'.'"

01020.
010)00

RCS
oNA"E ARHEM
.10 NU~RfA 02)1.0ElOI~
oSTO~E tORf IMIGE
oSY5TEII SYMBOL TABLE
LINKAGE - CALL L1NK,ARELEM
OORG 2402

010~00

010'10·
010600
010700
01080

02402

01~90.

01100.
01110'
01120

OSA

AD-APT SVSTEM COMMON AREA
SUIPROGUI' REFERENCE ADDRESSES
IION"R.REJURIoI

02406 00005 -1562
02411 00005 -976.

all 10'
01140 E"TIIVi OS

5"

01150 ENTRYl OS

5.,

01160'
OU 70 SClRT'" OS

5"

01110 SINFN

OS

'I.,

OI1'O,COSFN

LON-OROER ENTRY TO MONITR-LOAOEO PROGRAM
02416 00005
HI-ORDER ENTRY TO MONIU-LOAOEO PROGUM
02~21 00005
SORff EIITRY WITHIN FUNCT. SUBR. PACUGE
02426 00005
SIIIF ENTRY WITHIN FUNCT. SUBR. PACKAGE
02431 00005
CD SF ENTRY WITHIN FUNCT. SUBR. PACKAGE
OZ~]6 0000'1
ATANF ENTRY WITHIN FUNCT. SUBR. PACKAGE
02441 00005
EXPF ENTRY WITHIN FUNer. SUBR. PACKAGE
OZH6 0000'1
LOGF fNTRV WITHIN FUNCT. SU8R. PACKAGE
024'11 00005

OS

5"

OllOO ATANFN OS

5,.

OlOIO EXPFN

OS

'I"

Ol020 LOGFN

OS

5 ••

OZO]O.
02040.
02050 NSECT

OS

2"

02060 NPW

OS

2..

02070 NSS
02080 NR
oZlOO NSRT

OS
DS
OS
OS

8"
4"
4"
4"

02110 NSAF
OZl20

OS
OS

,.,
I..

OZl3o FLit

DSB

10.Bl..

02140
02150
02160'
OZl10 FLIfST

OS
OS

1,.

DSB

10.211"

flOATING-POINT WORD SUCK ARRAY
03]62 02150

02110

OS

11. ,

RECORD MARK ALLOCATION

02190 FXwST

OS.

l7,l1"

0551l 00011
FIXED-POINT IIORD SUCK ARRlY
055~0 00291

02200'
01010 X

OS

10 ••

03020 Y

OS

10 ••

03010 Z

OS

10"

01040
010'10·
01060 PSA

DC

1.' e,

os

10 ••

0]010 PS8

OS

la, ,

01080 PSC

OS

10,.

Ol090 NAT

110 ARU ANO COMMON STORAGE

I"

INO. SECTOllS-11 IN WHICH AD-APT RECORD CONTAINED
02453 00002
NO. FLOATING-POINT WORDS IN AD-APT RECORD
02455 00002
SOURCE STATE~ENT NO. 0246100008
AD-APT RECDRO NUM8ER 02461 00004
AD-APT RECORO TYPE
02HI 00004
AD-APT SUB-RECORD TVPE
02H5 00004
AD-APT SURFACE TYPE
02411 00002
RECORD MARK AnOCATleN
0241B 00001
110 FLOATING-POINT IIORD JARlY
02488 00810
110 GARBAGE
03351 00001
GROUP MARK ALLOCATION 011~2 00001

X-COORDINATE OF TOOL CENTER
05820
V-COORDINATE OF TOOL CENTER
05830

INEXT POINTI
00010
, .. exT POIN"
00010

PAGE

01090 PSD

OS

10 ••

01100

as

I ..

ol1l0 XO

OS

10,.

01130 YO

OS

10 ..

01110'

0]140 ZO

OS

10 ••

01150
03160'
03170 XI

DC

1,',.

OS

10"

YJ

OS

10 ..

01190 ZII

OS

10 ..

01200

OS

I ..

04010'
04020 E

OS

10,.

04030 F

OS

10 ..

04040 G

OS

10 ..

OS
OS
OS

10 ••
1O ..

01110

04050.
04060 TLRAO
04010 TOll
04080 EPSLON
04090 TOLD
04100'
04110
04120 "INI.O
04LJO'
04140
041'0 O~O
0416004170
04110 'EMIN4
0419004200
05010 UMIN'
05020
050JO'
0'040
0'1050 0.5
OS060'

os

10"
10 ..

DC;
DC

.,-10000000

Z.l ..

i-COORDINATE OF TOOL CENTER INEXT POIN"
05840 00010
05841 00001
RECORD MARK
A-COEFFICIENT OF PS PLANE
05851
B-COEFFICIENT OF PS PLANE
05B61
C-COEFFICIENT OF PS PLANE
05811
O-COEFFICIENT OF PS PLANE
0588\
RECORD MARK ALLOCAT ION
05882
X-COORD I NATE OF TOOL CENTrR
05692
V-COORDINATE OF TOOL CENTER
05902
Z-COOROI NATE OF TOOL CENTFA
05912
O'i9U
RECORD MARK

00010
00010
00010
00001
IPRES. PH
00010
'PRES. PTI
00010
'PRES. PTI
00010
00001

X-COMPONENT OF PRFSENT AIMING DIRECTION
0'1921 00010
V-COMPONENT OF PRESENT ""ING DIRECTION
0593] 00010
i-COMPONENT OF PRESENT AIMING OIRECTION
05943 00010
RECORD MARK ILLOCATlCN
05944 00001
OS TOOL OFFSET INDICATOR
05954 00010
CS TOOL OffSET INDICATOR
05964 00010
ROTATION OIRECUDN INDICATOR
05914 00010
CUTTER RADIUS
INSIDE TOLERANCE
ALLOWABLE fAROR
OUTSIDE TOLERANCI

059B~ 00010
0599~ 00010
06004 00010
06014 00010

-1.0

06022 00008
01>024 00002

0.0

06012 00008
060]4 00001
060~2 00008
06044 00002

•• 0

DC
DC

2.-99.,

DC
DC

2.-J.,

0.0005

.. '

1,50000000

DC
DC
DC

,.'0000000
2.-4"

0.0000'

OC

8.50000000
2.0 ..

0.'

DC

00010

06052 00008
0'0\4 OOOOl
06055 00001
060U 00001
06065 00001

161

O~O 10
05080 1.0

DC
DC

.,10000000
2~ 1"

DC
DC

8,10000000

DC
DC

8,50000000

1.0

0001) 00008
06075 00002

I.OE'"

06083 00008
06085 00002

I,-It.

0.05

0609) 00008
06095 00002

DC
OC

.,99919012
2,0 ..

COSlII. 2

0~Q90.

05100
05110 l.aUI
05120'
05130
OSHO SElliN'
0515005160
05170 COSlO
0518005190

2,~9 ••

OEG~EES

0610) 00008
06\05 00001

OC

8,20000000

OC

2,1"

2.0

06010'
06020 UK

DS

10 ..

00010 UY

OS

10,.

X-COMPONENT UN IT TAHGENT OS VECTO~
06lU 00010
Y-CO"'ONfIfT UNIT TANGENT OS vEeTO_
06U' 00010

OS
OS

4"
4"

INPUT UCORO COUNTER 06\)9 0000_
OUTPUT RECORD COUNTER au") 0000.

OS
OS

Z..
2 ..

OS TOOL MODIFIER
CS TOOL MOOIFIU

OS CUTT ING MODE INDICATOR
06148 00001
CS CUTTIIiG MODE INDICATOR
061_" 00001

OUOO 2.0

06040'
06050 RNIN
06060 INOUT
06070'
06080 HI
06090 TL2
06100'
06110 KUTI

OS

I"

04120 KUTl

OS

I ..

04130'
OoHO PSSW
06150 FRMSW

OS
OS

I ..
.1 ..

06140 POVSW

OS

1"

06110 'R(TSV OS
06180 NF
OS
06190 INTOF OS

2"

OUU 00008
06\U 00002

061_' 00002
OU47 00001

P$ TYPE INOICATO_

06150 00001
FI\OM RECOIO STATUS INOICATOR
06151 00001
PRESfNT AlNING. DllleTlOIi INDICATOR
06152 00001
TRACUT MODE INDICATOR 0615' 00001
INTERSECTION NO.
06\55 00002
OS-CS CONFIGUUTlOIi INDICATOR

1"
2 ..

0.'"
Q6200'
01010'
07020'
07030'
07040'
0105001060.
07010'
0108007090'
01100'
07110'
07\20'
071 30'
07\40'
07150'
0114007110.
0718007190.

00002

SIGNIFICANCE 0' INDICATOR INTO'
INro,
1
2
)

"
5

6

7

8
Of
10
II

12

OS TYPE
L1l1f
LINE
LINE
LINE
CIRCLE
CI RCLE
CIRCLE
CIRCLE
GCONIC
GCONle
GCONIC
GCONIC

I)

TAaeYl

I.
15
16

TABCYl
TUCYL
UaCYL

CS TYPE
LINE
CIRCLE
GCON IC
TABCYl
LINE
CIRCLE
GCON IC
TAaCYL
LINE
CI RCLE
GCONIC
Tucn
LINE
CIRCLE
GCONIC
TUCYl

PIGE
0120008010 OSSV
08020'
08030 STFL

OS

080"0 SfF.

REVIEW MODE INOICATOR 06158 00001

I"

FlOATI .. G-POINT WOAD SUCKING INoeK
0616) 00005
fIXED-POINT ~ORO SUCIlING INOEX
06168 0000'

OS
OS

t ..

0805008060 OUMPSW OS

I ..

08010'
0808008090081 00 STUff OSA

Fl~$T-9,'XMS T-16

08110
08120 ENOSET
08130
OSHa SWSET
08150
08160
08110
08180
0&190
08200
09010
09020 NOSSET
090)0
090400905009060'
0901009080 AIIELEM
09090_
09100091100912009UO09HO09150.
09160
09110'
09110'

0"
.009200-

DC
DC
OC
OC
DC
OSC
OSC
OSC
OSC
DSC
DC
DC
DC

"I

TA

RE AD-OUMP MODE I NO ICATOR

06149 00001
INITIALIZATION CONSTANTS

I, '

4.0

5,'

2,0
2.0
1.0
100
1.0

1.0

1,0

\0'

2,1
),

'

Tll-I.SIISET-I

10020
10010

.""

TOlD,"_IN. . .

n

CLEU OS AND CS rOOL MODIFIERS.
ASSUME CUTTING MODE IS CUT,
SET PS TO HDRIlCNUl PUNE,
SET SWITCH INDICATING NO FRO~ RECORD,
CLUR PREVIOUS DIRECTION VECTOR AND
SET TRACUT/NO MORE MODE INDICATOR
06218 JI 06144 06190
ASSUME CUTTER RAD IUS IS 0.0.
sn INTOl-O.OOOS AND
AlLOWAILE EIRO.oO.ODOOS
-062)0 )1 OI"T~ 06025
sIr aOTTOM CINTfR Df TOOL IN •• y 'lANE
06242 O' 0".0 060).
SIT OUtTOL.O.OOOs
OUit O' 0.". 0.0 ••

SIT INTUneTlOII 1110.-1,
INTO'.O AIID

100'0'
1006010070100BO

sn

SET NON-II.VIIII IICOR INOICATO"
0026. Jl 061,. 06100
SeT RECORD STACKING INDICES AND
SET READ MODE INDICATOR

1009010100'
10HO
10UO

OOOO~

00005
00002
OOOOl
00001
00001
00001
00001
00001
00001
00002
0000)

sn

TLlIAD-9,0.o-.
l.O.O ..

lOt')4~.

0618~

061B'f
0610fl
06193
061Of4
06195
06196
06191
06198
06199
06201
06204

PROGRAM INITIALIZATION
SET ANTICIPATED INPUT RECORD NO. AND
INITIAL OUT pur ~ECORD NO.
OU06
0.U6 06111

I""'N-),ENDSET-h.

TR
TfL

10010

06174 00005 -))53
06170f OOOO~ -5514
06180 00001

fa

.NIt

$TFL-~.STKS£T-4

OUT05--II,OS5W ..

GUTe II 06159 06110
aUIliCH If REVIEW 1I0Df pafVAILS
0.290 _. 0 ' ' ' ' 06UI

I G:.!

'U.t
lOI}O101 .. 0 Of READ 8TM
LOI~O

SEQtHK

10160

UOSCINol.LO.

c:

HR..ANIN ••

BNE

£AlO), ..

1017010180 Gal
OC
101~O LOOPS .. OS

2,0,.,
1,-·0\.

10200'
11010 SEQOK

INrUN
06302 11 11514 000-1
CHECK _ECORO SEQUENCE NO.
06314 24 02461 06U9
BRANCH IF RECORD OUT Of SE QUENtE
06326 41 08292 01200
FRO~

RHO ONE AD-APT RECORD

CS GO MODIFIER
06]31 OOOOl
INDICATOR FOR SU8PROGRAM PTBUFR
06)]) 0000 I

AM

RNIN,I.IO,

11020 GOI
110]0110.. 0

DC

2,0,·-2.

OS GO MOolF IfA

CN

NAT,l, ••

1I0S0

BNE

TlURT",

TEST FOR TYPE
RECORD
06]~0 H
02411 0-002
BRANCH I F NOT TYPE 2 RECORD
06]62 41 064'8 01200

1106011010 TYPEZ
11080
1109011100

tM

NSRT,l,8.

BE

END.,

CM

NSRT ,lOl8.a,

11110

BE

TRACUT" ,

1112011130

BNA

STACU .DSSW"

BRANCH If REVIEW MODE PREVA IlS
06422 45 06862 06158

111 .. 011150

8TM

MONITR,02360,.

11160

8TM

OSCOUT .8RMOOE ..

CAll DSCOUT SU8PROGRAM V I ~ MaN ITR
064]4 17 08562 -2360
WRITE ONE AD-APT RECORD
OM"6 17 02410 -68U

11170III eo11190 lLURT

TO

ARG,NRT"

11200

TO

ARC-I.NSRT ..

¥

SF

lRG-l",

12020 ELMNT

OS

5,-,

120)012040

TFM

CMPARh6,SYMU8.,

1209012100

TEST fOR END RECORD
BRANCH I FEND RECORO

06314 H 02415 0-001
06]86 46 01390 01200

TEST FOR TRAtUT AECORD
06]98 14 02<075 OJ03a
BUNCH If TUCUT RECORD
06HO 46 07458 DIlOO

TA8LE LOOK-UP ROUT) NE
EXTRACT lOW-ORDER DICIT

12010

12050 C"PARE CM
OS
12060 ARG
DC
12010 AAGT
BE
12080

INCREMENT INPUT RECORD COUNTER
06338 II 06U9 000-1
06141 oOOOl

2,-

2,0,--2
lOC .. ,

AM

CMPARh6, 7.10,

8

CMPARE

12110
12120
121 ]0-

DORG -3

12140 laC

AM

C"PARE.6,., la,

12150

SF

CMPARE.6., •

12160 oUtsA
12170

oc

5,3ItOO.-,

8

CMPARE+6, .6,

12180
1219012200!l010 SVMTAB
13020
nOlO

OORG --4

FRO~ NRT
06~58 2~ 065n 02471
EXTRACT lOW-ORDER DIGIT FROM NSRT
OM10 25 06516 02<015
SET 2-01GIT ARGUMENT flAC
06~82 )2 06516 00000
STACKING ADDRESS FOR SU8PROGRAM PT8UfR
06~93 00005

SET TA8lE ARGUMENT ADDRESS
06494 16 06512 -6582
06506 14 00000 -0000
06517 00002
06515 00002
8~ANCH If INPUT AND TABLE ARGUMENTS SAME
06~18 "6 06550 01200
INOU TABU ARGU_ENT AOORESS
06530 1I 06512 000-1
065U 49 06506 COOOO
06550

PACE

RECORD TYPE BUNCHING TA8lE
DC
OSA
DC
OSA
DC

2,23
OSURf
2,28
CORGT

13060

OU

\l070
13080
13090
13100
13110
13120
13110
13140
13L50
13160
13110
13180
13190
13200
1.. 010
14020

DC

GDDlU
2.55
GOTOI
2.38
GOFWO
2.18
GOlFT
2.14
TllFT
2015
INOIRP
2.ft1
PAST
2.ll
TO
2,53

130~0

n050

I~030

1.. 040
14050
14060
14070
14080
14090
14100
14110
1.. 120
14130
14HO
14150
14160

OSA
DC
OSA
DC
OSA
DC
oSA
DC
OSA
DC
OSA
DC
OSA
DC
OSA
DC
OSA
DC
OSA

2,45

ON
2.11
GOI
2,66
CUTTER

DC

2,34

DSA
DC
OSA
DC
DSA
DC
DSA
DC
OSA

TlON
2.35
FROM

14110

DC

14180
14190

OSA
DC
OSA

2.L)
PSIS
2,24

TlRGT
2,4
flNI
2.)6
INT~O

I~OIO

DC

UOlO
ISOJO

OSA

2,25
INOIRY
2.46
INTOl

DC

2,56

OSA

OUffOL

1<1200

15040
15050
15060
IS070
15010
15090
L1100

CalCULATE ADDRESS Of fUNCTION ADDRESS
06550 II 06~1Z 000-5
fA8RICATE INDIRECT ADDRESS
06562 ]2 06512 00000
OUTPUT SECTOR ADDRESS 06513 00005
BRANCH TO RECORD TYPE ENTRY
06514 49 065IK 00000
06581

DC
OSA

DC
OSA

2.48

GaIACI(

l.n

OFFsn

DC

Z,U

OSA

TAN

06582 00002
06~67

OOOO~

06589
06504
065Q6
06601
06603
06608
06610
06615
06617
06622
06624
06629
06631
06636
066)8
0664)
06645
06650
06652
06651
06659
0666 ..
06666
06611
06673
06618
06680
06685
06687
06692
06694
06699
06701
06106
06708
06713
06715
06720
06722
06721
06729
06134
06736
06141
06743
06141
06750
OU5'

00002
00005
00002
00005
00002
00005
00002
00005
00002
00005
00002
0000·5
00002
00005
00002
00005
00002
00005
00002
00005
00002
00005
00002
00005
00002
OOOOS
00002
00005
00002
00005
00002
00005
00002
00005
00002
00005
00002
DODOS
00002
00005
00002
00005
00002
0000'
00002
OOOOS
00002
00005

-7620
-69)8
-1HO
-7360
-6938
-6938
-6894
-1290
-7516
-7576
-7576
-7534
-1018
-6894
-7260
-6170
-6894
-8)24
-1161
-HIO
-6990
-70'1

.'n31
-7534
-1516

Ill:!

Inl0
15120

De
OSA
DC
DSA

ONTCUT

ISltO.
ISl10 'SIS

'NA

'IIITI' '0.
•• , •• OUM'SW..

15110'
15190

'NA

1IA_1I1.OS$W..

&6010

ITII

IIOfIUI,onao,.

16020

nil "Su.&.&D.

15130
15140
ULSO'

lUOO'

16010.
11,040 IRMODI
16050'
16060
16070
16080'
160.0 IIARlll

INI'

2 .. 6

2,6

CUT

0'1..0 ,OUII"IIo.

ITII

16110 SUCKR nil

16190.
16200
17010
17020
170JO'
17040'
11050 GOIIOO
17060'
17010
17080
170.0
17101i.
17110 ,Des
lllZO
17UO
171<10.
17150'
17160 INTIIL
17UO

'II'

IIONITI,02250 ..

IIDNlTR,02UO ..

.T
STACK,STFL,.
•
DfRUD
DORD "';'3
TO
INA

-,no

,UIICH "

RIVIIII _DOl "REVAILS
06112 U 06n106U.

CALL '''IS 'UIPIOGUII VIA 1I0lliTA
OA19. " 0"6,'-2'20
SUII"C. R.CORO
•
0.10. 17 0'4,0 0011-1

'IOCIIS

'A"

'UNCN I' ilIAD 11001

06811

'I' OU02 0"69

061)0 49 0.106 00000
06UI
eUL fIIPRDC SUBPROGRA" VIA liON IfR
068)8 11 oesu
IIRITE AURII IIUSACE ••• BAANCH lACK
06850 11 02'10
CALL STACIC SUBPROG.." VIA 1I0NnR
0681>2 n OU.2
'Sf ACIC l"puT RECORO
06814 27 02.10
0681. 49 06102
06194

-1l50

K0490
-22)0
0616)
00000

.ENTRY '011 'DOL' 1I001'IER RECOIO.
fL2,NSIT ..
sn CS TOOL II0DlflER 0 .... U 06141 02411
DFlUD.OSSII ..
IUIiCN ., REVill! 11001 'REVAILS
06906 . , on02 06UI

TO
TU,NS"' ..
•
D'IUO
OORD .. )
INII

00002
OOOOt -1110
DODO'
00001

SUI',C. aECOID.
' ••NCN I. ST.CK-OUM' MODE 'IEVAIL$
06"0 " 06794 0616'

8
11011-12
OORD '-3

16100

16110
161JO
16HO
16150'
16160.
16170 TLIIOO
16110

01>1"
061.a
067.0""

sn as TOOL _OOlflU

06911 n 06145 0,."
06no' . . 06101 00000
06911

'ENTlY 'OR 10 IIOO.,1E1l UCORC'
GO",DS$I!"
IUNCN I. IIEVIEII RODE PReVAILS
06918 . , 06'10 06151

TO
GOl,HSU"
B
OFRUD
DORG - I

SET OS GO IIOOIFIER

06950 25 061.1 02415
06962 . , 0610' 00000
06910

TO
GO',NSRT"
II
DfRUO
DORI - ,

SET CS GO 11001'1111

0 . . 70 n 06Ul 0""
06982 .. 06102 00000
0 •• 90

Tfll
INA

.ENTRY '011 1.'01. RECORCt
OUTTOL-9,TOLI
06990 16 01049 -59"
II""NCH I' SuCIC-OUII' IIDDE PIlIVAILS
"Z',DUII"II"
01002 U 010U 061"

11190

lHA

IIUNltDSSW ..

IUNCN ., REVIEW "OOt PREVAILS
01014 41 06lU 0""

11200'
11010

ITII

MONnR,oU.O ..

11020

IITII

STOL ...

UOIO
"0.0
18050'
18060'
18010 DUTTOL
UOIO
18090
18100'
11110'
lIUO cunER

•DORO "'"001
-)

tALL $TOL SU.,RIIGUII VIA MONITI
070i6 11 0.562 -Z,40
'ROCESS TOLERANCE IIUORO
,010U '" 02410 -0000
01010 . , 0. . 11 00000
010,.

17J'O'

ofllTIIY '011 DUfTOL RECOIO'
T'M OUTTOL-9,TOLO
•
INTOLt"
OORD - I

01058 16 01049 -6014
07070 49 07002 00000
01018

'NA

'ENTRY '01 CUTTER RECORD'
•• ,.,OUllnw"
'UIICN I' STACIC-DUIIP MODE PREVAILS
07018 ., 01102 06169

18UO'
&1140

'NA

"'RN'.OSSIl"

181'0.
18160
11170
18110

FIIUL 'LlIlO'10,O.5"
7FL TLRAD,'LWtOtl0 ..
'NN "'"OOE ...

ICuTrEII DIANnEIII/Z.O 01102 OJ 0241. 060..
STORE CUT TEll "AD IUS
0711 .. 06 0~9.4 02 •• 1
IUfjCH I' cunER OIAIIETeR 1$ POSITIVE
07126 U OUlI 01100

18190UZ,OO ER10'

""

IIQfjlTlI,OU'O ..

,9010

11711

IR'II0C,20700"

CALL ERPIIOC SUBPROGRAII VI A liON IYR
07118 17 0.562 -22'0
1111 lYE ERROII IIESSAGE ••• SEARCH FOR EIID
011 SO U OZ41D 110700

'9020'
190JO'
190"'0 INTNO
19050
190'60

~ODE

PREVAILS
01090 ItS 06nl 06 U'

_ENTRY '011 INTERSECTION NUIIBfR IIECOIID.
CLUI INTERSECTION NUMBER INO""OR
"" NF"IO,
01162 16 06155 000-0
07'74 02 024 •• 06015
FSU' FLW+0.10,l.0
lRANCN I' IN'EISI'T1011 HD. 1I0T I'DSITIVE
III
EUO?",
0111• • 7 071J. OlJOO

,9010All
19080
80
19090
19100'
19no
19120
191)0'
19140191 SO CUTIIOO IT

19160

BRANCN If REYIEW

,

19170
19110'
19"0 CUTDSA OS4
19200
DSC
2001020020200 SO '11011
IT

NF,l.lO,
'IX IN'UT !lUII'.1I
INTIIO+",'LII.Oolo-.

071" 11 06"5 000-1
07210 U 0117. 02.79
01222 .9 06102 00000
012JO

"ENTRY FOil CUTTI NG MODE UCOROIIGNIYI.CUTOS.tl.,
CALL SCUT SUIPIIDGIAII VIA MONITI
012JO a' oa'.2 0721a
'RoceSS CUT 01 OIlTCUT RECORO
scur ...
o?Zu . . onlO 00000
D7Z~'

QIIIUO
'.02111

alas. oooos -"02
01254 00001

_IN'RY FOI 'ROil IICORO'
IIDIIIT•• ,.IIOSU'"
CALL "lOll SUI'ROGIIAII VIA MOIInll
07'60 'T oal'2 07'18
'ROCISS '110M R.COIIO
07'7'" 02410 00000
•
VIIOII ...
011"
0011. - .
0'2" 00001 -6.0'

a

•

Z0080
D$C
l0090 •
ZOIOO.
20110 INOI~P BTM

lOIlO

OEIlTRY FOR

10

"AGE

II

IHOI~'

MONIT~,0Z290..

8
$INoAP ....
OORG 0-3

l0130

PAGE
07284 00005

5,02ll1

RECORO'
CAll SlNORP SUIIPROGRAM VIA MaN ITR
072'0 17 085.' -22'0
PROCESS INOIR' RECORD 07)02 " Ol'IO 00000
onlo

ZOI~O'
lOI~O.

20160

INDI~V

'ENTRY FOR INDIAV RECORD'
MONITA,oUOO..
CAll SlND~V SUBPROGRAM VIA MOIIIlR
01310 17 OU" -noD
PROCESS INDIRY UCORO on22 .9 Ol'IO 00000
8
SINDRV .. ,
07UO
DDRG 0-)

20110
20180
20190'
l0200'
llOIO GOolU aT
21020
210)0
21040.
21050 GDlDSA
21060
21070'
21080'
21090 GDTDI

8
DD~G

'ENTRY FOR GDDlTA RECORO.
HONITR,GOlOS"'..
CAll SGDlfA SUIPROGRAII VIA MOIiITIl
01 no 27 08562 on,.
P"OCESS GODlf A RECORD onu '\09 02,10 00000
SGDlTA ...
_'\0
on ..
onn 00005 -nOl
07'" 00005

DSA
DSC

.EIITAY FOR GO TO RECOIIO.
"ONITR,GTOOU-S..
CAll SGOTOI SUBPROGRAM VIA MONITR
07360 21 onu 01318
PROCESS GO TO IIECOIIO onu . . 02HO 001)00
SGOTO/" ,
I
on79
OORG '-'\0

8T

ZIlOO
21110
21120'
21130 GlODU DSA
OSC
21l~0
21150'
21160'
811R
21170 Ello

0738] DODDS -nOl
0138'\0 DODOS

OFRUD
5,Ollli
'ENT~Y

ERl08,DUW..

FOR END RECORD'
I~ANCH IF REVIEII IIOOE

P~EVAllS

07390 '\oS D7U6 06158
21180'
21190

8TM

MONIT~,02)60..

21200

BTM

DSCOUT,ARElEMHl..

22010'
22020 ER208

8TM

MONITR,OlI50 ..

22030

BTM

ERP~OC

,20890, •

CAll OSCOUT SUBPROGRAM VIA MONIT~
0740Z 17 08561 -2)60
II~ITE END RECORD ... lUNCH TO ARELE~'12
01' 14 17 02 .. 0 -6218
CAll ERPROC SUBPROGRAM VIA MONITR
01.Z6 11 OB562 -2250
NRITE E~ROR "USAGE ... DRANCH UCK
01')8 11 02~10 K0890
01~50 . . 0"02 00000
01'\058

8
ENDtl2
l2040
DORG - )
22050
22060'
22010'
'ENT~Y Fait TItACUT RECORD'
l2080'
BRANCH IF STACK-DUMP MODe PREVAilS
l2090 TRAeUT BNtI '+2~.OUMPSW..
01~58 45 01. . 2 06169
22100'
BRANCH IF REVIEN MODE P~EVA IlS
INA STACKR,DSSW"
Z21l0
01410 45 06862 061S8
2lll0'
BNA TRHODE,FlNtool0+1" BUNCH IF TUCUT MATRIX
l2LlO
D1~8l ." 01514 02U'
221'\00'
221'O TRMDSW TO
T~CTSW,Fl"'O'IO'I .. SET TUCUT 1I00E INDICATOR

07494 25 0615) 02489
07506 '\09 06818 COOOO
B
B~MOOE
22160
07514
D~G .-3
22170
22180.
MATR IXOOOI0-9,FLII_OOI0-9" STORE TUCUT MATRIX
22190 TRIIODE TIl
07514 31 08431 02419
07526 49 07~94 00000
8
T~MOSN
22200
07Sl~
DORG '-3
nOLo
23020'
'ENT~Y FOR GO AND OFFSET RECO~o.
230)0'
A~GT ,ARG..
SAVE INPUT ~ECORD AIID SUB-RECORD TVPE
TF
23040 GOI
075H lI> 0"15 06517
23050CALL SGOI Suep~OGUM VIA ~ONITR
MONI TIl,GO/DS •• ' . ,
23060
IT
07546 27 08562 0757~
P~OCESS GO O~ OFFSET RECORD
SGO/ .. ,
23010
07558 49 02410 00000
07565
DORG _4
2)080
23090'
07569 00005 -"62
231 DO GOIDSA OS.. SUCK~
07570 00005
23110
DSC 5,023)1
2)\20.
.ENTRV FOR TO, PAST, ON AND TAN ~ECO~DS.
231 )00
CAll STPOT SUBPROGRAM VIA "ONIT~
231~0 EXPl
BTM MONIT~,021'O, ,
07576 17 OU62 -2)40
SAVE TDOl2
07588 26 08229 06147
TtT,Tt2 ..
TF
23150
P~OCESS
EXPLICIT
CS
~ECORD
BTM STPOT ,1,10,
23160
07600 17 02'\010 000-1
07612 '\09 07942 00000
I
REVMOD+U
23110
07620
D~G -3
23180
2)190.ENTRY FO~ DRIVING SURFACE RECORD'
23200'
BRANCH IF REVlE .. IIODE P~EVAllS
l4010 DSURF BN~ REVMOD,DSSW..
07620 45 079]0 06151
l4020INTOF-INTOF.NSRf
07632 21 06157 02'\077
A
INTOF,NSIIF ..
24030
lRANCH IF REVUII MOOE PREVAILS
INII CSU~F ,OS S....
2'040
076~' 45 01760 0615.
l'\o050'
01656 16 01703 000-1
24060
TFM KlEMP,I,IO
CAll OSCOUT SUBPROGRAM VIA MONITII
2'\0010
BTM HONITII,OlJ60..
01668 17 08562 -2)60
.. R ITE ONE AD-APT RECORD ••• BUNCH BACK
2~080 OUTDS
.lM DSCOUT."IZ"
07680 17 02'\010 -1692
2'\0090.
01692 12 06151 -0000
INTOF .. ,
2'100
SM
0170) 00002
24110 IlTEMP OS
HUO' '
01704 U 06151 000-'
11M
INTOF.4,IO,
241)0
01116 32 000 •• 00000
SF
98
241'\00
07123
DORG
_4
2'U50
24160'
01Ul 00005 .1151"
OSA "'DSCIN
2~170
241800
MOYE
OS-CS
CONFIGURATION
rvPE INDICUOR
INTOF
.....
,.190
07721 26 061U 000"
III'UCIT
CS
IIDOE
INDICATOR
24200
TOM 05511".
071'\00 IS 06IU 00000
07152 " 0 " " 00000
•
STACKII
nOlo
01760
DORG -3
n020

•

2.'

sn

2503025040 CSURF

tM

AIIGT,21,IO.

tEST 'OR OFFSET RECORD

2'050

Be

0""'"

I.AkCH I'

nit

INDX,OIMT..
,INTO'

15060.
25070.
25080
25090
25100 INOX
251\025120
2513025140

O"SET

MYONO

01808 46 01840 01300

25150

A"
8

OORG

--)

01820 II 07801 000-6

25160

INOII.6,10
INDX-'

A"
TF
CF
OOAG

INDI,4,IO
DSOSA+4, \1110 •• 11,
OSDS"I
--4

OSA

UDISCA."

aT

MONIf •• DSOUtS._

260100

B

SDSAY ...

26070
2608026090 OSDS"
26100
2611026120 DIMUB
26110

OORG --4
OSA
OSC

BRCST
5_1

DC
oe

2.4
4,02)1"

07UZ ••
IIU~.

"OVE 01" NO. TO DSA

en96

00000

07840 1\ 01802 000-4
07852 26 0790) 0780K
07864 n 07900 00000
07871
07875 00005 JU96

CALL OS EYALUAT I ON SUBPROGRAM VIA MONITR
07816 27 08562 07'104
BUNCH ro DS SU8'RDGRAM
07888 49 02410 00000
07895
07899 00005 -8022
07900 00005

26140
26150

OC
DC

2.8
4,0219"

26160
26170

DC
DC

4.02",,0 ••

26180
26190

DC
DC

2.16
4.0241"

2,U

07906
llNOS SUBPROGRAM DIM NO.
07910
07912
tlRDS SU8PROGU~ DIM NO.
07916
07918
CONOS SUBPROGRAM DIM NO.
07922
07924
TA8DS SU8PROGRAM DIM NO.
07928

00002
00004
00002
00004
00002
00004
00002
00004

2620021010 REVMOO 8Nt1

ENOMP.OUMPSW, •

8RANCH IF

21020210)0

aTM

MONITR,02UO ..

Bf

CALL STACK SU8PROGRA" VI A MONI TR
07942 17 08562 -2210
STACK CS RECORD
07954 27 02410 0616)
CALL START SUR PROGRAM VIA MONITR
0796. 17 08562 -2)50
CHECK STUTUP 'AUMETERS
07978 27 02410 06145
BUNCH" NOT EXECUTION-INTERRUPT MODE
07990 4f 0 ")2 00400

27040
27050

8TM

STACK,STFl. ,
MONITR,02150 ..

n060

IT

SURT.TU"

27070

BNt4 DSURF+lZ ...

21080i7090

BfH

27100
27110
27120211)0 BReST

27160
2117027180
27190
212002801028020 DUMP
28030
28040
28050 MOD
28060
28070 OMPFX

28090
28100
28110
28120.
2811028140 ENDMP
28150
28160
28170
281802819028200 EXPlCS
29010 fLT
29020.
29010
29040
29050
29060
2907029010 OffST
2.a90

MONITR,OiUO"

~UMP

80

MODE PREVAILS
079]0 45 08116 06169

C"Ll "EOUNP SUBPROGRAM VIA MONITR

0800i 17 08562 -26)0
08014 49 02410 00000
08022

B
"EOUMP
OORG -1

2714027150 IMPLCS TOM

u

01184 16 07802 -7906
07"6 n 00000 06UT
07802 00005

aNN

nuo MVOND
25190
25200
26010
26020260)0 HIOSA
2604026050

'AGe

SUReN DIM'" 'OR DIM NO. AS , 'UIiCTlON OF INTO'

5,.-,

hl~h

U

07760 14 06515 OOOK?
CALCULATION AEQUIREO
07712 46 0&261 01200

OS

C

"Cif

EXPLCS.OSSI/ ..

BUNCH IF exPLICIT CS MOOE
08022 4) OUII 06158

OUMPSI/,9.ll,

SET STACK DUMP MODE INDICATOR
080]4 15 06169 oeOOR
SET STARTUP TEST BYPASS SI/ IftH
08046 16 06515 000-1

TPM

"RGT.I.IO.

TO
TO

TLI. Tl2
G01.G02

08058 25 06145 06147
08070 25 06347 06))7

MOVE STACKeo RECOROS TO INPUT "REA FOR PROCESSING
08082 16 08165
DM'PlHI,FLWST+O-IO-'1
08094 16 08117
"23,FXIIST+OoZ7-ZJ
08106 26 08128
-+22
08118 11 08165
DMPFL+ll.I,9
08130 II 08117
"M MOO-I,24.IO
NSECT-IoMOO-loll.
MOVE FIXEo-WORO PORTION OF RECORD
TR
08142 H 02452
MOVE flOAT lNG-liaRD PORTI O~ OF RECORD
FLl/tO_10-9" •
08154 JI. 02419
08166 II 08117
"M
MOo-I,lol0
PROCESS CUMPED RECORD 08 178 ~'I on,o
B
SEQOKo12".
08186
ODRG t - )
TPM
TFM
TF
AM

-)353
-5517
00000
00-01
000K4
08llP
00000
000-3
00000

CS RECORD PROCESSED ... STACK DUMPING TERMINATES
08\86 25 06148 06149
TO
KUTl,KUTl
08198 16 06155 000-1
rPM NPtI.IO
08210 49 06278 00000
8
DFRUD-l4
08218
DORG t - )
ST"CK DUMPING NOT REQUIRED ... C:S WAS EXPllC IT
RESTORE TOOl2
08218 IS 06147 00000
08229 00001

TOM
OS
TD
TPM

TLI.TLZ
"RGT"IO.

082)0 25 06145 06147
TURN OFF OFFSET CONTROL SWITCH
08242 16 06515 000-0
08254 ~9 06166 00000
08262

IT

IIONITR,OfSDU-".

•

SOFPST ...

CALL SO"ST SUBPROGRAM VIA MONIT"
08162 21 08'62 08290
'ROCESS
SUTlMEHT
08214 •• 02410 00000
OUII

29100
aOAG - 4
291102'1120 OFSDU Ou.
29110
ose:
2'1140+
291'0 ER20) 17111 IIONIYII.OZZ'O ..
ITM

UPROC.IO)'O"

CAL~

UIT

O"seT

01285 00005 -a211
OU86 0000'
SUBPROGUM V I A MaN ITR
01292 17 08561 -2250
MUSAGE ... UIT AD-APT
08304 11 02410 KO)90
01)16 •• 007'6 00000

IGIl

"r.E

2919029200'
)0010 flNI

BNA

]0020.
]00]0

-eNTRY FOR F PH RECORD.
Ul08F
eRANCH IF REVIEW MODE PREVAilS
08324 45 084tO 06151

8T"

MONITR.02l60 ..

30040

8TM

OSCOUT,·.U"

30050

TF"

9RCYlO, 11010,

10060

CALL LI NK ,MOVDll ..

100TO.
)00'0 ER20lF

IT"

"QNI TII,022S0,.

30090

81M

IRPROC,ZOI90 ..

]0100
30110
10120.
30110 MAYAllI
)0140

B
FINI'\2
OORG _4

30150.
30160'
10170 oSCOUT
10180 GOAGT
]0190 GOFWD
]0200 GDLFT
31010 TLLFT
]1020 PAST
31010 TO
]LO~O ON
31050 TLON
]L060 TLAGT
]L010 GOBACK
Hoao OFFSET
31090 TAN
31100 ONTCUT
Hll0 CUT
]1I20 SPSI S
311 3D ERPROC
31140 STACK
31150 STOL
3U'O SCUT
]1110 SFROH
]L 180 SI NORP
]1190 SINORV
31200 SGOL TA
32010 SGOTOI
]2020 SGOI
32030 STPOl
32040 SDSRT
32050 STAAT
32060 SDFFSl
32010 AfDU'"

,DnW,.

10,12"

OS
OS
OS
DS
DS
OS
DS
DS
DS
OS
DS

,-ENUYl
,GOMOO

os

3208032090.
32100.
32110]2120'
32130.
]2140'
32150.
32160.
32110.
32180'
32190322003)0 10.
3)020.
3303033040'
3105031060)]070H080.
33090'
))100.

CAll ERPRQC SUBPROGRAM V I A lOON ITR
08400 11 085602 -2atO
WAITE ERROR "USAGE ••• EXIT ARELEII
084\2 11 02410 Kono
08424 4' 08136 00000
DaHL
TAleUT MAlR IX ARRAY
08440 00120
RECORD MARK ALL OCA TI ON
OBS51 00001

OSB
OS

DS
OS
OS
OS
OS
OS
OS
DS
DS
OS
OS
OS
OS
DS
DS
DS
OS
OS
OS

CALL OSCOUT SU8PROGRAM VIA MONITA
08336 11 08562 -2]60
WRITE FINI RECORD ••• BUNCH BACK
08348 11 02410 -8]60
SET REPOS I TI eN ADDRESS TO tYl. 11
OB160 16 0051) OOOJT
EX If AIIELEM 10 MDYoAY SUBPROGRAM
08372 ID 00565 -83"
08]84 49 0011. 00000
083" DOOOT lKO-191
08391 00001 '

1 ..

02410 00000
06918 00000
Ob918 00000
06918 00000
06894 00000
01516 00000
01516 00000
01576 00000
06894 00000
0689~ 00000
06938 00000
01534 00000
01576 00000
07230 00000
01230 00000
02410 00000
02410 00000
0241D 00000
02410 00000
02~10 00000
02410 00000
02~10 00000
02410 00000
02410 00000
02410 00000
02410 00000
0241D 00000
02410 00000
02410 00000
0241D 00000
02410 00000

,GOHOO

,GDMDD
, TLMOD
,EXPL

,eXPl
.E XPl
.TUWD
,TLHOD
,GOHOo
.GOI
,EXPl
.CUTMOO
,CUT MOO
,-ENTRYl
,-ENTRY 1
,-ENTRY I
,-ENTRVl
,-ENTAVl
,-ENTRYl
,-ENTAVl
,-ENTAYI
,-ENTRYl
,-ENTRYI
,-ENTRYl
,-ENTRVl
,-ENTRY I
.-ENTRYl
,-ENTRVl
,-ENTRY I

IBM 1620-1)11 AD-APT SU8PAOGUO FOR SUPERVISING
THE LOADING OF AD-A.T SU6ROUTINES AND SUBPROGRAMS
LINKAGE -

81M .ONlTA,'.NNO,67,
8T

MONlTR,OSALBL+5,6,

RCS
IERASlULE PROG.I
CNON-ERASABLE PROG.I

NNNN I S THE AD-APT MONITA C1M NO OF CALLED PRDG.
FIELO AT DSALBL'5 IS EQUIVALENT TD FOLLOWING •••
DSALOL OSA RA
AETUAN ADDRESS TO CALLING PRDG.
ose ~,NNNN. AD-APT MONITR DIM NO
OSC 1,1,
ANY NON-lERO DIGIT
.ERASABlE PAOGRAMS NEVER CALL DTHER PAOGRAMS
"~DN-eUSABLE PROGRAMS CALL DTHER PROGRAMS

oERASAeLE PRDGRAMS MUST EXIT BY BRANCH BACK
Oil BY BAANCH ITO A F lXED ADDRESS I
oNOH-ERASA8LE PIIOGRAMS MUST EXn BY eRANCH
INDIRECT TO !InURN 1111 AD-APT SYSTe .. COMMON AAU I

""0e
33120.

HIla.
]3140'
33150.
])160
DC
)]110 RETAOO DS
13180 01HNO
3)19D elIAs

OS

4, .-1,

os
It· •
33200'
DIHN0-1
34010 IIONITII SF
]4020
DORG

14030.
HO~O

14010

TFII

POINTR,MA'ENhZO.NNf-16
08598 16 06616 JC9H
,DI"NO..
SURCH EIIASABLE PROGRAM TABU FOR DIM ND
0861 2" 00000 085600
INMAP...
lUNCH IF OIMMO LOCUEO
08621 ... 09908 01200

C

)4110

IE

14110 NUDIN
)4110

"190
14100.

AM
SM
INZ

08514 16 08581 OOOK'
llIANCH IF CALLING NDH-UASA8U PROGAAM
0158. It) 091)6 08561

°

34120.

J41'0-

08513 00005 JOT"

"APENroO-ZG-IS
CNTR,NE,10
CAtlNE .ERAS ..

34080.

)4140 •
)4150

U 01557 00000

08569

TFM
8D

14090 CALLE
14100 SCAN

'''110

oasu

OSA

14050.

34060

08561 00010
RErUIIN ADDRESS FOR NON-ERASABLE PAOGUIOS
08556 00005
AD-APT "ONnR Dill NO 08560 00004
EIlAU8ILIT't INOlCA10R 08561 00001

'0INTR-102.10
CNTR.I,IO
SCAN ...

0861 .. II 0. . 15 OOo-Z
086... 12 08n) 000-1
lUNCH IF END OF TAiLE NOT ENCOUNTERED
08U' U 08610 OUOO

DI.. NO 1C0T tllTEIlEO III ERASABLE 'RDG. fAIU
I'OIIITII-l.2.10.
Oa670 12 O.. U OOo-Z
0 .. 12 I" 01616 J091"
1'0 IIITII ,MA'EIIHIINII.ZG-Zo-I6
HlOYF,..
lUNCH . . ."'UILE '''DG. T••U CAPACITY £KCnDID
0 ...... U IDS.... 01100

I~

nOLo

ell

'aINu .....

35020

SHE

HUDIIi. I t

150]0'
)5040 NUENT
)5050 STOIII

AM

PO'"TII.1,10
POINT.,EUS,.,

Tf

35060
35010

AM

35080

TF

nlOO
35110
35120

TF

TFII

no.o.
nuo

"
AM

LOOII

35140
"ISO
35160 VAlli
151 TO
15180'
35190 "ILOAO
35200

36010

'ALL

AM
TF

•

LOAO,O.,

PoINTR.5.10
POllln,ENnY, ••

pOINTR.S,10
COMP+lI,HI ..
STRAOO.ERAS .. '

)60,20'
160)0
TF
36040 NCORES $11

pOINU,HI ••
POINTII •• 6,

)6050 RESET

"1,'-1 ••

TF

]6060'

)6010'
)6080'
36090'
)6100
)6110
]6120
36130
36140'
lOUO SETpT

08no

11 016&6 000-1

0.742
0.754
01166
0.7T.

2' 08.10
II 08616
16 oeal4
2' 08945

STOlE DIM NO '110 EltAU81UTY DIGIT

SAYE LOAD 'OOIlES$

08561
000-5
- ....
0043.

LOAD 'DDIIISS
0'7'0 Z' 0"10 to4'4
oa80a
01.51 0.560
ADD DIM NO INCREMENT 08814 U OIUI 0-00'0
LOAD OISC-STOA'O 'ILDCn ULI I'AOGUM
08826 10 00565 -88U
081)8 49 00716 00000
08145 00001 Lao-DoD
01852 00001 •
0 •• 5. 11 0.616 000-'
STOlle INTIIY ACORISS
01'66 26 08610 02116
01818 •• 00000 00000
0....
STOR'

LDOII.at.oILOI., ••

ODR' .. )

AM
TF
80

UNuSeD "ILE EHTIIY
08706 14 0 . . 10 0-000
I"IICM ,. ENuy IS IIOT nlo
0"1' . , 0"10 11'00

PoINTR,5,10
YAR8>6,HILOAD
NeoRES+II.HI"
'O.N"I,MI •• ,
LOOfl+25,OIIiNO

16

SE'.'H fDa

a.

08886 II 08616 000-5
MOVE HI INDICATOR
08898 26 0'1073 00434
IUHCH If NON-EUSABLE EIiTRy
08910 4) 0'15)6 08561
08922 26 0"10 00414
, STORE NO. COR!S CMI-LOAD ADDRESS.
0'9]4 12 08610 00000
IIUTOU HI INOICATOII TO EFFECT OYERLOAO
08946 26 00434 01.4.

CLEAR NON-ERASA8LE PRoGU" ENTRIES IIHOSE IIIG"EST
CORE eXCEEDS T"E LOAD ADDRESS OF THE LAST LOAOEO
EUSAIU 'ROGUM
PROGX-II.SE'"
01.51 16 10442 -8.90
PROGX+21.MI
08910 16 10483 -0434
CLEAR1
08982 4. 10400 00000
08990
'-3
POIIITR-I,hlO.

,0INTR'INOICATES AOOUSS OF LOAD ADDRESS
08990 U 01615 000-1
0900Z U 0'19" 0"15

]6160

TF

LOpR,!,Lo,.

36110.
36180.
16190.
36200 eilASEl
HOIO
37020 lAHGE
H010

TF"
AM
CM
aP

ERASE AU PROGUMS IIHOSE LOAD ADDResSES
ARE LESS THAN HIGWEn cOile 'O$lTlDN USED
COMP+.,MAPENToZO'NNE-I'ZO-IO
0.014
CO""5.2.10
0'1026
CO",. •• MAPfNT'ZO'NNeo'O'NE-l'ZO-IO
09038
STNTIIY...
IUN,H " ERUING COMPLETED
09050

37040'
31050 CaMP
n060

CM
IN

tAOI" ...

"DYE LO INDICATOR

.UNCM "

31070.

16 09061 J09,O
11 09061 000-'
14 09061 JUOO
4' 09044 01100

0'101>2 14 OOOtO -0000
'ROGUII DISTROYEO
0.07.
0'1" 01100

6'

PAGE
. . tjGE-U
11080
8
31090
OORG
31100'
HIIO STNTRV TF
ENfaYl.E".TII" ••

09086 U
09094

0-'

TF
CM

37120
171]9
17140
]11 so.
17160 OYOFF
17170.
17UO

BE

EHTRYZ.ENTRYl"
01"NO,01l5C.'
COSH ...

IY

•• 12" •

...

SET 'ROGRAM ENTRY ADDRESSES
09094
IN SYSTEII CO, .. ON AIIU 09106
0'1111
IUHCH I F CALLED '110 GRAM IS
09130
TUIIN OFF IIONITOII

)7190

88
DaR' _9

EXIT

17200'
)8010 COSH

AM

0902. 00000

Z6 02416 02116
26 02421 02416
14 08560 0-201
S 1!IF-COSF
46 0'1156 01200

OYERFLOW
0,,4Z 46 09154 01400
09154 4' 00000 00000
09156

38020
]80]0
)8040'
)8050 '"0111
)1060

DVOFF
8
DoRG .-3

fUAlCAT. ENTIIY ADOIIESS TO COSf SUBR.
09156 II 02421 000P2
09168 4'1 09142 00000
0,9176

C
II

CO""'6.POINTA
UNGE-I2 •••

NO '.'SUI, If '1001'.

U07038080
18090

•M

SM

CO"p ••• 5.10
EUSE.C:OM, ••• l l •

09'00 U 09068 000-5
.UNCH IF 'ROGRAII NOT eUSEO
09212 u OU44 09060

AM

COMp06.25.10
AlNGE

ODRG

0-)

38100.
18110
lel20
)8130
18hO.
Jl150 ellASI

•

ENTRVZ.TZ.IO.

SP

COMh. . . . .

31160
38110
1IUO

A"

C
IN

(oM'.,.5,10
C:OMP+6,LO'RM.,
RANGI-U ...

38190'
11200
nOlo

All
A

CO"'+S.I.IO
LO .(0111' ••• 11.

)9020.
nOlO

19040

1'0'0

;:~;::
•• 080

• 90.0
39100'
'9110

"UO

)9UO

.USE '"0;U. flOM .EIIORY
09244
09'56
0.'.1
lUNCH If "OGU~ NOT LOADED IY
09280

.,..01,,11.

~o

11I01e"Oa

SII

POINTII.I.IO
OIIlNO,'OINTI,U

aHl

,UNCH

I'

usee

U'UT".

NON-,I"'''U

"150

,.

POINT •••• 10.

"1'0

C

'0IN'I.MI,6

OU" 11 0'061 000-1

o"o4

II 0 " " 0'060

'lOG" •

'NTRY

09'"

I' 0"1' JOT ••
0"" 01610

onu ••

093'0 U 0.. "

'.ANCH I'

»9,40.

.T

09060 00000
0'10" 000-5
0.060 09941
INOICATOII
0.026 01100

09116

'.NTIV Faa CALLIIIO liON-.I'$'.L.
'ALLN' ". '0IN'I ••"IN1.0-lo-ll
C

U
11
'4
LO

onl. 11 0.061 000-1
0"" .. o.on 00000

(0"'0,.1,10
I
UNGI
00l . . . )

INOEX,'Ollln.u.

09116 Z4 090" 01616
JUST LOADED
_. 0902. 01100

091"

09124 II 0'0" OOOKS
092]6 4' 0.038 00000
09244

All

.....

11

OIIlNO

000-1

0"" '6 OIS.O 0•• 10
NOT NIIT IN TAIL.
09" •• , 1o", olaoo

'I"UII

IS

ou

III ....
0'1"6 II 0 . . . . 000-6
OU08 ,. 016'0 004'4

I GS

•

INE

"fMCIP" ,

S"
CF
A"
TF

POINIR,,6,
POINU-I,I,IO
'''TRYI,POINTR,II,

CLEAR ERASURE 'LAG

'0000
400'0

AM
t,

'OINU,',IO
COMP>II,POINT',ll.

00060

TF

,0nnR,RETAOO •••

0 •• 80 II 08616 000-.
USTORE CO""'II IS IMUUTE LOaOINGI
O•• q2 26 o.on 01610
REPUCE RnURN ADORES S
00.0. n 0"1001'56
RESTORE HI INDICATOR O.H6 26 0043' oqon
0.521
09106 00000
0"36

"110
'.110'
lOl.O
'.~OO

40010
'OOlO

IU"CH IF

POINTA,~,IO

~oao

'AGE

It

'.r.~

''I

AODRfSS NOT (QUal 10 HI
Oq~20 ~I IOn2 01200

O.H2 12 08616 000-'
Oq~U H 0861000000
Oq4. n \I 08615 000-1
Sf! ENTRY ADDRESS IN SYSTEM COMMON '-fA
09. . . 26 02H6 01610

4000"'0'

.

00010
IF
HI ,CoMP> II "
00080
I
STNnV'12
00000
OORC .-)
00100'
40110 UUOO
POINU,RETAOO, ••
STORE RnURN ADORUS Oq5J6 26 01610
'0120'
"0110'
CLUR NDN-UUAllf PAOGIIA. ENTRIES IIHOSE LOAD
"0140·
aDDRESSES ARE LESS IHa" IHE HI INDIC'IOR
SII
POINTR-I,I,IO
'0150
Oq"1 Il 08615
fF
Oq560 26 oq6l~
'0160
' .. DUI·IB,POINT'
.01 TO
OQ512 II OQ61l
ENDUB.ll.2.10
00180
E
..
D
TAa'18.''I'EN1020'NNE-10
0.584
.. 0.61'
C"
IRINtH I' ENO OF fAlU E"COUNIEREO
001'0 fNDUI IN" SE rPT+12 •• ,
O. 'Q6 . . 0.002

"

'"

01556

000-1
0'616
OCO-2
JO.OO
01300

0~100.

0'~10

t

.HI

0'010

8NN

ENDfA8-ZIt •••

4'01041040
410'0

S"
TFM

ENOTABtIl.,.IO
ENoue'lI •• 6111.

.. o~o
<1010

01080
4'0904" 00 I .. OEl
'1110
'"20

aM
ENoua'II,25.10
ENOU8-1Z
I
OORG . - )
aM
CM
8N

0.608 2~ 00000 00."
aUNCH IF ENTRY NUD NOT RE CLEAR EO
0~620 <6 on1Z 01300
O~61l Il 0~610 000-5
CLEU NON-ERASABLE ENTRV FROIO lABlE
0'l6~0 J6 0."" -0000.656 II 0'161< OOOK.
0'1668 •• OQ". OUOOO
OQ616

.ftll JO-

POINU-I.2.10
0.616 1\
POINTR .... PENUNNE.lO-15
0'1688 I'
aUNCH IF NON-ERASABLE PROGRA~
ClllNE·IZ., ,
0.,00 01
C"IC I I f '101 EXtEEOEO

' " '0 "NEOVl' TF"
01160
TF"

MRERR''1.NNECON ••
LO.20000 ..

01110

81M

IIONI TA ,EAAOI" ..

'1110 MilE"

1""

UROUI.90,61,

''''0

taLL eXIT",

It',40_

.UOO.
HOlD'
OlOlO'
OlO JO'.

O.TlZ \6
RE-DEF INE LO INOltATOR

08615 000-2
08616 JO'llS
TARLE
0'1348 01)00

on"

00U3

0~114 \6 0'81' KOOOO

CAll ERROR PAOCESSI"G SU8PROGRA"
0~n6 I' 01'S6l -2250
IIRITE ERROR ~USAGf ••• CALL EX IT
0.108 I I 02.10 -OOQO
EXIT AD-APT S"tEP INON-IIECOVERABLE
0.160 • Q 001'16 00000
I'ONI fA fAlLE OVERFLOW ERIIOR i

02"40 IIEfIll'"

TFM

'ENTRY FOil INOIIIEC' RETUAN TO NON-ERaSABLE PAOGS.
SfUtH FOR LAS I EX liED PIIOC. . M
POINTII ."'P£'''-1'20-1' ••

'10'0
,,060

A"
IMF

"0INIR-I.2.10
·-IZ,PO'H' .... ll.

0.168 16 08616 JOn,
O.IBO 11 08615 000-2
IIRANCH IF "1I0GU" NO' ERASED
0'1192 .. 09180 08610

'101001080
'lOQO
4'100

S"
IF
TF

1'01"111,5.10
EXIT'6.POINTII,II.
POI"' .. ,HI,6,

SET RHUR" ADDRESS
saY( HI INDICATOR

O'lBO~ Il 086\6 000-5
0.816 26 0 •• 06 08610
0'1828 26 08610 000).

OQ8'0 26 0'1013 0041.

Itll • O.

HI20
02110'
021.0
02UO

'F

COMPfll.HI, ,

STORE HI INOICATOR

SM
SF

POINTR.I5.IO

POI"'''. ,6.

01160 LO

OC

5.-1,-,

O.B'2 Il 08616 OOOJ5
SET NON-ERASAILE ,.OGuM EX IT FL aG
0.860 lZ 08610 00000
LO INDICATOR
0 " " 00005

'"TF

1'01"'''.5.10
H1.'0Illn.II,

1t?110-

OH BO
411.0

...

H200 Ulf

8

"OIO

OORG .-J

410l0.

0.816 II 086\6 000-5
RESET HI INDiCatOR '0 ErFECT OYERLO'D
0'888 l6 00Ol' 08610
RETURN '0 CALUNG "ROGRAM
0'1900 ''I 00000 00000
0 •• 01

a"
8N'

DIM NO IS IN ERASA8LE PIIOGR.M rAlLE
o •• oa II 01616 000-1
POIN'A,I.IO
lUNCH IF PROGRAII IS IN 'E"ORV
'''COilE .1'01 NTR,II,
OQUO .~ 103. . 086\0

.10''')

tF
A"

PO.II,,,,,6,
POI"U • .,.IO,

.,o~o

TF

fEfIIIP,LO ••

4"00
OHIO
HllO
4)1 JO

"

LOPR".LO ..
TE"P,POINT" .11,
TEMP,HI
NOFI'."

4]010-

4)000 111M.,
HO'O
4 l060.

'''010

HI'O·
Oll50 F"
H160
41110
HUO
43190
41200
44010
,'020'
• 40)0 LOUIAO

S

C

It

"

SM

TF
TFM

"

HI,n,,,, ..

T'

..

.....,0

, ,..

IIE-OEFIME LO INOlcaTOII

26
12
26
26
1.6
49

098" OQ2"
08615 000-1

SAVE HI .INOICATOR
sn HI TO LO

10016
10028
100.0
10052
10064
loon
100"

IIESTORE HI INOlca'OR

1008. 26 00414

• I. - J
DOl

."o~o.

"'050'
44060'
"010'
U080... 090
UIOO
.... liD UfMT

LO.rEM' ..
'OIIlTII-1t 1.10
n",.HI ..
"I,LO ..
va"'"LOloao
LOOEl-16

0'1.32 )3 08610 00000
C~UR ERASURE FLAG
LOAD ERAS AILE 'ROG, . . 111'0 UPPER MEMORY
OQQ44 II 0'6\6 OOOJ'
IF ILo-NO. COREst IS NOI LESS tHIN HI
OQQ56 26 0.255 OQS15
09968 16 0 •• 41 0.815
SAVE LO INDICATOR
0.980 lZ 09n5 08610
TEMPo'Lo-NO. tOREU
OQ992 24 09255 00414
IRallCH IF HI ElCEEOS nO-NO. CORESI
10004 41 10llO 01100

OQl55 OO.J.

00." 09815
08 ... J0084
011"0 00000

",tt

EUSE EN'~US OF fUSIIlE 'AOGUMS WHOSE HIGHEST
CORE IS GRelTER THaN LO INDIcaTOR. AND WHOSE LoaD
aDORESS 1$ LESS THAI' THI "'VIllUS LO INDICATOR

Tfll
aM
CM

"

LaMLD"'."AP'M,.'OoNN!·~.,o-IO
lOa. . " lOUD JOU.
10101 II 10149 000-'
LA"LO'>5,Z,10
lOUD I" lono .11100
LIMlOh,.MIPlM't'O_.t"'''E·,o,o-IO
CUI.'...
IUNC" ., IUS."G c,,",lUED
toll'" 10n11U. .

U!I

".140 ~AMLOP C
441~0
INN
441600
44170
HI80
44190
44200 ~OIlH"
45010

TF
All
A
CII
IN

.LD'RII

LOMHI'tll.LAMLO'+'.11
LAMLO'+5.I,10

46080
460.0
461,.00.
46110.
4612046UO ~OFn
46140
46150
46160.'
46110 CLEAR!
46180
46190
46200

<01010.
41080
410.0
41100
41110411Z0 CLE~U
41UO
41140
41UO
1t716041110 NEOV'
""180

LO
CSEL'U,

1014' 000-1
IOZ4O ...9 10lZO 00000

8E

"'M~O, ... II,&O
LAMLO' •• ,EIIAS,.
IAENHU ...

SF
AM
I

UtILO,+.,,,.IO
EXTNT

~AIILOP+6,.6,

101•• I. '0'.0 0004.

10160 ~4 10U- 01561
lUNCH IF UTRY IS $loME AS OltlNO
IOZT2 46 102.6 01200
ERASE ENTItY

CLUII NOIt-ERASAIlLE PROGUM INTRIES IIHOSE
HIGHEST CORE EXCEEDS THE LO INDICATOR
TFM PROGX-18.STNTIIY
TFII PROGhn.LO
II
CLEARI
DpRG

10116 16 I 04U -.O.~
10]Z8 16 1041] -'8'5
,10]40 ~9 10400 00000
10)48

.-1

PRoG.AII CALLED IS IN
AM
TF

'OINTII-I ... 10
ENTRVI,'OINTR,II,

8

STNTlIYttZ

oOlG .-)

CALLED "ROGItAII IIUST IE LOADED 'Ell HI INoltATOR

lFlI

AtI
tM
II'

10]80 12 08loiS 000-1
10]92 ~. on66 00000
10<100

10400 16 1045.
'RoGl"I.MA'ENT-I.Zo-U
PAOGl-Z.Z.10
'
10~ 12 II 10458
PIIOOX-I.MAPENToNNEOZo-l.Z0-15
IOU4 14 104"
,..
IRANtH IF ENTRY CLEARING CO"PLIfED
IOU. 46 00000

AM
C
8P

'11001-1.15.10
PRoGX-I .. 6
CLENTlt ..

10460
10412
IUNtH If EIITIIY CLEAIIIHG IS
10484

SM
TFII

'ROGl-I.15.10
'IIOGX-I .. 671& •

I
tLUUoU
DoRG - ]

tM

10516 12 10H. 000J5
CLEAR NON-ERASA8LE 'ROGUM ENTRY
10528 16 1045. -COO10540 4" 10412 00000
10548
10548 16 09157 OCK21
10560 49 09124 00000
105 . .

10580 .., 08UO 00000
10588
IIIANeH "

10612 14 on.o o-ZII
'.ANtH I' CALLING UNITY SU8'ROGRAM
10624 U 08nO 01200

0IMNO.0211.8
5TOIN-12 ...

TF
AM
tM
INN

ARRoW-I.2.10
ARROW.MA'ENT+NNE.20-16
STOIN-12

106]6
1064'
10660
10612

C
INI

.011lNO
CO'UV+12

10"6

UIIO.
AAROW.POI~TII

411.0-

49010
49010
49090.
4'100 III~G"
49110
49120

024ll,S'IIU ..

""

02411 ,liEfURN"

•

ReJADD,,6 •

OOItG - .
SII
•

00It1

...

'DINTII •• ,10

s"est

OS

2,1.

os

2,29,

4"'60 IIA'fNl oSB
.91 TO
O~_

20.IIN£
ZO.NE

26
II
14
46

10690
106.9
10690
08nO

0 ....
000-2
J09)4
01300

1068. Z4 00000 08560

AM
ARROW.Il.IO
Tf
'OI~TR.'RROW
8
INCORE.II
DORG - )

~9UO.

4'140 NHE

10588 14 08S60 0-210
CALLI"' DlnF SUBPROGRAM
10600 46 IOU. 01200

I~E

• 1200 NaOAD fFN

tl 10459 OeOJ5
24 104511 COOOO
REQUIIIEO
46 10516 01100

.020.MA'ENT.NNE.20+1.20-15,. IRANtH I' SORTF IS AVAILA8LE
10568 44 10588 10955

48010_

4'010
49020
4'0)0
4.040
4.050_
49060 "lilT

01100

10496 11 104" 000-'
10508 49 104Z4 00000
10516

AM
PRoGl-I.,.IO
8
tLEARU24
OORG - l

I~F

481'0

JOn5
oeO-2
J09.,

IRANCH IF 'lIoGII'" NOT EXITED
10448 44 10412 00000

48020.
480]0 N00200 I
STOIN-12
48040
OORG - 3
48050~8060
CM
DIM~0.0210.8
4.0T8
IE
COFUV •••

48110
48190-

~ElIoRY

10]48 tl 08615 000-1
SET ENTRY ADDRESS IN SYSTEM COMMON AREA
10]60 26 0241' 08610
lonz " 09106 00000
10180

SM
'OI~TR-"I,IO
8
STOIM024
DOItG .. )

41200·
41010 S"EST

41150

1028. II 1015- 00000
10296 ,11 10150 ooon
IOJ08 n lOUD 00000

10]16

DOlO - )

TFII IIRERR09.NEtON.'
I
NNEOVf+1Z
oollG - )

48tzO COFUY
oUlJO
48140

II

26 10215
II 1014'
21 10215
14 09815

10'48

41190

480.0
48100

PAr.f

1015000-1
1015-0000
IIIAIiCH IF HIGHEST CORe USeD ~XCEEDS 'IIESE~' kG
10216 47 1024' DUDD

41010.
,n020
"'10]00
41040 '11001
41050
""060

10

laue II

"0.0..
oro , ..I.' c:...
4tOl0
451000
45110 EIIINT
45120
45110
45140
45UO451600
451104'180·
45190 CLURZ
45Z00
<06010
460Z0
460]0·
46040.
460'0.
46060 INCORE
46010

10168
10180
1019Z
10Z0O

DC
DC
OORG
DC

51>070

DC

U080
56090
56100
S6110

DC
DC
DOAG
DC

56120
56110
56140
56150
56160

DC
DC
DC
DORG
DC

56110
56180
56190
56200
nOlO

DC
DC
DC
DORG
DC

51020

DC

510)0
51040
51050
57060

DC
DC
OORO
DC

51010
51080
57100
51110

DC
DC
OC
DORG
DC

51UO

DC

57130
sn40
57150
5nl>0

DC
DC
DOAG
DC

nuo
57180
51190
57200
nOlO

DC
OC
DC
DORG
DC

51020

DC

510)0
51040
S8050
58060

DC
DC
DORG
DC

SID 70

De

51010
500'0
58100
"110

DC

SlIlO

DC

uno

DC
DC
OOllG

Sll70

DC

51090

10140
UUO
n160

sauo

58190
UIOO
19010

n020
S'I1))O

,'1')40

,-.oso

''9060
'.010.

DC
DOIIG
DC

DC

4.0216 ..

DStOUf SUaPAOGU. DIMMO
IIiH 00004
1.0
11155 00001
5.99'199"
DUM"Y lOAO ADOlUS
111&0 00005
MA'EHhNMEoZO+llo20-4
III . .
5.31>0 ..
Dscour SUaPRDGUM CORE S IlE
11110 00005
4.02Ih,
"IHIF-MAXI' SUBPROGUM 0111/10
. I" 74 00004
itO
1117S 00001
5.99999"
DUIINY LOAD ADDRESS
11180 OOOOS
N'PEHT+NNEoZO+1Z.20-4
11186
5,"2 ••
Mllllf-IilUIF sua"'OGUM cOle sile
11190 00005
•• ou...
SlPor SUIPROGUII OIMIiO
11194 00004
1.0
11195 00001
5,99999,.
DUM"Y LOAD ADDR ESS
11200 00005
MAPEIIT.HNE-ZO+I)oZO-4
11201>
5,150 ..
SlPOf SUB PRO GUM COAE SIlE
11210 00005
$TOL SUBPROGUM OIMNO 11214 00004
4,0224"
itO
11115 00001
5.99999,.
DU"MY LOAD ACCRESS
11120 00005
NAPE HToNNE 020>1 ~o20-4
11226
5,92"
S TOL SUBPROGRAM CORe SIZE
11210 00005
4.0222,.
SPSIS SU8PROGUM 0 I "NO
112)4 000010
1.0
11235 00001
5.99999"
. OU~MY LOAD ADOIlESS
112.0 00005
MAPEIIHNIIE020.15.Z0-Io
lIZ4,
SPSIS SU8P.OGU~ cOile SIZE
5.121>"
11250 00005
4.0225 ..
ERPROC SUBPROGR'" OIIlNO
11254 00004
1.0
11255 00001
5,99999,.
OUM"Y ~OaD ADOIESS
11,.0 00005
MAPENT>NNE020+"oZO-4
11266
UPAOC SUB ... OGUM CORE S Il E
5.3.a"
11270 00005
4.0230 ..
SINORV SUBPROGUM DIMNO
1I2H DaDDio
1.0
11275 00001
DUIIMY lOAD ADCRESS
S. 99999"
11280 00005
MAPflIHNHE010+17020-4
11286
5 I NORV SUBPROGUII calf S Il E
5t100"
11290 00005
4.0203 ••
exPF sua.OUTINE OIMIlO 1I2H 00004
I. a
lUU 00001
5,99999,.
OUM"Y LoaO AOOIfSS
IUOO 00005
MAPENHNNEoZO+U+ZO-"
11306
EXPF SUBROUTINE CCRE SIZE
Sf 1'8 ••
1I110 00005
4,0204 ••
LOGF SUBROUTINE OIMNO 1I11" 00004
ltD
11)15 00001
5,99999, •
OU~MY ~oaD aOOIlUS
IU20 00005
MAPENf+NliEoZO+19020-.
lint
,.632,.
LOGF SUBROUTINE COlE SIZE
linD OOOOl

•• 0221> ••

F S PKG

SU8PIlDGU~

PlGf

0 I "NO

IIll4
IIll5
1.0
S.99999.,
11140
DU""V LOAD ACORESS
MAPENToNNE.20.200Z0-4
11)4'
5. )070 ..
FSPKG SUBPROGRAM CORE SIZE
11350
4,0251, ,
orDS SUBPROGRAM OIIlNO IIJH
11355
100
11360
S,"999,.
DU""' LOAD ACDRESS
"APE ~T+~~Eo20+21oZ0-4
11366
OTOS SUIPIIOGUII COlE SIZE
S.IH"
11)10
SfUCT sue .. ROGUII DIIINO
4,025Z ..
11314
11315
1.0
DUMMV LOAD ADDRESS
11180
5,99999"
11386
MAPENT+NNE'20.U020-4
STRAcr SUBPROGUM CORE SIZE
5.118"
11190
4.0208 ..
OYOI SU"1I00R'" OIMNO lU9.
11)95
1.0
DUIIMY ~OAO aDDIIESS
11400
5.99999, •
11401>
MAPe~T+NNE·20+2)·20-4
OVOX SUI'ROGUII COlE SIZE
5,290 ••
11410
SINOI' SUBPROGUM OIIlNO
4.022' ..
11414
11415
ltO
OUIIMY LOAD ADDRESS
11420
5.99999"
11426
MAPENT+NNe.20+2.IZD-4
SINDII' SUBPROGUM cOile SIZE
5,161,.
11430
ELlIIF sua ... OGUII OIIlNO
4.0262"
11 414
11435
1.0
111040
DUMIIY ~O'O Aoeuss
5,9999' ••
11441>
"A'fNTtNNI·,O+ZSIZO-4
ELI II' su ... aOGUII COlE sIZe
5.292 ..
11'50
,eeuII' SUI'IOGI'M 0111110
4.0Z63 ..
IIH4
11455
1.0
11460
DUMMY ~OAO ADOIlESS
5.999t9 ••
\I ...
"" .. Ellr+II ..EolO+"'20-4
1,4'., t
AEDUII' SU ... II0GUII cOle S II E

,4

U

00004
00001
00005
00005
00004
00001
DODOS
00005
00004
00001
00005
00005
00004
00001
00005
00005
00004
00001
OOOOS
OOOOS
00004
00001
00005
OOOOS
00004
00001
00005

HUO 00005

LCIIOIIZ SU"IOGUIII 0111 ..0
"'"
IIH'
DC
1.0
DUMMY LOAD AODUSS
11480
DC
114 . .
DOIIG lIA'EIiIT+IlNEelO.UOZO-.
LeNONZ SUIP.OGUII COli 5 Il E
DC
S.2U ..
11490
nUt
DUIIIIIIY 0111110
4.0 ••
DC

oc;

""f

'.02" ..

.........
t.o

s.,......

OUUUY LOU ACDIUS
ClC
OGaG "".lIft_oZO.IIUl""'-.
OUIIIIY
COU Sill
DC
',0.,

0000.
00001
00005
00005

00004
lint 00001

I1S00 OUOS
lUOt
1111000005

172

~QO&O

CN1~

~qOQO

POINTR
HI
EN'OlY
ONSC
TEMP
LOPAM
NECDN
NNECON
ERROIM
ERROUT
ARROII

SQIOO
Sqll0
~91l0

S91l0
SQl40
59150
591&0
SQl10
snao
5Ql90
59200
6001060020600)0

PACE
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS

26

0858) 00002
08H& 00000
OO~H 00005
02136 00005
OOlOI OOOO~
092~S 00005
OQQ4] 00005
00222 00000
00l2l 00000
02250 00000
OHI. 00000
10690 00005
11511 00001

.SCAN.'
5.H~

5.2136
~.OlOI

5. ERASE+II
5.INMAP+H
,222
.221

.Oll50
.2~16

S.NOLOAD-H+6
I

HEAD A

600~0-

600506006060010
60080-

2.MONI U-li

00000
IBM 1620-1311 AD-APT DISC-fiLE INPUT SUBROUTINE
RCS
LINKAGE -

DC

60090-

BTM OSCIN,I,IO
DUMMY ARGUMENT

2,0"

lISU 00002

SUBPROGRA~

60100 OStlN
60110

TOM
TOM

60120
601)0

OGM
IFM

60HO

TOM

60150 READ

GET

60160

A

60170

A·

60180

BV

60190.
60200

ENTRY
SET ~) OP CODE IBOI
1151~ IS 1162) 0000)
SET TERMINAL GROUP MARK II-SECTOR REAOI
11526 IS 025H 00000
I1H7 00001
OISCR+I).NSECI-I,.
SET CORE ADDRESS I I-SECTOR REAOI
115)8 16 1179) -2452
01 seR.', 1, t
SET SEC lOR COUNT II-SECIOR REAOI
11550 IS 11788 00001
INPUI.
READ N SECTORS FROM SCRAICH DISC AREA
11 562 10 00565 J 1585
11514 ~9 00~66 JI771
01 SCR+5. a I SCR>8 ..
READY seCTOR AOOAESS FOR NEXT AEAD
11586 21 111B5 11788
SECNTA.O I SCR+8 ..
CALCULATE NO. SECTOAS READ
11598 21 11658 11188
C'I'lOVf=, t,
BRANCH IF 200 SEC70RS READ
11610 ~6 111~0 01~00

EX1T-21.1 ..

NSECT-l+1OO."

-

NOP

AEAON,NSECT ••

NOP OR BO I VAR !ABLE DP conE I
11622 ~I l1M8 02H)

6101061020

TOM

SE TVGM+6" 6.

61010 EXIT

BB2

CUU PReVIOUS TERMINAL GROUP ~ARK
116)~ 15 1110K 00000
11 M6 ~2 00000 00000
flIT

EXIT-21tl"

SE I ~ I OP CODE INOPI
SECTOR COUNleR

610~0-

TOM
61050 AEADN
61060 SEtNTR DC
bl070·
61080
TOM
TFM
61090
A
61100
SErVGM
TOM
61110

3,800,·-1,
NSfCT-.1 ... 100.

t.

SETVGM+6.NseCT-I+100
SETVGMH.NSEtT

-

11648 15 11623 00001
11658 00003

CLEAR PREVIOUS TeRMINAL GROUP ,.ARK
11660 15 02552 00000
11612 16 11702 -255l
1168~ 21 11700 02~S)
SET TERMI NAl GROUP MARK IN-SECTOR AEAOI
11696 15 00000 00000

11107 00001

61120
61130

OGM
TFM

0IStR.13.NSECT-I>100 ••

61HO

TO

0ISCRo8.NSECT ..

SE T CORE ADDRESS IN-SECTOR READI
11708 16 l i n ) -2H2
Sf! SECTOA COIINT I "-SECTOR READ I

11720 25 11788 0245)
11732 49 11562 00000

61150
B7
61160611 70 CnOVF TOM

READ
SECNTR-2. 8.11.

RESTORE SECTOR COUNTER

61180

AM

9RCYLO,l,lO.

61190
61200620 10 I NPUT

87

fllT-24

11740 IS
SET REPDSITICN ADDRESS TO NEXT
11152 11
11164 49

DOW

,orSCR."A

62020 0 I SCR

OOA

,0.2000,0,0

62010
DC
6204062050 NSECT OS
620606207062080 LOONEN TOM

11656 00000
CYLINDER
00513 000-1
11622 00000

I ••

11771 00002
1171) 00005
1177800001
11780 00006
11186 00001
11189 00005
1179~ 00001

.245]

0245) 00000

OLtO ••
'lO.20000
'LO.ALFoN-l.6
LODMEM+12

20
J1780
'
0-2000
-00
-0000

CAlCULATE MEMORY CAPACI TV
11196 15 00000 00000
11808 11 09815 .0000
11820 31 09alN IIB52
11832 ~5 11808 COOOO

62090
62100
62110
62120.
62110

AM
TA
IINA

621~0 AlFR"

DC

62150.
62160

CM

62110

IIY

5MOO •••

11856 H 09872 OOOKO
BRANCH IF MEMDRT CAPACITY IS lOOK
11868 46 12252 01400

62190 HOOT

liP

2HOO".

BUNCH 1f

62200.
63010
63020
61010 O'fLO

TFH
TF
IITM

11892
OPTlD-I. "APE NT- 'NNE020-16
11904
OPTlD+l0
LOAD COMMON SUBPROGRAMS V I A
MONITR".
11916
lIq28
OPTlD-Z.2.10
11940
OPTLO-l.MAPENH .NNe_2D-I_Z0+16·20-16
11952
OpnD-12

INITIALIIE LO INDICArOR
1I8H 11 09875 000-1
1185] 00002

AM

SLD-].20tlO

62180-

630~O

41050
63060
61070.
63080
61090
63100-

63110
63120

uuo

63140

uno

AM
CM
8NP
CM
liNE

MEMORT CAPAC I TV eXCUDS ZOK
1188046 1221201100
16 11915
26 11926
MONI TA
1108562
11 1191~
14 11915
47 1190~

J09)~

00000
-0000
000-2
Jl214
01100

DPTLO_1S.MAPENT+ SNNE-20-1-20+28-20-16
1196~ I~ 11951 J1474
RSEtHI...
BRANCH IF M~"ORY C.PACITY IS 20K
11976 4J 12164 01200

119U 26 00414 09815
.HI. $LO
12000 12 00H4 0-142
.HI.142,8
MAPENT. INNE_20-I_ZO-15.02101.11I,5TO.E 1001011 I. DIM NO.
12012 16 10915 -210J
STORE DlSlf LOAD ADDRESS
12024 26 10920 00434
LOAD DlSfF SUaPROGRAM BY HI INDICATOR
CAll LOAO,DIST' ..
lZOU 10 00565 J20SS
12048 49 00716 00000
12055 00001 UD-1I0
llO6l 00001 •
TF
SM
TfM

1'i'3

61160

If

nllO
61160
61190

TF

MAPEIH, 'NNEOI0-1'IO-5o 'ENTRY..

51!

iF"

61200

iF

6~010

CALL

••020

TF

640)0 .SETHI TFM
6~040
Aen
64050
Aen
6~060

. WArY

64070

IICTY
B
OOAG

6~080
6~090

64100'
6~1l0

21100

64120
641)0

TFM OPTLO+lS,"APf"T+ SNII£·ZO-loZO.2I020-16
8
OPTLo-Z~
OORG -3

641~0.

64150 5MOO
6~160
.~llO

.-.

TFM
$lO,99998
8
2/100
DDAG

6Hao.
6~190
6~200

AETURN
ERPROC
BOFFDS
CSOIM
DU5
FLW
MDS
TEMPI
UN lTV

xo

1.0

MESS

NORHL ..
EP5LON
"OVEPS
OSAI
OSA6
HWST
REVE
TIRAD
UHVEC
Xl

02416
06004
12170
11939
11999
03362
11892
05984
11844
0)))8

12232 16 '11951 JIH_
12244 4. 11892 00000
12252
12252 U. 09815 R9998
12264 4. un2 00000
U271

OAe ZS,A R E L E "
OENO LODME"

02411
02416
Oll38
12174
11989
02488
03362
03318
01416
05891
060TS

01010'
01020'
01030'
01040'
01050'
01060'
01070'
01080.
01090
OIlOOOlllO LINDS

STORE OISTF ENTRY AOOAESS
IlOU 26 I091S OUlIo
tHI.M'PENh $""f"0-1020-10
12076 26 00434 10910
5HI,160,8
12088 Il 00H4 0-160
MAPENH INNEo20-hIO-ts,OIIlI, 711, STOU 1I0NnA 0111 NO.
IllOO 16 108" -llIJ
IIAPENT< IIINe.20-2'20-IO, IHI"
STO.E UNITY lOAD AOORESS
12112 26 10900 00~J4
LOAO,UNITV"
LOAD UNITY SU8PROGRAM'8Y HI INDICATOR
12124 10 00S65 J214)
12lJ6 49 00716 00000
lZl4l 00007 L20-ill
UJ50 00001 •
""ENrt INNE'20-2.ao-,. SENTRY.. $YOaE UNITY ENTRY AOORESS
12152 26 10905 021)6
'HI,1715CII<16 ..
REseT HI INOICA'O_
12164 16 00434 JI7'16
12176 14 00000 00102
12188 34 00000 00102
MESS
12200 )9 12273 00100
12212 )4 00000 00102
122H 49 06206 00000
12H2

~

1l21) 00050
111 . .

0 A D E D'

SV~80L

TABLE

MONITR
01 MTA8
AIMUY
DSAl
E
INTOF
SCSRT
TLl
UX
VOFFO

02_06
12461
1186B
11949
05954
06151
02H6
06147
0612'
03)28

'AGE
INS TAT 02416
DEFTIP 12026
DDS
01312
DSH 11919
FISH 02416
LINDS 11196
SQATF Ol"~ 16
TOLD 06014
XOFFO OHU
0))48
VI

MINI.O
DEL TAB
ARGT
OSA3
ER211

060H
03338
06515
11969
12H4
KTf~P 07703
SENSE 02416
TOLl 05994
UV
06135
VO
05902

IBM 1620-1)11 AD-APT SUBPAOGRAM FOR EVALUATING
THE CUTTER PATH ON LINE DAIVE SURFACES
Res
.NAME 1I NOS... NON-ERASABLE ARELEM SUBPROGRAM
.10 NUMBER 013S-0ELDIII
.STDRE COAE IMAGE
LINKAGE - .
LINDS
IIT.6
SUBPROGU" ENTRV
IIONITo.02180,61,
CALL FISH SU8PROGAA .. VIA MONITR
111910 11 02400
CALCULATE OS-CS OFFSET INDICATORS
FISH,TU,6,
11108 11 02HO
seT OS TVPE INDICATOR 11820 16 0710)
KTEMP, I 010.
CALL UNITV SUBPAOGRAM VIA MONITR
MONITA.OSAl'5,6,
11832 11 02_00
CALCULATE UNn VECTOR UNGENT TO OS
UNITY,DSAZ.","
118~~ 21 02410
CALL SENSE $U8PIIOCRAII VIA MONITA
11856 21 02400
ADJUST SENse OF UIIIT UNGENT VECTOA
SENSEd,610,
11868 11 02~10
IAANCH I F UK IS POU TI VE
REVE.U.UX-Z ..
11880 44 11.04

OOllG IL 196
ITII

01110

aT

01130
01140

TFM
IT

-2180
06147
000-1

01150 UNVEC

IT

01160

IT

01170 AIIIUV

ITN

OUIO

8HF

0119001200 IIIYf

'MUL E."INI.O ..

02010

10

Df'TI"ARGT"

02020·
020'0

aT

IIOHIT •• DIU.'",

020_0

•

LIISTU ....

02050
020600:010 O$AI
02000
0.090
02;1)0
Oll 10

OCRG .."

ll9n

OSA

119'9 00005 JI."
11'40 0000'

Ol,lv
Olli"

UNVfC'U
esc S,02UI
O~' 05AI.'0' ••-6
110- UY.O
/XlZIG -21
..o~ 'lW$hOoIO.UM
ODAG '·10

1196.
11974
000-1

06121

e--E tlMPEIiOING MOTION AIGHT-To-LEFTI
118.2 03 05954 06014
aRANCH I' STARTUP TEST REDUNDANT
11904 4) 1202. 0"1'
CALL LNSYRT SUIPRDGU" VIA MONITA
11916 27 02400 119 ••
VERIFY cunu nAnu, POSIT ION
11928 ~. OZHO 00000

line

11951 41 06U' 00000

11.41

119.' 41 0»)62 0612'
II'"

02140 OSA2
02150
02160 OSA)
all 70
OliGO
02190
02200 OSAS
03010
03020
030)0
03040
03050
03060
03070
03080
03090 OSA6
03100
03110'
03120 DEFTIP
03130
03140
03150

au"

OSA

OOR'

DS.

AIMUY+12

OSA
OSC
OSA
DSC
OORG
Nap
OORG
Nap
DDRG
Nap
OORG
OS.
OORG

DEFTIP
5.02191
ER217-12
Sol
DU5,S'5'6-6
VOFFO.O
.-21
80FFOS, KOFFO
'-21
VO,MOS
'-14
KO
w.5w6-4

TFL
FMUl
HOD
8TM

DEL TAft.MDS
Del TA8. MDS, ,

osc

03160
03170
03180

8TH
FMUl
FHUl

03190

FAOO

03200

8TM

04010

8T

04020
04030

TFl
TFl

04,040_
Qlt050-

04060 ADVEPS TFl
04070
FAD 0
FMUl
0"080
04090
FADD
04100
TFl
04110
FADD
04120
FMUl
04130
FADD
04140
TFl
04150
TFl
AM
04160
04170
AM
04180
FADD
04190
FAOD
TFII
04200
05010
"M
05020
A
05030 CSDI" TF
05040
CF
8T
05050
8TM

05060

1.0

.+'j.'-'"

',020\)1

1194Q 00005 -6015
11965
119h9 00005 J1880
11970 00005
11979 00005 J2026
11980 00005
11969 00005 J2"Z2
11990 00005
12018
12016 41 0332e 00000
12006,
12008 "I Oll3e 033U
11998
11998 "I 05'102 03362
11995
11999 00005 -58'12
12025

12026 06 03338
MOS'OZ
11038 03 0333e
1.0+MOS·.2
12050 01 03338
CAU SORTF SU8ROUTINE VIA MONITR
12062 17 02400
SOR TF, Del TA8 .61.
SORTFII.O.HOSooZI
120H 17 02410
CELlAB,E"
EOSORTFCI.O'HOSoOZI
12086 03 03338
DEUA8.TlUD"
EoTlUO'SORTFII.O+MDS'oZ I
12098 03 03338
80FFOS,80S"
8DS+EoTlRAO'SORTFII.0+HOS.o21
12 110 0 I 03))8
MONITR,021"O,61,
tAll NORMlH SU8PROGRAM VIA MONITR
12122 17 02400
NORMLN,DSA"'.2S,6,
PROJECT CUTTER CENTER TO OFFSET LINE
12134 27 02410
KO.XOFFO
lZ146 06 058Q2
VO.YOFFO
12158 06 05902
ADVANCE CUTTER STARTUP POSITION A DISTANCE EQUAL
TO 20.0eEPSLQN IN THE DIRECTION OF UNIT VECTOR
TEMPI. TOLO
12170 06 03318
TEMPl,TOLI,.
20.0eEPSlON
12182 01 03318
TEHPl.UX,.
20.0eUXoEPSlCH
12194 03 03318
)(O,TEMPl.,
KO-KO+20. OeUKe EPSlOH 12206 01 05892
TEMPI. Tala
12218 06 03318
TE MP 1. TOll, •
20.0oEPSlON
12230 01 03318
TEMPl,UV,.
20.0oUYoEPSlON
12242 03 03318
VO.TEMPI'"
YO-YO+20. OeUY'E P$lON 12254 01 05902
Xl.UX
12266 06 03338
VI.UV
12218 06 03348
Xl.Z,lO,
12290 H 03338
Xl-IOO.O-UX
12302 11 03)48
VI.2.10,
YI-IOO.O-UY
XI-XO+100.0-UX
12314 01 OB38
Xl.)(O"
Yl,YO"
YI-YO.1OO.O-YY
12326 01 03H8
CSDIM+ll.DlllTAB-"
12338 16 12385
INTOF .4, 10.
12350 13 06157
"'IHTOF
CSOIII+1l.99
12362 21 12385
12374 26 llQ93
OSA5+", ••
SET CS 01" NO.
DS.,+I
12386 3) 11990
CALL CS SUBPROGRA~ VIA MONITR
MDHI TR,OS"+',6,
123'18 21 02400
EVALUATE CUT VECTOR AT CS
SCSRT,"1lo61,
12410 11 02410

DELTAO.i.O ••
MONITR .OZOOO .1>7.

'ACE

03362
03362
06075
-2000
-3338
059H
05984
0337Z
-2140
12024
03318
03)28
06014
05994
06125
OHI8
0601"
059Q"
06135
03318
06125
06135
OOO-Z
000-2
05892
05902
J2457
000-4
00099
00000
00000
H994

J2423

PAGE
Nap

05070

RETURN,,6.

05080 ER211

8TM

MaN ITR ,02250. 61.

05090

8 Til

ERPRDC,21700,61.

05100 0lMlA8
05110
05120
05\30
05140051 SO HONITR
05160 FISH
05110 Tt2
05180 UHITV
05190 SENSE
05200 UK
06010 E
06020 IIINI.O
06030 LNSTRT
06040 FLWST
06050 UV
06060 FlW
06070 1.0
06080 KI
06090 VI
06100 XO
06110 va
06120 ItHOF
06110 SCSRT
06140 RETURH
061S0 ERPROC
06160 KlEMP
06110 MOS
06180 EPSLON
06190 OElTAB
06200 80FFO$
070.0 XOFFO
07020 YOFFO
07030 saRff
07040 NDRIILN

DC
DC
DC
DC

4,0244

01050

aos

07060
07010
07080
07090
01100

TlIIAO
TEMPI
ARliT
TOlO
101.1

07UO

DS
OS
OS
OS

os

OS
OS
OS
05
DS
OS
OS
OS
DS
OS
OS

os
OS
OS
OS
OS

OS

4.0245
4.021t6

4.0247
,2406
,2416

.6141
.2416
.H16
.6125
,5954
,6024

.2416
.3362
,6135
,2488

,6075
,FlW+as*10
,IC: 1*10
.5892
,5'02
,6151
.2416

,2411
,2"16

oS
DS
OS
OS
OS

,7103
,FLWST+O'IO
.6004
10.K!
,Del TAB
,Xl-20
,XOFFO+IO
.2416
,2416
,FlWSH1.IO
,5984
,XDFFO
•• 515

OS

,6014

os
OS
OS
OS

OS
OS

os

OS
,599"
DENa LlNOS

Nap DR B IVARlA8lE DP CODEI
12422 41 0241J 00000
CALL ERPROC SUBPROGRAM V I A MaN IT R
12434 17 02400 -2250
WRITE EAROR MESSAGE ••• SEARCH FOR END
12H6 17 02410 KI100
12461 00004
12465 00004
1246Q 00004
12H3 00004
02"06
02416
06141
02416
02416
06125
05954
06024
02416
03)62
06135
02488
06075
03338
03348
OS892
05902
06157
02416
02411
02416
07103
03362
0600"
0))38

03338
03318
03328
OH16
02416
0))72
05984
03318
06515

06014
05994

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00010
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

111.,.

17$

'AGE

SYMBOL TABle
YER ltv
UPRIlC
""UV
COSF
OSU
E
Fill
I ..

12060
02416

RETURN 02411
EPSlON 06004
ARGT 06515
CROSS Ol338
OS .... 12111

11964

02421
12101
05954
02<188
12216
lCAlC 12216
R
onaz
SENse OZ416
TIIETA 0333a
UNITY 02416

U202
HIlSf
INTOF
NeIiT
REVEC
SIGMA
TlRAD
UNVEC
XCOMP
YO

05810

X

olua

YCOMP

010100
010200
01030-

121"8
03342
06151
03288
12184
0)328
0598"
11892
03308

0590l

12308
12916
02416
12H8
12121
12930
05974
k
03372
N"AX 03298
RMITI 0])38
SINF 02416
TLZ
06141
UX
06125
XO
05892
VI
on...

O'h'OUT
DIMU8
AUNF
CSOIM
DSA5
ER201
G

MCNITA

02~06

CASTAT 02'16

CIRDS 11796
OSA! 120n
OSA6 12111
ERl15 12950
CENCV 12668
KTEMP 01103
0)]18
PHI
RPlTO 03308
SOATF 02"16
TOll 05994
UY
06135
XI
03318
1.0
06015

MIN1.0
ADVEPS
CONT
OSH
DSA?
FISH
II

060H
12H2
12848
120BI
12907
02416
OH62
l/2
03318
PI
12918
SCSRT OHI6
TEMP 03348
TOLD 06014
WEU 12112
y
05830
2.0
0611S

IBM 1620-1311 AD-APT SUBPROGRAM FOA EYAlUATING
THE CUTTER PATH ON CIRCLE DRIVE SURFAU5
RCS

010~0-

010500
0101>0'
01010'
01080'
01090
01l00'
01110 CIROS
01120
01130
011100
01150
01160
01170
01180
01190 UNVE'
01200

oNAME ClADS ••• NON-ERASABLE ARElEM SU8PROGRAM
010 NUMBER 0219.0ELOIM
STORE CORE I MAGE
LINKAGE - 8
tiROS
OORG 11196

11196
SUBPROGRA" ENTRY
MONITR.02180.61.
CAll FISH SU8PROGRAM VIA MONITR
11796 17 OZ400 -2180
' CALCULATE DS-CS DFFSET INDICATORS
8T
FI5H.Hl.6.
11808 21 02~10 061H
TFM KTEMP. 5, 10,
SET OS TYPE INDICATOR 11820 16 07103 000-5
TFl YCOMP,H
11832 06 03338 03361
FSUB yeOMP, xo.,
H-XO
11844 01 03)38 058'12
TFl XCOMP.YO
11856 06 0)308 05902
FSUB XCOMP,K, •
YO-K
11868 01 0330. GHU
aT
MONI TR ,OU1.5.6.
CAll UNITV SUBPROGRAM VIA MONITR
11880 11 02~OO 12011>
IT
UNlTV.DUZ.15.6.
CALCULATE UNIT VECTOR TANGENT TO os
11892 Z1 02HO 11096
8V
8RANCH IF CUTTO AND CIRCLE CONCENrRIC
ER202" •
1190.. ~6 121~8 OI~OO
aTM

02010'
02020
02030

FMUl YtOMP.MINI.O. ,
aTM MONUR,Ol020,.1.

XO-H
11916 0] 03UB 0602 ..
CALL ATANF SUBROUTINE VIA MONITA
11928 11 OZ~OO -2010
CALCULATE ARGUMENT OF RAO IAL VEC TOA
119"0 27 OHIO 12IH
CALL SENSE SUBPROGRAM VIA MONITR
11952 21 02400 12106
ADJUST SENSE OF UNIT VECTOR
11964 11 02~10 000-1
ASSUME CII CUTTER ~OflOH ABOUT OS CIRCLE
11916 06 0591" 06015
UYoCXO-HI
lI988 03 03338 06U5
UX., YO-k I
12000 03 03308 06125
UYo' XO-HI+UXO(K-YOI
12012 01 03338 OH08

020~0

er

ATANF ,OSU.l0.6.

02050

8T

MONITR.OSA).5 •••

02060 AIMUV

8TH

SENSEtl.610,

02010

rFL

G.l.0, •

02080
02090
02100

FHUL YCOMP.UV ..
FHUL XCOMP,UX ..
FSU8 CROSS.XCOMP ••

02110

8P

REVEG ...

8UNCH IF CROSS PRODUCT IS POS IflYE
120210 46 12184 01100

021200
02110

80

lCALC.ARGT ••

eRANell IF STARTUP TEST REOUNOANT
12036 "3 12216 06515

8T

NONITR.DSA~.'.6.

CAll CRSTRT SUBPROGAAM VIA MONITR
120108 27 02400 1211.
VERIFY CUTTER STARTUP POSIT ION
IZ060 49 02HO 00000
12061

021~00

02150

02160 VERIFY 8
02110
021800
02190 OUI
02200
03010
03020
03030
03040
03050
0301>0 OSA2
03010
03080 OSA)
03090
0)100 DSA..
0)110
03120
OlUO
031~0

OORG ... ~
OSA
DSC
DORG
HOP
OORG
HOP
DORG
051.
DORG
OSA

osc

OSA
OSC
OORG
NOP
OORG

DSA

DSA1+5+5o~-6

UY.O
0-21
YCOMP,UX
-14
XCD"P
0+5'~-4

AIHUV.12
5.02431
lCAlC
5.02101
OSA4+5.,03-11
xeO"",SlGMA
-14
VCOMP
0+So)-"+501-11
LIZ.PHl
-14
RNITI
. . 50)-04

031S0 DS""
0)160
OORG
. NO,.
0)170
OORG
03180
03190 QSA6
OSlo
OORG
03200
04010.
04Q20 E11202 TFM IIERI4.9.202,9
arM NONITR,OZZ50.61.
0"010
'Olt040 WERM

8TM

E.'ROC,I.67.

0"050 IlEVEG

FNUL EtHIN1.0 ..

04060

SF
G-2".
8
VEIII fY-24
OORG - I

0~010

04010
0~Q900

04100 LCAlC
04UO
04120
0"1»0
04140

O"UQe
0""'0
0lt170
0lt11l0

.11

04190
0.,2000 '

TFL
FllUl
PAOD
TfL
aMf

.'LTD. TlRAO
'''LTO, . . .
RPl70,1I"
IIMITI,.'LTO
ON/OUf,E-2,.

'ADO .'lTO.TOll ••
RNltl,tOLO.,
•
ON/OUT+24

,sua

'SUI 11M I TI. TOI.I ••

00005 JI904
OOODS
~I

06135 00000

41 03138 06125
00005 -3308
OOOOS JI976
00005
00005 JZ216
00005
41 DUO. OUlI
00005 -13)8
41 03318 0331e
00005 -3338

121~' 16 12161 OOKOl
CAll ERPROC SUBPROGRAM VIA MONITR
12160 11 02"00 -1250
IIR ITf ERROR MESSAGE ... SEARCH FOR END
12112 17 02410 -0001
eo-E IIMPENDING MOTION cellI
1218~ 03 05954 0602 ..
SET c:cw INOICATOR
1219. 3Z 05972 00000
12201 ... 120]6 00000
12216

12216 06 03308 0591~
U2Z8 0] OU08 05954
Il2~0 01 0)308 0))8%
12252 06 OJ)38 o))oa
I.ANCH I' CuTTI. MO' INSIOE
CIRCLE
U264 44 lUoa 05952

eonUD
.+eoTLR'O

os

UeoTLRAD+'OLl
.0.eTUA/I-TDlO

122T6 01 OUOI 0''19''
122.' 02 0)]]' 06014
12]00 4. Un2 00000

lI.eonUD+TOlO
UeoTlRAD-TDl J

1%308 01 0))08 060'"
12320 0% DUU 05994

&UOa

OOItG - .

05010 OHIOUT 'ADD "IOUO. TOLO ..

OS020

12071
12072
IZ090
IZ090
12080
12080
12071
12081
12091
12101
12102
12111
12112
12120
12120
12 III
12121
12136
12136
12133
121]1
IZI".

UNVEC.12
5.02111

'AGE

1

O~O)O

PAGE

0~070

':FL
FMUl
TFl
""UL
,SUa

TEMP,TEMP.,
LIZ, TEMP"

0~080

BNP

ERZ07" ,

05100

8T"

"ON IT R ,02000, 67.

05110
05120

8T"
8TM

SQRTF,L/2,67
MONI TR ,02020.67,

05130

8T

051~0

TFL
FOIV
FADD
TFl
MF
TFM
MM
A
TF
CF

MO~O

05050
05060

l/2,RPLTO
L/2,l/2 ..
TEMP,AMI TI

0~090·

OH50
05160
05170
05180
05190
05200
06010
06020 CSOIM
06030
0601t0-

06050.
06060 AOVEPS
06070
06080
06090
06100
06110
06120
06130
061~0 GENtV
06150
06160
06170
06180
0l>l90

TFL
FAOD
FMUL
FADO
TFl
FADO
FMUL
FAOD
TFl
FMUl
TFL
FSU8
TFL
8TM

06200'
07010

8TM
FMUL

07020

FAOD

07030

8T"
FMUL

070~0

01050

12]]2 06 0]]18 03]08
123H 0] OllU 0)318
12356 06 03348 03118
«R+e.TLAAO-TOlll"Z
12368 03 03348 onu
t R.e.TlRAO+TOlO) •• 2-1 RtE. TlRAO-TOlll •• 2
12380 02 03318 0)348
BRANCH IF RESULT NOT POS" I VE
.12392 H 12930 01100
IR+EoTLUOHOLOI •• 2

CALL SQATF SUBROUTINE VIA HONITR
12~0~ 17 02~OQ,-2000
12~16 17 OHIO -)318
CALL AUNF SU8ROUTINE VIA MONITR
12~28 17 02400 -2020
AUNF ,0546+10,6,
CAlCULATE ANGLE SU8TENDEC 8Y HALF-CUT
.
12HO Z7 02~10 121~7
NMAX,PI
IH~2 06 03298 12978
NMAX,PHI
12464 O'J 03298 03318
NHAX,NHAX,t
NMAX-Z.O.P IIPHI
12476 01 03298 03298
NCNT,l.O
12488 06 03288 06075
PHI-2tG-2"
PHI-SlGNFIPHI,GI
12500 71 03316 05972
CSDIM+ll,DIMTAB-ZO
12512 16 12559 J2896
INTOF t"', 10.
IZ524 I l 06157 000-4
CSDIM+ll,'J'J
12536 21 12~59 00099
SET CS 0(14 NO.
OS4 7+"'".
12548 26 12911 00000
OSA 7+1
lZS60 H 12908 00000
ADVANce CUTTER STARTUP POSITION A DISTANCE EQUAL
TO 20.0.EPSLON IN THE DIRECTION OF UN IT VECTOR
TEMP, TOlO
12512 06 on48 0601~
20.0.epSlON
TEMP.TOLI"
1258~ 01 on48 0599~
TEMP .UX"
20.0oUX·fPSLON
IZ596 03 03348 061Z~
XO.TEMP"
XO-XO+ 20. o-ux eEPSlON 12608 01 05892 03346
TEMP, TOlO
12620 06 033~8 0601~
TEMP,TOLI"
20.0·EPSLON
12632 01 on48 05994
TEMP,UY. ,
ZO.o.Uy.epSlON
12644 03 on48 06135
YO,tEMP,.
YO-YO+20. a oUY .epSlON 12656 01 05902 03H8
TE~P,PHI
12668 06 O"4a 03318
TEMPtNCNT.,
NCNToPHI
12680 03 0334B 03288
THETA,SIGMA
12692 06 03338 03328
THETA, TEMP"
THETA-SIGMA-NeNT.PHI
1210~ 02 03338 03348
TEMP,THETA
12116 06 03148 03338
MOtH TA.,02010.61,
CALL S I NF-eOSF SU8ROUTI NE VIA MON I TA
12728 11 02400 -2010
CO SF • THETA,67,
COSFITHETAI
12740 17 OZ42J -3338
THETA,RPlTO"
(R+E.flAAO+ TOLO '.COSF. THET A'
12H2 03 03338 OH08
x l-H« RtE .TlRAD+TOLO ,0COSF (THET.'
Xl,H"
12764 01 03338 Oll62
SINF, TEMP,67,
SINFITHETA'
12776 17 OHIO -3348
TEMP,RPL TO.,
• R+E .HAAO-TOLO '.SlNF (THETA I
12788 03 0]348 03308
YI-K<, R+EoHRAD+TOlOloS. NF, THe TA I
12800 01 03348 03372
liON I TR,OSAT+5,6,
CAll CS SU8PROGRAM VIA MONITR
12812 27 OZ400 12912
EVALUATE CUT VECTOR AT CS
12824 17 02~10 J28H
RETURN, ,6,
HOP OR a (VARIA8LE OP COOfl
12836 41 OH1J 00000
128~8 06 03348 03298

07060

8T

07070

8TM

07080

NOP

07090 CONT

TFL

07100
01110

FSUB TEMP,NeNT"
8NP ER21S",

PAGe

07120
07130

FADO NCNT,2.0,.
8
GENeV

01l~0

OORG

.-~

07150.
07160 OSA7
07170
07180 OlMTA8
07190
07200
08010

OSA
DSC
DC
DC
DC
oe

CONT-12

5.1
"',024,,,
~,02H

4.0246
4,OZH

08020-

08030 ERZOl
080'0
08050
08060·
08070 ER21S
08080
08090
08100·
08110
08120 PI
08130.
08HO MONITR
08150 FISH
08160 TL2
08170 FlW
08180 FLkST
08190 yeOMP
08200 H
09010 XO
09020 XCO"P
09030 YO
090~0 K
09050 UNITV
09060 "INI.O
09070 ATANf
09080 SENSE
09090 G
09100 1.0
09110 UX
09120 UY
09130 CROSS
09140 CRSTRT
09150 XI
09160 VI
09170 SlGHA
09180 R"ITI
09190 LI2'
09100 PHI
10010 EAPRoe
100ZO E
100)0 RPUO
10040 flRAO
10050 R
10060 TOLD
10070 TOl I
10080 TEM'

TFM
B

WERM+9,201,9

12907
12908
12916
12920
12924
12928

00005 J2836
00005
OOOO~

00004
00004
00004

12930 16 IZI81 OOK07
49 12160 00000
12950

WERM-12
DCRG - 3

129~2

TFM WERM+9,21~,9
B
WERM-12
DCRG 0-4

12950 16 12181 OOKI5
12962 ~9 12160 00000
12969

8,31415927

DC
DC

201

as

,2406

oS
OS
os

as
as

os
os
OS
OS

os
os
OS
OS
OS

os
os

os
OS
OS

os
OS
OS

os

OS
OS
OS
os
OS

OS
OS
OS
OS
OS
OS

,2~16

,6tH
,2408
,3362
IO,FlW+85 o I0
,FlWS T+O.IO
,5892
10, YCOMP-30
,XO+IO
,H+IO
,Z416
,60Z~

,2H6
,2416
,5914
,6075
,6125
,UXtl0
,yeOHP
,2416
,Hw.a5·l0
.XI-l0
IO,Xl-IO
,CROSS

,Xl-20
,LIZ
.2-H6
,5954
,XCOIIP

,5984
,1(,+10

,6014
,5994
,y 1

4

NMAX-NCNT
12860 02 033'8 03288
8RANCH IF TOOL TRAVEL EXCEEDS ONE REVDL.
12872 . , 12950 01100
NCNT"NCNT+Z.O
12884 01 03288 06115
12896 49 12668 00000
12903

12976 00008
12978 00002
02406
02416
06147
02488
03362
03338
03362
05892
03308
05902
03372
02416
06024
02H6
02416
05974
06075
06125
06135
03338
02~ 16
03338
033~8

03328
01338
03318
03118
02416
059~4

0)]08
0598~

03382
06014
059'J4
0))48

00000
00000
00000
00000
00000
00010
00000
00000
00010
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00010
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

177

10090 SQRn
10100 2.0
10110 IIMAX
10120 NCNT

lalla THETA
101~0

10150
10160
10110
10180
10190
10200
lllliO
IlOltO
1l0)0
llO40

COSF
"HOF
SINF
SCSRT
RETURN
KlEM'
E'SLON
•
Y
'Act

OS
US

.2416

OS

10.• XCOMP·IO
IO.NMu·ao
.II.MITI

DS

os
OS

.H21

OS

Ol~21

OS

,I>IS1
.2.16
.2416

os

0$

.2411
.n03

OS
OS
OS
OS

.6004
10.5120
10,.-10

os

Ohl6
06115
03291
Oil88
OH38

,6115

061S1
02416
OHI6
024ll
0170]
06004
05820
05810
06515

.ulS

11'"

OE~D CIIIDS

'AGe

00000
00000
00010
00010
00000
00000
00000
00000
00000
00000
00000
00000
00010
00010
00000

t

PAGE

5EMIN)
SINCOS
NVERTL
NNO.25

14380
14250
13328
14390
"Y~FLG 03349
ONCALC 13412
ACON 03362
CCON 03382
CROSS 00069
OEVI 03268
OMIN 03298
OSAII 136H
OSAI6 13941
OSA20 14015
OSA5 13675
DYOX 02416 .
ER227 12936
GENCY 123 . .
ITER2 12844
NORM2 U232
StSAT 02416
TLOFF 12684
UX
06125
YAR82 12780
03248
XHO
X2
03218
YJ
05933
Y2
03288
40.0 IUTO

01010·
01020·
010)0.
0104001050·
0106001070.
01080.
01090 '
01l00.
OUIO COHOS
OUIO
OIUO
O1l40·
011$0
01160
OU70
OUOO CSDIM
OU90
01200
OZOIO02010 DGE ..C
020iO

I.OH8
REYERS
NOTLIN
MINI.O
ERPROC
OINUS
aCON
CONOS
CSOIM
OGENC
OHXHH
DSAl2
OSA17
aSHI
OS"
01
FCON
GRAD
IfERl
RUXV
SENSE
flOH
UXT
VERTL
XOFFO
X2MKQ
YNO
Y2MYO
40EPS

06085
12788
12188
06024
02~16

12175
03372
11796
11852
11888
14074
13861
13966,
14033
13725
03118
03"12
03238
13184
14069
13052

12476
06125
13592
OU18
03278
03258
03288
02949

SY~80L

TA8lE

Yl~YNO

03178
02HI
02416
02416
06004
03328
03178
12944
12921
02416
03318
13871
13977
14051
13135

RErURN
NORMLN
LINLIN
EPSLON
OELlAR
8N02
CCNT
CVCTR
OISTF
ON
OSA13
05A18
aSA22
OSA7
E
FlW
INCRT
MN02
REVU
SORTF
JLRAO
UV
WERN
XSAVE
X3
YOFFO

0595~

02488
14081
03168
13136
OHI6
05984
061n
12160
03148
03188
0])28
03198
Yl
80EPS ono.

XI~XNO

01168

RHADO
NORMCN
LCNCNI
ENTRYl
tNSTRT
BRNOP
CONVI
OCON
OM
OSA!
oSAI4
OSAl9
aSH
OS . .
ECCN
FLWST
INrOF
1402
RElIO

14079

02416
02416
12092
02416
12116
12912
03392
03308
13615
13901
13997
13655
13761
OH02
03362
06l5T
03208
12620
TEM~
00079
TRIGF 14082
UYT
06135
XFUN 14UO
XO
05892
YCEP' 03321
05902
VO
060n
0.5

UNITY2
ON/OUT
MONITR
INSIDE
OICALC
80FFOS
802
CONV2
DELX
OMU
OSAlO
OSA15
DSA2
OSA4
DSA9
ERUT
G
ITERI
HORMI
RO
THETA
UNITV
VARIl
XI
Xl
YFUN
Yl

1.0

IBM 1620·1311 AD-APT SU8PROGRAM FOR EVALUA'ING
THE cunER PUH 011 CONIC Duve SURFACES

130<,0
11064
02406
12644
12452
03328
03218
13496
1"118
03228
13831
13931
13625
13665
11791
12136
05974
12192
12428
00069
03158
02416
12132
05921
01U8
142n
OU48
06075

.

RCS

.NAME COHOS ••• NDII-eUSULE ARELEM SU8PROGRAM
olD NUIIBER OHO-OElOIII
.STORE CORE IMAGE
COIIDS
LINKAGE - 8
11196
SUBPROGRAM fliTRY
CALL CNURY SUI'ROGRAM V U MaN ITR
MONI TR.OSA10,.6.
1I 79/0 27 02400 U6Z0
aUNCH TO CONIC nAUUp ROUTINE
CNSTR,,,6.
a
11801 _. 02410 00000
U8a
DOIIG - I
OORG U196

IT

'FM
MM
A

r,

"

10
r'L

CSOIN.II,DINV'.-J.
INTOF ,.,10,
CSDIM+ll,99
05U.4".
DS"-I

1IOn.1 .. ,G ..

11816 "
11828 U
11840 21
1I1S2 26
sn CS DIM NO.
ue64 n
lUNCH I' CD.de IS HOT" LINE
.·IN'O'

11176 U

DfLUI,OCOH

'NUL OELrAl.OCON, ,

D'"

lieu J211'
061'1 00g.4
118101 00099
13659 00000
un600000
ill•• onl.

11 . . . 06 0))28 0))9l
119DO O. Ollll Dlnl

IH

PAGE

02040
02050

fAOO OElTAB,l.O ..
BTM HO~ I TR .02000.61,

02060
02010
02080

8TM SQRfF ,DELTAS,., ..
FMUl OElTA8.E ..
FHUl DEl TAB. flRAO ..

02090

FSUa aOFFDS.FtON. ,

02100

BTM

MONllR,02140.61.

02110

8T

"'ORHl'" ,DSA2025,',

02120
02130
02140
02150
02160
02110

TFl
TFl

XI,UXT
VI, un
)(1,2,tO,

021.0

AM

AM
Yl,2,lO,
FADD XI,XOFfO ..
FlOD VI. YOFFO, ..

fPM

UNOP·U •• ~2U

OlUO e"'TRVI 8T

HONI TR.DSAl"",

02200

8TM

SCSRT, •• 'l"l.

03010 8RNOP

NOP

RETURN. ,6.

03020
03030

B
OORG ·-3

1.0+0"2
11912 01 OH28
CALL ~QRTF SUBROUTINE VU MCNITR
11924 1102400
SQRTFtl.O+O •• 21
11916 1102410
e,SQRTF( 1.0+0"21
11948 0) 0)]28
e·TlRAO'SQRIFII.00O··21
11960 0) Oll28
HE' TlUO'SQATF C 1.0'0~'21
11912 02 OH28
CALL NORMlN SUBPROGRAM VIA MONITR
11984 11 02400
PROJECT CUTTER CENTER TO OfF SET 1I NE
\1996 21 02410
1200B 06 03))8
12020 06 03348
Xl-100.0-UXT
120)2 11 03338
Vl-1OO.O·UYT
12044 II 03348
12056 01 0))]8
XI·XOFFO+IOO.O·UXT
U-YDFFO+l00.0oUVT
12068 01 0))48

1

Ob015

-2000
-])28

05954
05984
01412
-2140
11650
06125
061lS
000-2
000-2
03318
0)]28

uOla U IUS. JlU.
CALL CS SUBPROGRAM VIA MONITA
12092 21
EVALUATE CUT VECTOR AT CS
L2104 11
"'OP OR B IV AR IABLE OP CODE I
12\16 41
12128 ~q
12136

02400 13660
OHIO J2lL 1
0241J 00000
00000 00000

030~0'

WERfI'II+Q,211,9,

0)050 ER2ll
03060

TFM
8TH

MO"'I TR .02250,67,

0)010 WERM

BTM

fRPROC,),67.

0)080 OIIlTAB
03090
03100
031 LO
03120.
031)0 Non I'"
03140
03150
03160
03170
03180
03190
03200

DC
DC
OC
DC

4,0245
.... 0246
It,0247

0~010

04020
04030
04040
04050
04060 GENCV
04010
04080
04090
0.100 ITERI
04110
04120

~.O2""4

TfM
TFM

8RNOP+lB,CONT

IFH

CVCTR,250,9.
Xl,XO"

TFl
TFL
TFl
TFL
FMUl
FSUB
rFl
FHUl
TFL
fADD
FMUL
FHUl
rFH
TFM
FADD
FAOD
8T

WERH+9,227,9,

Vl,YO"

VCEPT.YO

TEMP.GR-AD
TEMP,XQ

YCEPT,TEHP"
40EPS,EPSLON
40EPS,40.0,.
eOEPS.40EPS
BOEPS.4bEPs,t

UX,ltOEPS"
UY,ItOEPS ..
VARBI+6.REVERS
VARBZ+b,1 TERI
XI,UX, •
Yl,U't'"
MONI TR,OSA4+S .6.

SET ERROR NO •• 211
12136 16 12169 OOK 11
CAll ERPROC SUBPROGRAM V I AMON ITR
12148 11 02400 -22~0
WRITE ERROR MESSAGE ••• SEARCH FOR END
12160 11 02~10 -000)
12115 0000~
1217900004
121B3 00004
121B7 00004
121BB 16 12\)4
11200 16 12169
12212 16 12921
X1-XO
1222' Ob 0333B
VI-YO
1221b 06 03348
1224B 06 03328
12260 06 00079
12272 0) 00079
VCEPT·YO-GRADoXo
12284 02 OB28
12296 06 02949
40EPS-40.0oEPSlO'"
1230B 0) 02949
12120 Ob 0))08
BOEPS-BO.O-EPSLON
12332 01 03308
UXa,.O.O.EPSLCN·UX
12344 03 06125
UY-40.0.e PSUlN-UY
12356 03 061)5
1236B 16 12738
12380 16 12786
XI-X I 040. O-EPSLON-UX 12392 01 0333B
YI-Yl+40.0.EPSlON.UY 12404 01 O)34B
Call NORHCN SU8PROGRAM V I AMON ITR
IH16 21 02400

SET ERROR NO.-227
SET CVCTR-250

no ••
00K27
OOK50
0~802

05902
05002
03238
05802
00019
06004
14370
02949
02949
02949
02949
J2788
J2392
06125
06135
1)610

PAce
04130 NORMI

BT

04140

NORMCN,DSA5+45,6,

8T

MONtTR,DSA6+S,6.

04150 DICAlt ST

OISTF,DSA7+20.6.

04160

TlOFF .E-9"

04\100.180 TLON
04100
04200
OSOIO
05020
050]0
05040
05050
05060
05070
05080
05090
05100 REliD
05110

BO

ROeACON
TFl
FMUl RO,Xl ..
TEMP.BCON
TFL
FflilUL TEMPIIV1. ,
FADD TEMP,OeON,.

FAD 0
FMUL
FAOD
TFl
FMUl
FAOO
fHUl
FAOO
8,..N

05120.
05130 INSIDE 8,..F

CALCULATE NORMAL TO OS CON IC
12428 27 02410 1)120
CAll DISTF SU8PROGRAM VIA MONITR
12"0 21 02'00 13730
CALCULATE 01 STA"'CE FROM OS CONIC TO P\
12452 21 02.10 13755
BRANCH If TOOll IS TllFT OR flRGT
12464 .] 1268. 0594'

A-Xl
8*Y1
8*Y1+0

RO,TEMP,.

A*)I;l+R*Yl+O

RO. Xl f

X1*'A·)(1+0*Yl+0J
Xl* (A-X 1+8.'1 1+0 I+F

,

RO.FCON,.
TEMP.CCON
TEMP,Vl ••
TE"'P,ECON, ,

TEMP,VI ••
RO. rEM!»,.

C-V1
C*Y1+E
VI .\CoU+E I

12476
12488
12500
12H2
12524
12536
12548
12560
12512
12584
12596
12608

06
0]
06
0)
01
01
0)
01
06
03
01
0)

00069
00069
00079
00019
00079
00069
00069
00069
00019
00019
00019
00019

03362
03338
03372
03348
03392
00019
03338
0)'12
0))82
0334B
0)402
0334B

RO-X 1. (A.X '+8.'1 1 +0 J+'11-( C*Y l+e) +F

ON/OUT" ,

12620 01 00069 00079
BRANCH IF POINT PI NOT INSIDE CO,..IC
12632 46 12664 01)00

TlOFF+Z4,HYPFlG ..

BRANCH If CONIC IS AN HYPERBOLA
12644 4. 1270B 0))49

05140'
ITERI
05150
B
DORIO 0-)
05160
05170ITER I.HYPFlG ..
05180 ON/OUT B"'F

12656 49 12392 00000
12664
BRANCH IF CO"'IC IS AN HYPERBOLA
12664 .4 12392 03349

05190'
05200
06010
0602006030 flOFF
06040
06050
06060
0607006080 YAR8l

8P

BRANCH IF 01 EXCEEDS IlMAX
12132 46 00000 01100

0609006100
06110
06\l0

01-2 ... ,
CF
FSU8 DI.5EMIN3
8t;P CONYl, ..

Dl-USFIDII

060006140 'iARU
06150
06160.
06170 REVEIIS
06180
06190
06200
07010
07020

12676 49 12708 00000
1268.

TLOFF+24
8
OORG <>-)
MF

TEMP,OMU
DI-2.TEIIP-Z"

8Z

CONV1."

TFL

Fsue Ol,OHAX.,

e

Ol-S IG"'F I OI,CMAX I
DI-DI-OMU
BRANCH IF OloOMAX

BRANCH

'F

Dl

DOES NOT

1268.
12696
12708
12720

12180
0-)

12788

iFM

VARIII+",ITERI
VUBl+',ITER2

12788
12800
12812
12824
12816
12844

FHUl UX."NO.25 ••
FHUl UY,MNO.21) • .ITERI
8
DORG

.-)

UXo-lo.ooepSLOHoUX
Uyo-l0.0 oEPnONoUY

0322B
00011
03228
01200

1274. )) OHI6 00000
12756 02 0))18 tH80
EXCEED 5.0E-3
12768 H 12912 01100

DORG
TFM

06 00019
11 03316
02 03318
46 12912

~9

00000 00000

II>
16
0)
OJ
49

12138
12186
06125
061)5
12)92

JZ)92
J284~

14)90
14190
00000

I 7 ~I

070)0.
070_0 arERl

Plc;e
8TH rRIGF,OSlI9+U ..

070S0

UF~

fft IGF .OSA20. U.,

07060
07070

TFt
8TM

XI.XSAVE
MONt fR ,02\40,61,

01010

IT

NORMLN,DU8+n,.,

07090
01100
07110.
01UO COHYI
07UO

e

NORMI-12

DOlIa

0-)

SM
INN

CYCTA,I,IO.
ENTRYI, ..

07150 Eun
07160
0117001180 CONT

8

WERM-U

8TM

MONI TR,02080,6?

07190

BT

OYOX .OSA90)5,6,

07200
08010
08020
08030
08040
08050

TFL
TFL
FMUL
FSUB
rFL

YCEPT, YO
TEMP,GRAO
TEMP,XO
YeEPT, TEMP"

ON,1.OE«t8 ••

BT

HONITR.OSAI0~5,6,

to

PROJEC r POII,T PI

OUTER TOLU128H 07 14082
ANeE OFFUT DAIVE SURFACE
128n 07 14082
12868 06 01138
CAH NORNlH SUBPROGRAM V'i MOIH TR
Ilaac 17 OHaO
PROJECT POINT '1 NOR,MAl TO tv LINE
128'12 27 02410
12904 49 12416

Inu

CVCTAocvCTR-1

lRANCH IF

evcu

UN ITV.OSAII'U,6"

TFL
FMUL
TFL
FHUL
FSUB
FMUL
8NP

CROSS.XI
CROSS,UY"
TEHP,YJ
TEMP,UX, ,
CROSS.TEHP"
CROSS.G.,
REVU.2~, "

08140.
08150 REVU
08160
08(70
08\80
08190 ITeR)
08200
09010
09020

FMUL
FMUL
FMUL
FMUL
FADO
FAOD
TfL

BT'

Yl'tUV"
OM,ON. t
HONITR ,OSAI2'5.6.

09030 NOR"Z

BT

NORHCN,OSl5+45.6,

UX ,"41 N1. 0"
UV,MINl.O,.
UX,BOEPS"
UV,80EPS ..

Xl ,ux,.

09040

8TFL TRIGF,OSA21'12 ..

09DSO

BTFL TRIGF.DSA22'12"

09060

8TH

MONI TR.02120,61,

09070

BT

LCNONI ,OSll 3+25,6,

09080
09090
09100
0911009120 NVERTL
09130
09140
09150
09160

TFL
TEMP,MINl.O
FOIV TEMP,M02.,
BV
veR fl •• ,

14027
0]148
-2140
11186
00000

12912 12 12921 000-,1
l . . a~ u

1I0tZ OUOO

12936 49 12148 00000
12944

OOllG . - ]

08070 seNSE
08080
08090
08100
OSllO
08120
08130

-

IS NO/l'"NeGATIVE

07140-

08060 UNITV,Z aT

14009

CALL OYOX SU8PROGRAM Vll MONITR
12944 17 02400 -2080
CALCULATE SLOPE OF CONIC AT POINT PNO
IH56 27 OHIO 13826
12968 0'6 0]328 05902
12980 06 00019 03238
12992 03 00079 05892
YCEPT-YO-GRAO'XO
\3004 02 01328 00079
ON-l.OE48
11016 06 03318 06085
CALL UNITV SUBPROGRAM VIA MONITR
13028 27 02400 \3836
CALCULATE UNIT TANGENT vee TOR AT PNO
\3040 27 02410 13856
13052 06 00069 0592)
\3064 03 00069 06135
XI'UY
11076 06 00079 05933
YJ'UX
13088 03 00079 06125
XleUY-YJeUX
IHOO 02 00069 00079
13U2 03 00069 05974
G'(XI'UY-YJ'UXI
8RANCH I F UN IT VECTOR SENSE IS PROPER
13124 47 13160 01100
13\36 0] 06125
\3148 03 06135
13160 03 06125
13172 03 06135
X 1.X 1+80.0eEPSLONeUlC
13184 01 03])8
Y I-Y 1 +80.0eEPSlONeUY
13196 01 03348
OM*ON
13208 06 03308
CALL ,"ORMCN SU8PROGRAM VIA MONITR
13220 21 02400
CALCULATE NOR~AL TO OS CON IC
13232 27 02410
P~OJECT POINT PI TO INNER rOLER13244 07 14082
ANCE OFfSET DRIVE SURFACE
13256 07 14082
CALL LCNDNI SUBPROGRAM V IA MaN ITR
13268 17 02400
OETERM IHE EG. OF LINE THRU PO AND P2

UX--U)(
UY--Uy

UK-aO.O.EPSLCN·UX
UY-80.0 0EPSLCN.UY

06024
06024
03]08
OH08
06125
06\35

O])U
13866
13720
14045
(406)
-2120

PAGE

TFL
FMUL
TFL
Fsua

aTM

MN02.TEMP
TEMP.X2
BN02.Y2
8N02.rEMP.,
MONITR,020S0,67.

09110

aT

LI Nli N ,OSAI4'25 .6,

09180

8T

MONlrR.OSAIS.5,6.

09190 OllULC 8T

01 STF .05l16'20,6,

TFL
TFL
FSUB
CF
FSU8

09200
10010
10020
100]0
10040
10050

&P

Xl.Xl"
Yl,Y) ..
DH,OH
OM-2 •••
OM,DEVI
ITER.3+2ft •••

100600
10070 CONYl
10080
10090
10100
10110
10120
10130

TFL
TFL
TFL
TFL
FSUB
FSU8
8T

Xl.)(2 tt
Yl,V2,.
GR.AO.M02,.
veEPT ,602"
X2MXO,XO
Y2MYO.YO
MOHtTR,DSAll.'.6.

10140

IT

UNI TV,OSA18+15,6,

10150 VERn
10160
10110

TFL
TEMP,I.OH8"
NVERTL
8
OOllG _4

101 nJ.
10:
10,,40
L1DIO
IlO20
11030
11040
\l050
1101>0
11010
11080
110'10
11100
1l1l0
lllZO

IIUO
Ill"O
\l1S0
HUO
11170

11110
11190

llSAl

DSU
D,SA)

DU"

OSA
OSC
OORG
NOP
DORG
Nap
OORG
NOP
OOllG
DSA
OORG
aSA

CONOS.20
5,02661
OS""'5'6-6
YOFFO,O
'-21
BOFFDS,IOFFO
'-21
YO,AeON
.-14
XO

•• s-... ,,-

BRNOP
osc 5.1
DSA NORMI>l2
OSC 5,02161
DOItG 0544+'.'-10·.
NOP YNO.O
DOItG
NO' FCO'ltXNO
DOIIG '-21
£COH,aeON
"o~

.-21

-1.O'HOl
8RANCH IF M02 IS 0.0

13280
13292
13304
IHI6

21
06
09
46

02410
00079
00079
13592

13896
06024
03208
0 .. 00

13328 06 03168 00079
133~0 01 OOOH 032-18
13352 06 03178 03288
13364 02 03178 00019
BN02-Y2-MN02.X2
CALL lINLIN SU8PROGRAM VIA MONITR
13316 17 02~00 -2050
PROJECT P2 TO L2, NORMAL TO LINE IPOP21
1338B 21 02~10 13926
CALL OISTF SUBPROGRAM VIA MONITR
13400 27 02400 13936
CALCULATE DISTANCE BETWEEN PI ANO P3
13412 27 02410 13961
13424 06 03338 01188
Xl-xl
11436 06 03H8 OH98
Vl-Y)
13448 02 03308 03118
13460 33 03306 00000
AS Sf 10M-ON I
13H2 02 03308 03268
8RANCH IF CONVERGENCE NOT ~EALllEO
IH84 46 13208 01100
13496 06 03338
13508 06 0]148
13520 06 03238
13532 06 03328
13544 02 03278
13556 02 03288
CALL UNI TV SU8PROGRAM VIA MONITR
13568 27 02400
CALCULATE UNIT VECTOR FROM PO TO Pl
13580 27 02410
13592 06 00079
TEMP o l.0£48
13604 49 U)28
13611
Xl-X2
Yl-Y2
GRAO-H02
YCEPT-B02

11615
13616
13644
13644
11634
13634
13624
13624
13621
U625
13651
U6SS
U656

03218
03288
03208
03218
05892
05.02
13911
13992
060n
00000

00005 JI816
00005
41 03328 00000

41 03U8 0311.
4\ 05902 0))62
0000' -5&92

00005 J2116
00005
uus OOOOS J2""0
1)6" OOOOS
U714
00000
U714 4l
1)104
1)704 41 OJ-HZ OUU

ouu

13•••

.".4 41 OJ402 0))92

ISII

PAeE
11200
12010
12020
12010
11040
12050
12060
12070
12080
17.090
12100
12110
12120
12130
12140
12150
12160
12170
12180
12190
12200
DO 10
D020
13030
1)0,,0
13050
13060
13070
11080
13090
13100
13110
13120
13130
13140
13150
13160
13170
13180
13190
13200
14010
14020
14030
14040
14050
14060
14010
14080
14090
1'.100
14110
14120
14130
14140
14150
14160
14170
14180
1.. 190

OORe
HOP
OORG
NOP
DORIO
OSA~

au

ODRC
OSA
OSC
OORC
NOP
DORC
NOP
DORG
OSA1
DSA
DORG
NOP
DORe
NOP
OORe
NOP
OORC
OSA8
OSA
OORe
NOP
DaRe
Nap
OaRG
NOP
OORe
NOP
OORe
OSA9
OSA
OORG
DSAIO OSA
. OSC
OORG
NOP
OORC
NOP
OORC
OSAII OSA
DORG
OSA12 OS4
ose
OORG
NOP
OORG
NOP
OORC
NOP
OORG
DSAL3 OSA
OORC
NOP
OORG
NOP
OORC
NOP
DORC
OSA"

'-21

ACON.ceON
--21
VI.aCON
'-14
Xl
•• 5-10-4
0ICALC+12
5.0HOl
05A6+5+5'5-11
V1.01
'-21
VNO._1
.-14
KNO
"5'5-4+5'''-6
VI.O
'-21
VCEPT.XI
'-21
VI.CRAO
e-14

XI
e.S.6-4+5e8-6-2

GUD.O
*-21
EcaN.oeON
.-21
AeON.eeON
--21

vNO.8eON
*-14
XNO
.+5-0-4

SENSE
5.02111
05AIO+5+504-6
UY,O
--21
GRAO.UX
--14
1.0
•• 5."t-4
NORHZ+Il
5.02161
OS412+5<5'6-6
602.0
.-21
Y2.M02
.-21
YO,X2

.-f4
xo

8.5-6-4.5*6-6-2

n.o

.-21
8N02.X3
.-21
YeePT,MN02
a-1-.4

\31>84
13684
13b74
13614
1361\
\3615
13121
13715
13126
13144
13TH
U734
\3134
13731
13735
13180
13780
13710
13110
13160
13160
13751
13761
13819
13820
13810
13810
13800
13800
13790
13HO
13181
137q 1
13827
13831
13832
13850
13850
13840
13840
13837
13841
13857
13861
13862
13890
13890
13880
13880
13870
13870
13867
13871
13919
13920
13910
13910
13900
13900
13897

41 03362 OHez
41 0)]48

.--

"

on12

00005 -3338
00005 J2464
00005

4L OU48 OHU
41 0)258 OUlI
00005.-3248
41 0314. 00000
41 03128 0)338

4L 03348 03238
00005 -)]38
41 03238 00000
41 03402 03)92
4(

OllU Oll82

41 03258 03372
00005 -H48
00005 H052
00005
41 06135 00000
41 03238 06125
00005 -6075
00005 J32H
00005
41 03218 00000
41 03288 03208

41 05902 on78
00005 -5892
41 03198 00000

41 031 78 03188
41 03328 03168

PAce
14200 OS414
15010
15020 OSA15
15030
15040
15050
15060
15070
15080
15090 DSAl6
15100
15110 DSA17
15120
15130
15140
15150
15160
15170
15180 OSA18
15190
15200
16010
16020 0$A19
16030
16040,
160'50
16060
16070
16080 OSA20
16090
16100
16110
16120
16130
16HO oSAll
16150
16160
16110
16180
16190
16200 DSA2Z
17010
17020
17030
17040.
170S017060.
11010'
17080'
17090 RUXY
17100 DMIMN

OSA
OORG
OSA
OSC
OORC
NOP
OORG
NOP
DORG
OSA
OORC
OSA
ose
OORC
NOP
DORG
NOP
OORG
OSA
DORG
NOP
OORG
oSA
oORG

GRAD
.... 5·6-4

ONCAle+12
5.02101
OSAI5+5'5'5-11

Y3,ON
-21
Vi,Xl
--14
Xl
8+5_5-4

GENCV-24
5.02111
OSA 17+5+ 5'4-6
UY.O
--21
V2HYO.UX
a-14
XlHXO
8+5e4-4+5*3-11-2
OHAx,ITER2+12
.-14
XSAVe
e+5a)-4
2.-10
DC
oORe OSA 19+ 12+5' 3-lL
NOP OHAX.I TER2+24
OORe ·-14
OSA VI
OORe e+S_]-4
DC
2.0
oORG oSA20+12+5'3-11
NOP OHIN,NORM2+24
oORG '-14
OSA X2
OORG •• 5*)-42.-10
DC
DORG DSA21+12.~·3-11
NOP OMIN.NORK2+)6
OORG --14
OSA
Y2
OORe •• S.3-lt
DC
2.0
OORG DSAZ2+14

139~0

13950
13940
13940
13937
13941
13962
13966
13961
13985
13986
13976
13976
13973

41 03198 03318
41 03348 03lBB
00005 -3338
00005 J2320
00005
41 06135 00000
41 03288 06125

13977 00005 -327B
13995
13996
13993
13997
14008
14009
14013
14014
14011
14015
14026
14027
\403\
14032
14029
14033
14044
14045
14049
14050
14047
14051
14062
14063
14065

41 03228 12856
00005 -31"8
00002
41 03228 1286B
OOOOS -3348
00002
41 03298 13lS6
00005 -3278
00002
41 032'18 13268
00005 -3U8
00002

SU8ROUTINE FOR PROJECTING A POINT PlIXl.HI
TO AN INNER OR OUTER TOLERANCE BAND OF A
CURVE, OFFSET TO A GENERAL CONIC

OS

5 ..

OS

5 ..

17110 RUAOD OS
17120 INCRT OS

5 ..

17130 TItIGF
17140
17150
17160 OEll
17110

13901 00005 -3238
13927
13931 00005 J3424
13932 00005

2..

nPlYNO.Vl
YI14VNO,VHO . .
XIHKNO.Xl
TFl
fSU8 KiM.NO,KNOt,
UM 110... TIl,02000,61,
TFl

Hue

\4069 00005
ADDRESS OF RESULT
ADDRESS OF PROJECTION DISTANCE
14014 00005
14079 00005
RETURN ADDRESS
SU."OUTINE ENUY CONTROL FIELD
1408\ 00002
14082 06 03118
14094 02 03118
nMYNO-y\-YNO
14106 011> O)1n
14118 02 onu
X1M_NO·.l-INO
CALL SQRTF SUBROUTINE VIA Mo.. n"

0))48

G3UB
033)8

OU4,

1S I

17180
17no
11200

TF"
A
Tfl

Tn

18010

11010

")5.YI"Y~O

•• 23,1 ~CRT
THETA
TEMP.xi~x"'o

11050

FMUL TE~P,XI"X"'O'i
TFl TEMP-1O,VIMYNO
FHlll TeMP-IO, VlMYNO,.
fADO TEMP,teMP-10'i

18060

aTli

18030

16040

SQUF,TE"P,61,

uno SINCOS FDIY 'HIUtTEII'"

lio

11010

XFUN,INeAT-h,

110.0_
18100 ¥FUN
18110

TFL
MF

RESXV,V"'O,I>
THETA-Z,V1MVNO-2 ..

18120
18130
l8hO
18150
1816018170 XFU'"
18180

'MUL
FADO
8
OORIi

THETA,OMXMN,H,
RESXV,THETA,I>
RETAOO "I> ,

TFL
MF

RESXV,XNO,I>
THETA-2, XIMXNO-2 ..

18190
18200
19010'
19020
19030 40.0
19040
19050 HMI"')
19060
19010 MNO.25
19080.
19090 MONIU
19100 eNsTU
19110 G
19120 Fl.ST
19130 Fl~
19140 AeON
19150 8CON
19160 ceON
1'1170 oeON
19180 ECO"
19190 FeD'"
19200 XI
20010 VI
20020 DEL TA8
20030 1.0
20040 SQRTF
20050 e
2001>0 TLRAD
20070 BDHOS
20080 NDRML"
200'10 UXT
20100 UVT

8
VFUN+24
OORG '-4
oe
tic
DC
DC

DC
DC
os
os
OS
OS
os
OS
os
os
os
os
os
os
os
OS
os
os
os
os
OS
OS
os
OS

·-3

8,-.0000000

2,2
8,50000000
2,-2
8,-25000000
2,0
,2401>
.2416
.5914

,3362
,2..,88
.FL~ST+O·IO

,ACO/;+lO
,6eONoi0
,eCON'lO
,oeO,,"10
,ECOIH 10
10, FLwon'IO
IO,X1+10
10,XI-IO
,1>075
,2411>
.59H
,5984
,DEL TAB
,2411>
,1>125
.UK'+lO

PAt.E

anD

11 DHOO
14141 lit 14111
14154 21 14111
IHU 06 Oll 5.
1411. o. ooon
IX1-lIl010.,
. 14190 0) 00019
14202 01> 00011'
14114 03 0001>4
CVl-VNO'''Z
IXI-XNOI •• ZoCYI-YNO' •• 2
I HZ6 01 00019
SQIITFC Cx\-lNO'''''CVI-VNO '''ZI
1413. 11 02410
SlNF t tHETAI OR COSfITHEU I
14250 Ot OllU
eUNCH IF INCUMEN' IS -10

,,, .. 41

\42H
THEU-UG"" CTHElA,YI-VHO'
H281>
THnAlOMXMN
14298
IHIO
EXIT
14322
IH30

I~n •

-ZOOO
-'178
110011
00000
Oll61
03168
03171
0317e

•

00069
-001'
0OO1~

•_uo

01> \406R 011'8

11 03151> 03171>
03 01158 1407M
01 1406A 03158
1407A 00000

4'

14330 06 140U 03248
THEU.SIC"" CTHEU,X'-XNO I
14341 71 03156 0111>1>
143H 49 14298 00000
14361
14368
14370
14378
14380
14388
14390

00008
00002
00008
00002
00008
00002

02406
02416
05974
0])62
02488
03362
03312
03382
03192
03402
OHI1
03338
03348
03328
06075
02416
05954
05984
03328
02411>
06125
06135

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00010
00010
00010
00000
00000
00000
00000
00000
00000
00000
00000

03318
03328
06157
02416
02411
02416
1H21
05892
05902
02909
06125
06135
02416
02416
03318
03228
03298
03268
03238
03328
00079
02416
03308
03318
06085
02411>
00069
05923
05'1)3
06024
0601>5
03308
02416
03208
01218
03278
03281
02416
OllBl
03l9B
03218
032ae
03248
0325.
OlUB
03178
0'158
Oll6B
03178
06004
03148
03349
000. .
1119.

00010
00010
00000
00000
00000
00000
00003
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00010
00010
00010
00000
00010
00010
00000
00000
00010
00000
00000
00000
00000
00010
00000
00010
00010
00010
00010
00000
00010
00010
00000
00000
00000
00000
00010
00010
00010
00000
00000
00000
00010
00000
00010

PAGE
20110
20120
20110
20140
20150
20160
20110
20180
20190
20200
21010
21020
21030
21040
21050
2101>0
21070
21080
21090
21100
21110
21120
21110
21140
21150
21160
21110
21180
21190
21200
22010
22020
22030
22040
22050
22060
22010
22080
22090
22100
22110
22120
22110
22140
22150
221100
221 TO
22180
22190
22200
23010
23020
n030
1)040

XOFFO
VOFFO
INTO'
SCSAT
RETUA'"
ERPRDe
CVCTR
XO
VO
40EPS
UX
UV
NOR"C'"
OISTF
01
OMAX
O"IN
OEVI
GAAD
veEPT
TEMP
OVOX
OM
ON
1.0E4I
UNITV
CROSS
XI
YJ
.IINI.O
0.5
BOEPS
LeNON1
1102
a02
X2
V2
LINLIN
Xl
Y)
X2"XO
YZMVO
XNO
VHO
U"X"'O
YIMV"'O
THETA
IIN02
8N02
EPSLOH

os
os
os
os
os
os
os
os
os
os
os
os
OS
os
os
os
OS
OS
os
os
os
os

OS

OS
os
os
os
os
OS

os
os
os
os
OS
D,S
os
os
OS
OS
os
os
OS
os
os
os
OS
OS
OS
DS
os
OS
XS~VE
HYPFLG OS
110
os
DENO

IO,OELU8-10
10, XOFFO+ 10
,6157
,2416
,2411
.2411>
loCONVI+9
,58'12
• XO+ 1 0
,29ftQ

.UXT
,UVT

,2..,16
,2416
,XOFFO
,3228
,3298
,3268
10.3238
10.VOFFO
10.79
.2416

10,XOHO-IO
10,0"+10
,6085
,2416
10.69
,5923
,XI+IO
.1>024
,1>065
10,ON-IO
,2416
10,3208
10,"02+10
10,3278
10.3218
,2416
10,3118
10,H9I

,X2

,n

,324,
.xNO+IO
10,3168
IO,1l78
10,X1I4XNo-IO
,X1MXHO
,VIMVNO
.6004
IO,THETA-IO
,v 1+1
lo,eROSS
COHOS

182

PAGE

nSIGIi 1265&
UPCOMP
SET lRO
NEXtPT
FlGUVA
ENDPIIT

DUTIl
OSA"20
DUMI5
DSA"IO
CHKVNI
ALPHA
tHOR)
DSAM]

DSAM8
DUT4
Dun

XVFORM
TRFYN2
SETVli2
/'IEWINT
FIKVN2
EIIOINT
DSATIO
OSAM19
OSAMI"
DIMUB
CAlVEC
B
CSOUI
OSAM"

14001

1184.
13610
13971
02416
13463
13281
13241
13201
US"
0320"
12560
11131
11181
13355
U431

OSAM"

PEND3
SE rup
TLI
URY
VECI
VNO
XCONP
XN2
VN"PI
VI

SW

I

'~II
PCURI
R
SUBI
UNITV
UXA
VEC2
VNl
XNN
XPT
VNO
0.0

OJUO

0241'
12432
12451>
061"'5
03162
12752
03240
03092
03310
13705
033"8

010100102001030010"001050010600107001080.
01090
011 00 . UBDS

TABlf

02416
12300
13830
12168
12216
12408
UH3

VNSE T3
TBSTRT
RTUDO
MONITR
UPROC
ECHECK
OSAM21

125h
02416
13100
02406
02416
12500
13311

Il1l1

OSA~18
DSA~13

13231
13'182
12716
03162
130"0
13 lit 1
U191

OSATS 13311

ObY, U\l4i

nn'
PAUM

SY~BOl

nm

OELTAI
CAlLeR
8NOP
CURPT
DSAM'
DSATI
DSAT&
[)SAV2

au
INTOF

11928
0318'1
13551
02"'16
03112
12788
03270
13700
0319"
03260
06034

PCUR2 l22l'
13940
SUB) 13697
UNVEC 13706
UX8
03132
VFIK2 03219
VN2
onoo
K~NPl' 13705
XI
03338
VNI
03290
0.5'
06065

TOM

VNO.81 .. ,

8T

TBSTRT,OS~TI+5,6,

DC

1.' ,-

VNO.O.O. ,
VFIK2,O.0
ETEST,I
MONITR ,DSAM2'5,6,

01190

BTM

ENOPNT,VN4,61,

01200 PENDI

BT

MONI TR,DSAH'+5,6,

02070
02080
02090
02100 DELTAI
02110
02120
02130
02140
02150
02160,
02170
02180'
02190 ENOVNl
02200
03010
03020·
03030 NUTi
03040 NEIlINT
031150
03060 PEND2
03070
0]010 PCUR2
03090
OUOO 'HOltZ
03110
0)1200)13003140 VNSEU
0)150 FIXVIIZ

1l3,6

lUll
13161

lun

1l39'1

U5U

UIOO In••

11904
13'170
1382'
03179
03122
13559
03230
032'0
03102
03320

SU8PROGRAM ENTRV
DORG 11796
TF
A,STfPXV ..
SET ... DDRESS STEPPING

01150 SETlRD'TFL
TFL
01160
TOM
01170
BT
01180

020"0 CHORI

NEwPT
PENOI
RLC
SUB4
URN4
UVA
VNI
VN'"
XNO
YCOMP
YN2

12336 '
03082
13301
13261'
13221
13560
13829
11952

VNSETl
SLPMU
RESIGN
LASTPT
ENDVNI
OSAtI2
OSA"21
DSAM16
DSAMII
CHORDl
A
CHORZ
OSAM2
DUM7
Dun
DUTe
9!iA'f~

llH6
H930
12860
0)209
12120
1348]
13291
132"
1321l
OHI6
0]328
12HO
13121
13171
131ft)
13415

NEXT!
PEND2
SCSRT
TA80S
URX
UVB
VNIMI
WRERR
Xl'll
VNN
VPT

12151>
12192
02416
11796
03152
03142

usn
JU" Istu

1355'"
13812
03280
13100
03199

olD NUMBER 0241+DElOIM
-STORE CORE IMAGE
LINKAGE - B
T"'8DS.,6

01140

02050
02060 VNSeTl

12264
13978
02411
06024

• IB" 11>20-1311 AD· ... pr SUBPROGRAM FOR EVALUATING
THE currER PATH ON U8cn DRIVE SURFACES

MONITR,DSAMl+5,6,

02030

06117

RC~IN

ar

02020 PCURI

USU
Ii"~

u~u

01110
01120
01130

02010

13211
13231
12024
13800
13088
12536
13151
13321
13387

VNSETZ
STfPXY
AETURN
"11'11.0
ENOVNZ
DVTEST
DSAM22
OSA"17
DS'Ml2
CUTVNI
aNLAOO
CHORI
OSAHI
DSAM6
DSATZ
DSAT7
OSAv)

11796
CONSTA~T

IN COMMO~
U 196 26 0]]28 13'>78
U808 15 03321 00000
11819 00001
CALL T8STRT SUIPROGRAM VIA MONITR
11820 27 02400 13116
CUTTER START UP ON T... 8CVL
11832 27 02410 1]]26
INITlAlllATlCN
U8"4 06 03240 06034
U856 06 03219 060)~
11868 15 03220 00001
CAll ENDPNT SU8PROGRAM VIA MONITR
11880 21 02"'00 1]126
VN"-E/'ID POINT COORD OF ... CURVE SEGMENT
11892 11 02~10 -)230
C... U PAR ... H SU8PROGR ...M VIA MONUR
SET RECORD MARK

1190'" 27 02400 13136
R OF C FOR END POINT
11916 21 02~10 13]]7
ar MONI TR.OSAM4+S.6, CAll PARAM SUBPROGRAM VIA MONlTR
11928 27 02400 131"6
SLOPE ANO MIN R OF C FOR CURRENT POINT
PARAM,DSAf)'6i6,
8T
119"'0 21 02410 133"9
CAll CHORDL SUBPROGRAM V U MON ITK
MIlNI TR,DSAM5+,,6,
8T
11952 21 02"'00 13156
119M 27 02410 13365
CHOROL,OSAT4+10,6, OVI-CHORD LE~GTH
BT
SET Vt-a-NUT POSITION OF TOOL CENTER
TFl
VN1.VNO, •
U976 06 03270 03240
\1988 01 0)210 \3,.,0
FAOD VN1,DVl
CAll XYFORM SU8PRDGR ... M VIA MDNITA
BT
MONITR,DSAM6+5,6,
12000 21 02400 1)166
IXN1,VN11 TRANSFORMED FROM IV,UI POINT
8T
KYFORM,OSAT5+10.6,
12012 27 02410 13381
TE ST OV 1 EXCEEDS EIID PO I NT
TFl DYTEST,VNI ..
12024 06 03082 03210
12036 02 0]082 032)0
FSU8 DVTEsr,VN"
FIRST
INTERVAl
EXCEEDS
ENO POINT
BNl ENDVNI",
12048 46 12120 01300
TEST
2-0YI
EXCEEDS
END
POINT
DVTEST,DVI
..
FAOD
12060 01 03082 13950
CALCUL ... TE PARAMETERS FOR POINT IN>21
SETUP, ...
BL
12012 47 12"56 01300
SET VN1-CUT PO INT
12084 27 13560 13508
CUTVNI,OSAVI+5, ,
aT
CALL ~VFORM SUBPROGRAM VIA MONITR
MONITR,OSAM7+,,6,
aT
12096 27 02400 13176
IKN1,VNII TR ... NSFIlRMED FROM IV,UI POINT
XYFORM ,DSAT5+ 10.6.
8T
12108 27 02410 1])81
FIRST INTERVAL EXCEEDS END POINT
SET
VN1-END
POltlT
12120 06 03270 03230
VN1,VNIt,
,
TFL
C... Ll XVFORM SUBPROGRAM VI'" MONITR
MaNITR.DSAM8+'.6.
8T
,
12132 27 02400 13186
IXNI,VNlI TRANSFORMED FROM IV,UI POIIiT
llYFORM.OSAT5HO.6.
aT
12144 27 02410 13381
STEP STORAGE ADDRESSES FOR NEXT POINT-CHECK FOR lAST POINt
...
ODRESS
SET
FOR
NEWINT
RETURN
c
NEXTPT
.NEXTPT-l
..
aT
12156 27 13610 13609
CALL
ENDPNT
SU8PROGRAM
V IA liON ITR
MaNITR.OSAM9+5.6.
8T
12"l68 27 02400 13196
VN4-END
PDIIiT
COORO
OF
... CURVE SEGMENT
ENDPNT.VN4~67,
8TM
12180 17 02410 -3230
CALL
P
...
UM
SUBPROGRAM
V
U MON ITR
MONITR
,OSAM1005.6,
aT
12192 Z7 02400 13206
M.... SLOPE AND R OF C FOR END POINT
8T
PAR"'M,OSATZ 06,6,
12204 27 02410 UUl
MONlTR,DSAMllo5.6, CALl: PARAM SUBPROGRAM VIA HONITR
IT
12216 21 02400 13216
SLOPE AND MIN R OF C FOR CURREIIT POINT
IT
12228 21 02'10 1))'11
MaNITA.OSAM12o,,6, CAll CHOIlDl SUBPROGRAM Y IA MaN ITR
aT
12240 27 02400 13226
12252 21 OZHO 11409
aT
CHOROL ,DSA n+IO,6, DVZ-CHDRD LENGTH
SET VII2-NEllT POSITIC" OF TOOL tENTER
TEST DV2 AND 2.0Y2 EXCEEDS END POINT
ITM SE TYN2.ENDVII2 "
ENDVN2-8Nl RETURN ADDRESS
12264 17 13830 JUl6
12276 Z7 1)560 13511
SET VNZ-CUT POINT
8T
BT

PARAM,OSAT2+6,6,

MAX SLOPE

A~O

183

01160

TFL

01170 TRfYNI

r,"

VfIX1,VNI"

FIX NExr VN2 TO BE THE SAME
12288 06 03219 0))00
SET RETURN ADDRESS FOR NEXT POINT
lHOO 16 I H06 Jllt,6
01180
8V
CAll XYFORM SUOPROGRAII VIA MONITR
Illl2 21 02400 11236
IXN1,vN21 TRANSFORMED FROM IY,UI PorNT
I?J14 21 02410 1342'
~I;~OO'
SECOND 1·~If.VAt fXCfEOS ENM /'OINT
04010 tNUYNI TFL Y/jl,V~4..
SET VN2.E/jO POINT
Il316 06 03300 0)2)0
04020
TOil £T-5T.O,.
SET eleST FLAG fOR END PC INT
12348 IS 03220 00000
04030
SET RETURN ADDRESS FOR NEXI POINT
"
12360 16 11106 JZ39~
04040
MONIT~,DSA~14+S,6.
CALL XYFDR" S~ilPROGUM VU MON ITR
.
12HZ 27 OHOO 13Z)6
IT
.VFClR~.OSA T8'IO.6,
IKNZ,VN11 TRANSFORMED FRO~ Iv,UI POINT
12384 21 OHIO IHZ5
04060$Tf.P STORAGE 4DORESsn FOR NeXT POINT-CHECK FOR LAST POINT
04010 NEWPf 8T
NEXIPT,NEXTPT-I"
ADDRESS SET FOR ENDINT RflURN
12396 27 11610 13609
04080 ENOII'IT at
MONITR,OSA"IS"'"
CUl ENDPNT SU8PROGRAM VIA MONITR
12408 21 02400 13246
04090
81" EIlOPNT,VN4,61.
VN4-fND POINT COORO OF 4 CVRV. SEGMEfH
12HO iT 02410 -31)0
0'100 PENDl &!
"ONITR,054"16+5.6, CALL PARAM SUOPROGU, VIA MONITM
12412 21 02400 13256
04110
8T
"AX SLUPE A/jO R OF C FOR (NO POINT
12444 21 02410 13331
04120'
SET II,) d'iit NrJeT POINT ON TA8CVl
. O'\)O HTUP '~U8 VFI_l.O.Q"
TeSI VN2 FIXED
11456 02 03219 06034
04140
e"'H ECHF('«".
YFIX2-(NEGAflVE OR lEROI
12468 41 12500 01100
04150
TFL 'IF, JC2 ,0. 0 ••
VFIK1-POSITIVE (RESET Fix PLAGI
12480 06 03219 06034
04160
"1
tNOIl1lfl •••
SE T VNZ- END PO I NT
l24n 49 12336 00000
04110 [CHrCK ftO
CIJAfI,ETEST ..
TEST eTEST FLAG SET
12500 43 12H6 03220
04180
TOil ETf'lt,l ••
ETEST-POSITIWE (RESET ETES T I
12512 15 03220 00001
04190
TFL VNt ,0.0 ••
REseT VNI
12524 06 03210 06034
04200 CURPT 8T
MOl'll TR,OSAMI1+5,b. CAll PARA" SUBPROGRAII vr. HUNITR
125J6 21 02400 13266
05010
aT
PAR AM. O'SA fCH6.6,
SLOPE .NO MIN R OF C FOR CURRENT POINT
12548 21 02410 11431
0'>020 CHQR3 81
CUl CHORDl SUBPROGRA~ VI' HaN I TR
12560 27 02400 13216
05030
aT
CHORDl,D54T7oI0,6, OV2.CHORO LENGTH
12512 21 02410 13409
05040~EI YNl'Nf~T POSITICN OF TOOL CENTER
05050_
TEST OV2 ANU 2'OV2 eXCEEDS eNO POINT
05060 YNSET3 8t" S(TV~2,CHKVNI"
CHKVNI-BNl RETURN ADDRESS
12584 11 13B30 JZ596
0'>010 CHKYNI CII
VflU.·~6"O.
TEST VNI-O.O
125qb 14 03210 000-0
05080
IL
VNI-O.O ISET VN2-eNU POINTI
ENOVNl".
12608 41 12136 01300
05090
CUTVNI,DSAVIH ..
aT
SF.T VNI-CUT POINI
12620 27 13560 13508
OHOO
8T
IIONITR,OS4MI9".6. CAll XVFOR" SUBPROGRAII V1A HaN I Til
12632 21 02400 13116
KVfORH,DSAT5+IO,6, rXN1.VNII TRANSFORMEO FR" IV,UI POINT
05110
8T
12644 21 02410 13381
05120'

PACf

ASSUMf TLRGT POSITICN 12656 06 13910 03189
TES! ILlFI OR TLRGT
126~8 14 061'5 000-1
CAl '11'-:(,.,
TlRG'
12660 4h 1211h 01100
ERROR-INvALIO TOOL POSITION
fRi'OO. t .
126'12 41 13768 01100
12104 32 13968 00000
05110
SF
RlC-I .. ,
TllFT
05180.
CAltUlAT( UNIT VECIOR LINE SEGMENTS
05190 CAl\'EC It,
IJNVf( tU~J\V:h'i"
SfT PARAJIIETERS FOR UPOITV CAlCULATICN
Illlh 21 1]706 13528
OT .
CALL UNlTv SUBPROGRAM VIA HGNITR
05200
12128 21 02400 13286
06010
8T
UHf rv,OSA' 10+ 15,6, CALCULAIE UNIT VECTOR LINE SEG"~"T
12140 21 02410 13458
SET PARAMETERS FOA UN If V (AlCUlATlCN
06020 YEti
6T
127~2 27 13106 13518
CUl UNITV SV8PMOGRA~ VIA MONITR
06030
B1
121h4 17 02400 \3296
CALtULATE UNIT YECTOR L1Nf SEGMeNT
06040
6f
12176 21 02410 13478
tALCUlAlf ~O.MALS TO LINE BY CROSS K AND ADO TO RESUl TANT
0605012188 25 13911 Oll20
SAVE SIG" Of UVA
TO
flGVrA,lJVA-l ••
06060 VEC2
12800 0] Oll22 06024
Ul'A--UYA
06010
F"'dl UY4,"'I!lrtl.0,.
12812 Ol 03\31 06024
0),6"-UX6
fMUt,. UX~tl4'Nl ~o,.
06080
SE I PARA"ETERS FOA UNITV C41CULATION
8T
!JNvlf: t t)\AV';. ....
06090
11824 11 1)106 13548
tAU UNIIY SU8PROGA.M VIA MOr.IT.
81
06100
12816 27 02400 13306
tALCULATE UNIT VEChlA L1Nf SEGMENT
8T
06110
12848 21 02410 13498
RESTORE SIGN OF UVA
12860 25 03120 13911
061Z0 RESIGN TD
UfA-2.FlGUYA ..
CALCIllUE DISTANCE OF OHSET Tn POINT
06130
'''UL UVA,uU ..
12872 01 Oll22 01152
12884 03 03112 03162
06140
fMUL O~",.VR 't
12696
02 03122 OlllZ
06UO
FSUB U'tA.U""
RLC" OR -iRlfluva-URX-IIU-URVI
FOIY .lC,I'V4 ••
06160
12908 09 13970 03\ 22
CALCULatE CuTTER CENTER COORDINATES
iF. Xl.A .... t ••
06110
12920 06 03338 1)970
1291Z 03 Oll)8 03152
fMUL XI,UU
06180
X
OFFSET
COORDINATE
tUTTER
CENTER
06190
FAOO KItXNI"
12944 01 03)38 03280
12956
06 03148 13970
TFL
YI,ALt
06/00
12968 03 0))48 Oll62
FMUL Vl.URV
07010
Y
OFFSEf
COORDINATE
CUTTER
CENTER
01020
FAOO YloYNI"
12980 01 03348 03290
$AVE PARAMETERS FOR NEXT cut
fA
01030
12992 31 012}1 01161
CHICK SURFACE CUT VECTOR CALCULATION
01040TFM CSDI"+11.DIMU8-51 .. eAlCULATE /1"0 SET PROPER
010S0
13004 16 130S1 J3930
Dill NUMBER OF CHECK
MM
INTOF.4.10,
07060
13016 U 061H OOO-~
SURFACE SUBPROGRAM TO
A
CSDI'"II ,,.9 ..
07070
13028 21 130~1 00099
Of CAll EO 8Y \3040 26 \) 31' 00000
OSA"2).,..,. ,
07080 eSOlli TF
"CNITR
13052 33 13)12 00000
OSAMll+l ,. ,
01090
CF
IIDNI fA .OSA~n+~ ,6. CALL CS SUIPROGRA"'VIA "O~I'R
III
07100
13064 27 02~OO 11116
CALCULATE CUT VfCTOR OF CS
01110
1'076 11 OHIO HOB'!
05130 XYSIG'" IFL
0'>140
eM
0'150
ftM
05\60
8l

""

RlC. R t ,
TL , • I ,10 t

01120 BNOP

NOP

RETURN .. 6,

07130 RTRAOO 87
011.007150.
07160 DSAMI
07110
07180 OSAM2
0) 190
onoo OSAM3
08010
08020 OSAM4
08030
06040 OUM5
08050
08060 OSAM6
OB070
OB080 OSAM7
OB090
08100 OSAM8
OBIIO
08120 OSAH9
08130
08140 OSAHI0
08150
08160 OSAHII
08170
08180 OSAMI2
08190
08200 OSAM13
09010
0~020 DSAM1"
09030 oSAH15
09040
09050 oSAHI6
09060
09010 OSAM17
09080
0'090 OSAHI8
09100
09110 DSAM19
09120 oSAH20
09130
09140 oSAH21
09150
09160 oSAM22
09170
09180 oSAM23
09190
0910010010'
10020
10030
10040
10050 oSATl
10060
10070
10080
10090 DSAT2

10100
10110
10120
10130
10140
10150
10160
10110
10180
10190
10ZOO
11010
11020
110)0
110'00
11050
11060
11070
11080
11090
11100
11110
11120
11130
11140
11150
11160
11170
11180
11190
11200
12010
12020
12030
12040
12050
12060
12070
12080
12090
12100
12110
12120

MON ITOR 4AGUMENT ADDRESSES
SET lRO
5.02561
PENOI
5.02571
PCURI
5.02581
CHaRI
5.02581
YNSE TI
5.02591
Del TAL
5.02601
ENOVN2
5.02601
NEXT!
5.02601
PE"02
5.02571
PCUR2
5.02581
CHOR2
5.02581
os, YNSET2
OSC 5.02591
OSA
XYSIGN
OSC 5.02601
os .0SAMI3
oSA PEN03
OSC 5,02571
qSA SETUP
OSC 5.02581
OSA CHOR]
OSC 5.02581
OSA YNSETl
OSC 5.025.1
OS
.OSAM7
OSA VECI
OSC 5.02111
OSA VEC2
OSC 5,02 ill
OSA RESIGN
OSC 5.02111
OSA BNOP
OSC 501

OSA

OSC
OSA
OSC
OSA
OSC
OS,
OSC
OSA
OSC
OSA
OSC
OSA
OSC
OSA
OSC
OSA
OSC
OSA
OSC
OSA
OSC

EXTERNAL ARGUHENT ADORESSes
OORC OSAM23+5+5-2-6
"OP YNO,O
OORG --14
OSA
XNO

OORG

.+5.2-~+5.2-6-Z

NOP SlPMAX,O
OORG -14
OSA YNIo

DORG
OSC
OORG
NOP
OORG
OSAU DSA
OORG
OSC
OORG
NOP
OORG
OSU .. OSA
OORG
NOP
oORG
OSAT5 OSA
OORG
NOP
OORG
OSH6 OSA
oORC
OSC
OORG
NOP
OORG
OSAT7 OSA
oORG
NOP
oORG
oSAT8 DSA
oORG
Nap
DORG
OSAT9 OSA
oORG
OSC
OORG
NOP
OORG
NOP
DORG
DUnO oSA
OORG

*+5-2-"
1.0

DSAT2+6+S.Z-6

RCHIN.O
·-14
VNO

•• 5-2-4
101
OSA T3+6+5-3-11
RCHIN.OYI
"'14
SlPMAX

•• s. )-~.S. 3-11
XN1,YNl

--14
VNI
e. 5- )-4+5e2-6
RCMIN.O
-14
0.0
*.5.2-4
1.1
OS..,T6+6+5.)-ll
RCHIN.OY2
--14
SlPMAX
*.5e3-4+5e)-11
XN2. YN2
"'I~
V~2

e+5_)-4+'.2-6
RCMIN,o
-14
VNl
e.Se2-1t
It!
o5AT9+6+5.4-6

UVA.O
--21
YCOH',UXA
--lit

XCOMP

*+5e4-4+584-6-2
UY8.0
OOAG --21
HOP YC:ON',UXB
12150
DORG ·-14
12160
12110 DSAnl OSA XCOIIP
.+S.1,-4.S.~-6-a
OClllG
12180
NOP
UAX,D
12190
OORG
-21
12200
HOP YCOMP.URY
1)010
OOOG -14
U020
1)030 ouru OSA XCO",
OOAG •• ' ...... 4.'.2-6-2
13040

1200
12hO

D0501)060.
11010

NOP

t~TERNAl

.-1.
YNO

1;0;0

NOP
\11'41.0
OOf\G

L)090 DSAVI

OSA

'AGf

,

PAGE

6

NOP OR 8 (YARIABLE OP COOEI
13088 41 OH1J 00000
PROCESS A HEW POINT ON TA8Cn
IlIOO 4~ 00000 00000

ARGUMENT ADDRESSES

13111
13112
13121
13122
13IH
13132
13141
13142
I3IH
13152
13161
I3IU
13171
13172
13181
1,]182
I31H
13192
13201
13202
13211
13212
13221
13222
13231
13232
13231
132~ I
13242
13251
13252
13261
13262
IU71
13272
13171
132ft 1
13282
13291
13292
1330 I
13302
13311
13312
13320
13320
13317
13321
13329
13330
13321
13331

13337
13337
13341
13H2
13339
13343
13349
13349
13353
13354
13351
13355
13370
13370
13367
13371
13386
13386
13383
13387
InH
13193
IH97
13398
13395
13399
13414
134110
13411
13415
13410
13030
13427
13431
13437
134)7
13451
I3H2
11442
I3H2
11439
13443
13471

00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
DODOS
00005
00000
00005
00005
00005
00005
00005
00005
0000'
00005
00000
00005
00005
00005
00005
00005
00005
00005
00005

Jl844
Jl904
JlQ2e
J1952
Jl916
J20Z4
J2336
J2156
J2192
J2216
J2240
J2264
J26S6
J2412
J2456
J2560

JU84
J2152
J2188
J2860
H088

101 0]260 00000

00005 -3250
101 13930 00000
00005 -3230

00001
41 13940 00000
00005 -3240
00001
41 139'0 13950
00005 J)930
41 03280 0)290
00005 -3270
41 139"0 00000
DODOS -603"
00001
41 13940 13960
00005 HnO
41 03310 03320
00005 -3300
41 13940 00000
00005 -3270
00001
41 03122 00000

H

On02 03112

00005 -3092

13472 41 01142 00000

13462

1)462 41 01102 03132
13459

1346) 00005 -3092
13491
13492 41 0)152 00000
13482
U482 41 OnOI On62
13479
lHU 00005 -3092
U501
1)502 41 OU70 00000
13499

U501 00005 -1240

185

I'll 00

nllo
13120
131)0 DSAY2
11140

U150
13160
U170 OSAV)
13180
IlL~O

13200
14010 OSAV.
14020
140JO

l ..040
140ilO DUv'
14060
140701408014090 SU81
14100 YIHIII
14110 VNI
14120 curVNI
14UO
14140
141S0

".r.E

OOR!f

·+~.1-".\.2-~

lOOP
OORG
OSA
DORG
NOP
DORG
OS4
OORG
NOP
OORG
as.
OMG

VNZ,O

13HZ 41 0 nOD 00000

• ... 14

11509
ll51l
13521
1)522
U5l9
1352)
1,3531
13532
1)529

os.

U••
0.50'
••

6"'-1

13'>11

VNI

... '.,2-4.9·2-' .... Z

XNI,O
·-l.
XNO
• .s02-4+502-1>-2
XN2,0
0-14
XNI
"5'2-4."2-6-'
NOP UIt&,O
OORO *-14

00110

SET YN1.cur POINT
OAS 5
OS
S,SU81_1,
OS
S.SU8L-8,
TFl
YNI,VN4.6
FSU8 YNI,YNIIII,611

FMUL VNI,O.5.6

00005 -1210
41 01280 00000
00005 -1250
41 OHIO 00000

lHH 00005

-Uao

13541
13542 41 03132 00000
13539
13S., 00001 ·)11'
135.'
11551 00010
1l55~ DODOS
13559 00005
1)560 06 1355R
11572 02 1355R
1158~ 01 1355R
VNloVNIMI'(VH.-VNIMIJ·O.S
\3596 01 1355R
BRANCH BACK
1)608 .2 00000
YNO OR VNI ADDRESS
VHI OR YNZ ADDRESS

03230
135511
06065

FAOO YNI.VNIIII.611,
1355"
14160
882
00000
141700
14180~TEP STORAGE ADDRESSes FOR NEXT POINT-CHECK FOR LAsr POINT
DUMIIY INPUT ARGUMENT
14190'
14200 NE~JPr A
YPT,STEPXV"
srEP X-V COORDINArE ADDRESSES
13610 21 03199 11978
15010
A
YPT.STEPXY
13622 21 03199 13978
TF
15020
ALPHA.XPT ••
GET ADDRESS OF CURRENT ANGLE ALPHA
136H 26 0320~ 03l9~
15030
ALPHA 010
136~6 12 0320' -DOlO
S"
LASTPT,YPT,.
15040
C
TEST rADCYL TA8LE LIMlr EXCEEDED
13658 Z. 03209 03199
15050
BY
RESET DVERFlO. INDICATOR
·.ll."
13670 ,6 13682 01400 I
8l
ER219, ..
ERROR-TABLE LIMlr eXCEEDED
15060
13682 .1 13188 DilDO
15070
882
RETURN TO PROCESS NEW OR ENU INTERVAl
1369. 42 00000 00000
15080.
150900
SET PARAMElERS FOR UNITY CALCUlATION
DAS 5
13697 00010
15100 SUB3
5,S081.1,
15110 XNN
OS
XNINI COORDINATE ADDRESS
13700 00005
5,5U8).8,
15120 XNNPI OS
XNIN_II COORDINATE ADDRESS
13705 OOOO~
,XNN,
151)0 YNN
YNINI COORDINATE ADDRESS
OS
13700 00000
,XNNP1.
VNIN'II COORDINArE ADDRESS
lS140 YNNPI 'OS
13705 00000
XCDMP, XNNP loll.
IH06 06 03092 1310N
15150 UHYEC
rFL
xCOIIP'XN I N'II
FSU8 .I(CO"P,XN,..11.
XCOIIP'XNIN'II-XNINJ
13118 OZ 03092 131015160
GET VHIN) AND VNIN_II COORD ADDResSES
A
XNNP I ,UPCOMP ..
15170
Ilno ZI 11105 14001

15180
15190
15200
16010160200
(60)0 ERZOO
16040

rFl
YCDHP,YNNPI,II.
FSU8 YCOHP,YNN,Il,
882
't,'

YCOMP'YNIN'II

YCOMP.YNIN+lJ-YNINJ
8RANCH BACK

13HZ 06 0310Z 1310N
1375. 02 03102 137013766 'Z 00000 00000

ERROR CONDITION-INPROPER STARr UP ON rABCYL
TF" WRERR'9.200,9,
SET ERROR NU~8ER ZOO
13768 16 138Z1 OOKOO
a7
CAllER,..
8RANCH TO PROCESS ERROR
13780 ''I 1)800 00000
16050ERROR CaNOl TI ON- TA8CYl rA8lE LIMIT (PCINTSI EXCEEDeD
SEJ ERROR NU~BER 219
13788 16 138Z1 00K19
16060 ER219 TF"
WRERR'9.219,9,
CUL ERPRDC SUBPROGRAII V IA liON 11K
16070 CALLER aTH MONITR.OZZ50,67.
11800 17 01'00 -2250
WRITE ERROR "ESSAGE ••••• SEARCH fOR END
16080 WRERR 8TM ERPROC.It61.
13812 17 OHIO -0001
16090'
POSiTlCN
OF
TOOL
CENTER
SEJ
YN2-NEXT
161.00TEST DVZ AND Z-DV2 EXCEEDS END POINT
IloilO.
13825 00006
16120 sua,
DAS
3
8Nl RHURN AOORESS
11829 00005
5.SU8 •• 4.
16UO BNlAOD OS
SEJ YNZ-NEXr POSHION OF TOOl CENIER
VN2,VN1"
161"0 SfTVNZ IFl
13830 06 03300 03270
13842 01 0)300 13960
FAOD VN2.0Yl
16150
TEST DVZ EXCEEDS END POINT
16160
rFL ovrE ST. YN2 ..
13854 06 03082 OHOO
13866 02 03082 0)2)0
FSU8 OVTEST.VN4
16170
SECOND INrERVAl EXCEEDS END POINT
16180
8Nl BNlAOD,,6,
\3878 ~6 138ZR 01300
rEST Z.OYZ EXCEEDS END POINT
FADD OYTEST.DV1 ..
16190
1389001 0)082 13960
rRANSFOR" VNZ
1390Z .7 12300 01100
16200
Bl
TIlFVNZ" ,
SET VNZ.CUT POINT
1391 • • 9 12276 00000
17010
87
FIXYH2",

17020.·.·.· •••••••• • •• •••••••••••••••••••• •••••••••••••••••••••••••••••••••
170)0......
STORAGE ALLOCATION
••••••••••
110~0-

170500
17060 MaN !Til
17070 reSTRT
17080 ENOP~T
11090 PARAM

os
os
OS
OS

17100 CHORal as
17110 XYFORM OS
11120 UNITY OS
17130 SCSRT OS
17140 ERPROC OS
11150 IInURN os

SU8PROGRAM AND SUBROUTINE ADDRESSES
AD-APr 1I0NITOR
.2406.
TA8CYl START UP
,2'16,
END POINr
.1,16.
PARAMETERS ISlDPE AND
,2.16.
,2~16,

.2416,

,2410,
,2416,
.1.16,
,2'11.

1716011170.
WORKI";
11180 UPN,.. OS
10"
l?ltO !tCIIIN OS
10"
11200 DVI
11010 OVZ

11020 RL'

OS
OS

os

n030 'LGUYA OS
OS

1I0.0'U
l&OtO A

os

""'METERS

10"
10,.
10"

1 ..

,'4".

02406 00000
01'16 00000
01416 00000
II OF CI
02H6 00000
OH16 00000
CHORD LENGTH
02416 00000
x-v TRANSFOR~'TlON
02416 00000
UNIT VECTOR
02~16 00000
SELECT CS ROUTINE
02416 00000
ERROR PROCESSOR
liON I rR STORAGE FOR IIETURN ADDRESS
OZ~1l 00000

MAXIMUH SLOPE
I3no 00010
MINIIIUM R4DIUS OF CURVATURE
U9~0 00010
CIIORO lENGTH I NO-N 11
U950 00010
CHORD lENGTH CN1-NZI
13960 00010
TOOL CONDITION CRIGHT-UFTI
13910 00010
SiVE UYA SIGH
13911 00001
110 FLOATING POINT WORD ARltAV
0248a 00000
PfR"ANENT AOORESS COUNTER

186

18190 LASTPT OS

5.A-119,

18200 ALPHA

OS

5,A-124,

19010 XPT

OS

5, A-114,

03328 00000
COORDINATE ADDRESS STEPP INCi CONS IANT
1).,fB 00001
COORD I NA TE S OF PReSENT
012~0 00010
TOOL CENTER
032S0 00010
POSIIiON
03260 00010
COOROINAIES OF NEXT
03270 00010
TOOL CENTER
03280 00010
POS IT ION
032'10 00010
COORDINATES OF NEXTtl 03300 00010
TOOL CENTER POSITION
03310 00010
POSITION
03320 00010
eND POINT OF CURRENT INTERVAL
03230 OOOLO
FLAG FOR TESTING END POINT
03220 00001
FLAG FOR SEn ING VNZ-ENO POINT
0'3219 OOOLO
ADDRESS OF LAST POINT (VI IN CANON ARRAY
03209 OOOOS
ADDRESS OF ANGLE ALPHA IN CANON ARRAV
0320~ 00005
ADDRESS OF X COORD IN CANON ARRAY

19020 YPT

OS

5,XPT_5,

ADDRESS OF

Lq030 R

OS

10,A-119,

190~0

OS

lO,A-14Q,

180bO STEPU DC

1. 60000bO,.

18010 YNO

OS

10,A-88,

16080
18090
18100
18!. LO
18120
L8110

XNO
YNO
VN L
XNl
YNL
VNZ
XNZ

OS
OS
OS
OS
OS
OS
OS

lO,VNOtlO.
10. VNOtZO,

18150 VN2
18160 VN~

OS
OS

LO,VNOt80,
10,A-98,

L8L 10 eTUT

os.

l,A-I08,

18180 VFIX2

OS

181~0

LO.VNOt30,
lO,VNOH,O,

lO,VNO+50,
lO,VNO+60,
LO,VNOt10,

10,A-IO'l,

0319~

URN'"

19050 8

OS

,FlW+6S·10-6,

19060 UXA

OS

10.8-50.

19070 UYA
19060 uxs

os

lO,UXA+20,

19090 UYB

aS

lQ,UXA+30.

19LOO URX

OS

lO.UXA+40.

19110 URY
191"20 XCOMP

OS
OS

10,R-70,

19110 YCOMP

OS

OS

lO,UXA+LO,

lO.UXA+50.
lO,XCOMP+l0,

19140 OYTEST OS
19150 XI
OS

10,6-80,

19160 Yl

OS

.X 1+ 10.

19110 HI
19180 INTOF

OS
OS

,614-;,
,6157,

,FLW~85.10,

1919019Z00_
CONSTANTS
It,OZlt .... ,
200LO DIMUB DC
20020
DC
4,021e5"

DC
DC
20050 UPCOMP DC

4,0246 ..
4,0247"
7,1000010 ••

20060 0.0
20070 o.s

OS
OS

,6065,

20080 MINI.O OS

_6024.

20030
200~0

.6034,

PAf.E

.,

PAGE

10

oooo~

COORD IN CANON ARR~Y
03199 00005
TOOL RADIUS CONO IT ION (RIGHT-LEFT-ONI
03L69 00010
END POINT RADIUS OF CURVATURE
03179 00010
TEMPORARY ADtRESS COUNTER
031b'2 00000
. UN I T VECTOR COORDINATES OF
03112 00010
(XNO.YNOI-(XNI,YNII 03122 00010
UNIT VECTOR COORDINATES OF
03132 00010
t(XNI,YNII-(XN2,YN21
03142 00010
RESULTANT UNIT VECTOR eCORDINATES OF
03152 00010
(UXA,UYAI-(UXB,UY81 031b2 OOOLO
X COMPONENT FOR UN lTV eALeULAT ION
03091 00010
Y COMPONENT FOR UN lTV CALeULAT ION
03102 00010
CHORO LENGTH TESTING 03082 00010
X OFFSET COORDINATE CUTTER CENTER
03338 00000
Y OFFSEt COORDINATE CUTTER CENTER
03348 00000
OS TOOL MOOIFIER
06145 00000
OS-CS CONFIGURATION INDICATOR
061H 00000
CHECK
SURFACE

13982 00004
13986 OOOO~

139'10 00004
DIM
11994 OOOO~
NUMBER
STEPPING CONSTANT IX-Y COORD ADDRESSES I
I~OOI 00007
06034 00000
FLOATING POINT lERO
FLOATING POINT ONE HALF
010065 00000
MINUS FLOATING POINT ONE
06024 00000

20090-

20100 ••••••• • •• • •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

20110

OENO TABDS

11796

18;

'AGE
SY~BOl
.l~SEG

In81

I.OE~8 06065
RETURN 02411
OHLIN 11832

SELECT 13590

OFFSET 14tH
MOIIITR
lINLOC
HORTAN
tONVRT
CFlAG
DGENT

02406
02416
14214
13258
13234
12372
Don 12260
05A12 12739
DUll 12915
OSAll 13002
DSU
12525

osu

12M3

DYOX
F
lOCPT
NlNCIl
NVPTS
SETR"
TlRAO
UY
XN

02416
059H
13742
12312
13789
13482
05984
04344
I2IH
02512
05902
12404

Xl

YO

liNT

0101001020_
010300104o,
0105001060.
01070.
01080·
01090
0110001110 SOFFST
01120
OIDO

MINI.O
lINlIN
fLGINT
CONSLP
CON2
OISTF
DOH
OSAn
oSAIS
05A22
OSH
DSA9
01
FISH
MUHF
NOINl
ONE

060H

OHlb
13462
141]0
14518

02416

14294
12809
12951
non
12570
12659
04254
02416
02H6
00019
139]0
SUM
11294
061.7
TL2
YARe
12284
XNIIKO 04264
Y
05830
02498
VI
21NT
11988

VERTON
.TeUFR
OFFCON
LOCSLP
L1NCON
ERPROC
CIRSl'
ceN54
OM "'I
OSAI
OSAI4
OSAI9
OSA23
OSA5
oTDS
02
FLAG
MOVEI
NCNE

14liO

TA8Sl. 1)6)4

OHI6

PIiTLDe
OF.CI R
LIHue
lINCIR
O2eAle
aSlOPE
CON60
DOTI
OSAIO
oSA 15
OSA2
DSA24
OSA6
OTPRF
EA220

12336
13602
02416
02416
14030
14524
04244
12485
12819
12976
13051
12581
02H6
0"284
00079
12108
13874
D~TPT 14410
T
04304
UNITV 02416
WERN 11916
xo
05892
059])
YJ
Y2
02520

flW
MST
NPW
REVU
fANf
UNVEC
X
XI
YN
Y]

02416
11940
OHI6
OHI6
12024
12\32
1~512
120h
12669
12U5
12515
n063
12606
12150

11880
02488
04314
02455
14446
02H6
1"210
05820
02488
12149
02542

SOFFST 11796
OFfUA 1]090
NOR~Al 14234
liNSl. 14010
IIiTHG 1147l
OICAle 12000
ATANF 02416
OECR
1]426
DOH
12236
USA 11 12729
oSAI6 12885
OSA20 12981
DSA25 13083
0541
1261'
OX
0~1S4
ER221 122n
FLWST 03362
04324
"XV
NSRF 02411
04294
5
TLiNE 12412
04)34
UX
0592)
XI
X2
02510
YNMYO 04274
1.0
06014

!8M 1620-1)11 AD-APT SUBPROGRAM FOR PROCESSING
... N OfFSET! TO, P... ST OR ON RECORO
RCS
.NAME SOFFST ... NON-ERASABLE "RELE" SUR PROGRAM
.10 NU~SER 0242+0ElDI~
.STORE CORE IMAGE
SOFfST
LINKAGE - 8
DORG 111'11,
TFM
CM
aNl

11196

SU8PROGRAM ENTRY
VARB+6.ER221

NSRF,2.10
W£RM+12,. ,

0114001150 OFFl H~ TFM" SSLOPE +1>. l I NSlP
aTM MONI TR .02050,67,'
01160
01110

aT

LINlIN,DSAI+ZS,b,

01180

&NR

Don,KI"

0119001200 ER220
02010
02020

TFM
A
aTM

WERM'11022000
WERM'lI ,NSRF
MONITR.02250,67,

02030 WERM

arM

ERPROC ,,6.

02040

B~E

NlHCR, "

02050_
02060 OFFC IR TFM
02010
BT

8Sl0PE'I>.CIRSlP
MONI TR ,05A2+S,6 I

02080

BT

lINCtR.OSA3+~O.6.

02090

BNR

ER220.ftAG.,

0210002110 21NT

BT

MONITR,oS ...... 5.6,

02120 OICAle aT

01 S TF .05·... '.20.6.

021)0

IABl E

8T

02 HO o2CAlC B T

01 STF ,OS41'20,6,

02150

8TM

MONITR,02110.67,

02160

aT

MINlF,OSA8+11.6.

02110
02180

FSUB DIIIN.DI
SHE
OOT2".

0219002200 OOTI
0]010

BT
RNP

03020.
03030 MOVEI TFl
01040
TfL
01050 aSlope •

1\196 16 12290 J21n
11808 14 02411 OCO-2
8RANCH IF SURF"'CE IS NOT A liNE
11810 46 11928 01300

11832 16 121)8
v I A 140N ITR
11844 17 02400
CALCULATE INTERSECTIONS POV ANO liNE
11856 21 OH 10
BRANCH IF INTERSECTION e.lsrs
11868 "5 12260

J4010

CALL llNlIN SUBPROGRAM

-2050
12~IO

024R8

11880 16 11'121 02000
11892 21 11921 02477
vI A MON I TR
1190'0 IT 02400 -2HO
WRITE ERROR ~£SSAGE ... SEARCH FOM Elin

CAll ERPROC SUaPROGRAM

11916 1102410 00000
BRANCH IF SURFACE IS A CONIC OR JASCYl
1192B 41 12112 01200
11940 16 12138 J4030
CALL UNCIR SU8PROGRAM VIA "ONITR
11952 21 02400 12520
CALCUL ... TE IHTERSEtTICNS pav AND CIRCLE
11964 21 02410 12565
BRANCH IF 2 INTERSECTIONS 00 NOT EXIST
11916 45 11880 00019
CAll OISTF SU8PROGRAM VIA MoNITR
11988 21 02400 12575
CALC. DISTANCE BETWEEN PTS. PO AND PI
12000 21 OHIO 12601
C...l l OISTF SUBPROGUM VIA ~ONITR
12012 27 02400 12611
CALC. DISTANCE BETWEEN PTS. PO AND P2
12024 27 0210 10 12631
CAll MINIF-MUIF SUBPROGRAM VIA MONITR
12036 J1 02400 -2130
SELECT S~ALLEA OF ELEMENTS 01 ANO 02
120~8 21 02410 12654
12060 02 04244 o~z"
BRANCH If 01 NOT SMALLER ELEMENT
12012 ~1 12236 01200

DTPRF.DSA5.5
DOY2, ••

12084 27 12150 12586
aRANCH IF pOlin PI IS NOT INDIRV POV
12096 ~1 12231> 01100

x,KN,1l

12108
12120
BUNCH TO APPROPR lATE SLOPE
12132
12140

Y.YN,ll

03060
0)0700
030800
03090
03100 XN

DORG .-)
DC

10,0

OS

S,--1S,

01110 YN

OS

5,-,

TFL

XN"XO, XN, It
1,..»4:<0,10 ••

01> 05820 1214"
06 05830 1214R
CALCULATION
49 00000 00000

DOT PRODUCT FUNCTION

03120.
03110 DTPRf
03140
03iSO
0)160
03110
03180
03190 .
03200
04010
0402004030 0012
04040

.,

04050>
04060 Don

aT

FSU8
FHUl
TFL
FSUB
FMUl

XHMXO,Xl ..
YNMVO, YH, Il

YNMYOt YO "

...

YNHYO,VJ"

' ...00 XNMXO, YNM'O ..
88
DORG _9

lIT

DTPRF,05U'S
MOVE 1 •••

12149 00010
X-COORDINATE OF POINT ON CURVE
12 1~4 00005
V-COORDINATE OF POINT ON CURVE
12149 OOOOS

12150 06 04264 121"M
12162 02 04264 05892
12114 01 04264 OS'll)
12186 06 0~274 IZl4R
12198 02 0421~ 05902
VN-YO
12210 0) 04274 05931
YJ-'YN·YOI
XloIXN-XO/·YJoIYN-YO/ 12212 01 04264 04214
Ill34 42 00000 00000
EXIT
12236
XN-XO
XI_UN-XOI

122)6 27 12150 IZ61Z
IRANCH If POINT '2 IS INOIRV POV
U2U U UI08 Ollon
12260 21

121~0

11\86

PAGE
06180
06190
06200
01010
07020
010)0
01040
01050
07060
07010
01080
01090
01100
01110
07120
071)0
07lfoO
07150
01160
07110
07180
07190
07200
06010
06020
08030
08040
08050
08060
08010
08080
08090
08100
08110
08.120
08130
08HO
081S0
08160
08110
06\80
08190
08200
09010
09020
09030
09040
09050
09060
09010
090.0
09090
09100
09110
09120
0'11]0
09140
09ua
0'll60
09170

NOP
DORG
NOP
DORG
OSA3
OSA
OORG
OS","
OSA
OSC
OORG
NOP
CORG
NOP
CORG
OSA
OSAS
CORG
OSA
OU6
CSC
OORG
NOP
OORG
NOP
OORG
OSA
OSA?
CORG
NOP
DORG
OSAS
DSA
DORG
DSC
DSA9 ' DSA
DSC
DDRCi
NOP
OORCi
NOP
OORG
NOP ,
DORG
NOP
DORG
NOP
DCRCi
NOP
DCRG
OSAIO 05A
OSAll

FLWSr+).10.I.FlWSr+4'10+l
--21
FLWSr+l·l0.FLWST'Z'10+1
--14
FLWST+0*10
·.5_9-4

0ICALC+12
5.02101
OSA4+S.'·5-11
YO,Dl

e-21

VI.XO
e-14

Xl
•• 5-5-4
02CALC+12
5.02101
OSA6.5'5*5-ll
YO.02
*-21
Y2.XO
--lit
X2
e.5e5-4+5_)-11
02.CKIN
-14
Dl
e.5e)-4
106
CGENT
5.02091

DSA9+S+S-1Z-6

Y2.0
--21
Vl.Xl
-21
FLWSr+l*10+ltXl
.-21
FLwSr+6.10+I.FLWSr+5*10+1
*.,.21
FLWSH2·10+1.FLWST+4*IO+1
-21
FLWSr.l*10.FlWST+3.10.l

-14
FlWST.O*IO

001\1 •• 5-12-4
OSA SUM

osc

OORG
HOP
OORG
NOP
OOIlCi
NOP
OCRG
HOP
OCRCi
HOP

S.OU91
OSA1,.,.,*,4-6
0.0
-21
0.0
-21
0.0
.-21
0.0
-21
0.0

001\1 --Il
HOP

0',0

125)4
12524
1252"
12521
12525
12566
12510
12511
12589
12590
12560
12560
12571
12561
12602
12606
12607
12625
12626
12616
12616
12613
12611
12642
12642
12639
12643

"1 0])93 03"03

•

41 0])12 03381
00005 -3362
00005 J2012
00005
U

05902 042'"

"1 02498 05892
00005 -2488
00005 J20)6
00005
41 05902 04284
41 02520 05892
00005 -2"0
41 04284 OU44
00005 -"254

126~4

1265"
12659
12660
12118
12118
12108
12708
12698
12698
12688
12688
12618
12678
126U
12668
12665
12669
12725
12129
12730
12798
12798
12788

00001
00005 J2112
00005
"1 02520 00000
41 02"" 02510
41 03"33 02"88
41 03423 03"13
41 03383 03401
41 03312 03393
00005 -3)62
00005
00005
U

J32'1~

00000 00000

12788 41 00000
12778
12718 _1 00000
12168
12168 "'1 00000
12751
una _1 00000

00000
00000
00000
00000

127~.

IS!!

12748 _1 00000 00000

..

-~"~-~

,.;AG£

OqIGO

OORG

'~21

OQl90

NOP

flWSh8'iIOIO+l,O

09200
10010 DSAll
10020
100)0 DUll
100.0

OORG

lOCj~O

IOO~O

10070
10080
10090

10100
10110
10120 !lU14
10110
IOI~O

10150
10160
10170
10180
10190
10200 DUIS
11010
11020
11030
IIO~O

11050
11060
11010
11080
11090
11100
11110
11120
11110
11140
11150
11160
III TO
11180
11190
11200
12010
12020
12030
12040
12050
12060
12010
IZ080
12090
12100
12110
12120
12130
IZI40
12150
12160
12110

DUIt.

QUI?

OSAU
05A19

05.20

DUll

12180
12190
12200
13010
13020 05A22
13030
13040 05A2)
13050
13060
11010

OORll --11$
FlWST+88oI0+2

OSA

ot'5_11t-~

OSA

CONVRT·I"
OSC 5.02h81
DaRe; 0541)+5+5<7-11
NOP FlWsr.aS·IO.2.FLwsr.S9010+Z
OORG '-ZI
NOP flWST+Oe\O,FLWST+lolO
DORG '-21
NOP 0.0
DORG *-14
OSA 0
OORG ·"5.7-4+5.6-'
Nap
FLWST+6·IO+I.O
DORG 9-21
NOP FLWST'~'IO.'.FLwlr.5·IO+1
OORG 0-21
~OP

FLWST+3·10+I.FLWSTo'.10+1
DORG 0-1""
DSA flWST+Z*IO+1
OORG 0+5_6-4.5_6""_2
NOP n.o
OORG '-21
NOP V2,Xl
OORG --21
NOP V1,Xl
OORG 0-1.,
OSA XI
OORG
Nap S.T
OORG &-21
NOP x.y
DORG 0-21
Nap 0.0
OORG *-14
OSA 0
OORG •• '.7-,.+5-5-11
Nap O.MST
OOOG ·-21
Nap 0.0
OORG --14
oSA S
oORG 0·5_5-4
OSA lOCPT+ll
OSC 5.02541
OORG DSA19+S+lj93-11
Nap MST.MXY
OORG &-1'"
OSA 1.0
DORG *+5_)-4
OSA OFFSET
OSC 5,02211
DORG OSA21+5+5'8-6
NOP HXY.O
OORG --21
NOP FlWST+6·10+l.FLWST+5·10+1
DORG --21

·"'.6-".'.7-11-2

NOP FlWST+2.10'I.FLwsr •• oI0'1
DORG 0-21
NOP

DORG
OSA

Y,Flwsr+)*10 t l

--1"
x

OORG ··500-4
OSA 0014
OSC 5.02111
OORG OSA23+5+5'4-6
NoP UY,Q

13080

OoRG --2l

13090
13100
1l1l0 DSA24
13120
13130 OSAZS
I1HO
ll150'
13160 OFFTA8
11170
13180
13190
1)200

NOP
OORG
OSA
DORG
DSA
DSC
THI
TF"

TON
DC

TFN

14010

TF

14020
14030
140.0
14050

iF
iF
CF
iFN

14060
14070

5M

TF

14080

TFII

14090 CfLAG

Cf

14100

BT

14110 CONVII' 8T
14120

n

14130

or

IH40 SU"

HXV,UX
·-1<\

1.0
·+594-<\
OUTPT+2~

5.02481
BSlOPE+6.0NE
VARB+t..NONE

V3+3
1,',-

12B8
12138
12715
12119
12805
12809
12810
12638
12838

00005 -4244

OOOOS J3l70
OOOOS

41 04244 04254

128Z8

12828
12818
12818
12815
12819
12874
128H
12860
12664
12854
128H
12851
128~5

41 0))62 03312

4\ 00000 00000
00005 -0000

41 0342) 00000
H

0340) 03Hl

~1

0))93

12901
1290~

12894
12894
12884
12&8'
12881
12885
12913
129]4
12914
12924
12914
12910
12911

4.1 025U 00000
~I

02520 02532

41 02498 02510
00005 -2488

H 04294 OHO.
41 05820 05810
41 00000 OCOOO

12915 OOOOS -0000

12960
IH60
12950
12950
12947
12951
12972
12916
IZ971
12985
IZ986
12983
12981
12996
13002
13003
13041
13042
13012
13032
13022

13022
13012
11012
13009
13013
130,9
13051
13054

41 00000 OUI4
41 00000 00000
00005 -H.4
00005 J1154
00005
41 04314 04324
00005 -6015
00005
00005

Hl~4

41 04324 00000
41 OH23 034\3

41 03183 03003
4\ 05830 03393

00005 -582e
00005 J4294
00005

13012

13012 01

O~l"

41 04124

0~334

00005 -6015
00005 J'490
00005

13090 16 12138 J3910
lH02 16 12290 J3814
1311~ 15 OHH 00000

13125 00001

INITIALllE INTERVAL INOICArOR STO~'CE
13126 16 1]468 -241&
OSAI4+10.0SAI5+10 •• INITIAlllE SU'PROGAAM CALLING ARGUMENTS
13138 26 12829 12865
11150 Z' 12114 12080
DSAI2+35.0SAI5+25
13162 26 12'04 12910
OS412.65.0SAI6+25
REMOVE
OSA
FLAG
13174 3) 12175 ;0000
OS6,12+36. t t
CLEAR COUNTER OF VALID INTERSECTION PTS.
NVPTS"lO,
11186 16 11789 000-0
1]198 26 13181 02455
6XNSEG,NPW
NO. OF T'BCYL INTERVALS (MOOULO 61
6XNSEG.2,10,
13210 12 13781 000-2
CLEAR TAeCYL INTERVAL COUNTER
INTFLG .. 10.
13222 16 11073 800-0
REMOVE DSA nAC
11214 13 12145 00000
05A12+6,. ,
CALL LINLDC SUBPROGRAM VIA MONITR
~ONITR.OSA1)+5.6,
132~6 21 02400 12814
LINlOC.DSAI4+)O.6, CONVERT LINE PAftA~ETERS TO LOCAL SystEM
13258 21 02410 12849
CALL LI HTAB SUBPROGRAM V U MON ITR
MONITA.OSAII+5,6.
13270 27 02480 121]'
LINTAB.DSAI2'65.6, CALCULATE INTERSECTICNS pav AND rAaCYl
13282 27 02HO 1280~
SUM NO. OF INTERseCTION POINTS
13294 2\ \]789 00019

OUIIt.II.CONbO ..

INDEX SU&PROGRAM ARGUMENT ADDREsses

14110

05&12+19,05AI4.9 ••

FOA NEXT INTERVAL OF TABtYl

14180
1.190
14Z00150lO

0$412.)4,COIII>0
NOIHT,ZZtlO

UOlO

00000

13062

13062
13059
11063
13019
13063
130e4

14180

A

03~n

C0005 -Hal

FlCINT'6.YI-2'10..

14HO-

ISOlO

\

41 042H 00000

13306 21 12828 14512
13Ha 26 12158 12828
13]10 21 Ill73 1.512
11141 11 00019 OOOK2

OSA 12HO. 99"

MCOIFV ADDRESSES AT WHICH X AND V

DSAU+45.9'1 ••

COORDINATES OF INTERSfCTION POINTS
1)366 21 12184 0009.
AR(, STOIlEO III CORE POSUIONS 'Ell POINU

0$A12+50,99"

1))5' 21 Il71'1 00099

I !III

PAGf
1~O40

U050
I~060

1507015080 DECR
15090
15100'
15110
15lZ0 fLGINT

A
A
A

05A1201,O.9 ...
DUll •• ' .......

IH78
IHqO
11402
13414

SH
81'1

NOINT,I,IO
SETRM

13426 12 00019 000-1
13418 47 13482 01300

AM
TFM

FLGINh6,2Z,IO

OS'12+~5.99

,

..

U130 INTFLG
15140
1'>150
15160'
lSI TO SIT""
15\80
15190

OS
2,'
B
DECR
OORG .-)
TF
AM
TOM

'+]O,FLGINh6
,+1801,10

IUOO

DC

1.' f-'

It,

l/oil 10

AM

INTFLG,6.10.

16020

SM

6KNSEG,6,IO,

1(0)0

8NZ

CFLAG •••

16040'
16050
16060

CM
B1

NVPTS •• IO

16130'
16\40
16150
16160'
16170 TAULP
16\80
16190
16200
17010
17020
17030
17040
17050

11450 II 1341>8 OOOKZ
SET INTERVAL INDICATOR
13462 16 00000 -0000
13H3 00002
13474 49 13426 00000
13482
13482 26 U512
13494 II 11HZ
SET RECORD MARK AFTER INTeRVAL
11506 IS 00000
INOI CATOR OF LAST INTUSECTION POINT
13517 00001
~TEP TABCYL INTERVAL COU~TER IMODULD
13518 II 1)41)
DECREMENT NO. OF U8CYL INTERVALS
13530 II 13187
BRANCH IF NOT ALL INTERVALS EXAMINED
13542 47 U.n4

11461
000-1
00000
61
000-6
000-6
01200

ER220, ••
SELECTt\8.00Tl
NVPTS.loIO

...

13578 \6
13590 12
BRANCH IF ALL POINTS ON TA8CVL
13602 46

8P

21NT •• ,

BRANCH IF TWO OR MORE POINTS REMAIN
13614 46 11'188 01100

8

SElECTI\8 .. /o
'-3

DO~G

TFM
A
TF
TF
CF
CF
5
TF

aT

U608 J2260
13789 000-1
EXAM INEO
00000 01200

\3626 49 \3600 00000
13634

OSA 17'10 .HWS T+7'10+1

OSAll+",YN,11
05AI7+5,OSAI7+10
OSAI7.0S417+10
DSAll+1 •••
OSA\7'6
OSAI7+4.CON54
OSAI8+t5.05AI7'10
MONITR.OSAI9+5,/o,

17060 LOCPT

aT

PNTLOt.OSAI7+30,6.

170TO
17080
\1090

A
SM
CF
BTM

OSA\8+9.CDN2
OSA\8+1401010
OSA18+1 . . .
MONITR,02510.67.

11100

Il109 OOO~q
11194 OOO~q
1Z'''9 00099
12804 00099

135,.. 14 13189 000-0
8RANCH IF NO VALID INTERSECTION EXISTS
13566 46 11880 01200

16070'
TFM
16080
160 ... 0 SELEC T SM
16100
01
16110'
16120

21
21
21
21

13614 I/o 12925 -3433
13646 21 129H 1214q
13658 26 12920 12925
U670 26 129" 12925
REMOVE OSA FLAGS
13682 3l 12916 00000
\3694 13 12921 00000
13706 22 12919 14524
U7l8 26 12966 12925
CALL PNfLOC SUBPROGRAM VIA MONITR
uno 27 02400 12981
EVALUATE POINT IN LOCAL COORD. SYSTEM
13742 27 02410 12945
13754 21 12960 14518
13766 12 \2965 000-1
13718 )) 12952 00000
REMOVE OSA FLAG
CALL DTOS SUBPROGRAM VIA MONITR
13790 17 02400,-2510

PAGE
17110 i.OCSLP 8T

OT05.05A18+20.6,

17120

eT"

MONITR .02020,67.

171]0

aT

ATANF,OSAlO+10.6,

11140
17150

FAOO MXY.OSA17·IO.l1
MONITR,05A21+5,6.
8T

11160

BTM

TAtfF,MXy,61.

17170 NONE

TR

1(1-9,1()-9, •

17180
\1190
17200'
18010

eM
8E

SELEC 1+18. UBSLP
SELECT

\80l0
18030
18040'
18050 ONE
18060
\8070
\8080
\8090
18100
18110
18120
18130'
18140 LI NSL'
\8\50
18160
18170'
I al80 ClRSLP
18190
18200
19010
1... 020

5ELECT+U,U85LP
X2,XN,11
Y2,YN,11

YN,2.10
Y2+2,VN,1I
XI-9. X2-9 ••

SELECT
a
OORG '-3

1~40

1~70'

TFL
Fsua
TFL
FSUB

Bl

MXV.FLI/ST+2·10+1
"XY,X, ,
OX,Y
OX,FLW5T+)'10+l"
VERTAN .. ,

FDI V MXY,DX ..
B
OFFSET
OORG '-3

19080 vERTAN TFl
19090
8
19100
DORG
1911019120 CONSl' 8TM
\tUO
19140
19150
19160'
19170

19110

\3'130 \6
\3942 06
13954 06
\3966 11
13978 26
ELlMI .... TE ONE POINt 0 ... TASCYL
13990 1I
14002 49
14010

8T

o"se, Fsue
IE

MXV,I.OE4'.,
OFFSET

OYOX,05A22+35,6,
fLWST+O.IO,MXV
E.220

IfM

MO"'JTR,OZlIO,67,

If

FlSH,Tl.Z,6,

Jl634
1214M
1214R
000-2
1214R

02479 02501
13590 00000

14030 06 04124
14042 02 M)24
14054 06 04354
14066 O~ 04354
Y-K
BRANCH If TAN. LINE IS VERTICAL
14078 46 14110

H-X

Olls)
05820
05830
0339)
01Z00

MKV-II+-XIII V-KI

14090 09 04324 04]54
14102 49 14154 00000
14110

SET IIXV-I.0f48

14110 06 04124 06085
14122 49 14154 00000
14130

0-]

"ONlfR,02080,67,

\3608
02510
02520
12149
02522

14010 06 04124 0)]8]
14022 49 14154 00000
140)0

TFL MXV,FLI/SU2'10+1
OFFSET
8
OORG '-3

1... 030'
19050
19060

11910 16 13608 J2292
13922 49 \3590 00000
\3930

TFM SELECT+U,ER221
SELECT
8
OORG - - ]
TFM
TFL
TFL
' AM
TF
TR

8

EVALUUE SLOPE TABCYL AT POINT ON TA8CVL
\3802 27 02410 12971
CALL ATANF SUBPROGRAM VIA HONIT~
\3814 11 02400 -2020
CALCULATE loNG. DISPLACEMENT OF TAN. LINE
13826 27 02410 12997
13838 01 OH24 12921'1
CALL UNF SUBPROGRAM VIA HONITR
\3850 27 02400 13007
SLOPE OF TAN. LINE I ... X-v COORD. SYSTEM
13862 17 02410 -4324
ELIMINATE TWO POINTS ON TA8CYL
!J8H 31 02479 02523
13886 14 13608 J3634
13898 U U590 01200

CALL OYOX SUBPROGRAM VIA MONITR
14130 17 02400
EVALUATE SLOPE OF GENERAL CONIC
14142 27 OHIO
14154 02 03362
14166 U 1\180

-2010
U048
OU24
01200

CALL 'ISH SUB'ROGRAM VIA IIONITA
14178 17 02400 -1180
CALCULATE
lHOICATOR f
14 \90 n 02410 06141

o,nn

I !II

191'10

110

ItOR".~. MXV-It ..

1920020010 HORtAlt
Z0020
200]0
20040.
20050 NORMAL
20060
20070
l0080 UItVEe:

TFL Flwsr.Oflo,H1Nl.0
FOIII FlwST+ooIO.IiXY ••
fFl MXV,FLWSf+O-IO
er MOItITR,OSAZ3+5.6;

Z0090

BT

20100
20110
20110
20UO
20HO
20150
20160
20110
20180

Don

2019020200

TfL MXV.l .. oe".,.
UNVEC
DOAG -3

•

FMUL
~"Ul
TfL
FMUl
TFl
FMUl
FAOO
FNUl
B2
BP

REVu,t.

FSU8 X,UX ••
FSUB y,UV"
8T
MONITA,OSA25'5,6,

21100

8fM

22120
HIlO
22140
22150
22160
22170
22160
221'10
22200
23010
23020
23030
23040
23050
2301>0
23070
230&0
21090
23100
23110
21120
23130
231 ... 0
23150
HI60
Zll70
23180
23190
21200
24010
24020
24010
2 ... 040
240'0
,1,0.0
24070
24080
24090
24100
24110
24120
24130
24140

OISTF
MINIF
OMIN
01
X
y

XHMXO
YHMYO
XO
YO

XI
YJ
lINeON
02
S
T
MSf

MU
UX
UY
RETURIt
NVPTS
UNSEll
NPW
LINlOC
lINUe
IIOINT
PHTLOC
OTOS
ATANF
TAN"
ox
I.OHI
1.0
0'1'0.
fISH
fLI
MINI.O
UNITY
TlAAO
f
""UfR

S~O'E

sn Mxv-I.DU.

TAIt. LINE 1$ ItON-lERO
14~02 43 14Z14 04]1'

FADD x,ux ••
FADO V,UV,'
8
OUTPT
OOAG --3

PTBUFR".IO.

8
RETURN,,6.
OORG ·-3

'U14 06 0'1324 060"

14U6 . . 1'1270 00000

-l.O/"KY

X·X+UX

V-Y+UV

H446 02 05820
x-x-ux
yay-UV
14458 02 05810
CALL PT8UFR SUBPROGRAM YIA MO~ITR
14470 2T 02400
SET OUT TIP OF CUT VECTOR
14482 11 OHIO
RETURf4 TO MONITR
14494 49 02 ... IJ
14502
14512 00011
14518 00006
14524 00006

DS

.2477
.2406
.2H6
,2488
,)]62
10,FLW'OoI0
10,XI'10
10,YI>lO+Z
10,X2'10
10,Y2+10+Z
10,n'10
,2416
,2416
,19

02477
02406
02416
02488
03362
02468
02496
02510
02520
02532
02542
02416
02416
00079

00000
00000
00000
00000
00000
00010
00010
00010
00010
00010
00010
00000
00000
00000

,2416
,2416
IO,FlWST+88 O I0'2
IO,O"IN+10
10,5820
10.X·10
10,01>10
10,XNMXO>10
.5892
,XO*lO
,5923
,XI.IO
,2416
10.YN"YO+IO
10.D2+10
10,5'10
10,hl0
10,MST'10
10,MlY'10
10,UX+IO
,2411
2,lOeSlP-U
2,NVPfS-Z
.2455
,2"'1'
,2416
,19
.2 ... 16
.2416
.2"'16
.Z ... 16
10,UY+'O
.6085

02416
024 16
04244
04254
05820
05830
0 ... 264
0"274
05892
05902
059Z3
05933
02416
04284
0429 ...
04304
04314
04324
04334
04344
02"'11
U789
13787
02455
02416
0241'
00019
02416
02416
02416
02416
043S4
06085
060n
021,11>
02411>
06147
06024
02 ... 16
05'184
05964
024l1t
IU96

00000
00000
00010
00010
00010
00010
00010
00010
00000
00000
00000
00000
00000
00010
00010
00010
00010
00010
00010
00010
00000
00002
00002
00000
00000
00000
00000
00000
00000
00000
00000
00010
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

OS
OS
OS
US
OS
OS
OS
OS
OS
OS
OS
OS
os
OS
OS
oS
os
OS
OS
OS
OS
0$
OS
OS
OS
os
OS
os
OS
OS
OS

os

DS
OS

OS

OS
OS
OS
OS
as
OS
os
OENO

,.ofll

.2411.
.2416
,61H
,.024
,2410
,5984
,5964
.241'
SOFFST

LSD"
IlOU
0"14
0'''.
05'121
OH14
0593)
04344
01372
05~64

01200

14414 01 05820 04334
1... 4210 01 05830 OH44
IltH8 4'1 14410 00000
1 ... 44.

II ,60000600006
6,200002
6,50000'"

DS
DS
DS
DS
OS
OS
OS
OS
OS
OS
OS
05

06024
04324
0))62

8UNCH IF 'OSITIYE DOT PAODUCT
H402 .... 144410 01100

DC
DC
DC

os

""E "

·14ll4

14234 06 03362
14246 09 03362
l6 00000
00)41

REYU
I
DOII.G 1- )
til

00141 14 OU4T 000-1
OR GORGr
00)54 '" 0024Z 01100

I ....

COl.2.tO
NC-"OSS-ll •• ,

TF\.
FMUL
1Ft
FllUl
FlDD

DOT •• I
DOT tU",.
TEMP2, yJ
TEIIP1,UY ..
DOT.TEMPI ..

IN

HOOT •• ,

040Z0 'OOT

till

O~O)O

8

GOI.l.IO
NCROSS
.-)

004)1 14 OU47 000-)
00450 119 00n4 00000
00451

CM
GOI,4,I0
8
NCROSS
OORG - l

00~5I 14 OU., 0011-4
00410 "9 00n4 00000
00H8

011401
nuo COOT
03160
Oll 70
01110
01190
Ol200

I .... CH IF GOI IS

003 •• 06 02491
00318 03 02491
00)90 06 02501
U.Uy
00402 03 01501
oot-u.u.. ., JOllY
00414 01 024"
lUNCH I' DOT ""OOut' IS .. EGAT\YE
00426 '" 004"

0~0100

04040
0405004060 "OOT
0~010

O~G

04010
04090_
04100 'ARUl ttl
04110
aN
041200
041)0
04140
041 '0'
04160 Flit
04170 tIlOS$
04110 XI

04". UV
04UO Til""
05010
05020
050'0
0'040
050'0
. 05060
050fO
0'0'0

1J
U.
'EM'I
MONlt"
SORT'
UNI
COSZO
GOt

01100

00411 14 063., 000-.
GOI IS COL'T 011 GDaCT
00490 "7 002" OUOO

coot

2,44

00502 ooooz
00501 00005 -0 . .6

os
as
os

.1411
10,FlII.oe,0
,5923

oz . . .
OlUI
05U,
061)5
014'1

0$
OS

0$
OS
OS
DS
os
OS
OS
OS

o,oto lIe'UII" os

0"" 00'

l"AMeH "

05~ZJ

0611'
05911
06115
01508

OSC
OSA

0 .. 00 1111111.0 OS
0 .. to UHCIC OS

0.,..

GOI, '010
£IIZI ....

GaV,

OS

,6111

ID.C"OSS'ao
f""
.'l"

10,tIM".'0
.'406
_,4t6
• TEM"
.6'05
"'4'

_2.11

,6014
,'416

,TIM"

OINt SlNSI

0''"

00000
00010
00000
00000
00010
00000

0240.
02416
02508
06Jn
onu
01411
06014
014 . .

00000
00000
00000
00000
00000
00000
00000
00000

o6ln .0000

0"" 000'.

0,.'0 ..110

10001

193

"'''IOl TABU
TeO"'1
"null"
MOFFCS
lCOWOOWI

Bev

DUff

DlU2
02411
02961
02416
03002
02416
0068511
0011111
006UIII
0109Z

YCOII'O 01002
"8urR 0241&
1I1~I.o 06024
GOFOBK 0 I U611
IIIG02 0030611

lCD"PI anu
MOTU II OOHOII
lllOFFS 02416
FlOFF S OZ416

OIYRG OOUI"

DOll 00366.
OSAIl conn
0058811
06JJl
G02
MeV
02912
STFl 06l6J
TOLII 01420111
UY
06119
XIII
0'041
IIII~O OZ9.,
,.OfFl o)on
0.0
06014

OSlIO
OUI'S
DUI
NAClCV
POFFl OU04111
'OWEU 0095211
UlfITM 00'''"

05AII

0'''2
0)051
Yl""O 01911

XI

~

OSU
FlIl
IIAGNV
SQII TF
rOll
UI
XNO

ouzo

10
VOW I

01010010200103001040010500106001010010100109001100
011100112001UO lllltS
01140

Donn
0056)11
czue
Oll02
02416
0'1994
0612'

0)022
DUll

YOI'fO 0)012
I
00019

CALLI 01112.

os.,

xeo"po 02912
NO."l" 02416
lOOPSII 06])3
CO"YRG 0019211
COST 0124U
OOTl 0084811
DUll 001nll
OU6 00599.
L1NCS 0000611
HI'
06115
U.G 012".
TOLD 0601.

TOlCON
11011 ITR
lINL If.
10FFCS
COS20
DSAI
OSAl4

V.1I1l 00116111

0''''

XO"O
Y
O'UO
YO
0'190'
1.0
0607'1

0)082
02406
02416
02912
0610.
00'])11
0016011
osn 0062911
LNV
0121211
0011411
TEll" 01l16_
TOll OU"R
VARI2 00U2R.
XO'fI OJ06'
TNO
010"

NO""

onu

yt

lB. 1620-1311 Ao-APT SUBPROGRAII 'OR IV.lUl'IIIG
'HE 'fRMINAL CUTTER 'OSITION AT LINE CS
tiCS
-IIAME lINeS ••• NON-ER.S.BLE UELEM SUBPROGRAII
_10 IIu"aER 0244+DELOI.
-ASSEMILE RELOCATAILE
-Sf ORE RELOAOABLE
LIIIKAGE - B'" LINeS'-'I1 •• ,

DC

6.0

00005 00006

02100 UNITN
01110
02120
02110

SUBPROGUlt EIITRY
fF
OSA6'1 O. S fFl
00006 K6 00609 0616)
SM
OSA6·10,l2.10.
ADDRESS O. Slope 0' CS LINE
00018 J2 00609 000J2
fF
OSA6·IS.OSA6·10
00030 KO 00614 00609
All
OS"·15.IO.IO,
AIlOIIESS OF ,.-/IITERCI" OF CS LINE
00042 JI 00614 OOOJO
CF
OSA6'11
00054 LJ 00610 00000
TF
OSAI·15.0SA6+1'
00066 KO 00548 00614
TF
UNITN'II.0SAI.10
00078 KO 00209 00541
CF
OSAI'6
00090 L3 00539 00000
CF
OSA6'6
00102 LJ 00605 00000
aTM 1110111 TR.02l40,61,
CALL NOR"LN SUBPROGRA" VIA "OllITR
00114 11 02400 -2140
8T
PROJECT tV ORIGIN TO CS LINE
NORIIIlII.DSAI'25 •••
00126 2P 02410 005"
fFl
XIIIXO.XI
001)8 06 02962 0))38
I' sua XlI1110.XO ••
XI-IO
00150 02 02962 05892
fFL YlIITO.YI
00162 06 02912 01348
,.I-YO
00114 02 02nl 05902
fSUI YI IIIYO. TO ••
CALCULAtE UIIIT NOR"AL 'IICTDII TO CHECK SURFACE llllE
I Til MONI TR.02000.61.
CAU SORT' SUIROUTINI Vll "OlllfR
00 let. 17 02400 -2000
UXaM
00198 06 06125 00000
TFl UX",
TFl UY,MINl.O, ,
UY--I.O
00210 06 06115 060H
00222 06 00019 06125
TFl I.UX
002]4 0) 00079 00079
'NUl 1.1

02140
021S0
02160
02170
02180
02190 lIIG02

FADD
8fll
FOIY
FOIV
C"
I'

1.1.0 ..
SQRTF .1.61.
UX,l"
Uy.l ..
G02t2,tO

02200'
01010
01020
0)030

TFII
TFIII
IITN

VAROI'i.YARBI'1
VARR2'i, YAIIU_8
IIONITR,02490.61,

8T

LROFFS,OSl4'I' •••

TFL
FSUI
TFL
FSUII
FIlUL
FIIIUL
FlDD

XCO"PO.XOHO
XCOMPO.KO,.
YCO"PO.YOFFO
VCOMPO,YO ••
XCOHPO,XUUCO ••
YCO"PO.YI"YO, •
XCON'O.yCO"PO ..

01120

8P

CONV"G, ••

031 )003140 DIVIIG
01150
01160

TFl
TFL
8T

•• XI
y, Vi
"Dill TII.OS","",

01110

IT"

01150
01160
01110
01180
01190
01200
02010
02020 MOR"
02030
02040
02050
02060
OlO10
OZ08002090

0]040
0)050
01060
01010
01080
03090
01100
OHIO

DOTI

01l.0 NOnRII TOIl
0)190
01200
0.01004020
0'0)0
04040
04050
04060
04070
04080 OSAI
04090
04100
04110
04120
041)0
04140 OSA4
04150
04160 DS"
04170
04110
04190
04200
05010
OSOZO
050ao
0'040
0'050 DU.

GOFOBK",

PT8UfIl.-I.610.
lINeS-I.I •••

RETURN .. 6.
8
OORG _4"_6-.-'
IIOP
OOllG
NOP
OOllG

NO'

OORG
OSA
DOIIG
NOP
OOllG
IIOP
00110
OSA
00lt1l

YNO,O
_-21
O.XIIO
"'21
TO.O
.-14

XO
"5'6-4.'.5-11-1
YOFFO.TOlCON
--21
YIIO.XOFfO
-14
XNO
"5.'-4
liSA HGTERII
DSC ,,024U
DOIIG OS".,.,. . . .
1101' YNI.o
DOItG ... "
O.llIl
DOItD ... "
IIOP YI.o
DOIIG "'1.

'""
DSA

It

00206 01 00079 06075
00258 11 OHIO -0071
00210 09 061H 00079
00182 09 06U5 00070
00294 I~ 06]]7 000-2
IUIICH IF GOI IS GOFNO OR G08ACK
00)06 1116 011)6 01100

Z-M··2+1.0
laSQllfFUI
UXoIIIIl
UTa-I.OIl

PAGE

2

00H8 JO 00822 -082~
00))0 JO 00918 -0940
CALL LAO.FS SUaPROGRAIII V I A "ON ITR
00]~2 11 OHOO -2490
'ROJECT CV ORIGIN TO OFFSET CS LINE
00)54 2' OHIO 00H8
00166 06 02982 02992
00H8 02 02982 05892
XOHO-XO
00390 06 03002 03012
00402 02 03002 0~902
TOFFO-VO
00414 0] 02982 0296Z
I XOFfO-XOI-IXl-XOI
00426 03 01002 02972
IYOFFO-TOI-IYI-YOI
IXOFFO-XOI'IXI-IOI.IYOFFO-YO'-ITI-YOI
00438 01 02982 01002
BRANCH IF CV CCIIVERGING TO OFFSET CS
00450 "6 00192 01100
00462 06 05820 0))18
00474 06 058)0 0]]48
CAll "'IUFR SUIPROGA." VIA IIOIIITR
00.86 ZP 02400 0059)
sn OUT TI, OF CUT veCTOR
00498 11 02410 OOO-J
SUNO' INSTRUCTION IN CAll II.G PROGRA"
00510 J5 000011 00001
00522 49 0241J 00000
anUIIN fa MON na
00551
00552
00542
00542
00532
00532
00529
005))
00511
00512
00562
00562
00559
00563
00584
OOS8I
00589
006"
00611
0060'
0060.
00'. .
005.'

on"
005 . .

41 OlOlZ 00000
41 00000 01022
41 05902 00000
00005 -5192
41 01012 01082
41 0]032 02992
00005 -lOU
00005 -OSlO
00005
"I o)on 00000
"

00000 0 ]041

"I 0)1"1 00000
0000. -n).

I !I\

0~060

Do~e;

0~010

NOP
DORe;
NOP
OORe;
OSA
DORe;
NoP
DoRG
HOP
DORG
"OP
ooRG
OSA
oORG
NOP
oORG
HOP
oORG
"UP
00.0

05010
0~090

OHOO

DUl

O~IIO

05120
051)0
05140
05150
OH60
05110
05110
05\90 OS"
05200
06010
06020
060)0
06040

060'0
06060
06010 OSAIO
06080
06090 OSUI
06100
06110 OSA"
06120
Obi )0
06140
06150
06160
06110
06180 OSAIl
06\90
06200 OUl4
01010
01020
070]0
01040
01050
07060
01010 OSAU
01080
01090.
01100 CON"G

OU

oORG
OS.
OSC
OU
OSC
oORG
NOP
OORG
"OP
OORG
OSI
OORG
OSA
OSC
OORG
NOP
OORG
NOP
oORG
OSA
OORG

'Ae(
• ••• 6- ..·'·'-11-1
YOH I, TOlCON
'-21
YN1,XOFFI
'-U
XHI

•••• 5-4.'.to-.

BeV,O
·-21
YI.MeV
.-2\
YO,II
'-1.
KO

0.,.6-4.,.to-.-,

Y,O
.-2\
BeV,1
'-1I
10"CS,MC.
·-1.
MofFCS
_+5.6-4

lERM
,,0248\
lNV
5,02101
oSAI2+5""-11
VI,MAGCV
'-21
YO,KI

--14
XO
•• 5.5-4
lARG
5,02101
OSA 1405"'5-11
YI,MAGHV
'-21
YOFFl,kl
--II,

XOFF I

•• ~.5-"

e'"

01110

ar

NOR"lN,OSA6''',6,

01120 VARBI
011 ]0

8
oORG

.-)

01150

erN

"oNIU,02490,U,

01160

81

lROFFS,OSA1'15,6,

01110 0012
011.0
01\90
01200
08010

TFl
FSUB
TFl
FSUB
FNUL

XCOMPItXoFFI
XCOMP1,XI "
YCOMPI,YOFFI
YtO"PI.Y1"

08020
08010

FNUl YCOMPI.YlMVO"
FAOD XCOMPI,YCO"PI"

080~0
08050
08060'
08010

V"'''

08080.
08090 fNElT
08100

TR,02l~O,61,

XCOM'I,lll~.",

,

8

OOllG .-)

41 05902 OUJI
0000. -'192
41 051J0 000110
41 0)001 0"'0

onu 01 . . '
00005 -1962

41

00005 -1116
0000'
00005 -\212
00005
4i 0)]4' 0)092
41 0"02
00005

onll

-58"

00005 -1196
0000'
41 OH. . Oll02
41 01012 01318
00005 -1062

CAll

lIoR~lN

SU.,ROGUM Y IA MON ITR
00112 11 02400 -2140
PROJfC T CV 'IP TO es lIHE
00804 2P 02410 00624
00816 .9 00000 00000

Clll lROFFS SU.,ROGRA .. VIA "O'IITR
00824 11 02400
PROJfC1 CV liP 10 OFFSET CS lillf
008)6 2P 02410
00848 06 0 II 12
00860 02 0)112
XOFFI-XI
00n2 06 Ollll
YOFFI-VI
00884 02 0)122
ClOHI-llloIO-XOI
00896 OJ 0)112

"OFFI-VII.'VI-YOI
00908 01
'"OHI-XI' "XI-XOI+\VOFF I-V II"
00920 01
00H2 49
00940

-2~90

00644
0]062
0]])'
0)012
0])48
02962

0)122 02912
V1-'0 I
0)112 Oll22
00000 OCOOO

eRA"CH IF ev DOES NOT CROSS OFFSET CS
00940 "6 00462 01100

SOl
BNZ

NF,I,IO
DIVRG .. ,

aUNCH IF

1Fl

08150
08160
08170

lFl aOHCS.VOFFO
FMUl XOFFO,MOFFtS
FSUB 80FFt5.XOFFO"

MOFFCS,OSAI+IO,II,

08\80

U"

MONIfR ,02050.61.

08\90

8T

lINlIN,OSAI0.,5 •• ,

8

OnAG

090'0

"

MOPlIfR.OUU.,.6.

09060

ITM

Pr8UFA,,610.

09010 fER"

fOIl

II "eS-I ••• 6,

090.0
09090
09\00'
0'1110 GOFIIIC
0'1120
09110
0'1140 caU.l

B

liE TURII .. 6.

"N
fFL
"M

VARU •• ,POFF I

08200

AHOTHE~

DOlle; .-]

a,"

TOlCON, fOlO ..
YAR82+6,COST-IZ
MONlrR.oz,00.61.

If

FeOFFS,OSA4"O",

II

oon

01084 ". 00462 00000
01092
CAll PTnUF. SUIPROGUM VI A MOH ITR
01092 2P 02400
SET our liP OF SHORtENEO CUT vee TOR
01104 \1 02410
8 INSTIIUCTlOII IN tAlllHG PROGUM
01116 J5 OOOON
IInU.N TO ..eHIU
01121 .9 024lJ
01136

sn

011)6 JO 0011l
01148 06 0]082
01160 JO 00'"
tAU FIOFFS $U."1I0GUM VIA MONITII
01112 \1 02400
'.OJ.Cf CY OII.e;III TO OFFSET ts l'NE
01114 " OHIO
011'/6
OOS66
TOLtON-TOLO

DU04

DOItfi --J

,/111',. .?PI _'fII,onoo,.".

0"00

aT

,.IIF' ..O..'.,••••

10010
10010
100)0.

•

00"

...

fOI., ...

OOIIfI .....

00952 1206155 000-1
CS "UST 8E CROSSED
00964 Ml 00462 01200

Ull lC"0"2 SUBPROGRAM VIA "ONITR
00916 11 02400 -2110
O£JERMINf SlOPE-INnRCEPT OF eUT VECTOR
00988 2P 02410 OC680
SfT SLOPE OF OFFSET es liNE
01000 00 02962 OOHl
OIOtl 06 02972 0]012
01024 0] 02992 02962
Y-IIITERCE" OF OFFSET CS LINE
01016 02 02912 02992
CAll 1I1111N SUIPROGRIM VIA MOIIITR
01048 11 02400 -2050
CAlC. INTEtlSfCTIOM ev AHO OFFSET CS LINE
01060 2P 02410 00110
eRANCH IF INTERSECTION EXISTS
01072 M' 01092 05120

DOIIG .-)

09040-

ICKl40

41 OUU 02'"

OIVRG,,,

08140

09\60
0'1110
09180'
0.1.0

41 OS002 00000

8P

08UO

09\50

41 0)0" 0)061
00005 -)042

00824

08110.
08120

09010'
09020
090]0

41 0)012 O)On

001n

MONI

011~0.

00611
00611
00621
00621
00625
00629
00614
00614
00664
00664
00654
00654
00651
0065.
0010)
00104
00694
00694
00684
006U
00681
00685
00111
00115
00116
00125
00126
001H
00H4
00114
00114
00111
00115
00156
00160
00761
00119
00180
00110
00110
00161
00111

till 'IIIF'S IVI'.OG••" vIA

II.

00120
000-0
0000'1
00000
-120.
06014
-ln6
-1500

DO'"

00000

NONlf.

Ott04 11 ot400 -"00

"'OJtCf

"I'

t, ' " TO "'In
CS l
OU16 ,I>

01"'0 00.4.
0112 ..., 0014. 00000

II',.

. , _... ' U OlIn IIIIf tlO" lIF"ff U

DIU. M6 DUn 01100

100'0'

10060 COST

at

MOIIln.DSAlht •• ,

CAll DIS" SUI....,..... VII ""NIT.

10010

aT

DIST,.D5")';0 •• ,

tAtcuUn

10080 lit.

aT· MOM" •• DS" •• '.I.

tau

·10090

IT

calcUL". Lt".f. DP NQRM'~ vEcrOR
.
Dun t~ 02410 DO'"
fllN4t. D. t.,.fl.Ma'" OF ltV,

101011

tI.,

10lla

10120'
10110

DIU,.ItSAtl+tO •••

'NUL MAONV.It.tt •••
It

fltUf

,on

XCOMII,,""M...

nUl ~~==t:lo
..a
'''EXt ...

IOUO

IOlto
10160

aN

1017010180
10190
10lOO'
11010 TOLl
II0lO
11010

012" " 02400 001JO
VltfOlll
Ol.UI 001"

U""'"..CIf' cvrOU'O 'II

Dlst. SUI'• •" . YIA IIOMUII
. . onu 2~. 02.00

costllf 'AItOU

"'II""

OU. . OJ
OIJOI M.

0016~

OlIO' 010.t

OO.,t

01100

y~ttonl

IJ

Ill!1DECREES
Illll Ilt!1

IRA"," f. AN4LI .lciIOS ,

Otl~6 "1 00 •• '

01100

II

DI"ao

oDIlIa .-)

OU" M. OO'U 00000
OU16

1I0~0

TFl
TFM
B
ODlilO

TDLCON.O.O
VARu> •• '1IlN-12
CALLI
.-3

Ot516 06 010'2 06014
01]" JO 009S1 -t401
01400 .9 Otl12 00000
0140'

11050.
11060

BNP

COST, ..

FSUI
TFN
OSC
OU

TOlCON.TOLI ••
VAR">'. 'NUT-U
2,49
CALLI

01420
01412
01444
014'0

02 o]oel
JO OO.SI -0 •• 0
00002
0000'

OS
OS

,2406

02406
02416
02411
01962
OU18
05"'2
07972
OU48
0"02
02416
065H
02416
02982
02992
0]001
030tz
05820
05110
02416
01411
01012
0]012
06024

00000
00000
00000
OOOto
00000
00000
00010
00000
00000
00000
00000
00000
00010
OOOtO
00010
00010
00000
00000
00000
00000
00010
00010
00000

06125
061]5
01042
0]052
0]062
0]012
02982
01002
02.62
02.72
0]082
0]092
Oll02
01>16]
01112
0)122
061"
02416
02416
02416
01>014
02416
06105
06034
05.94
06015
000"

00000
00000
00010
00010
00010
00010
00010
00010
00010
00010
00010
00010
00010
00000
00010
00010
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

IUNC" " cv tROues OFFSET CS

DuDe .7 OU.8 OllOO

1107011080 TaL"
11090
11100
11110
1112011110 HOHITII
III~O

NOAMLN

11150
11160
11170
11180
11190
Ill00
\l010
12020

FLW
OS
XlMXO OS
XI
OS
XO
OS
YUIVO OS
Yl
OS
YO
OS
SQRYF OS
G02
OS
UOFFS OS
XCOM'O OS
XOFFO os·
YCOHPO·OS
YOFFO OS
X
OS
Y
OS
PTeUFA os
RETUR" OS
.NO
OS
YNO
OS
MIHI.O OS

IlOl0

12040
12050
12060
12010
12080
12090
12100
12110
lZ120
\l110
\l140
\lUO

12160
12110
12180
12190
12200
11010
1'020
!lO10
1)040
11050
11060
11070

noeo

11090
11100
11110
1)120
1)\30
11140
11150
13160
13170
11\80
1)190
1)200
14010
14020
140]0
14040

UX
UY
XNt
YNI
XOFFI
YOFFI
MCV
8CY
MOFFCS
80FFes
TOLCON
MAGCV
MAGIIY
STFL
XCOMPI
YeOMPI
'IF
LeNON2
L INLIN
FBOFFS
TOLO
DISTF
COSIO
0.0
TOll
1.0
l
LOOPS"

O~
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
DS
DS
OS
OS

os
os

.2416

,2411
10.Fl ..... ·10·l.

.n ... noIO

.5892
10,XI"XO>10
,XI>IO
,XO>IO
,2416
,6331
.l416
10.YI"YO+IO
10,XCO"PO>10
10,XO"0+10
10,YCO",0>10
,5820
,"10
,2416
.241\
·10, YOPFOo\O
10,XNOtiO
,.024

0•••,

-aI1.

,aGE
.6125
.61]5
10.YHOttO
to,XHlttO
10.Yln+tO
10.XOFFl+ao
10,xeOMPO
10,VCOMPO
10.XI"XO
10,U"YO
10.YOFf\_10
10. TOLCON>ao
10.IIAOCV.10
,6163
10,"AG"'''0
10.xco",l.ao
,6155
.2416
,2416
.1416
,6014
,2416

,6105
,60]4
,S9CJ4

,6015
,79
OS
.6333
OENO La",S

onu

6

00006

ttl

SY"IOl TAIlE

SE" 1111'
RElIOF
IIIOR"tR
ltllOlil1
EPSLO"
O)CALC
DEL TAS
BRl
cost
oeo"p

0"

OUIO
OUU
OUZ
OSU.
OS.,9
OSU)

Dun

OUt
DZ
FBJ
IIIICS
ley
"OYE4
.mUTO
RUE
TF"PZ
UIilITY
UY
XIIIO""
XORG
Xl
YNO
YOFFI
YlMYO
100.0

060'~

rOLCOIil
RETUIIN
MOIIIITR
10FLAG
EIIJRY5
D2tALt
CO"VIIG
tAUI

OI~UII

OZH6
02416
0600"
0106'"
0066111
OU4Z
0)0)011
03042
0)022
OUUII
OU) ••
OZOISIl
OZUI.
0261lR
OZ69U'
02116.

eouo

DIFF2
DOTI
OSAIt
DSAI6
OSAlO
DSA"
DSA)
DSAJ.
Dsn
DSA.
DI
FLAG
1"0"0
"AGCY
"Rl

ouon
0)0'2
OU94R
016UII
00l'6R
0286ZR
OZDZ811
00620R
00069
02416
061)'
03002
00014"
0)002
02992
03122
OZ..72

0]011
OZ411
OZ406
0111911
OlJ"~R

010.011
0093211
00980R
0610'
OIU""
OIHIR
OZl18R
on •• 11
oz"nll
02519R
021211'
unlll

onnll
oun.

01062
00019
0204011
0)012
0)U2.
01952R
SLcn 01088R
TER.. 01268R
U"ITO DD116R
X
05110
Xliii
Dun
ITIP 0000411
U
DZ91l
'NO,", 0)012
YOIIG DOD 1911
yz
O)OtZ

"S""

on ..."

fill'."

DICALC
IRFUG
tALU
CRIT
OIFF)
Don
OSAU
OSAn
DSA21
DSAZ6
OUIO
DSAJI
OSAI

0"'"
,

FL~

INTOF

"CV
..UIF
ourcs
. SfFl
flllAD
UNITI
XI
XNIMH
XO
Y
YNI

"IP

'YJ

DC
OS

10 ,0

OlllO YTiP

OS

5,--10.

011"0 XOllG

DS

5 .... ',

01150 YORG

os

".,

Oll60 DTPRF
01110
01180
Oll90
01200
OZ010
02020

TFL
FSUI
FIIUL
TFL
FSUB
FIIUL
FAOD

TENpI,XTlP,l1
TElIP I. XORG
TEMPI,Xl"XO"
n"p2.YTIP,1I
TEIIp2,YORG,11,
TE"P2,YlNVO"
TI"PI,TE"'2"

'NEIfI
ONOUTO
lOOPSII
GOFOI".
ENUll
DOC At
8CY •
CIRCS
CRTIII
OISTF

e

Don

Dun

DUll
DSA22
DSAZ7
DUll
OSU6
0$16
00
Pl1
G02
1"0
NOYEZ
NF
OUTO

01220R

on66R

06)))
Ol,nll
01 . . . .
0016011
OU42
0011'11
01164R
02416
0".211
OUI.R
OUU.
02 •• ZR
025I1R
0265IR

OZf4111

02117.
IIson
0, .. 4R
06Ul
O)U ••
OU08"
0615'
00.0111
$11" 0111211
Tall 0'99.
UNIT' 01066"
.XI"H 0007.
XOFFO 01092
III
O)U'
YI
01.17R
YNI,", 01012
YO
0590'
0.0
06034

TlIIilDS
NOTEII"
LINt III
FIOFfS
!lIIfRY!
O'LUSR
IIG02
C..N
CIITIIZ
OIV.G
OSAI
OSAI4
OSAI.
Dun
DSAZ.
osan
OSU,
osn
01

OOlll.
011llR
02416
01.16
0014U
00440R
00800.
OI5SZ.
OJ162.
01340R
020".
OU2 ••
0241111
0150311
OZ59111
OUIlR
0116611
oU'lr.

P"

"
"

"ovn

tlOR .. I
OUTI
TEIIPI
,TOLD
UII
XNO
IIOF'I
U"XO
YIII"
YOFFO
Yl
1.0

0,."

0101011
OZ09l11
02100.
0111411
00584R
01911.
00019
06014
061n
0,..,
03111
02961
00059
oUOI
on ••
0.0"

tICS
-NA"E CIRCS ••• IION-IRASABLE AllElE .. SUBpIIOGU..
olD Nu..aE. OZ4'.DELDIM
'ASSl ..IU IIflOCAU... E
'STORE .IIELOAOAILE
LINKAGE - I'" CIIICS".ll,61

18
DOIIG

os
Tf

onoo

SM

02110
OllZO

TF
AM

02UO
01140

."

TF

02150
OZl60
02110

tF
tF
TF

02180
02190
02200
0)010
0)020
0)0)0
0)040
0)050
0)060

TF
TF

TF

'TFF

C,
CF
CF

IMF

YEtTOR OOT 'Rooucr SUBIlOUTlNE

00019 OOOZO
X-COORDINATE OF YICTOII TI'
0000. 00005
Y-COOIIDINATE OF VECTOR TIP
0000'1 00005
X-COORDINATE OF YECTOR ORIGIN
00014 00005
V-tOORD.INATE OF VECTOII O.IGIN
00019 OOOO~

5,.-15,

.11,

.. ,

SUIIPROGRAP IIIITIIY
00111 116 OZO'5 0616J
OU2010,STFL
ADDRESS OF X-COOllDIIiATE t5 CIRCLE tENTER
OSAIOlO,2Z,IO.
001Z4 JI OZO'S 000K2
00U6 KO 02100 olon
OUZO 15,OSAIOlO
ADORESS OF Y-tOO.OINATE CS CIRCLE Cf"TER
OSA'Ol 5,10,10.
001.8 J1 01100 OOOJO
00160 110 01105 02100
DUI_Io,osnOl'
ADDIIESS OF AADIUS CS CIRtLE
OSAl.ZO.IO,IO,
00112 JI OZI05 OOOJO
0011. L) 010'6 00000
OSAl.11
00196 LJ 01101 00000
DSU.16
SIT CS CIRCLE ADORESSES AS IIEOUIREO
DSU_ZO,OS.'.,O, •
OOZOI KO 011.1 0210'
OOIZO KO 01160 DilDO
OSAI705,OSU+"
002)Z
KO OZ.26 01'60
osu •• ",OSI"'.'
OOZ.. 110 01461 02J60
OSAIO.',DSAl7.'
00256
110-'01656
OU60
DUll.',OSU , . .
00161 KO 017.6 01)60
OSU6.5,OSAI , . ,
00110
L)
0'0'1
00000
OSAZ·6
OOZ" l3 02127 00000
OSU.6
00104
L)
02.1'
00000
DSU'.6
lUNCH IF tv Nor FlIlST OF A SEOUENCE
lCV-U.lOO"."
00Jl6 "4 0038.

oun

0110003110

"AGtV.IOO.O ••.

ouzo
O'UO
031.0e
0'150

I
Il1011"1
00111 --]

.T

I!OIIIITII.DS.) •• ',"

03160

If

IIONIT.,OSU 1+5,.,

oJ! 70 LCV

aT

OISTF.OSAU.'O,"

01110

IIIf'

Dl'LUSA-U,lOOPSlh.

8

IIUUtlIl ....

DOIII e-I
"

00101
00111 00005

5

INrOF,a.&O
LCV-24 , "

fPL

00010 00 0001. 0000"
0003Z OK 00019 0001"
000 •• OJ 00019 0196Z
00056 00 00069 OOOOR
YT"-YOAG
00068 OK 00069 OOOIR
IYTlP-YOIIGI'IYI-VOI
OOOBO 0) 00069 01'1"
I XTIP-XOIIGI.' xl-xo .. nT (P-VDRG I" Yl-YO I
00092 01 00019 00069
0010. 42 00000 00000
EXIT
XTIP-XORG
,XTlP-XOIIGI-IXI-XOI

'-1

0)010'
0)080 fLlNOS CM
0]090
INE

0)190'
OJZOO
04010
04020040)0

UU"
02.16
OZ416
OOIlU
OUl411
01896.
0101611
OIHU
0)052
OUU.
0281111
022 . . 11
on55.
024UII
0"""
026)1"
02111"
OZI6611
00020"
0596.
02. . .
06151
OJIJ2
02416
0112011
06165
0598.
0lU6R
OI"UII
0)00'
0'89'
0'830
0)162
0000••
02 •• 2

18" 16Zo-UII Ao-APT SUBPROGRA .. FOil EVALUATING
T"E TU"INAl CUTTER POSITION AT CI.CU CS

010100102001010010.00105001060010100108001090OllOO'
01110
01120 XTiP

020)0
02040'
01050
02060
02010Ol08002090 e IRes

'NEXU
"8UFII
lROFFS
GOFUG

_".,OSU,.,,6,

IIIANCH I'

OS

00)1' 14 061'1 000-2
IS NOT A LINE
00340 "1 00]12 01200

LENG'" 01' cur YICTOR-100.0 IIIICHFS
0035Z 00 0)012 Oll ••
00)6. 119 00. . . 00000
00372
CAlL "IU'R SUIPIIIIGIIAM VIA MOHITII
00172 " 0'.00
CALL orst, SVI'AOGUM VIA IIONnll
-.
00114 " 02400
CALCUlAte UMI'" 01' CUt YECTOR
.
.
00196" 02410
lUNCH ••
lilt, '.IIST 0' A SEIlUINCE
0040. 114 00....

t.

02"1
oun
onn
oun

00410 4. 01411 00000

0042.
call D••' •. SVI'R. . . . . 'IA lION.ft

It?

,.r.e
o~o~o

DPLun 8T

OIS'F.OSAJ"ZD •• ,

O~050

FSU8 CRIT.OSU+ZOoll.

O~ObO

040QO
04100
04110
04120
04110-

rFl TEMP1.EP$lON
'AOO TEMPt .epUON ••
AM
teMpl.I,IO,
FSUII CA". TEMPt ..
TFl TeMPI.F
FMUL TEMPI.fllt_O ..
CF
TEMPI-2 ...
Flue CRIT.TEMPI,.

04HO
04150

...

04010
O~O80

Fsua Clllf.MIGCY,.
DIVRG ...

0416004170 "OR"I

aT

IIONITR.OUlt',6,

04180

8T

..ORMCR .OUZ+)O,4h

04190

8NR

CMN,FUG",

0420005010 RARE

BT

liON I TR .OSA~+"6.

0~020

BT

NORHCR,DSUHO.6.

05010
05040
0~050

TFl
TFL
DElUS TFl

05060
05010

XNO.XNI
VNO. VNI
XIMXO, XI

FSU8.XIHXO,XOtt
TFL
FSU8
' TFl
Fsua
TFL
Fsua
8T

0~080

05090
05100
05110
05110
O~IJO

8T

UN lTV. DSA6+1S .6.

CM
8P.

G02,2.10
GOF081C. •• ,

O~l 70'
05180

SF

GOFllG" \

051QO

aTM

MONI TR.OH90,6T.

05200

8T

lROFFS.OSA·HI5 •••

051~0

UN ITO

VlMYO.VI
V1MVO.VO ..
KNOHH.XNO
KIIOHH.H.lI.
YNOHK.VNO
VNOHK.K.lI.
MONITR,OSU., •••

05150
05160 8RG02

06010 ENTRY! Bf

NON ITR .0SA2T+S •••

06020 DOCAlC 8T

01 STF.05420"O.6.

06010

TFt

060~0

BT

ON.DO
RElIOF.DSAZ'S"

060S0

00428 2' OHOO 02n6
tY ORIGIN TOCS CEN'EA
OO~~O 21' OHIO 02761
CAn-OlSfANt! FAa, tY ORIGIN TO CS
00452 OK 030" 0210'1
OO~64 06 OOOlt 0600~
1.OoepSlON
00416 01 00019 06004
20,o-epSUlil
OO~88 II 00019 000-1
CII If-CIII T-IO,Oo'PSlON 00500 02 0)052 00019
005t2 06 00019 05Q64
FoflRAO
005H 03 00019 05911<1
AasF (FofLRAOI
00536 HOOD 11 00000
CAI'·CIIT-18SFfF'fLIAOI
00541 01 0]0" 00019
eRn-UIT-M.CCy
00'60 02 030'2 03012
eRANtH " RESUlT IS 'OSITIVE
00'12 M6 OU40 01100

CllC. DIST. FIOM

CAll HORMCR SUBPflClGUII VIA IIONIU
0058~ 21' 02400 02080
PROJECT tv ORIGIN TO CS CIRCLE
00'96 2P 02410 011"
BRANCH I' tv ORIGIN .NO CENTER NOT UHf
00608 145 01~'2 00019
Cill NDRIICIt SUI'ROGUM VlA "ON ITA
00620 lP OHOO 02161
PROJEC T cv TI, TO CS CIRCLE
00632 lP 02410 02151
00644 06 02982 03152
00656 06 02Q92 03162
00668 06 02962 03338
KI-XO
00680 02 02962 05892
00692 06 02Q12 OlHft
Yl-YO
00704 02 02912 05902
00116 06 0]002 02981
X"O-II
00728 OK 0]002 0209"
00140 06 03012 02992
VNO-K
00152 OK 0301Z 0210CAU U.. ITV SUBPROGRaM VIa MONITR
00764 2P OHOO 02111
DElEOIN! UNIT NORMAl TO CS CIRCLE (PNO'
00776 2P 02~10 02191
00788 14 063]1 000-1
lUNCH IF G02 IS ClOFIIO OR GOBACK
00800 H6 OIHl 01100
SET FLAG INDICATING TO. PAST. ON CS
00812 l2 00821 00000
CAll lAOHS SUBPROGRAM VIA MONITR
0082~ 11 02~OO -1490
PROJECT CV ORIGIII TO OFFSET CS CIRClE
00836 2P 02410 01242
CAll OISTF SUBPROGRAM VIA ~ONJTR
00848 2P 02400 02586
CAlCULATE RADIUS OF OFFSET CIRCLE
00860 2P 02~ 10 OH77
00872 06 03022 01032
EVALUATE RESIOU'l OF POINT PO
00884 kP OI~U 02090

8NP

NOUTO •••

BRANCH IF PO NOT OUTSIDE OFFSET CS
00896 Ml 02028 01100

0606006010 DUTO

BT

OTPRF.OsaU+U ..

06080

8NP

OIVRG •••

DOT CUT VEerOR ANO NORMAL VECTOR
00908 kP 00020 02606
BRANCH IF DOT P"ODUCT IS NOT POSITIVE
00920 N7 01l~0 01100

0601)0-

OblOO CONYAG 8NF

CRTIII+12,GOFLAG"

0611006120

TOM

05126+11,-6..

06130

ITM

NONITR.02110.6.,.

06140

IT

tCNON1.osua."·...

00 ISO CAUt

IT

_ItR,OSU1+S,..

06160

8T

lINtIR.OS.19.~0.6.

06170

8NF

f.2.GOFLAG.,

06190 8RFLAG INA

06180-

BRANCH IF G02 IS \lOFIIO OR GOBACk
00912 "" 01176 00821

to exeCUTE MINIF
009~~ J5 02516 00000
SU8PROGRAM VIA HDNITR
00956 17 02400 -2110
CalCUlATE SlOpE-INfERtEPT OF tV UNE
00968 2P 02410 02406
C'll L1NtIIl suaPROGRAM VIA MONITR
00980 21' 02400 OH87
tALC. INTOF CV liNE AND OFFSET CS CIRCLE
00992 2P 02410 Dl~~'
BlANCK IF GOl IS GOFMO OR GOBACk
0100~ 10M 03010 0012)
SET CDIITROL OIGlT

CalL

le..ON2

DIVIIG.FL"Gi.

'8"ANtll ., 1 01 NO INTERSECTION EKISTS
01016 M~ 01340 000."

06200'
01010

NONlllI.DSIU·' •••

07020 OleALC I f

OllfF.DSAU·20.6.

CAll DISTF SUIPROGRAM vIA MONIfR
0102. 21' 01~00 01~97
CALt. Dlst, 'ROM CV ORIGIN TO POINT PZ
OIO~D 2' 02410 OlSl)
. CALL OlnF SUBPROGRAM VIA MONlTR
01052 2P 02400 0'53)
CALC. DIS., 'ROM CV ORIGIN TO POINT "
0106~ 21' 02~IO 015~9
CALL IIINI'-MAIl' sua'.OGUM VIA MONnR
01076 ,., 02~OO -21]0
SELECT COM'.RATIVE ELEMEN' fROM 02. 0)
01088 lP OlHO 02S16
01100 02 030~2 0)051
lRANtH ,F 02 IS COMPARATIVE EUMe .. T
01112 "6 OUO' 01200

070)0

01040 OleALC aT

DISTf,OSAZ,.,O.6.

01050

I'"

IIONln,02UO ••,.

07060 51-eTl

IT

MUIF,OSU"l1 •••

07070
01080

Fsue DCOMP.D2
IE
IIOv£2 ...

01090_

01100 MOV£)

01110
07120 OOH
011]0

TFt
TFL
IT
.....

X,U

v.n
OTPU, DSA19'"

''''''tt.

0112~ 06
01 U6 06
011~' .1'
IUCH IF "'. , Nof INOIRY cur
01160 N'

07l~0-

01UO

10

0IfF3,DCOIIP-'"

07160'
07110 OIFf,
07180

fSUI ~2."AGCV
a'
DIVAG,.,

01190.
07200

INF

08010_
08010 TNEXTI $M

COSf ,GOfUG ..
NF,ItIO

•• AIICfI "

IICOM'

PANCH ., OFFSU
..ANt:H I"

NOt lE:~112

n

05120 02982
05810 02992
00020 02626
VECTOR
02"2 01100

N' au •• 030n

Oil" 02 0'0" 0)01'
110' cOMTACteo
011.6 146 01340 01100

GO, IS _110 OR GOIACk
01101 ~ 030'0
01"0 .2

0012)

061t. 000-1

198

'"l

Clltlll, ..

IlIaNCH

080.001050 CAU'

tIT

MONI TA,OIAI •• ' , . ,

08060

IfM

''''''11 ....0,

08010 TEIIM

TDM

tIRtS-I,',t,

08080
08090
OBIOO.
08110 OIFFl
08120
08110
08UO08150 MOyea
08160
08110
08180
081'1008200 OIVIIG
0'1010
09020

8
IInUIUI" 6 ,
DOIIG .-1

CALL """'" SUI'1I0GRAM YIA NON ITII
OU.4 2P 02"00
SI' out fl' O' 'HOR'INEO cut VEC'OIl
OU,. 17 02410
sn I INstllUCJlON IN CALL ING 'IIOGIUN
OU68 JS OOIlJ
IInURN fll 1I0NITII
OUIO "'I 02"IJ
OU8I

08010

09010

09l~0

09160
09110
0'1\80
09190
09200
10010
10020
10010
100.010050 CNM

TfL
TFL

If

X,XI
V,VI
MONITR,OSAU"'"

tlTM

PTaUFII,-I,'IO,

X,Il

OOllG 0-1

CllltS-loI,',

B
RETUIIN ... ,
DOIIG . . 7

OU"'O 06 o~azo OUII
all" 06 onlO OU4.
CALL ,tlUfll SUI'ROGRAM YIA IIONITII
OU64 2P 02400 02U.
SEtout T" D' cut VECTOII
01176 " 02410 OOO-J
SET NO' INStRUCTION IN CALL ING 'ROGRAM
OIJII J5 0011 J 00001
01400 4'1 02.IJ 00000
01411

tlllCLE RESIDUAL SUBIIOU'INE
5,_-5
0lH2 00005
01411 00005
5,XI'5
llMH,ll,1l
01411 00 0001'1
FSUB lIMH,H,Il,
o IHO OK 0001'1
fMUL IIMH.XIMH ••
014.2 01 0007.
01454 00 00059
TFL VIMK,YI,II
VI-II
01466 all 00059
FSUII YlMK,Il,I a.
OIHI 0] 00059
FMUL VIMK,VlMK"
DI.'IO 01 0001'1
fADO lIMH,YlMII"
I"I-H'_~"I VIIIII' •• '
OISOI 06 00069
TfL 'EIIP2,OIl
ON'"
01514 01 00069
FMUL fE MPI, ON"
Ill-H' •• '.IYI-II 'U'-ON •• 2
FSUI IIMH, TEMP' ..
01526 02 00019
IXV
'URN OFF EI,tNENT tHECK "'OICUOII
0151. Mt. Dina
01S50 U 00000
.1
t ••
DOIIG .-9
olSn

OS
DS
TFL

lVI-II''''

.. l, ...

un

OI.IK
020'11
0007'
0141P
021000059
00059
01022
Olon
00069
01500
00000

IIONITR,OSAI"',6,

10060
10010
10080.
10090 GOFOIK TFL
10100
CF

CALL NOIIMtR SUII'ROGItAII "A liON ITR
01552 " 02400 OU]'!
01S64 M' 00132 00000
01572

TOLCON,O.O
GDFLAG .. ,

10110

""

NON ITII,DZSOO,",

OU72 06 01012 0601.
SEt fLAG INDICATING UNTO CS
01514 Ll ODin 00000
CALL FIOFFS SUIIPIIOGIUM VIA IIONUR

10120

II'

FlOFFS,OSU'20,',

101)0

TFL

ON,OSU'20,ll,

101.0

80

"20,F-'..

I

oures

10150.
10160
10110
10\80.
10190
10200
11010'
11020 INCS
11030
11040
11050
11060
1101011080 OUTtS
11090
11100 EN'R"

If

01596 11 02400 -2500
PRDJECT CV OUGIN TO OFFSET CS CIRCU
01601 21' 02410 02247
DN.IUOIUS OF CS ClIICLE
01620 00 01022 OllON
lUNCH If NOT All ON CS CONOITIOII
0163l Ml 0lU2 059"
01644 M9 0 I 720 00000
01652

DOIIG - ]
8t

RElIOF,OSA'.""

III'

OUTCS, ..

SF
TFL
SF
II
OORG

IOFLAG, "
TOlCON, TOLl
TOLCON-2, "
ENTR"
-)

CF
TFL
IT

IOFlAG •••
TOlCON, TOLD"
FBOFFS,DU'l.20,6,

11110
11120
11110111.0 CIITIII
1115011160
11110
11180
11190
11200'
12010

8
ENTRYI
OOllG .-]

12020 UNITI

If

UNlty,OSA8.t,,"

UOlO

IMF

fBI,GOFLAG"

1Z040·
Il0U

.,..

IIONlfR,O''''O,6T,

12060

If

LROfFS,ISAIO+I',"

12070

If

lI0II,,",05&16+',6,

UOIO Ileuc 8T

lIS'" ,elill '.'1 •••

INF

0IVIIG,OU'6.1I

TFL
FSUI
TFL
FSU.

lNIMH,XNl
XNIMH,H,lI,
VNIMK, VNI
VNIMK,II,lI,

.f

MONI,.,OSAT"'"

12090
12100

TfL
"

UIIO

. . . . . .SIItI ...

IlllO.
UIlO
121.0
12110·

"I ....
I

ON,OO
IIllIO',OSI'.'"

DtVIII

•

0000.
00000

o1101 06 05120 01002
OIlZO 06 05no 01012
OIH' 119 01141 00000
01l.0

v,n
DOT!

'AGE

000-0

0"11 az 01062 alan
01100 "' a 11.6 aoo~a
0110.

TFl
tFL

,

OU19

FSUI OltNAGCY
DIFF' .. '
OOllG 0-1

8

"AGI
ANO'HEII CS NUST IE CROSSED
DUll '17 01 "" OUOO

a

090.0 NOfEIIM tOIl
09050
09060
0'101009080'
090'10 XI
09100 YI
09110 RElID'
091Z0
091)0
091.0

t.

EVALUAtE RESIOUAL OF POINT PDF Fa
01652 liP Ol411 D25'16
IRANCH If Pf, 'Of'D OUTSIDE CS CIRtLE
0166. "6 01120 01100
SET AN INDICatOR
TOLCDN-- fDLl

01616 Ll 01719 ODOOO
01681 06 0)082 05994
01700 )2 0)080 ODOOO
0111Z M'I 01744 00000
01120

01120 l] 01719 00000
SET AN INDICATOII
01112 06 01082 06014
fOLCON-TOlo
CS CIRCLE
DFFSET
'ROJECf tv OIllGIN TO
01144 21' 02410 02247
017", M9 00841 00000
01764
01764 MN 01140 02576
01776
01781
01800
OUIZ

XNI-H
VNI-II

06
DK
D6
Oil

0)002
0)002
0101Z
01012

DlISl
010911
OllU
0210-

CALL UNIlY SUII'IIOGU.. VIA "ONIlR
01124 ZP 02.00 DUD'
DUEIIIIIN! UN" NOII"AL fD tS ClIICLE "'Nil
0lU6 2' 0'410 DUU
lUNCH .. G02 IS GOFIIO 011 GOIACK
DI141 Mil 021'4 0012)
CALL LROfFS SUI'.OGIIAN YIA IIONITR
01160 17 0'.00 -'''''0
""OJECT CV U" TO OfPSET CS ClRCU
Oilla 2" OI"tD 02161
CALL DIU.. SU....HRAM VIA IION"I
01184 2P '2'00
CALCULA'. RADIUS Gf Gf'Sef CI"CLf
Dla. . ZI' or4to OU"
01'101 D6 OSO" 01011
IVAL"'''
Gf POINT "t
OIUO lIP 01411
...1ICIt II ...11" _. 1IOf INSIOE cs ctlCU
0 " " '" 01"" on. .

on'"

""DUal

02'"

01'4. lit 01140 00000
01."

In

UUO IISMCl
12110
121.80
11190
UIOO.
11010 EIITRU
130200
BOlO
1)040
13050
1)060
nOlO.
13080 IIOUTO

13090.
UIOO 1110110

TOM

O$U.H&.' ..

TFI.

00.01

sn

COIIT • •

olin

. PIGI

TO EUCUff IIUlf

J'

OI'~Z
OZ". 0000'
01'64 O. 0)0)2 ·OZ'I.
01916 M' 00.10 00000
0"14

8
CUU
OOltG ... )
I ...

TFl
TFl
8

DEL US.PUG ..

'.'"tH I' tv

T"

AIID

CEIITER HOT SAllE
01.14 "' 00 ••• 0001.

XIH.XNO
VN It VNO

019.6 06 011" 01 ••'
02008 06 Oil" 02992
020Z0 M. 00... 00000
020ll

DELTAS

OOltG .-3
BIIF

FU.GOFUG"

.UIICH .. GOa rs

.'110 a. GOIlC.
02021 1111 OS,.4 0012)

11'"

NONna.OUIO.".

CALL LCNCIIII

UIIO

8T

lCHON2.0S"'I.n •••

DETealllNe sLope-INTIIICEPT Of

13120
UIlO
11140.
UISO OUI
nl60
13110
11180
IlI.o
11200
14010
14020
14010
14040 OU2
14050
14060
14010
14080
140.0
14100
1'110
14120 OSA3
14110
\I.I~O OSA'I

8
CRTW1+U
OOllG .-'1

1~150

1~160

OSA.

1~110

1'1180
1'1190
14'00
15010
1~020

15010 OSA6
150'10
1~050

15060
15010
15080
150.0
ISiOO

DS'"

OSA
OSC
DOItG
NOP
OORG
NOP
DORG
NOP
DOI\G
OSA
DORG
IIOP
DOIIG
NOP
OOllG
IIOP
DORG
OSA
OORG
OS"
OSC
OSA
OSC
DORG
NOP
OORG
HOP
DORG
OSA
OORG
OSA
OSC
DORG

RARE-U
5.021n
05"+5+5.'-11
X"O.VNO

.-21

0.0
.-ZI
YO.o
0-1'1
XO
o+,or-iH'.'-1I
XHI.VNI
.-2\
0.0
.-ZI
VI.o
.~14

XI
0+5.1-'1
RARE+H
'.02151
UNITO+U
5.02111
OSA5.'.'.4-6
UY.O •
'-21
YNOMK ,ua
0-1'1
XNOMH
.'5",-4
UNITI."
5.02111
OSA1.5.5 . . .6
Nap UY.O
DORG 0-21
NOP VNIMX.UX

sv.pa~,"

YU lIOII nil
01040 11 0'400 -2110
tv LINE
020" 2P 02410 0'40'
02064 M. 01116 00000
02011
02015 0000' -0.01

01076 0000"
02104
02104
020.4
020'4
02084
02084
02011
020n
02140
02140
02130
02130
02120
02120
02111
01121
02U2
02156
021"
01166
021101
02185
02186

41 0'912 02 •• 2
41 00000 00000
41 05.02 00000
DODO'

-un

41 0)15' 03162
41 00000 00000
41 OJI41 00000
00005 -'33'
0000' -0644
0000'
00005 -018'
00005
41 061"

00000

02116
02176
Olln
02117
02193
021.1
021.8
02216
02216
02206
02206

41 03012 0612'
00005 -1002
00005 -1'48
00005
41 0613' 00000
41 03012 06125

,aGE

15110
15120
15110
151'10
15150
15160
15110
15180
15\90
15200
16010
16020
16030
160'10
16050
160.60
\6010
16080
160.0
16100
16110
16120
16\30
1"140
16150
16160
16110
16\80
16190
16200
11010
11020
11030
110"0
170.0
170"0
17010
11080
17090
11100
17110
17120
171 )0
171,.0
17150
\1160
11170
17110
17190
11200
18010
18020
18010
180.0
18050
18060
1I0ro
18010
110.0
18100

OSA.

OSA.

OSAIO
OSAII

DUll
OSAn
OSAI'I
OSAl5
OSAII

OOl\G
OSA
OORG
NOP
OORG
NOP
OORG
OSA
DORG
HOP
OOllG
NOP
OORG
OSA
OORG
OSA
DSt
DORG
NOP
DORG
NOP
DORG
OS"
OOltG
OSA
OSC
OSA
OSC
DSA
OSC
OSA
OSC
OORG
HOP
DOIIG
Nap

DSAIf

OSAIl

DSAIt

DOIIG
OSA
OOllG
IIOP
OORe;
NOP
DOlle;
NOP
DORG
DSA
DORG
HOP
OORe;
NOP
DORG
NOf'
DOIte;
NOP
DOlle;
DSA
DOIIG
NOP
00IIe;

-

e-llt

XNIMH
•• 5''1-'1.'''-11-2
YOFFO.TOLCON
'-21
YNO,XOFfO
·"llt
XNO
•• 5'5-••
YOFF I • rOlCON
.-21
YMloXOFFI
·-14
XHI
.tlJ-S-4
LCY'U
5.02101
OSAII+5.'."11
VI,MAGty
'-21
YO.XI
-l'I
xO
0+'.5-'1
HOreR"
5.0241\
rERM
5.02'111
ENTItY!
5.02151
OICAlt+11
5.02101
OSAI6.'.'.'-ll
YOFFI.OI
0-21
O.XOFfi
--I,.
0
.+'05-4+'. . .6
BCY,O
-21
Yl,lItV
.-21
YO,XI
.-1'1
XO
•
•• , . . .
Xl,n
-21
X2.V2

'.'-11

4.'.....-1

-21
0.00

-II

BCv.O
0-14
IItY
•• ,.9-,..,.,.11
YOFFO.DO
-ZI
O.IMFO

02203
02201
02235
022n
02226
02226
02223
02221
02262
02262
02252
02252
022'1'
02253
02214
02278
02279
02291
02298
02za.
02281
02285
02289
02110
0231'1
02315
0232'1
02315
02334
02335
023''1
02145
OUU
02364
OU54
01354
OU51

•

0000' -3002
41 0,)102 OJon
'II 02. . '

030tZ

00005 -2982
'II 0)122 03011
.1 0]162 onu

0000' -'~"
DODD. -040'
00001
41 on4. 030lZ
41 019020]31'
0000' -U'2
00005
00005
0000'
0000.
00005
00005
00005
0000.

-1311
-1261
-1"'1
-1'01

41 OllU 02939
'II 00000 03lU

on" 0000' -0000
02400
02400 41 03142 00000
02190
OU90 'H OU48 0]132
olno
OUIO 'II 0'902 un.
onn

02311 oooot - •••2
02439
DatU 02991
02440
02.30
02410 'I' U0020J01l
02420
02420 41 00000 010n
02410
02410 41 01142 OOODO
02401
02411 00001 -1112
0246.
0241. . .
OHJI

4'

onu

014"

01." 'II 00000 OJO.2

Ut

11110
IIllO
lallO
11140
18150
18160
18170
18180
181'0
18200
1.010
1'020
1'0]0
1.040
1.050
1.060
1.070
19010
19090
19100
19110
1'120
19110
I'IHO
19150
19160
19170
19\80
1'1190
19200
20010
20020
200)0

OSA'O
DUll

oun

Dun
Dun

OUZS

OSU6
Dun

200~0

20050
20060
20070
20080
200.0
20100
20110
201Z0
201]0
20140
20150
20160
20170
20180
20190
20200
21010
21020
210)0
21040
21050
11060
21070
U080
1I090
21100

OUl.

OSA"

OSUO

OSAn
OSAn

OOIlG
OSA
OOllG
OSA
Ost
OSA
ose
DOIIG
NOP
DOltG
NOP
DOltG
DSA
DORG
DSA
ose
DOIIG
NOP
DOIIG
NOP
DOIIG
DSA
OOIlG
NOP
DOltG
OSA
OOllG
Dse
DSA
DSC
DORG
NOP
DOIIG
NOP
DOltO
DSA
DORG
NOP
OORG
NOP
DOltG
DSA
OORG
NOP
DORG
NOP
OORG
DSA
OORG
NOP
DORG
NOP
DOIIG
NOP
OORG
OSA
OORG
DSA
ost
DOIIG

'AGI

o-I~

O'U)
02_'1
OZH.
024.2
0241)
024'12
024U
onll
onu
02502
0250Z

0

. . ,.,.._
.IIFlAG-U
5,OlDU
OICALCtU
5,OZI01
DSAZZo"'O'-1l
YZ,DZ
'-21
YO,U
'-14
XO
•• ,.,-~
D]CALCoU
5,02101

0000' -IOO~
OOOU
OOOIS -1812
OOOIS
41 0,.12 01."
41 0590' 01002

02~9'

OZ501
onZ4
Dz,ze
on,.
02547
02541
OU1I
on1l
onn
025]9
on64
on64
02561
OZ565
02576
02516
'02581
02512
02600
02600
02590
02590
onn
02'91
0261'
02620
02610
02610
02607
02611
02619
02640
02610
02610
OZ627
026]1
02669
02670
02660
02660
02650
02650
OZ641
02651
02677
026111
026U
02100

DSAZ~"o,o"'ll

n,D)

'-21

YO,U
'-14

xo

'.,'5-4.'05-11
03,DeOllP
.-14
02
o.,.J-~

I,D
ooeALeon
5,02101
OSA270,0,0"-6
YO,O
0-21
YOfFO,.o
'-14
XOFFO
'.5'~-40"~-'-2

YO.O
'-21
Y,.O
-14
X
'.5'4-4.'04-6-2
n,o
'-21
YOFFI,xt
.-14
XOFFl
•• 5'4-~."'-6-'
III1L,O
... 21
Y.IIIIL
.-'1
O.X
'-14
0
""6-4

UNIU."

"OZIlI
OSA)Z.'.".-6

02700
02690
02690
02617
02691
02719
02120
02710
02710
02707
02711
02727
02711
01732
02750
02750
02740

NOP UV,O
OORG .-21
NOP ""L,UI
OOllG -14
OSA 1.0
DORG .'5'4-'."'-6-'
NOP 0.0,0
OORG '-ZI
NOP UY,o.o
DOIIG _14
OSA UI
OORG •• '.4-4
DSA DPLUSlI+lZ
DSC ',OllOl
OOllG OSAI5""'5-ll
NOP Yo,eltlT
DOIIG o-ZI
NOP o,XO
OORG -I~
OSA 0
OOllG " " ' - 4
DSA INTR Y4+24
Dst ,,02101
DSA D'LUSII-U
Dst ',OZ41'

00005 -,e9Z
0000' -1016
0000'
41 oa • . , 0]062
41 0'902 02. .'
0000' -5.9Z
41 01062 0)042
0000' -)O'Z
.00001
0000' -087Z
0000'

"

~I

~I

05902 00000

~1

o,no

~I

"

41 00000 o,no
00005 -0000
0000' -1071
0000'

41 061)' 00000

TFL
TfL
IT
II. .

x,U

02794 06
02106 06
0281. liP
lUNCH ., " . , NOT INOIIIY CUT
02no 117

OTPltF,OS."-,,
OlVlla" ,

210)0.
23040

23050_
23060
23070
23010.
n090MOVE4
lJlOO
23110

uno
uno·

41 031)2 0612.
00005 -6075
41 060)4 00000
41 06US 060)'
00005 -6125
00005 -0452
00005
41 ona2 0)0"
41 00000 051"
0000' -0000
0000' -1'"
DODOS
DODO' -041'
00005

IS NOT ZEIIO
027U II) 02161 030]]
0.820 02912
05130 02992
00020 02626
YECTOII
OU40 DilDO

lUNCH ., OCOII' IS NOT ZUO
02'~2

113 Olle. 01011

I
0lFF5
DOIIa .-)

02"4 II. 01281 00000
02162

TFL .,Xl
TFL Y,Y2
DOU
•
DIIIIG .-1

02162 06 05.20 01002
02174 06 05.10 01012
0"" "' 0211. 00000

tll.o fill

IT

IIEtIOf,DSUoS ..

uno

IN'

CDNVlla.l' •••

nl •• •
nll0 Dun

IrR

NONIT•••"IO,".

nllo

IT

'IOP'S.DSAIO-ZO •• ,

U190 DOn

I' O'..'.DS'IO+'I,.

21210

IN

".10.

0)142 00000

41 051)0 OJU2

IIIANeH

OCD~'

"I

00005 -1112

IIDVE4,DCOII'~',.

IF

on41 00000

41 OJIl2 OJ

110

02737
02741
02761
0276.
0276T
02776
02771

05892

0000' -'120

22110.
" . .0
2UOO
23010 DO"
23020

027~0

05902 00000
on02 051.,

0000' -)0'2

ZIIIO
ZIIlO
ZlIlO
21140
21150 DSU)
21160
21170
21180
11190
21200
22010 OSU4
22020
22010 Dun
22040
22050
22060
Z2070
22080
22090
22100 OSU6
22110
12110 OSUT
22no
22140 oS13e
22150
Z2I60'
Z2170 511"

v,n

•

OOOOS -0000

CONVR""."

02 . .4

IYALUAfI "UIDUAL OF POINT "
0'''4 IF 01411 .,1,.
I"'NCII .. " . '1 lICIT IIWTSIDI OFfSn CS
111
8.110

OZ,"

"'''4

CALL ••OffS SU,PllOOIIAII VIA NONIT.
02911 If onoo
. .OJICT e, TI' TO Of'SET es e.IICLI

-noo

02'" 2P 0'''10 Dun
DOT cut flCTII .... _"IL 'ICTOII
. . ." If

.T

~,

......., ...........
1"41 . , 001II "646

IS ......,1"

281

.,

H020
HalO
24040

ef
TE"'1-2."
fSUI TEMPi.U"IN'.!
DIVAG ...

24050'
24060
24070
H080-

I
CONVI"ltU
OoAG - l

240QO

FU

80

8"FlAG+ 12 .FlAG"

2410024110
24120
2U10'
24HO COST

• 1-'
ITM

MONITII,OUlo.n,

HUO

IT

lCNONI.OSA)I>",.,
MaNIlR.OSAS'.', ••

'ISFIOOT 'tllllJIICfI
02966 U ooon 00000
01918 02 ooon 060 ...
8"'"t" I' .IS'IOD' ,aOOUCT' ExCEEDS 'E-'
02990 116 01)40 01100
0]002 M' 00..... 00000
03010
IUIitH I' OIlE Oil TIIO 1"'T6A~ECTIONS £XIST
03010 'I) Olon ooon

DIVIIG

0)022 "' 01'40 00000
0'030

DoAG

HlltO

aT

24110 UNIU

IT

UMITV,OSAJ3+as •••

24110

IT

OTPRF.OSU'HU ..

24190

FDIY TEMPI.MAGeV ••

24200
HOIO
25020

Cf
TEMPI-2
fSUII TEM'I,eoSlD
liNN CIITIIZ ...

CALL LtNON2 SUI'IIOGRAII VIA MONITII
0)0)0 17 02400 -2110
CALCUlATe SlO'I-I",eaCI'T OF RADIAL LINE
01042 " 02410 02'"
CALL UNITV SUIIPItOGRAII VIA MON1TII
0)0'4 2' 02400 02616
CALCULATe UIIIT IIORMAl YECTOR AT POINT ,.
03066 2P 02410 0270.
DOT tUT YIClDII AND UNIT NORIIAl VECTOR
03011 KP 00020 02126
COSINE IAIIGLE I'TVEe" YEtTOItSI
.
030'10 0'1 0007. 03072
03\02 n 00011 00000
0)114 02 00019 06105
lRA.IltH IF ANGLE ODES NOT EXCEED 2 OEGR.
03126 116 031.' 01300

25010'
25040 TNUU SM
25050
Il

NF,I,ID
CALLi •••

25060'
250 TO CIIlIlZ

0313. IZ 06155 000-1
IItAIIt" I' 'US!N' CS 'OS IT late REQUIRED
03150 116 01244 01200

8NF

DIVRG,DSA260U"

lUNCH IF MAItF INOltATOR SET
01162 MM 0\340 02516

25080'
25090
2HOO
2HI0
25120'
25130 FU

TOM DUU.II, 7"
SWPT
II
OORG . - )

SET MAI'F INDICATOII

IITM

MONI T".0Z500,n,

25140

IIMF

EIITRY4-16,IOFlAG.,

CALL flOFfS SUI'ROGRAM VIA NON1TR
03194 11 02400 -2500
lUNCH IF PT. '0"0 DUTSIDE CS CIRCLE
03206 M" 0323. 0111'

2515025\60
25170
25180
2519025200
26010
210020

TFl TOlCON,TOlO"
ENTRY4-1Z
II
OOllG .-,

TOlCON-'OlO

TFl
SF
8T

03218 06 03082 059'4
TOltON--TOll
032~0 12 030.0 00000
'ROJECT CV OIlIGIN TO OFFSET CS CIRCLE
01262 2P 02410 Oll41
CALL OISTf SU.'ltOGRAM VIA MONITR
03214 2' 02400 02171
CALCULATE UD IUS OF OFFSET t IRClE
032 . . 2' 02410 02471
032'18 06 01022 o,on

TOlCON, TOll
TOlCON-2, "
F80FFS,OSA9_Z0,6,

26010 ENTRY. Il

NONITII,aSA'l>5 •• ,

210040

IT

0IST',05A'O+20,.,

26050

TFl

ON,OO

260100

BT

UlIDF,05Uo'"

26010

INN

ONDUTO" •

26080'
26090 1110

8T

1tE1I0F,OSU-'"

2blOO

1111

DIYRG,.,

26110210120
26110
26140'
26150 Of.OUTO
26160
2b1TO
2618026190
26200 100.0
21010'
27020 NON!TR
21030 NORMtR
11040 OISTF
21050 UNITY
21060 lROFF'
27070 FeOFFS
21080 NXlIF
21090 lINC IR
211 00 ltNON2
21110 PTBUFII
21120 RnUltIl
21110 FLII
27140 TEMPI
211 SO TEMP!
21160 XlMIO
21110 V1MYO
11180 flAG
21190 .NO
21200 TNO
28010 XI
280Z0 Yl
28010 XO
28040 YO
280S0 XNOM"
28060 VN_
28010 "
28080 It
28090 GaZ
28100 ON
UllO 00
28120 DtOltl'.
281)0 OZ
ZB140 01
lIUO x
U160 Y
Z8110 U
zellO yz
11190 Xl
2UOO Vl
19010 ".GeV

03114 J5 OZ.76 00001
Ollftl> M9 02112 00000
031'14

EVALUATE RESIDUAL OF 'OINT '0
03310 KP 01411 020'10
IRANCH IF 'OINT '0 IIOT INSIDE OFFSET ts
OH22 '16 on66 01300
EVALUATE RISIDUAl O' 'OINT '1
OH14 Ill' 0141' 02126
IIIAIIt" IF 'OI"T "
INSIDE OFFSET CS
0334. "1 01140 01100
03)5' 119 00.44 00000

8
CONYRGHZ
OOllG - ,

TOM DSA21>+ll,7 ..
CONVIIG.Z4
B
OOllG .-4
De
DC
OS
OS
OS

OS

OS
OS
OS
OS
OS

os
os
os
OS
OS

OS
OS
OS

os
OS
os
as
os
OS
os
os
OS
os
os
os
os
OS
os
OS
os
OS
os
OS
os
OS
os

032\8 06 03012 06014
03230 "9 032.2 00000
01238

on66
SET IIAII. INOIC.TOR

01'66 J5 02.'. 0000'
03118 M9 00.'. 00000
03385

.,10000000

0))92 00008
On'l4 00002

,2~06

02406
02416
02416
02416
02411>
02416
0241/,
02416
02416
02416
02411
024111
00019
00069
OZ962
02912
00019
02912
02992
01338
Oll48

2,1

,2416
,2416
,2416
,Z416
,Z'H6
,Z416
,1416
,Z416
,Z"16
,2411
,2488
10,19
10,69
10,FU••4.·IO,,4
10,UMIO>10
,19
10. YlMYO>lO
10,INOoi0
,Flil'15'10
,Xl+lO

".u

,.0.10
10,YNO_10
10, XNOIIII+IO
,OU1>10

.H.'

,.))1

IO,VNO"+10
10,ON·10
10,00+10
IO,DCO"'.10
10,02+10
,SilO
, •• 10
10,.NOIII4
10 , VNO. .
10,INO
10,VIIO
10,0)+10

00000
00000
00000
00000
00000
00000.
00000
00000
00000
00000
00000
00000
00010
00010
00010
00010
00000
00010
00010
00000
00000
0~"2 00000
05"02 00000
01002 00010
01012 00010
020. . 00000
02100 00000
063JT 00000
03022 00010
01032 00010
01042 00010
non 00010
OJon 00010
0"'000000
O'UO 00000
0)002 00010
01011 00010
0, • . , 00010
o)on 00010
00010

Of"'

2'1020 NF
2'1010 TOLtON
n040 TOLD
290~O Tall
2"060 XNIII"
2'1010 VNIMK
2"080 EPSlON
2'1090 01
29100 UX
2'H 10 UV
29120 XOfFO
291 10 '10FFO
29140 XOFFI
2'1150 VOFFI
29160 Mev
Z'I TO ltv
nl80 MRL
29190 IU
29200 XNI
]0010 VNI
)0020 1.0
)0030 0.0
30040 COS20
10050 XIMH
)0060 VI".
30010 STFL
]0080 10HAG
)0090 GOFL AG
JOIOO F
30110 LOOPStI
30110 flUO
30130 tRIT
)0140 INTOF
30150 IEIII1N5
)0160

0$
OS
os
os
OS
OS
OS

OS

OS
OS
OS
OS
OS
OS
os
os
os
os
OS
OS
OS
OS
05
OS
OS
OS
05
OS
os
os
os
oS
os
OS
DEND

,6155
10,MACCVOlO
,6014
,5994
10.XNO,,"
10.'1NOMII
,6004
10.FlW_440\0tltlO
,6125
.UXtIO
10, TOLCON_IO
10, XOFFO_IO
10,'10FFOtID
10,XOFHtID
10,YOFFltlD
10,MtVtlO
lo,MtV
10.ltV
10.IRI.+IO
10.XNlt10
.601'

,6034
,6105
10. TElilPi
10.59
,616)
,0UTtS-1
,8RG02+2'
.5964
.61U
" . .4
,01
,61'1
,60.4
tllltS

"ACI

061'15 00000
non 00010
06014 00000
0"94 00000
0100' 00010
OlOlZ 00010
06004 00000
02'19 00010
06125 00000
061n 00000
010'12 00010
01102 00010
031 12 00010
03122 00010
01132 00010
OU .. , 00010
OJU2 00010
OU42 00010
0)152 00010
0)162 00010
060n 00000
06034 00000
06105 00000
00019 00010
00059 00010
0616J 00000
01119· 00000
oOln 00000
05964 00000
OU)) 00000
0' .... 00000
01052 00000
061U 00000
I'D" 00000

OOltz

PAGE
SV"IOL UIU
IIII'lI0C 02416

UfO 1610-1111 Ao-An SUII'lIOGRAlil FOil EVALUATING
THE TER"INAL cunER 'OSITION AT tONlt tS

01010.
01020.
010)0OIO .. Ot
010'0.

IICS

tNA"E tONtS ... NON-EUSAIU AlliUM SUBPROGRAM
olD NUMeell OU6tDILDIM
_ASSEMILE alLoeATAILI
-STORE IlELOAOAlLE
LINKAGE - ITM tONCs,-tll,"

OlOttO-

01010.
01080·
0109001100

DC

01120 CONCS

IITM

011)0

IT"

onlo-

ceNCS 0000611

6.0
00005 00001>
SUIPROGUM ENTRY
IOONITII,OIZ50,6J,
CALI. eII'IIDC SUI'ROGUII VIA MONUR
00001> IT 02400 -lno
ER'ROC.IZ.OO.6T,
tilliTE lallOl\ IIESSACE ••• seARtH FOR END
00011 1J OHIO U'OO

01\4001150 "ONI,a OS
.2"01>
01160 ER'ROC os
.2"16
OIITO
OENO CONCS

02406 00000
01416 00000
00006

n,

""'OL UIU
UICS 0000611

lOON ITII ""06

01010'
01020'
OIOJO' .
01040'

.." 1620-nll aO-A" SUIPIIOGU" '011 EVALUATING
THI fE""INAL ,unEII ,osnlo" AT rAley" cs.
aes
.NAHI 'AICS ••• IION-E"ASAtll
olD NUlllea OZUtOELDUI
.'SSEIilIU IIELOCAUtlE
.nOllE IIELOAOAlU
LINKAGE - ITIII 'lICS ••• II.6?

010~0'

01060.
01070'
01010'
01090.
01100
01110·
01120 rAles

6.0

DC

000o, 00006
SV81'''OCIIA'' ''''"Y
NONI,a,ozz,o,.f.
CALL '''HDC SUlI'''OCIIA'' VIA NONI'"
00006 IT Ol.ao -uto
EIIPRDC.IISOO,.,.
..nE ,.11. IIIISSAII ••• SUI"" .011 '''0
00011 U 01"10 ."00

I'M

ITN

OIUO

011 .. 0.
01150 MONlrll OS
.2406
011110 EIIHDC OS
.24111
01170
OENO ,a,es

02"06 00000
01416 00000
00006

"lOr

S'''IOL UtiLE

x,-o.o 015.6R
TUtUr 00552.
,reUFR 00002.
NSU·S OISJZII
"AGe VI 02992
OSCOUT 02416
CION
01"211
OSAI OO)53R
OSU 0041511
ELMNT 0649)
MOVEZ 0010611
NSEtT 024n
IlAIlI OU5611
STACK 0022211
TN'" 0051 .. 11
VAIIII 0021".
."XO 01982
YO
O"OZ
at.O 017 ...

LeOORD 02416
fllCfSw 06151
REM I TE OU80"
NSM r-6 0063211
MAGC" 0)002
epSLON 06004
ClOSS" 01220R
OIST. 02416
OSU 00404.
DSA. 0041111
!lun 0614.
NPW-O 0060811
PSS" 06150
SLOPE 009)2.
rEIIM ·0028211
UV
06U'
XI
05.U
VIIVO 02992
1.0
06075

0101001020010)0010400105001060010700108001090011000111001120
DC
01110011"0.
01150 "''''11 I'"
0116001110

1''',,"0
UBCYL
PIIESPT
NONTltIil
LOOPS ..
CROSU
CUT
OUIO
OU'
fl.N
MVI
NSIIF
IIlTlO
TEM'
TPST
VIllU
XO
l
'.0

IISIIF-I,' ...Sf.".'"
LOOl'S .... ,

01200
01010

TF"
8_

VAIIIl06.STAC"
TNi'll. ",,,,"-a ..

02060

0I0fO
0'0800
01090 IIOV"

I

00II.
"L

0601"

DSU
'IINST
MVI
NSIIT

liE SET
TEIO,.
UNITV
nllYl

osn

DSAI
!lU"
N'..
OUTS.
IIESTI
TE""
UII
I(

YJ

D...

Oo)nll

0041111
0614'
02455

oun

0141611
OJOU
06125
05120
05nl
060.5

lies

00001 00002

Z.O

NIJ .... 1O.

.

Y

0.0

OUI

02411
01f52.
06014
oonlR
0 IJ UII
OU6011

'I'.

Til
TOIl

02040.
02050

0114111
0)012
00501.
00"40.
02UI
00656.
02471
02982
02972
0007411
01196.
0519'
0'''0
OIT'''.

oou ..

UNvECI
• HilliN
OUTPU'
IIINI.O
J IGGIII
tROSS,
DISC"

oN'IOI "I"'.... NON-EUUII.I A.ILEIO SUIPIIOGII""
olD NUNlIR 02"'00lLOI"
.'SSEIOIL! RELOCATAILE
oS'OIIE IIELOAO"LE
LINKAGE - ITII 'TIU,.,N,610
N IS -I filii NON-TE."INAL ,,_ Of CUT SEOUENCE
N IS +0 , . TEII"I NAL
0' CU, seQUEIICE

"10

. '"
"

onu

OO.92R
02416
00154R
02406
oonlll
01011.
0)021
00"8.
004".
01540
0061011
0247'
01U2.
0)012
02416
0112411
05130

II" "Zo-Ull Ao-A" SUBPIIOGRAII 'OIl ,,,,FE.ING
OIlIVING SU.fAce OUT'U' OAT'

01110
01190

:~m·,,,,

UNvlU
STIIlCf
PRESOR
Mil" IT II
aun-I
CROSSI
0

00508"
01628R
0019011
0164111

SETU' 'liED-IlOilO '.EA FOil OUTPUT
00014 16 0145' 000-0
OOOZ' II 02"" 055)1
'U." 01" ,.ast HIII1' INOICATOII
00018 IS 06111 00000
00050 JO 00220 -auz
1II&K1t· •••111""111. PT_ OF CUT SEQUeNCE
00061
oon.. 00001

"10

NOVEl,'U....

laAIICII . . .1 II IIOIUOIIUL III.A",
000'" 114 00106 "&to

IIOIIITR,DSA'O+S_6.

cau

&COO.0 .. 6.

CAlCUL'"

-.

TI"'.r

Ie. . . ..,.,..... V"

lI0II''"

000.. II' .,600 00506

l-cGOlDI"'.. 01'
CU"'II ('''''"
. . . . 6' 016'0 . . . . .
00106

.. I.. O'

.,.7Z

os.".

2114

02100
02110
02120

T'l 11110,.
FSUI XIIIO,IO. ,
II
I(CMP·O •••

021~O.

02140 PRESOII TFL
02150
TFl
02160
HUI
02110 PRESPY n

U,IIIIO
.,J"

02180

fRACUT, TRCrs,...

INA

VJ.yO,.

10-9,1-'"

X-IO
lUNCH "

OOIU 06 OZU, OSUt
00110 02 OZ •• 2 0 •••'
00142 116 00'0' OlZOO

X-.O

001'4 06
00166 06
00178 02
'-'0
ESTAlllSH 'RESENt 'OINT
00190 Jl
lUNCH I' TUCUT IIODI! PREVAILS
00202 ",

0'.Z1 02.1'
059n o,no
059U 0590Z
051" 05111
00'"

061'3

021.0e
02200 VAUI
0]010
0]020e
0]010 stACIC

OOllG _3
TR

ElIINT,I-',6,

0]040
010'0
03060
0]070

fFl
All
All
ID

I, TEIIP
ILIINf.]O.IO
NPI")' 10,
NONTRII,PTlUH-I, •

03080e
0]090 TERM

aD

kUTt-I,KUTI"

OllOOe
01110

ITII

03\20

BTII

IIONI TR.On60,67.
CALL OSCOUT SUIPROGRA" VIA "ONITR
00294 17 02400 -2)60
OSCOUT ,RETURN •• nl. "RITE ONE AD-A" RECORD ••• RETURN
00106 \1 02410 -Z4IJ
RfTURN,KUT2,6.
lUNCH" lIun IS ONTCUT
00111 4J 02~lJ 061~'

I

03130 IUTI-l SO
Oll40e
OllSO
03160
Oll 70
03180.
0]190
01200
04010 OSA!
04020
040]0 OUl
04040
04050
04060
04010
04080
04090
04100 OSA]
04110
04120 OSA4
04UO
041~0

04150
04160
04110
04180
0"190 OS"
04200
05010 OU6

'.'E ,

00214 4' 00000 00000
OOZ22
"DYE X• ., AND I TO ounUf AREI
00222 ]1 064.l 0511\
00n4 O. 0,.40 0 " "
00146 II 06.91 OOOLO
"PI,eNP"e)
oon8 II 02." 000-1
IRANCH I' NON-TERMINAL PT CUT SEQUENCE
00270 ilL 01648 00001
lUNCH I' KUTI IS ONTCUT
00212 "3 00]11 061.1

TFM NPI/.lo 10
TERII.\Z
B
OORG e-4'5·]-1I-2

00330 16 024" 000-3
00]42 "' 002.4 00000
00]51

NOP y,Z
OORG e-14
OSA x
OORG •• 5.,-4
OSA MVI'12
OSC 5,02101
OORG OSU"'5.'- II
HOP yJ ,MAGCYI
OORG e-21
Nap O.O,XI
OORG e-14
OSA 0.0
OORG e.5.5-4
OSA' MV2+12
OSC '.OZIOI
OORG OSA4'5.,e'-11
Nap YO,"'CCYZ
OORG .-2\
Nap . Y. XO
OORG _14
OSA X
OORG e.5e5-4
OSA UNYECI+IZ

00152
00149
00]5)
00]'"
00168
00]69
00]87
00381
OOHI

OSC
OORG
NOP
OORG
Nap
OORG
OSA
OORG
OSA
OSC
OORG
NOP
OORG
NOP
OORG
OSA

00441
00459
00"60
OOHO
00450
00447
00451
00461
00411
00472
00490
00490
00410
00480
00471
00481
00491
00501
00502

41 0'130 0"40
00005 -5120
00005 -0661
00005
41 059]) OZ992

oone

41 06034 0"23
OOHS
00H9 00005 -6014
OO~OO

00404 00005 -0692
00~05 00005
00~21

00H4 41 05902 03002
00414
00414 ~I 05830 05192
00411
00~15 00005 -'uo
00H6
00440 00005 -0100

PAGE
05020
05030
05040
05050
05060
05010
05080 OSA7
05090
05100 OSA'
05110
05120
05130
05140
0'150
05160
05110 OSA"
051B0
05190 OUIO
05200
0601006020 X,,,P-O
060]0
06040
06050e
06060
06070

5,02111
OSA6.5".4-6
UY,O
.-21
YJ,UX
.-14
XI
e.5.4-4
UNVEC2+\Z
5.02111
OS&8"'50'-'
UY,O
.-2\

UY,UX
.-14
UX

OORe; •• '_4-4

OSA
OSC

IIOYEZ
5,021>71

TFl

Y"YO,Y

FSUI YMYO,YO"
PRe SDR, , ,

81"11

06090 TRACUT 8TII

IIONITR.0'520,61.

IT
STUCT.OSA\+IO •••
8
YAltIlI+6"B
DORIO -1

41 06135 00000
41 059Jl 06125
00005 -5921
00005 -1004
00005
41 061]5 00000
41 061]5 06125
00005 -6125
00005 -0106
00005

00544 lit 001.0 00000
00552
CALL STRACT SUIPROGRAII VIA IIONITII
00552 17 02400 -2'20
TUCUT l"'lICIT POINT 00564 ZP 02410 00363
00ST6 "' 0022- 00000
00584

06100
06110
06120
061300
06140 TNP"
06150

til
lHE

NP""IO
NSR.T-." ..

00584 14 024" 000-0
lUNCH ., NP" I S NOT lERO
005.6 M7 01532 01200

06160.
06110 NP.,-O
06180

CM
BE

NSU.'.IO
TPSf ...

IRANtH "

0619006200 NSU-a TFM
07010
aT

VARBI_6,URE
NONITR.OSA2+' •••

07020 IIVI

8T

070)0

IT

OUTF.DIAI+ZO.6,
_ITR.OSA4o,.a.

01040 IIVI

lIT

~Uff .0lAf.zO,a.

01050
07060
07070
01010
070'0

TFl
FOIY
TFl
HU.
....

RATIO,II&GeV2
RATIO,II&GeYl ••
CIIIT . . ."O
CIUT.O.S ..
RllnU. . . .

07100.
01110 JIGGER 'NUL II&GeYltO.,..
011'0
'SUI II&"V""'GeY'"

»

00508 06 029'2 05130
00520 02 02992 0590Z
'-YO
III1ANCH IF Y-YO IS NOT lERO
00532 111 001'4 01200

a
PRESPT
OORG e-3

06080-

00005

00608 14 OZ47' 000-'
NOT A CONTINUATION RECORD
00620 M6 00014 01200

00632 JO 002Z0 -1356
Call DIS" SUIPROGRAII VIA MONITR
00644 Zp OZ400 OOS73
CAlCUUTI IIAGII. 01' PREVIOUS CUT YEt TOR
006'6 ZP 02410 003.'
CAlL 01STI' SU.'ROGRAM YIA MONnll
00.68 ZP 02400 00409
CALCUlaTe .A,II. 0' PRESENT cut VECTOR
00680 " 01410 004J!l
00692 06 02982 03002
UTI De"A'CY""AGCVl
00104 O' 0291Z 029.2
007&6 06 nota 029IZ

uuo-o.,.

IRAIICH "

0.'

.

oatS NOt

OOl,. 02 OIDU 0601')
IICEEO RATIO
00140 lIa

oun

onoo

OJ on., 06065
0016. 02 01"2 0.002
~1St

us

071)0
07UO utlVIU IT

IIIIITV,OSU.",.,

onso
07160
07170

FNUL U.... 'OCV1"
FNUL Uy,N'GCVI"
FSUI lO.UI"

07180
07190
07200
08010
08010

FSUI
TFL
FAOO
'SUI
'NUL

0.0)0
08040

til

080S0'
08060
08070 SLO"
08080
08090
08100
08110.·
08120

I.

YO.U'
0.1.0
A'TIO.R'TIO ••

o.uno,.

O.IPSUIIt"
NSAF.4.l8

T..en ....

FNUL 0.19.0"
TFL
fOIY
TFL
IV

Ux.YJ
UI.II"
uy,"INI.O
XI-O.O ...

IT

MOIl ITII.Osa"5 •••

081J0 UNVEt2 IT

IIIIlTV.OSA9''' •• ,

08140
FNUL ·U •• O..
081S0
FMUl UY.o ..
08110 CIIOSSI TFL TEMPI ••
08170
Fsuli TEMPI.XO ..
08180
FAOO TEMP1.Xl"
08190
FMUl TEMPI.YJ"
OelOO
TFL ·TfMPI,Y
09010
FSUI TEMP2,VO ..
09020
FAOO TEM',.YJ"
0'0)0
FNUL tEMPI,XI"
09040 unl FSUI TI"PI.TE ..""
MF
CROSSNo TEMPI-'
0'050
0.,060 CIIOSSI TFt TEMPI ,Xl
FNUL TEMPI,UY"
0'1070
09080
TFt TEMPI.U
090'10
FNUL TE"".UX ..
09\00 VUU
FSUI TEMPI, " .." ..
0'1110
II'
tIlOSS' ..••
O'lUO'
091)0 CIIOSSN 8MF

CkOSS'.12 ••••

09140'
09150

FAOD XO,UX"

0911,0
0'1170
09110
09190
09200

FAOO
TFL
TFl
TFL
TFL

YO,UY
TEMPloX ..
TE"PZ,Y
1.10 ••
Y.YO ..

CALL UNITY SU ...IOG. ." VIA NONnll
00716 " 02400 004'"
CAlt. utllT VICT" Of 'REVIOUS CUT Y£CTOR
00"8 21' 01410 00'"
UI-UI'''AGCVI
00800 0) 0'12S OZ99,
UY-UY'''AGtVl
00'12 OJ 061,. 019.2
Rf-DEPINI LING'" 0' 'lEY IOUS CUT VECTOR
008~4 02 OS.9' 061,'
008)' 02 OS901 061)'
0014. 06 0'021 060n
I.O'II'TIO
0086. 01 02.12 .2'1.2
1.0-2.00.a'10
00112 02 DJ02' Oi •• 2
'PSLONIII.0·2.0IUfIOI
00114 OJ OJOU 06004
00196 14 01411 000-"
_.ANtM I' ,AICYL CU' YICTOR
00901 II. OIU. OUOO
1•• 0'E'SLONoll.0-2.0oUT 101
00920
00911
YJ/XI
00944
00."
IUNC" IF XI-O.O
00961

OL
06
O'
06
..6

0)012
061U
061lS
O'US
01'96

CALL UNnw Sue.IIOG1lMl VIA liON nil
00980 2P 02400
CALC. UNIT VEC'a. ,ell'TO PREVIOUS CV
00992 ZP 02410
01004 0) 06l1S
01016 OJ 06115
Olon 06 0)012
1-10
01040 02 0)0)2
X-IO"I
OIO.Z 01 O)OIZ
U-IOUIIIU
01064 0) O)O)Z
01076 06 0)042
V-YO
0108. 02 0'041
Y-YO>YJ
OllOO 01 0)042
'Y-YOtYJI . . 1
Oltll 0) 0)041
t 1-IO . . II'U-ty-YOtYJI'X I
Oll24 02 0)0)2
01 U6 PI 01220
01148 06 0)012
Oll60 0) 0)012
II'UY
oll1Z 06 OJ042
YJOUX
Oll84 0) 0)042
01196 02 0)0)2
II'UY-YJ'UI
IUNCM IF IIESULT IS 1'051 fiVE
01208 "6 .01)12

01784
OSU,
0'92J
0602.
01400
00416
004'16
0)022
01022
05820
0"'2
OS'Z)
OS.,)
05"0
05902

on)]

OS92J
0)042
OJOJO
0592)
061J~

05.H
061"
0)042
01100

I"ANCM I' CM CUTTING MOOE
01Z20 11M 01)24 01210
RE-OI'I_' 'REVIOUS tUT YECTOII
012'2 01
01244 01
SAVE X-V COOIIOIN.'IS 01lS6 06
01268 O'
.-10
012.0 06
V-YO
01192 A'

0"92
OS902
010)2
0)042
05120
058.0

0612.
061'5
0"20
0"'0
0'192
OS902

'IGE
10010
8
TPST
10020
DOIIG 0-)
10010'
10040 ClOSS' eMF CROSSN+12.CIIOSSN..
10050'
10060
10070
10080
10090
10100'
101"0 RAIlE
10110

FSUI'IO.UI"

FSUI yo.UY
I
CIIOSSN'"

_a
80

10UOo
10140 IIEllnE TF
10150
SN

0-)

IIESTl,KUTI ..
OISCW'S.OUTSA
01StWt5ol,10.

10160

TON

10110
10110

&GIl •
SEEK OUTPUT, ..

10190

PUT

OUTPUT ,RIC ..

10100

TON

NSECT-IU'lOO ...

11010 liES"
11020

YFL
TFL

l.TEM'
X.TE"" ..

TFL
""

Y.TE"PZ
YAR81.6.STACII

llO'O
H040
11050
11060
11070'
11080 .sn-s
11090
11100
11110.
llUO CIIII
llUO
U140

•

NSECT-ltS'lOO ...

,'S,

DORa -)
"N

VARlat •• ellll

I
"SR'.'.12
_a
t-'

"

SIt

Til

"JO.n"'"
"11,1.10
,1-•• ,

111.0
I
IIESTI
11160
DORa --.
III '0UIIO X'-O.O ,A. ux,a.o
H190
'fA. UY.O.O
lUOO
a2010
DOR. . . .
110201
11OJO fAICYL 'I!UL D••••••

'UNVlea.,.

&2040
11050
11060'

......
•

St.OP.

,

01)04 M9 00014 00000
01)12
IIIANCM I' CM CUtTING ..ODE
DUll "" OIUZ 01120
RE-DEFINE PREVIOUS tUT VEt TOR
OU24 02 OS . ., 06115
01))6 02 05.02 061)'
0134. "' 012.6 00000
OUS6
RE-OEFINE TIP 0' PIIEVIOUS CUT YECTOR
OU56 JI 02899 05111
IRANtH IF KUTI IS ONTCUT
01368 ") 014" 06148
013.0 K6 017.S
SET OUTPUT SECTOR ADDRESS
OU92 Jl 01165
sn TER.. INAL GIIOUP "ARK
01404 15 029S1
01415 00001
'05"1011 AIIM TO OUTPUT CYliNOEII
01416 10 00565
01421 411 00n4
IE-IIIIITE 'RnIOUS SECTOR.
01440 10 00n5
01452 41t 00510
CLUII TU"III ...
"ARII
0146' IS 029U
014" 06 O""C
IIUTOIIf
CGOIIDIIIAfU
01488 06 0'820
OUOO 06 OU)O
01'12 JO 00220
01524 "9 000f4
OUU

GIl.

1-'

0657)
000-1
00000
-1419
-1152
-1461
-1151
00000
02n2
0)0)1
0)042
-0211
00000

015J2 JO OOZZO -15'Z
01544 "' 00644 00000
on5Z
01'" 116 01"2
01564 JI 01.11
Til' OP "EVIOUS CUT VECTOR
01'" Jl 00000
DIS •• '" oa.'6
0159'

06491
000-)
05111
00000

015.6 06 061" 060"
oa608 06 .,al5 060)4
01620 II• •'004 oooot
01621

..

.....,St.... " ...2.0. . .~:::. IL OJO"

., ,

.16'. . . . . . ...,

o,t..

oeooo

zn

12010 No.n"" C"
120.0
aNE

NPlh4 •• IO
IIETURN .. 6.

01641 14 024n 000'"
'"ANCN IF aUFF'" NOT FUll
01660 41 OIHJ 01200

120'0'
12100
11110

lIun,Kurt ..

EL"NT,FlW+OolG-'

01612 It 0(49) -2U'
IIIANtH I' ItUfl IS DNYCUT
01684 '1) 01712 06148

IT"

MONI TII,OU60.6T,

""

OStOUT,"U,tT,

tALL DStOUT SU';IIDGaA" VIA "DNITII
016.6 11 02400 -2360
Will TI 0l1li AO-." IIICOIID... lUNCH UCK
01101 I' 02410 -H2O
NUt UUTPu1 IIEtOIlD is tONT INUAlION TYPE
01720 U 02475 00Q06
01112 16 024,. 000-0
IInUIIII TO "DNItIl
01144 4. 0241J OODDD
017SZ

IF''
DO

12UO'
12110
12140
12150

TOM

12160 lIun TF"
12110
8
12180
DOIIG
1l1'0'
12200 OUTPUT DOW

N5",,6 ..
NPW, ,10
RETURN .. 6,
-3
.DIStll .. R,A

llOIO DISCII

DOA

.0.0.I.N5ICT-I+4-100

13020
ll030
13040 19.0
13050
I)ObO '.0
13010'
13080 lOOPSIl
130.0 NPW
IlIOO NSRT
IHIO PSSII
IH20 FlW
•
13130 MONITII
1)140 l
I H 50 X
13160 Y
III TO ElM"T
Dl80 XMXO
lll.O XO
13200 XI
14010 YJ
14020 yo
140]0 XUTI
14040 OSCOUT
14050 RETURN
14060 XUT2
14070 YMYO
14080 STUCT
140'10 TRCTSW
14100 TEMP
14110 RATIO
1'120 HAGCVI
141]0 MAGCV2
14140 CRIT
14150 0.5
14160 UNITV
14110 DISTF

DC
DC
DC
DC
Ot

I. '
'.1'000000
2.2
••• 0000000

OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
as
OS
as
as
OS
as
OS
os
as
OS
os
OS
as
OS
os
os
os
as

.6)33

14180
141 '0
14200
15010
15020
150]0
15040
15050
15060
15010
150&0
15090
15100
15110
UIZO

UX
UY
D
1.0
EPSlON
MINI.O

as
os
os
as
os
os
TEMPI os
TEMP2 os
OUTSA as
os
0.0
"SECT os
IISRF
os
FXUT os
ItOORO as
OENO

2.1
,2455

.2415
.6150
,2488
.20406

.,altO
.5820
,5830

.64.)
lO.f:lW.4'_lO.14
.5892
.5923
.HH
.5902

01152
01154
017,.
011.0
01166
0116.
01114
01182
0118<
01 "2
011.4

00001
DODO.
00001
00006
00003
DODOS
00001
00001
00.002
00001
00002

OU))
02455
02415
06150
OZ4sa
02'06
05840
05820
05130
0 . . ')
02'82
058'2

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00010
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00010
00000
00010
00010
00010
00000
00000
00000

0~92]

,Z416

0593]
05902
06\41
02416
02411
06\49
029'12
02416
0615]
02912
02982
02.92
O]OOZ
0]012
060"
02416
02416

10.61Z.
10.UXt10
10.tRIHIO
.6015
.6004
.6024
10.0+10
10,TEII"ttO
.6573
.60)4
.2453
,2411
.5540
.24110 .
PT8UFR

061Z5
06135
0]022
06015
06004
0602.
03032
0)042
06513
06034
02453
02477
05540
02416
00002

.61~8

.2416
.2411
,6149
.XM~O_IO

.2416
.615)
10,XMXo-i0
,ICMXO

10.RATiO-10
10.MAGCVltI0
10.MAGtV2t10
.6065
.2416

00010
00010
00010
00000
00000
00000
00010
00010
00000
00000
00000
00000
00000
00000

, ..!

t

"u

,

lt~

- UtO
'
0-0000
-01
-I.S2

207

""eOl TAILE
UIO'FS 00020~
TlRAO 05914
l'"XO 02.62

"'11111.0 06024
TEMP ooon
XOFFN 0001 ..11

01010·
01020010)0'
01040·
010501
0106001010'
01010·
01090.
01100.
01110.
01120011 )0.
01140011 SO.
o1160 AOOCO~
01110 XNIII
01180 YIii...
01190 XOFF'"
01200 YOFFII
02010·
02020020)0 LRO"S
02040
02050
02060
02010
02080
02090
02100
02110
02120

02130
02140
021S0
MhO
02110
02180
02190
02200
0)010·
0)020 FXTII
0)0)0 F
0)040 TLIIAD
0)0'0 .. "XO
0101>0 UX
0)010 YlMYO
0)010 UY
0)090 "INI.O

ADDeo ... 000 I '"
ux
0612'
nil
OOOO"R

,
05964
UY
06135
YOFF" 0001.11

FnR 01Xl. .
....
1It01411
YI"YO 02n2

11M 1620-1311 AD-APT SUBPROGRAM FOil 'ROJECTI", • POI"'
fROM THE CH£U SUIIF ACE USEL, TO THE OFFSET CHlCll
SUII'ACE IN THE OllleCTlOII OF • UIIIT NORMAL YEC"II
A TO, PUT 011 011 CHECK SUtI"CE IS II,EOUIRED'
IICS
.... AME lRO"S ••• ERAS"LE AllELE. SYIPROGR''''
liD NUMIER D2U-OUOIM
oASSENIlLE RELOUUaU
-srOIlE RELOAOAILE
LINKAGE - IT lROFFS,DSAlIL_15,6
DUl8l IS ADDIIESS OF X-CCDRDINUE OF POINT ON CS
DSALIL.' IS 'DORESS DP V-CODIIDINATE OF POIN' ON CS
DSAUL+IO IS ADDRESS 0' X-COORDI"ATE 'ROJECTED " .
DUllL-U IS ADDRESS OF V-COOROI"ArE PROJECTED n.
DC
OS
0$
OS
OS

20,0
5, ADOCO"'-"
5, XNNo 5
5, YNN.5

5,.

00019 00010
00004
00009
00014
00019

00005
00*"5
00005
00005

SUS.ROGU" EIITRY
FUR,'
00020 06 00069 0'.64
FXU,TLUO"
F-'L~AD
00011 0] 0001>9 05914
TFl 'XOFFN,XI"XO,6,
XI-XO
00044 -6 0001" 02962
FNUl XOFFN,UX,6,
Ill-XO'-UX
00056 -] 0001" 06115
TFl VOFFN,VI"VO,6,
YI-VO
OOObl -6 OOOIR 02"2
FNUl VOFFN,UV,6,
IYI-YO'oUY
00080 -] OOOIR 06115
FAOO XOFFN,VOFFN,611,
IXI-XOhUX_IYI-YOloUY OOOU -J 01011' eOOIR
FMUL XOFFN,F,6,
11X1-XOIOUUIYl-YO'oUY,,'
00104 -I 0001" 05964
FNUL XOfFH,MIfU.O,6,
-IUI-lOloUI+I YI-'O,oU".F
001\6 -] 0001'" 01>024
1FL TEM't.OFF .. ,.'
00171 00 00079 0001"
$I GNF I"TR,-II XI-XOII\l1(OCY I-YO 10UY I.F,
FXTR-l,TE"'-2"
"F
00140 11 00061 ooon
TFL XOFFN,FXTII,6
00152 -I> 0001" 00069
TFl YOFFN,FXrR,1>
00164 -6 OOOIR 0001>.
FNUL XOFFN,Ux,l>,
FXTRIUX
00116 -1 IXIOI" 06115
FMUL VOFFH,UV,6,
OOlft. -) OOOI~ 061)5
FXTtI·UY
FADD XOFFII,XMN,'II,
xOHNoXNN"ITReUl
00200 -J 0001" OOOON
FADO YOFFII, YMN,I>Il,
YOFF .. ·YIIN.FITII-UY
002 U -J 0001. OIleOR
00224 00002
OSC Z. 42"
UIT
TFl

F"U~

DS
OS
OS
OS
OS
OS

DS

OS

10,69
,5964
,5984

,2962
,6U5
,UNXO'IO
,6135
,6024

00069
05964
05984
02962
061n
02912
061 n
06024

00010
00000
Ologo
00000
00000
00000
00000
01Xl80

.Af.f
03100 T',,'
0)110

OS
10,19
OfND lIlOF',

00019 IX)OIO
00010

218

h~80l T UlE

'oleoll

DOOHR
FNOH 0016011
UY
06n'
ynFFN 0002011

FIIOfFS 00026R
FXTR 00069
Xliii
0000.11
02'12

""vo

01010'
01020010)0.

,

0.964
flUD 05.8.
0"62

'-0.0 0008611
UX
0612.
0001011
VN"

"".0

Ie .. 1620-1)11 ID-APT 5U8'IIOCRI .. FOR PROJECTING" POINT
FRO" THE CHECK SURFACE ITSELF TO TME OFFSET CHECK
SURFACE IN THE DIRECTION OF A UNIT NORMAL VECTOR
" fAlITO CHfCk SURfaCE IS REQUiReD
IICS
INI"E FBOFFS... eU$AiU aRUE .. SUePRDGUM
lID NU"aU 02'0+OElOIM
IUSE"'lE REloCAUIU
.stORE UlOIDULE
lINU!;E. ~ IT fl"FF! O~Altl+21

Ol()4,O.

01050'
01060'
01010'
010801
010.001100-

t

. .. . .

.

mm.l',t"U&d""'=t! IdmM' lI~e'=IIj'"III'u

H!! II.

01l2h
01\3001i'0011500116001110 AooeON
01180 XNN
011.0 YNN
01200 XOFfll
02010 YOHII
02020 TOlCON
02010-

IOCCOII 00025.
TE~P
0001.
XOFFM 0001511

'ICE

OSHel_10 IS AOOUSS OF x-COOIIDINATE 'ROJEC TED " .
OSlln-" IS ADDRESS OF '-COOIIOINITE 'ROJECTEO " .
OSAlll'20 IS AOOIIESS OF DIRECTED TOlUANCE
DC
OS
OS
OS
as
OS

26.0
5.AOOCON-20
5. XNN+5

5, Y..... 5

5. KOFFN.5
5.-

00025
00005
00010
00015
00020
00025

00026
00005
00005
00005
00005
00005

SUBPRDCIIA" ENTRY
02050 feOffS TFl Fxr'hF
00026 06 00069 05964
02060
FMUl FXTR,TlRAD ••
FoTlRIO
000)8 03 0006. 05'8~
• Cf
02010
FXTR-2."
ABSflfonRADI
00050 )3 00061 00000
18SF IFoflUO .. TOlCON 00062 OJ 0006' 0002N
02080
FAOO FIlR.TOLCON.ll,
020QO
aD
FIIIOTI,F-', ,
RRAIICH IF f IS NOT 100
0001~ "3 00160 05955
0210002110 F-O.O TFl XOFFN.FKTR.6
00086 -6 000111 ooon
00098 -6 0002- 0006'
02120
TFl YOFFN.FXTR.6
FURoUX
021)0
FHUl KOFFN,UX,6.
00110 -3 0001N 06125
FXTRoUY
021~0
FHUl YOFFN,UY,6,
00122 -1 0002- 06115
XOHN-XNN.nTRoux
fAOO XOFFN. XNN.611.
DOll. -J 000111 OOOON
02150
YOffNoYHlltFUIlOUY
fAOO YOFFN.YNN.611,
001~6 -J 0002- 000102160
B8
EXIT
00158 .2 00000 00000
02110
02180
OORG
00160
021900
Xl-XO
00160 -6 0001N 02.62
02200 fNon TFl XOHII.X1MXO.6,
IX1-XOloUY
00112 -3 0001N 061)'
03010
FMUl XOf..FN,UV,6,
TFl YOFFN,Yl"YO.6,
Yl-YO
001A" -6 0002- 02912
03020
IY1-VOI.UX
001.6 -3 0002- 061Z5
03030
FMUl YOFFN,UX,6,
Ul-XOloUY-IYI-,OloUX 00208 -K 0001N 00020)040
FSU8 XOfFN, YOFFN.611.
II Xl-XOloUY-1Y 1-'0 ,-UX ,oF
0)050
FMUl XOFFN,F.6,
00220 -3 0001N 0596.
00232 00 0001' 000'"
0)060
TFL TEMP. XOfFN.11
SIGIIFlFXTR, ICU-XOloUV-IYl-YO'-UX ,oF'
MF
FUR-Zt TEMP-Z ..
01010
00H4 11 00061 00011
00256 00002
OSC 2,49
01080
02040_

--....

PAGE
0)090
0)10003110 FUR
01120 F
031)0 TlUO
03UO X1MXO
01150 UY
03160 "MYO
0)110 UX
03180 TEMP
031'10

OSA

F-O.O

00262 00005 -0086

as
os
os
DS
os
OS
OS
OS
OENO

10.69
,5.6.
,598.
.2962
.6U5
,XIMXDtIO
,6125
10.7.
FeDFFS

00069
05964
05.S.
02962
06115
02912
06125
00019

ooon

00010
00000
00000
00000
00000
00000
00000
00010

SY"II01. UIU
AODCOII ODOUIl
DYOSA

UDbII 000 I 011

ooona

01010'
01020'

1If0S 000,..

tADD" 0002."

1111 1610-\)11 ID-APT 5U8'''OG.." FOil DUE""IIIIIIG UOPl
OF I CUIIC CURYE Af AIIV PDfllt ell fHE C~VE
.
IIU
'1I1ME DTD5... EUS"U snull SUIPIIOGU"
'10 IIUM8EII 02S1-0ElOIII
'155E"IL£ RflOCATAILE
.STORE RELOIDAaLE
LIIIKIGE DrOS,OSAlIl"O"
051LIL IS IDDIIESS Of $-(OOllDIIIA't OF 'OlIlT
051l8L" IS IDOIIESS Of A-COI",(,IIIT 0' C.llt
OULBL"O IS 1001lES$ Of '-COEFFIClElil 0' CUIIC
OSAUL'" IS 10DIIESS OF C-CO"""IEII' 0' CIlIIC
05ALIL'20 IS AOOllfS$ O' SLOP! OF CUIIC
CUlit £OUA11011 '011" ••• """.3-,oS""C05

01010010~0.

OIO~O.

010&0'

OIOTO'

.T

01080.
010"0'

011001
01110'
0112001110.
O\l~O'

011 SO.
01160 lODtOIl OC

01110 SAODII
ill180 UODII
01l"0 UOIlIl
01200 CIOOR
02010 OTOSA

26,0

OS
05
05
05
OS

Of OS

02050
02060

.02010
02080
021190
01100

01110
02120
02UO

DODZS 00026
0000' 0000'
00010 DODOS
OOOit OOOO~

5. AOOCON-20

5,SADORtS
5, AlDDR"
5.eADOR"
5,ClDDU5

02020'
01010010~0

UOOI 000""

SIObll 0000511

TFL
.ADD
FADD
F"Ul
'100
'100
FMUL
FIDO
OSC
DEliO

00010

oeoo,

00025 00005

5U8PIIOGRI" EIITU
orOSA,SAODR,611
orOSA,SADDR,6'I,
2.0.5
DrDSI,SIDDI,611,
~.o·s
OtOSI,IIODR,611,
).0- ... e5
DrDSI,aIDOR,'II,
S.Oo'oS+1
DTOSI,IIOO~,'ll,
).0-A'5+2.0"
01DSI,SIDOR,'ll,
SoIS.0·1'$+2.001'
OTDSA,t.DDII •• ll.
S-U.Oo'tS".Oo"·C
2,42"
UIT
DTOS

00026 -0 000211
00038 -J 0002N
00050 -J DOD'"
DODU -L 000211
00074 -J D002N
ooon -J 000211
000'" -l 000211
00" 0 - J 000211
00U2 00001
OOOl'

000011
OOOO~

DODD"
0001000111
0001 ..
000011
0002-

....rte
SVI"OL TAIU
00016R
01520

STRACT

A1

IIATRII 08440
8\
08"0

o.no.

R1

00049
elY
UDDR OOOO'R

OBHO
'AOOR 000 lOR

C)

010]0'
01040'
0\050'
0\06001010.
01080'
01090'
01100'
01110'
01120'
01110 AOOCOll
01140 .AOOR
01150 UOOR
01160 LAOOll
01110.
01180'
0!l90

IDDCOII OOOI5R
00069
IU
01460
C\
08470
01
lAODR ODD 15~

AI
82

tlX
02

01440
014'9D
00019
01510

U

In
CZ
OJ

014110
000'9
01500
08"0

11M 1620-1'11 AD-APT 5UIPROGRAM FOR 'EaFOIIMIIIG
A TRACUT OPERATIOII 011 All' GIVEII POIIIT

010\0'
OIOZO.

01200
02010
02020
020)0

ooo,q

Ul

ollAME 5rllACT ••• ERAS.ILE IRELf" SVIPROGRA ..
• 10 NUNIER D252+0ElOIM
.ISSEMllE RILOCATABLE
.STORE RELO"OA8LE
LINKAGE - I' STRItT,OSll'L'IO,'
DSALBL IS AOORESS OF I-C(ORDIII"TE OF POIIiT
D5AL8L" IS ADDRESS OF Y-tOORDINATE Of POlllr
D51L8L'IO IS AOOllESS OF I-COOROIIIITE OF POINT
OC
05
OS
05

00015
00005
00010
0001'1

16.0
5,AooeON-10
5,unOR'5

5,'

1FL tU,t I
Sf"''' FNUl
tl.,XlOOR,II.

020~0

OZ050
02060
02070
01010
01090
02100 '
02110
02120

02\10
02140
01150
01160
OZ110
01180
01190
OUOO
OJO\O
01020

0)0\0
010"0
0)050'
0)060 "ATIIII
01010 Cli
01010 Cl
01090 In
01100 I t

TFl
'NUL
FNUL
TFL
FNUL
TFL
'MUL
FNUL
'ADD
TFL

IU.81
11X,XADDR,II.
KADOR,A"'.
12V,81
IIV,YADDR,II.
t2y,el
t21',YADDR,ll.
1'''0011,11,6,
.AOOR. YADD.,.Il.

fAOD
FAOD
TFL
FADO
TFL
'NUL

.AOOII,VIDOII,.II.
UDOR,D"'.
1'IDoR,I",.
VAOOII,IZY,.,

"~OOR,.".

'NUl VADDR,ZADDR,611t

')I,II)

IIZ,ZADOC.I ••

• .po YIOOR,aJI,'.

fAllD
'NUL
FAlIO
"AlID
• AlII
DSC
OS
OS

OS
OS

OS

UDO.,D2,',
UDOI.t:, •• ,
lAoo.,el ••••
lIOOR.CZ'.I.
lIOO•• 01 •••
a"2 ..
•••• 0

10.1.
.MUIIII.ZD
10, ••
,11""11+10

Cl'"
AZoV

"o..".Y
A).,
Al ••• AZ.Y.AJ-1

X_II·.·12.,o.302·01

",,,"0'
1)'2
,,'1,"''''''''
Y•• I ••••2.Y •••• , ••,

Cit,
Clo ••" . '
cao.tCl·Y" '"

ItCl •••ea.ytC •• ' ...

un

00016
0002.
00040
00052
00064
00076
00011
00100
00112
0012'
00116
DOl"
00160
00171
00114
DOl'"
00101
00120
00112
001.'
002"
002.1
OOZ'O
00192
00104

00016
00005
DODDS
OOOOS

06 ODD,",
OL 0001.
0006.
0006'9
000011
0005'9
OL 0005'
O' 0004"
OL 00049
-) 0001-J 000011
-6 0001-l 0001-J 000011
-I 000011
-6 0001-I 000106 000"
DL ODD.'
-I 0001-I 0001-) DODIN
-I OOOlN
-I DOD'"
-I 000'.
00'" 00002
06
Ol
-,
06

0.440 00000
000" 00.1.
0 ... 68 00000

lOa. . 00110

• ..., . 00_

08460
000011
08450
000011
0.440
08""0
000108500
00010.4.0
000101520
000 IN
000108410
000••
00059
0.5JO
000111
000"
01'10
0•• 4.
1101.

00049
01"0

Zit

OHIO
011Z0
01110
0)1'0
Oll'O
01160
03110
0)180

Al

an
8Z
en

ez

01l~0

onoo

.2
AS
01

os
as
OS
OS
OS

BJ
04010 02
04010 CI
04010 DJ
04040

,NURIX'IO
,MATU .. IO
,UY

os

OS
OS

0'''0
01510
0"4D
O..'D
DOD16

,NURlXHO
,MATIII .. IOO
,NATIIUHID
oeNO STUCf

RETIIRN
ALPHA
COSF
IIXY
THETA

000l5R
00023
OOOlOR
OOOI'R
OO"IR

02411
000 I 'R
02UI
OOOZOR
00030R

SY"IIOL

ralu

IIONlTR
AUNF
OSiI
SINF
VERTL

02.0.
OZ416

005lU
02416
003.U

UNLOC 000)6R
IS' 0003lR
DSAZ 0052611
UNF 01416
XORC OOOO!lR

00000
00010
00000
00010
00000
00000
00000
00000
00000
00000
00000
00000
100lI0

OIOZO'

,

,

COSALF ooon
8U
000l5R
MOVE 001'611
TEMPI 1100"11
YOIIG 0001011

UM 1620-1311 AD-APT SUBPROGRAM FOR CCNVEIITING
THE CANONICAL FORII "RANETEIIS OF A LINE
IN'9 THE RF.FEIIENCE SYSTEII OF A LOCAl CUIIC CIIRVE

01010'
01030'
01040'
01050'
01060'
01010'
01080'

lies

'NAIIE LlNLOt ••• NON-ERAUIU SYlTEII SUBPROGRAM
.10 NUMBER OI')'DELOIM
.ASSEMBLE RELOCATAIU
'STORE IIfLOAOAlLE
LINKAGE - 8' LINLOC,DSAlIL'JO,.
DSAllL IS ADDRESS 0' X-COORO. OF CUIIC ORIGIN
OSALBU' IS ADDRESS OF '-CODRO. OF CUIIIC OIllGIN
OSALIL'IO IS ADDRESS OF lI.f. ANGlE OF tUIIC SVSTEII
DUll"''' IS ADDRESS OF $LO'E II-Y SVSTEII'
DSALBL"O IS ADORESS OF Y-INTIIICE" IX-Y SVSTEII'
DSAL8~'" IS AODUSS OF SLO'. IS-f SYSTEM'
DULlt.~O IS 600llESS 0' '-llIfIIlCE" IS-T SI'STEII'

010~0'

01100'
01110'
01120'
011 30'
OIUO'

01150'
01160'
01110'
01180 AOOCON
01l~0 XORG
OUOO YORG
02010 ALPHA
02020 MlY
02030 In
020.0 ""
02050 . . '
02060'
02010'
02080 LlNLOC
02090

Don.

,MURuno

os
os
os

SIJULF 0004)

ADDCOH
C
NSf
TENP2
1.0

0'''''0
OOUt
0 ...0
000'"
01500
01"'0
01520
OIUO

,MURIX'60
,MURII'''O

os

uz

,AG.

,MURIX
10,59
.MURI X'50
10,4'

OS

os
OS
OS

36.0
5,AootON-3D
"XORGo'
"YORGo,
5,ALPH'"
5,NlYn
"lilY.'
"liS'"

SF
TF

IIXY-4
OUI."IIXY

DC
OS
OS
OS

as

0003'
0000'
00010
0001'
00020
00025
Dono
ooon

00036
0000'
0000'
0000'
0000'
0000'
0000'
0000'

SUIPRDGII611 INTRY

OllOO

C,

O~IIO

OliZO

Cf
nil

DSAI+I
DSAI"
MONITR,OIOI0"1,

021)0

IT

AUNF,DSU.'O •••

021.0
02150

FSUI THI' •• AL'H' •• II,
IT
MONITR ,OSA'.,

021.0

ITII

""F,IIST ••11 ..

01110

ITII

MONITII,Oloao,.1.

011.0 IIDft
011.0
02200
DIDIO
nOlo
01010

TFl
tFl

t"

.".
....
.TII
CII

00016 L2 DOD" 00000
000" 110 00516 00020
0006e LJ005.2 00000
OOOTI lJ 00'" 00000
CALL uaNF SUIIlOU"Me WIA NOIIITII
000.. IT 02400 -2010
c'LtULAr' tHlTa, WHlaE MXY-'ANfITH.'"
000.6 I' 02.10 00521
'HEtA-aU,,"
0010. -II 0001- OOOlN
CALL taN' S",I'IIOGU" ' u tIONnll
OOUO . , 0'400 00511
C.lCUL"."S'.UIIFlfHI'... AL ......
80111 If 0'410 -DOlCALL SIIIF-COSF SIIIIIOVfIIl. ' " IIOItITII '
OOa4' n 01400 -1010
001,. . . 0001. OOOIN
101. . . . OOeMS DOD))
SINAlF.SIIIFIIl",a.
80"0" 01610 -006'
CO .......COSPUL......
001" n 014U -00)1
IOlO4 '" DOD,.. . . . .
.,.,. .. I""" U. IS ,eatlCAL
,
IOU6 ... OIHI O.HO

211

'All

010~0.

TfL

0!050
0)060
Oloro
0]010
0)0'0
0)100

"..

OHIO

nUl TEM"hSINAlF ..

OH20

FMIIL 1ST. TEMP 1.6.

OH 10

FAOO TEM"2,COSALF ..

01140

FNUL TEM',. IOIIG.U,

.0IlGo.SIN'IALPM"~S,oCOSF"L'M'I'

0)150
01160
011 fO
01110.
OH 90 VlIITL
OllOO
04010
04020
040)0
04040

FAOO 'ST,tEMPi.6
IIUUAN".,

IIUURN TO 1II0N""

an,U.,611
nUl In,VOIIG,611,
TFL'
" " " ,to SAl.'
FNUL tOSAl.
,liST, " .
TEM".SINAL'
FNUL SINAL"MST,lh

IInotoSF! AVMAI

•

c.tu,1I

040~0

04060
04070
040ao

FNUL c,NST,lI.
F5U. C.YORG.ll.
FMIIL C.COSALF ..

04090
04100
04110
OltIZO.
04110 OSAl

FAOO 85TiC,.
RETURN"I"
DOllS 0-4

00)16 -l 00015 OOOON
00141 -J OOOIN oO'on
00'60 69 0141J 00000
DOl. .

00)6'
00310
00)92
00404
MU·YOIIIl
0041.
MSToYOIIGoC
0041.
SINF,AL'HA'oIMS'.YOItlloCI

C,MIY.II.
C,XOIIG, U,
.ST,MST.tll
BST,YORG,611.
as Toe ,6,
aST,SINAL', ••

-C·BXV/M.,.
'-XOllo-C

00~40

RSToC
00452
MSToC-YOIIG
00464
eOSFIAL'HAI·IMS'·C-YOIIIlI
00476
00"81
IIETUIIN '0 MONITa
00500
00507

•

OS.

1.0.0,-THE"

DSA

MOYE-\2
5,02211
1,10000000
2,1

OSC

DC
DC
OS

os

OS
OS
OS
OS
os
OS
OS
os
OS
OS
DENO

I

-0 OOOIN 0002N
-K OOOIN OOOi-6 00025 OOOIS
Ot. ooon dads-6 oootS 0004)

SINAL,-"S,oSIN' .... PM',
00211 Ot. 00043 aDosCOSP .AVMA,-IIUoS 'III'tALPMAI
00)00 -2 0002~ 0004.
IIIY-YOIISlo.COSF.ALPMAI-Msr.UNF IAVMAlI
00112 -L OOOIN 0001'
SINF,ILPMAI.MS'.CII$'.ALPM'I
001,4 -I 0001~ DOD"

00110 .·1
T'L
fOIV
fADD
TFL
FMIIL
FAIID
FMIIL

04140 DSA2
04150
04160
041ro 1.0
04\80.
041'10 MONITR
04200 AUNF
05010 THETA
05020 TANF
050)0 SINALI'
05040 caSALF
05050 SIN'
05060 COSF
05070 TEMPI
050ao TER"
05090 RETUIiN
05100 C
05110

In-YOIIS

OOlU
002<00
002S2
002'4
OOZ16

,2406
,2416
,NSf
,2416
10,4]

lo.n

,2416
,2411
10,UY
10,AL'H"
,24tl
lo.n
LlNLOC

00
011
OJ
-0
-L
-I

ooon

OOOU
0002)
OOOlII'
DonN
0003N

0002N
0002OODON
ODDS0001ooon

-3 OOo)N.OOOU
OL ooon 0001OK ooon 0001-

03 00021 OOOU
-I OOOIN 00011
49 02"" 00000

-a'••

00511
00" 6
00521
00526
00527
00539
DOSH

OOOOS
00005 -0000
00005 -OOJ00005 -0144
00005

02406
Ol'''
00030
02416
0004)
ooon
02416
02421
ooon
OOOIS
02411
ooou
000)6

00000
00000
00000
00000
00010
00010
00000
00000
00010
00010
00000
00010

ooooa

00002

PAtoe

SYM801. TAILE
SINALf 0001011
000]511
ooonR
ooonR

IInURN
ALPHA
TEMPI
YOIIG

ADDtON
T

,

'NfLoC: 0003611
eOSf 02421
TE~P2 00069

MONITII 02406
S
OOO'OR
0002011
X

COSALF ODOUR
SIN' 0141.6
XORG 0000'"

II" 1620-Ull AD-APT SUBPROGRA~ FOR TUNSFDRMING
THE COORDINATes OF ANY POINT IN TME X-Y
COOIIDINATE SYSTEM INTO A LOCAL tOOIlO.NAT! SnrEM

010100
010200
010)00
01040.
010500
01060.
oloro.
01080.
010'00
01\00.
01110.
01120.
01110.

RCS
'NAME PNJLOC... NDN-EusaBU SYSTlIII SUB'RDGUM
.10 NUMIEII 015400ELOIM
OASSEMBLE IIELoeATAILE
oSTORE RELOADABLE
liNKAGE - BT 'NTLOC,DSALIL,30,6
OSALIL IS ADOIIESS OF X-COORD. LOCAL SYST. ORIGIN
DSAlBL+5 IS AODIIESS Of Y-COOIIO. LOCAL Iysr. ORIGIN
OSALILtlO IS ADOIIESS OF ANGLE ROTATION LOCAL SYST.
DSALaLtl. IS AOORISS OF .-COOIIO. OF POINT IINPUT.
DSALBLt20 IS AOORESS Of ,-COORD. OF POIN' IINPUT.
DSAU ... " IS AOOIIESS OF S-COOIiO. Of POINT IOU"U"
OUL .... SO IS AOOIIISS OF T-COPO. Of POINT IOU"U"

O\1~Oo

olno.
01160.
011 roo
ol1ao ADDCON
01\90 XOIIG
DilDO YORG
02010 AL'HA
02020 X
02010 Y
02040 S
02050 T
020600
02010.
02080 'NfLOC
02090
02100
02110
02120
021)0
02140

02411
'OOO15R
00079
000 lOR

DC
DS
OS
os
os
DS

00035
00005
00010
00015
00020
00025
00010
000l!!

)6,0
5,ADDCON-'0
5,XORIH'
"YOIIG.,
',UPHA.,

os

s, ... '
"Yo,
"SO,

TFL
FSU.
TFL
I' SUI
TFL
TfL
• Till

SU.,IIIIGIIAM IN""
S.X,611
I-XOIIG
S,XOIIG,611,
T,Y,611
Y-YOIIG
T,'0IlG,611,
YORG. ALPHA
MOVE AL'HA
Y,YORG ..
1II0VE A.. 'HA
CUL S.NF-COS,
MaNnll,02010,"'.

Os

,II,

02110
02160
02110
02110
on 90
02200
01010

SINf,SINALF,6f,
COSf,COSAL ..·.6f,
TEIII'ItS,llt
"L fIIllPl.f,l1,
'IIIUL S,COSAL' ,., .
'NUL TeMP2,SINAL' ..
"00 S,TEII'a.6.

0)010
010'0
010 .. 0

FIllUL ',COSAL" ••
,MIlL TlIII".SIIIIAL',.

I TIll
ITM
TFL

nUl ',"_&,6,

OlOto
01060
01010.
01080 _.1Il II

,1. .6

00036
00005
00005
00005
00005
00005
00005
00005

000)6 -0 000]00041 -K OOOS00060 -0 OOO'N
00012 -II 000'"
0001. -0 00010
00096 -0 00315
SV "OGRA~ VIA MONITR
,
00101 17 02400
SIIIIALF-SINF I AL'"A'
00110 I ' 01.10
COSALFeCOSF .... PM"
OOUl" 01.'"
Mil'll I-IOIIG
001.4 00 00079
1II0V' v-vOII.
0015. 00 0006.
'.u.IOItG.-COS""
00'61 -L ODDSIV-YORt'ISINAL'
00110 OL 00069
,e,I-IORGI.COSAL'."·YOItGI.SIIIM.F
001t, -I OOOS.cos..., ,.
ooao..... DOD,"
'I-IOIIO'-S.NA'"
00216 OL 000'9
.'."-YOII•••CIIS ...........OIIG' . .IIlA'

000200001t
0002.
0001OOOIN
00010
-2010
-0010
-00"
000)OOOSN
ooon
OOOlO

"-'tOIl.,
oooZS
"tUIII'" .....,. · 001"0
1000.
..........
·"U
. '.

000. .

...10

. 00'" ., GOOtll _ . ..

..406 .....

lIZ

,aGf
O'(I~O

OllOO
DB 10
0)120
0]\10
01140
01"0

SINf
(OSF
SlNAlF
tDSALF

onto

"11'1

OS
OS
OS
OS

as

.Ht'

,

01H' 00000
02421 OOallO
000111.00010
ooon 00.10
000" ODin
OODn ODOIO
OUIIO_

.HZI
10.VOI'
10.V
10,"
10,&9

DS
TEll"
,2~1I
I nUll II DS
DEND 'NflOC

lIeut

PAGE

,WO'OS
SETCN'
ONfNEG
LINfAR
CONVRT
AlERO
CAlli

UII
OSAl
OSAa
HAG

rNOEx
~OVEI

'NT2
SAVEl
5MU

SN
52
h'O.O

'MIMN
12

WHO
X1

Vl

00lHA
01096.
OOMO.
00010.
01866.
01766R
o14'l'U
00019
OOHZR
OO)HA
0001'1
02358R
0141211
01'l.,4R
0154411
02641R
02667R
O'5'15R
01016R
02651R
02b05R
0038011
00064'"
0006911

01010'
01020'
010)0'
01040'
01050'
0106001010.

oloao.

0109001100'
01110'
01\200111001140.
01150.
011600
01\1001180.
OIUO'
01200.
02010.
02020'
020)0'
02040.
020'0'
0206002010 ~DOCOll DC
02010 MSf
OS
02090 IS'
OS
02100 ."
DS
01110 "M
os

'H.UA
SAllE.'
IIONI 'A
INFlPJ
AooeON

a-o.o
CIIN
OECR
oSA.
OSA'I
FlAGF
MODI
MOVEZ
'IITJ
SAYEl
SIIUI
SOATf
S2T
TEST!
TIlDA
TZT
XI
YI
0.0

02611A
00676.
02.06
00912.
00049R
0105bA
0lH6R
01556R
002H.
0031.R
00105.
01'l18R
OIlHR
0207011
0160 ••
02188R
02416
0211111.
012lell
0261111
0212711
02nlR
0'16111.
02HSR

SY~80L

TABLE

SNCALC
Rf 'UA"
IIOOIFY
FOURle
A-O.O
8N
eN
DrSTF
OSA5
OUPL
FLAGT
11002
liST
RARE
SAYEl
SIIUl
STORF
5)
TESTZ
TNOI

OO.SOU
0241\
02334R
00069
01000R
000)4R
000)'1.
0'416 ,
0028911
O'221>R
00091R
02026R

TJ
XN

YN

)AC

OOOO~R

021 "R
01664R
02nu
OI6BU
021>1611
OIJ'~R

Ol651R
026:611
0001411
0001"
00029

SIIXIIN2
'"TAH
IIINI.O
EPSLCN
AtFN
BST
tOil.
OSAI
oSA6
HIIIF
INUI
'OD)
NOINT

0002~

02416
OZ54U
02564.
OODHR
00009R
02n4R
00171.
00)09R
02'16
02506R
02102R
00\66R
R~
0245311
02616R
51
SMIII 02631R
0251411
51
021)TR
TESO OIJIOII.
0'58411.
T\
0214111
OT
000.411
1\
0004911
VI

sn

SIIXIINI
ONE'OS
LNellSE
OIFFI"
AN

02681R
0011lR
02416
009HA
0002'.

BlEAO

ole.u

(ON'O
OSAl
DSAT
EXIT
INCU

0255.R
00U7.
0012 ••
01914.

IIOO~

011160

02518~

"PIS 00091~
AUIIG 00019
02462R
SLT
SMXII'" 0271SR
026~TII
SIT
541
02nlR
02626.
TI
02101R
TIT
,ItT 0216111
Xl

0005~R

Y2

oon",

11M 16,o-nl\ AD-APT SUBPROGRAM FOR DETE""INING
INTERSECTIONS Of A LINE ANa TABeYl INTERVAL

'"I

ReS
o"AME LlNTAI ... NON-EUUIU SYSTEM SU8PIIOGUM
'10 IIUM8ER O,55.0flDIM
'ASSE"ILE IIElOc.raIU
'STORE RElOADAllE
\tNUGE - IT LlNTAI.OSALBl.65,6
DSAUl IS ADDRESS OF SlOPE OF LINE IS-T SYSTEMI
OSAUL+5 IS ADDItESS OF T-INTERCEPT IS-T SYSTfMI
OSAUL+IO IS ADDRESS OF X-COORD. INffltVAl ORIGUI
OSALBLH5 IS ADDRESS OF V-COOItD. INTERVal ORIGIN
OSALBLtZO IS AOORESS D.F A"GLE ROUTION S-T SHTE"
DSALBLt25 IS ADDRESS OF A-tOEFFICIENT OF INTERYAl
OSAlIL+lO 15 ADDItESS OF a-COEFFICIENT OF INTERYAl
DSAl8L+n IS ADDRESS OF C-COEFFlClfIlT OF INTERYAl.
OSAlBL •• O IS ADDRESS OF X~CoORDINATE ,I'OINT II
oSAlIl •• , IS lDDRESS OF V-CODRDINAT! '~OINT II
OSAlIIl+'D IS ADDRUS OF I-COO.DINAn "'OINT 21
DSA18L+U IS AOORESS OF V-COORD I "ATE l'OINT 21
DSAlIL+.O IS ADDItESS 0' .-COIiRDINITI "OINt )1
OSALlV.' IS AOORESS OF V-COORDINatE IPOINT II

NO. Of' IltflllSlCTlONS IIIDIClTfD If t-DIGIT
'IILD .M COli 'OSI'IONS OOOII-OttI.
50,0
S,ADOCIJltoU

" ..ST.'
',IU.'

"I"t'

00049
otOO.
.....
10014
1M ••

01050

1000'
0. . . .

00..'

IHII.

21=1

02120 AVII
021)0 All
02140
02150 tN
02160 XI
02110 YI
02180
02190 U
02200 n
0)010 0
01020 VI
O)OJO'
Ol040'
01050 L INU8

,,.

Ol060
0)070
01010
Q10'Q
01100

OS
OS
IlS
OS
OS

OS

OS
OS

'.UoS

DC

05

tF
SF
SF
TF

CF

OT
BT

01120

aD

04Z00

OSO 10 DSA4
0'020
O~OlO

05040
05050
05060
05070 DSAS

05080
05090
05100
n'110
0\120
05110 OSAf>
05140
051S0
0~160

n5170
05180
0'190 OSA7

OORG

NOP
OORG
OSA
OORG
Nap
OORG
Nap
OORG
OSA

000~9

00005
00005
00005
00005
00005
00005
00020
00005
00005
00005
00005

SUBP.OGU' !NTRY
OSl20S.aST ..
Sff ADDRESS ARGUMENTS FORlNCU8E
00070 KO 00192 00009
XN-4
00082 U 00010 00000
AN,..,
00094 l2 0002S 00000
DUZelO,CN
00106 KD 00107 000)9
DSU e ,
0011' lJ 0019) 00000
"ONITR.OSAI+5 •• ,
CALL lNtUBf SU8PROGUM VIA MONIU
00110 2P 02400 00182
lNCU8E.OSAZ+50.6.
tAleUl A
I NURSEC TI CNS 1I NE AND CUBIC
00142 2P 02410 001)7
llEED,FUG ..
a_ANCH I' lliTERSECTION EXists
OOIH M] 00380 00019

n

OSA NOINT-il
OSC 5.02111
OORe; 05AI+'.,011-11
NOP Sh TJ
OORG '-21
NOP .52.12
OORG .-Z1
NOP
51, TI
OORG '-21
NOP 0.0
OORG .-21
NOP 0.0
OORG .-14
OSA 0
OORG "Soll-4

OSt
OORG
NOP
OORCi
Nap

OOOH
00049
00069
00054
00059
0006,

S. U,'

8
RETURN"t.
OORG 0-4

OSA

OOOH
00019
00014
000)9

5.8N'~

5.tN,'
5.XI'5
10.0
,.VI·'
5. X205

OS

01i10

Oll lO'
OH40 1i0lNT
01150
01160.
0)170 DSAI
01180
0)190
01200
04010
04020
040)0
04040
04050
04060
04070
04080
04090
04100 DSAl
04110
04120 DSA)
041)0
04140
04150
04160
04110
04180
04190

S. YN'~

StU'II"
5.AII.'

a

5,02611
OSAHhS.7-11
XI.VI
-21
51. TI
'-21
0.0
'-H
0
.".7-405'4-6
TMXMN.O
0-21
S'UN.SMU
'-14
SI-9

OOR'G •• 5-4-4+ 5-4-6-Z
Nap
T"X~N,O
OORG 0-21
NOP SHIN.SMU
OORCi o-H
DSA
52-9
DORG •• 5."-4+5·"-6-2
NOP TMXMN,O
OORG 0-21
NOP 5"IN,5MU
OORG --14
OSA
S3-9

O~200

DORG •• 5-4-4+5_5-11-1

06010
06020
06010
06040
06050 DSAI
06060
06010 DSA9
06080
06090'
06100'
06110 WEED
06120

NOP

O,SN
OORG --21
NOP 0,0
OORG e-14
OSA o
DORG •• 5.5-4
OSA a
OSt 5.02101

RETU_N

'0

IIOIIIU

00166
00171
00177
00\18
00226
00226
00216
00216
00206
00206
00196
00lQ6
00\86
00180
OOIU
00lA1
002)6
00202
002H
00211
00112
00262
00262
00252
00H2
00249
0025)
00298
00298
00288
00288
00285
00289

003\7
00318
00108
00)08
00305
00309
00337
00338
00118
00328
00)25
00)29
00H7
00358
001'8
00148
00H5
00)49
00370
00)74
00315

~9

0241J 00000

00005 -01S4
OOOO~

MJ 02616 02626
MJ OH95 02605
MJ 02574

OH8~

4\ 00000 00000
~I

00000 00000

DODOS -0000
OOOOS -0000
00005
MJ 02157 02161
MJ 02616 02626
41 00000 COOOO
00005 -0000
MI 02657 00000
MJ 026)7 02647
00005 - u n

HI 02657 00000
~J

02631 02647

00005 -2586
MI 02651 00000
MJ 026)1 02641
00005 -2607
4J 00000 02661
41 00000 00000
00005 -0000
00005 -0000
00005

CALCULATE MAXIMUM S-VAlUE IN TAaCYl INTERVAL
SET SMIN • 0.0
00)80 -0 02611
SM1N,O.O ••
STORE NO. OF INTUS£CTlON POINTS
NPTS.FlAG ..
00)92 K6 0009)
00404 KN 02688
SlT-9.RM
TO
00416 Kif 02108
SZT-9.RN;
TO
00428 ~N 02728
TO
004~0 -0 02677
TFl
Z.O'AIHI
00~52 -J 02617
FAOD TIIOA, TWOA,••
IRANCH IF AIN' -0.0
00~6'"6 01000
az
TFl
TF

025]8
00019
02451

061)0
06140
06150
06160
06110
06\80
06190'
06200
07010

TFM
IIJN

07020
010)0
07040
010S0
07060
07070
07080

TFl RURG,8Ntli
FMOl RTARG. RTARG ..
TFl FOURAC. TWOA
FAD 0 FOURAC. TwOA ..
FMUl FOURAC .CN.I1,
FSUa RTARG,fOURAC.,
8TN SDRfF.nAAG.U,

07090
01100
07110
07UO
011 10
07140

fFt
SMAX1oaN.11
FMOl SMAXI ,NIIII.O ..
'TFL SMU2,SIOUI
'FAOO SMAXI,UARG ..
FSUI SNAU.UARG ..
~on SNAI(Z.fNOA ..

onso

FOIV SNI.I.tNO' ••

00644 -II 027 •• OZ671
1-IINI."' •• GI/II.Oo.I"11
00U6 -II 02188 OZU,

07160

.,

ONf'DS. , •

lUNCH" '"All IS "SIlIYE

SM.I. SM'.' t .

Sf' .... INUM '-V.LUI IN 'AaCYl INTERvaL
006.0 -0 026., 027 ••
00 •• 2 JO 01". -1'"
00704
010.' 00000

~~ri~~A:~\ r

'-0.0.,.

07110'
011.0 ONE NEG tFl
07190
OllOO

t'N
•

OSA9. SNCAlC+IZ
MOIiIU.OZOOO.67.

DECAtll.C_
Sf " " '

00416 JO 00174
CALL SQRTF SUIlOUTlHE VIA MONITR
0048B 11 02400
00500 00 00079
allil"!
00'12 0) 00019
00'24 00 00069
4.00AINI
005)6 OJ 00069
4.00AINloCIN'
00548 Ol 00~6q
'INI"2-4.0oAlllloCIN' 00560 02 00079
RURG_SQU'"UU"2-4.0 ... II,oCIIi"
00572 11 02410
00584 -0 02188
-"H'
00''16 -L OZ7U
00608 -0 02198
-allil."'ARG
00620 -I 02788
-IIN,-RTAIIG
006)2 -2 02791

02~5)

02~'1

0002R
02677
01200
-08\6
-2000
000)"
0007'1
02677
02671
000).
00069
-0079
COO)"
02548
02788
00079
ODD"

1-IIIII-II,a"&I/I'.Oo'IN"

00668 "6 00111 01100

R.

21ft

,

08010
OM" ....
08010080 JC ONEPOS
TWOPOS.S ... X2-Z.,

.N'

'AG'

00H2
..... CH IF I

•

NON-NEG. S-VAlUES IT T-O.O
00H2 MM 00144 021'1'

080~0.

08050

TFL

OB060
08010
080BO_
080'10 TIIOPOS
08100
08110

ONENEG_"
a
OOllG - - )
TF
TF
A

OSA8+5.YN
DSA8>15.YN
OS18+14.eON60 ..

08110
081)0

eF

Dr

OS'B>6
MONITII .osa • . , •• ,

08140 SNtALC Of

DI STF .OS".20.',

SMU.SMUI ..

08150
08160
OB110
08UO

TFL CIIIT.SN
Fsue CR".SMUI ..
CF
CR. '-2",
FSUI CR IT .EPSlON ..

081"0

8P

OIFF" ...

OB200_
0"010 sa"EPT TFl CIIIT.SMAXI
09020
Fsue CR IT. SN,.
BNN ONEPOSt12. '.
0"030
0"040OQ0500"060 INfLPT TFl
0"010
0"080
0"0'10

SET "UIMUIII S-VAl.UE IN JABen INTEIlVAl
00124 -0 02.41 01188
00136 M'I 006'11 00000
001"4
001H KO 00)54 0001'1
00156 KO 00)64 0001'1
fABlllt'TE ADDRESSES OF XIN>II AND YIN>II
00168 KJ 00)6) 01554
001BO L) 0035'1 00000
CALL OlSfF SUIPIIOGUM VIA MONITII
001'12 2P 02400 DOH.
CALCULATE S AT INTElIVAl END PO INT
00804 2P 02410 00)69
00816 00 00039 02661
SINI-SII"I
00828 OK 0001'1 02188
AlSF lSI NI-SMAXII
00840 n OOOH 00000
AISF lSI NI-SIIIAU I-EPstON
00852 OK 00039 02564
IIIANCH IF ISIIA~I.O.OI IS NOT END POINT
00864 M6 00'1"" 01100
00816 00
SMAX1-SINI
00888 OK
lUNCH IF SINI OafS NOT EXCEED
00'100 M6

0003'1 021"
0003'1 02661
SMU2
00124 01100

B

AN I"'FlECTION POINT EXISTS IIITHIN uacYl INTERVAL
SET MAXIIIUM S-YALUE IN TA8cn INTERVAL
$"')(,5"AX2.,
00ql2 -0 02641 OITql
OECR>I8.RARE
00n4 JO onH -21l~
SETCNT
OOH6 "'I 010"6 00000

OORG

--)

TFM

0094~

0"100-

0'1110 OIFfPT TFl tRIT.SMAXI
0'1120
FSUB CRIT,SN"
09130
8P
ONEN£:G •• ,
0'11400'1150
0"160
00110
0"180.
Dlll -»0 '-0.0
0.200
10010
1002010030
10040
10050
10060100TO '-0.0
10080
100'10

TFt

SMAX.SMUI ..

00'144 00 000]'1 02188
SMUI-SINI
00056 OK 0003'1 02661
aUNCH IF S"U I exCEEDS SINI
00'68 M6 00680 01100
SET MAXIIIUII s-vALUE IH

INflPTt12
8
DORG .-3
TFl SfIIIAX.CN,ll
FDIV -S"U.8N.lI,

8Y

a-o.o" •

FIlUL 5"'X,"INl.0 ••
ONENEG+U
B
OORG . - )

CINII81NI
aUNCH IF aINI-O.O
SIIU--CIHIIIINI

TARcn INTERVAl
00'110 -0 02641 02188
00'1'2 "" 00.24 00000
01000
01000 -0 02641 OOO)R
01012 -R 02641 aDO)"
01024 M6 01056 01400
010]6 -L 02641 01548
01048 M'I 00692 00000
01056
01056 JO 00314 -lOT"
01068 "" 00744 00000
01076

TF" 05A9, '-0.0
1110POS
a
DOIlG 0-3

'AGE
10100·
10110 T-O.O

1FL

SMAX. SM,.

8
ONENEG>12
10120
OMG .-]
10130
10140FLAGT,NPTS"
10150 SETtNT TF

1016010110
10180
101"010200
11010
11020
110]0
11040
11050

SAVE NU"8ER OF INTERSECtiON
010'16
CALCULATE 51"IN-MAXI ••• SET OTIOS-O.o
01108
FADD TNOA.AN,II,
3.0-AINI
01120
az AZERO...
8RANCH IF AINI-O.O
TFl
F"Ul
TFl
fMUl
fSUI
BTM

RURG.8Ntll

11060
11010
11080
11090
11100
11110

TFL
FMUl
TFL
FADO
FSUI
FOIY

SMXMNI.8N.II
SMXMNI.MINI.O ..
SMXMN2.SMXMNI
SMXMNI.RURG, •
SMXMN2.11 TARG ..
SMXMNZ. THREE A..

11120

FDIY SMX"NI.THREEA"

111]0 TESTl
11140
11150

TFL tRIT.SMAX
FSUI CIIIT.SMXMNI,.
INN TUTZ ...

11160.
11110 "OYU
11180
11190
11200·
12010 fUTZ
12020
12030
12040.
12050 TUT)
12060
12010
12080
12090UIOO "ovU
III 10IllZO

121)0
12140
\l150

SET MUIIIUII S-VALUE IN YA8Cn INTERVAL
01016 -0 02641 02667
01088 "' 006'1' 00000
010'6

RTARG.JlTARG,t

3AC,THREU
lAC.CN.II.
RTARG, lAC.,
SQR TF .RTARG.61,

POINTS
KO 000'1 000"3
-J 02611 OOOlR
"6 01766 01200

01112 00 0001'1 0003M
01144 a) 0007'1 0001'1
01156 00 0002'1 021>77
).O-AINI.tINI
01168 OL 0002'1 0003R
BlNI"Z-3.0-AINI-tINI 01180 02 000'" 0002'
RTARG-SQRTF UIIU,.,-].O-AINI-CINII
011'12 11 02410 -007"
01204 -0 0268T 0003"
01216 -l 0268T 02548
-BINI
01228 00 0002. 02681
-IINI'"TARG
01240 -I 02681 0007'1
-8INI-IITARG
01252 02 0002'1 00079
SMXMN2ol-BINI-IIURGIII ].OO&INII
01264 OR 0002" 02617
SMXMNI-I-IINI+IlTARGII13.0-AINII
01276 -R OZ681 02611
01288 00 000]'1 02641
SMAX-S"XMNI
01300 OK 0003'1 02611
lUNCH IF S"IMNI DOES NOT EXceeD SMAX
01312 "6 01344 01300
81NI .. 2

OUZ4 -6 02178 0002'
01136 M' 0lU4 00000
01J44

TFL SMXMH, S"XMN2 ..
8
MOVE ._12
DMG .-)

5"1",..$M.""2

TFL CRIT.S"IN
Fsua til IT, 5MXIINI ..
8N
MOYU ...

01344 00 000]'1 OZ6)1
SMIN-SMIMNI
01356 OK 0001'1 OZ611
lUNCH " SMIN UCUOS SMXMNI
OU68 III 0llZ4 OUOO

TFL
TFl
8

SIIXMN.S"I"NI
SMIMNI.S".M"2
NOVU+U

OOIIG - ,

01310 -0 02778 02681
-6 02611 0002'1
01404 119 01424 00000

oun
01412

01412 -0 01718 oz.n
SMXMNoSIIXIINI
TFL SMIIIN.SMXMIII"
EVAlUAT. T AT SoSM."N
01424 -0 02657 0002R
TfL '''XMN. AN.lI
AlHI.SIII"N
01436 -L 02651 0171.
'MIlL TMXIIN, S"XNN ••
'IH"SMIIIN.""'
01448
-J 02651 OOOIM
FAOO T..."",IH,II,
SIIXIIN" AIIU_S"X"""'Nl J
'MIlL TIIINN,S"X"-,.
01460 -L OU.u onlt

11160

"'00 TIIIIIIH,CII,Il.

12"0

'NUL "'..... 111......

UilO CALLl

ITit

IIOIU tlltI»Z620, • ."

$1I.""'AIII,o$II."-"IIIII+CIIII
01412 -J 016" 000'"

"S...

'1I ..... 'I"I .....II" ••••• '"I.$"."N. .,.I:I"
MN
014.4 -" 016" On'Ti
I:ALL ILIIIF SUIP"OIA. . YI' IOONIT"

ot491 tf 024DO -1620

alS

12190
12200

tFM

FUG"IO
ELIM'.DSntU •••

0150' 16 00019 000-0
VERIFV tHAT 'OINT eSI,'11 IS ON "'CVL
01~20 "
01~10 OO)O~
IUNtH IF POIlIT IS NO' ON TABen
Ot5)2 M' 01"6 OOOIT

\l010

,.

\l020'
1l0]0 SAVEl
11040 OEeR
1]050

"M
SM
81

STOR',SI-9 ..
FUGf,lt 10

13010

IT

ElIM' ,DlUt n,i,

Iloao

8NR

SAVUt12 ,FLAG-'.,

130'10'
11100 SAVEl
13110
13UO

ITM
$"
III

STORF, 52-9 ..
'UGt,loIO
DECII+18,,6.

SAVE 'OINt IS2,T21

13\40

IT

ElIMF,OSUtU,.,

IlISO

IINR

DECR> II,FLAG-2,.,

111601)\70 SAvn
\1\80
111'10'
11200 STORP
I~O 10

VERIFV THAt POINT IS),T)I IS 011 "8CYL
01640 " 02410 00)44
lUNCH IF 'DIIIT IS IIDT ON UBCYL
01652 "5 0151" 00011

I

BT"

STORF,5)-'1"
OECA+lI .. "

SAVE POINt IU,U'

TPM
8N_

STORFtU,SIT-'
MOO" •• ,

01688 JO OUII -2681
aUNCH IF 110 IIECO.O "ARK
01100 "5 on26 00000

aT

nooo.

SAVE It U ,fUG-' ••

...

SAVE POINt ISI,TII

140~0

..

fXA~IN£O

01568 46 00000 01200
VEillfY tHAT PO I liT IU,fll IS 011 ullen
01580 2' OI'UD OOJZ~
IIUIICH IF '0 "IT IS IIOT Off TABCYl
01~91 '" 01616 0001?

'RANtH

IF ALL

0160~ Jp 01688 -2~'6
01616 J2 00091 000-1
POl"fS U'''INED
01628 "6 01S1" 01200

0166~ J' 01618 -2601
01676 "9 0151." 00000

TR
STORF+Z),
STOR'-1 ,611
__ 9
BB
EXIT
DORG

OUIZ lJ onu 011>1'
OH24 ~2 00000 00000
01126

AM
STORFt21,Z,IO
8
STORFtll
DORIO - )

01121> JI 01110 000-2
01111 109 01100 00000
01746

,

1~040

01544 JP 016•• -2~6'
015~6 JI 000'11 000-1

IRANtH IF ALL 'OINfS

nllo.

14020'
14010

'AGI

1~060'

14070

"OD~

1~080

14090
1410014110 C"N
H120'
141 ]0
1~140

14150'
14160 AlUO
14110
14\80
1'1'10'
14200
15010
15010
I~O]O

BO

CONYRT ,FLAG"

I
RHUR" .. ",
DORG

.-)

TFL TWOB,BN, II
HOD TW08, TWOI ..
IZ
BlERO" ,
TFL S"X"",O:O
FSU8 SMXMN,CN,I\,
FDU S"_MN, TWOII"

150~0

8
MOVE\+12
OORG . - )

150'0IS060 8lERO
1\010

TFl
8

15110

TR

SI-9,SIT-9"

15110

TFII

OSA),MOOI ..

15140

lIT

MONI Til .OSU",6,

15150

8T

'NTREF ,OS'4+10,6,

15160 "001

TFL

xl,Xl,6,

15170
15\80

TFl
8NII

PIITZ, sn-9.,

TF

FUG, FLAG T "

16010
16020
160)0'
16040 '1If1

OF

PfS. ON TAIICYL NON lERO
01146 ") 01866 0001'1

RETURII TO IICNItA

OU58
01766

VI,YI,6

RETURN,,6,
B
OOllG . - )

~9

0241J 00000

01166 -0 02651 000110
01118 -J 026" 02651
01 no "6 01146 01Z00

2.0'111'"
IUlltH If le",-o.o

0180Z
01814
-tl"'
5IOXMII--tllll/ll.0.II"I'
DIU6
01838
0\846

-0 02111 OIUI
-If. 02111 000)11
-II 021T1 02651
109 01~24 noD 00

01846 -0 02651 on,.
01858 109 01~'16 00000

T"_MN.O.O
CALLI

1~080
OORG - J
150'10'
15100 tOllVRT TF
FUGT,FUG
TF
OSA4.10.AlF .....
15110

15190'
15200 EUT

lRANCH If NO.

01866
01B~6 .6 00091 00019
MOYE ADDRESSES OF XII,VN AND AlFN
01878 kO 00261 0002~
MOVE COORDINATES OF POINT ISlT,T1T1
01890 lJ 02601 02688
Set RetURN AOCRESS TO L1NUe PROGR."
01902 JO 00242 -19)1
CAU 'NTRE' SUB'IIOGU" VIA "ONITR
OI'll~"'IP 02400 00241
TRANSFOR" POINT 'liTO x-v COORD. SVSTEM
019Z6 2' 02410 00211
MOYE X-V COORDINATES TO OUTPUT ADDRESSES
01'1)8 -0 000410 02151
01950 -0 000411 02761
BRANCH IF IIOT ONLY ONE POINT ON TAScn
01962 " .. 01994 01101

SH NUMBER OF fAltTL INTERSECTIONS
019H 20 00019 00091
01986 4'1 0241J 00000

II(TUR" to MDNltR

0199~

16050
16060
16010
16010'
16090 "DOl

DOIIG

0-)

"OVE COORDIII.nS OF POINT Isn,UTI
01994 LJ 02601 02101
02006 JO 00142 -2026
020ta ". 01'114 00000
OZ026

TFL

X2,XI,6,

"OVE

16100
16110

TFl
IINR

Yl,YI,6
'Nn,nT-."

16120·
16110
16140
16150'
1"160 'Nn

OORD

0-)

TR

st-9,5)T-9, ,

TR

SI-'1,S2T-9, •

TFII

OSA),"OOI
14001-24

I

I

TFIO OSA),MOO)
8
"001-24
DOIIG - )
TFL

X"XI,6,

11020
110)0
11040
11050'
n060'
11010 UAt
11010

"l

n,V/,'

nUl

COO.OIIIITES to OUTPUT ADDRESSES
02026 -0 0005" 02151
020)1 -0 0005R 0'161
lUNCH IF tHREE 'DINtS ON fAICn
02050 ION 02010 02".

EXIT

16170
16180
16\90
16200'
11010 "DO'

1109011100
UUI

x·,

•

EXIT

C
1&

IIPTS,FUG
tONyn ...

OOIIG o-J

02062 "9 01914 00000
01010
"OVE tOORDl"ATU OF POINT Inf,OTl
OZ010 LJ 02601 02128
02082 JO 00242 -2102
020'14 "9 01'114 00000
02102
MOYE X-Y CDO.OINITIS TO OUTPUT
02102 -0
02114 -0
02126 M9
011)4

1•• HeH I. ALL

021'~

tUlle POINtS

'OORESSES
0006" 021"
000611 Oll61
01914 00000

K' 0009) 0001'1

ON

T•• CfL

02146 ". 0"66 01100
TF

""L

FL,GT,N"S
FlIGP,'ll."

NO. CII' POINrs

SIIIN.S. . . . .

Sft '"I~S.'I

.0 0009& 000"
c""02\5'
WUN'" UI!!-'Nt.
02170 •• 001.' 0001.

GIl ...

.'lla -0 01,'7 0''''

2IG

tFl

11 i 10
11140

TFM

\11~D

11160
111100
11180 OUPl
11190
inDo'
18010
\B020

"'\

A

U

I~E

tFM

18050
'F"
18060
'FM
18010
"N
18Q"_
Hili
AN
18090 MODIFY
AN
18100
18110 INDEX A
A
18120
rFL
18130
FSUI
18140 CO,,,
8HE
\8150
18160'
18110
181 ao

••

U' SII"oSCIII

8
MOVE I
00116 1- t

eN

180101
18040

~"".f$"

OEC~.U.OU"L

CM

'~f

•

'AGE

•

02226 lJ 0001. DOlO'
.ffU... fO MOIII'. IF NO 'DINTS ON 'lien
D2UI 46 0241J 01100

FlAG.FlAG'
_HURN,,6,
FlAG.4.IO
COHVU .. ,

OZI9~ -0 02/,41 OZ661
02206 JO 0ln4 -IU6
OUII '" 014U 00000
022Z6

au NtH "

HAG.~.IO,

COMP-I,SlT-IO
COMP+IltSZf-IO

INDU+ll'I;"~-'

"'PUtf'',ltlO~.

I~OEX+

INDEx+n,l.IO
COM'-I
COMP+II
CRJr
CR If
MOOIFY" ,

8N11

INDEX+II.INCU+")
SL T

18200

'OM

54T-9."

\9010 RM
19020
19030
19040'
190~0 SLf
19060
19070

1,' ,.
DC
CONYRT
8
DORG '-1

sn

022~O 14 00019 000-4
NO fllO fAacYl 'DINTS AAE IOEIHICAL
02262 "1 01166 OUOO

l1li11". 0'

INtUSEctlONS
02214
02286
02298

o t

16
JO
JO
dO
~"
~II
23 ,4 JI
02H6 JI
02151 KI
02310 K1
02182 06
02194 02
I.ANCH IF ELEMENts ARE UNEQUAL
02406 ,n

02Jt8

00019 000-·)
oun -26"
OHO~ -2107
81"9 -,5 ••
IIOBU
HI "00002]8\ 000-2
02)91 00000
02405 00000
000]9 00000
000]9 00000

tit

021H 01200

02~\8

JM 02369 -nil
02430 "1 02462 01100

181CJO·

190eo
19090
19100'
19110 INCRI
19120
191 )0
19140
191 ~o
19160
19110 INCRZ
19180
\9190
19200
20010
20020
20010
20040 0.0
20050
Z006~ MINI.O

20010
20080
20090
20100
20110
20120
20110
20140
201S0
20160
20170
20180

11200

SM
SM
TR

02462
COMP-l.9,10
OZ414
COMP+I1,9.10
COHP-l ,C 0"" 11 ,611 , IIf NOVE DU'li CI re ElEMENTS
01486
8
CONYRT
01498
02505
DORG '-4
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

CON60

DC
DC
EPSLON DC
DC
51
DC
rt
DC
DC
52
12
DC
DC
DC
Sl
n
DC
DC
SHIN
DC
SHU
DC
'HXMH DC
DC
SN
TWOA
DC
SHXMNI DC
DC
SO
DC
'If
DC
S2f
DC
f2T
DC
Sl'
DT
DC
SH
DC
DC
h'
DC
5MXHN DC
SMUI DC
SM . . 2 DC

20190
20200
21010
21020
21010
21040
21050
21060
21070
21080
21090
21100
21110
21120
21110
21140
21150
21160
21110'
21180 MONITR
21190 LNCU8E
21200 FLAG
22010 RETUlIN
22020 51
22010 TJ
22040 XI
22050 VI
22060 RTARG
22010 FOURAC
22080 SQRfF
22090 NPTS
22100 OISfF
22110 CUT
'H20 FLAGT
HIlO lAC
Zll40 THRfU
22150 SMXMII'
12160 Ell'"
22110 P"'ItE'
21180 TWOI
22190 FUG'

UIIOVE DUPUCAfE fLf"ENTS
02442 J5 02748 00000
02451 00001
02454 ... 0\866 00000
OZ462

OS

as

OS
OS
OS
OS
OS

2.10
2,0
2.0
2.20
2.0
l,20
2, )0

2,20
2,20
2.-20
2.20
2,0
8,0
2,-99
8. -I 0000000
2.1

6,600006
8.10000000
2,-5

10.0
10.0
I, •

10.0
10,0
I.'
10.0

10.0

I.'

10.0
10.0
10,0
10,0
10,0
10,0

10.0
10,0
10,0
10,0

10,0
10,0
10,0
10.0

I,'

10,0
10,0
10.0
,2406
,HI6
),19
.2411
10.51

lo,n

os
OS

10.54T
10.HT
10.79
10.69

OS
OS
OS

l,ll/HABH)
,2416

os

os
OS

,HI6
10,19

"NPU-'
10.29
.TWOA
OS
10.lAC
OS
.24'6
,2<116
OS
10. Till ....
OS
2.LlMUln,
OS
DEliO LlNnl

OS
OS

J2 0219] 000-'
J2 02405 000-9

lJ OH9L 024014
H9 0"66 00000

02,.6
02518
02520
02'22
02524
02526
02528
025)6
02518
02546
02548

00002
00002
00002
00002
00002
00002
00002
00002
00002
00002
00002
00002
00008
00002
00001
00002

02554
02562
02564
02514
02584
02585
02595
02605
02606
02616
0262_
U2621
026]1
02641
02651
02661
02671
02687
02691
02101
02711
02721
02Bl
02141
02151
02161
02168
02118
02188
02791

00006
00008
00002
00010
00010
00001
00010
00010
00001
00010
00010
0000\
00010
00010
00010
00010
00010
00010
00010
00010
00010
00010
00010
00010
00010
00010
00001
00010
00010
00010

02406
02416
00019
02411
02616
02626
02151
02767
00079
00069
02416
00091
024111
00019
00091
00029
02611
0002'
02416
02416
oun
0010'
OOOfO

00000
00000
0000)
00000
00010
00010
00010
00010
00010
00010
00000
00002
00000
00010
00002
00010
00000
00010
00000
00000
00010
00001

02506
02501
02510
02512
02~14

2&7

'IG'

""'OL ",U
V~OAOO

XUDDR 14019
TIS fRY 14020
02406
U$fPT 01209

1401'
TOlCHO 0)072
02411
LFUGf 14nZ
AVG TOL 05914
CHU 15226
III ST. 02416
EPU 15314
Flil
02488
KTE"P 07703
npos 14 . .0
UX
0)082

RETUR~

V.I

IOO~ITII

A

CHIll
DISTl
ER200
FLIIST
II
URAD
11011111
""

ot'IU

onze

151.4
01l.2
14!l12
0))62
OU89
O'. .It
03012
OU.,

XNOAOO
U'''2
IIIN1.0
UPllot

1401'
14216
0602.
02416
AGAIt~ llt4.6
COSP 02."
OSAIII I . . . .
EIIl16 1'.56
FX"Sf 0"40
SIHI' 02416
Jl1061U
XI
O'''J
YO
05901

TRINU nO.,
UB"I 14200
III~CHII l"lt41
EPSLON 0600lt
AVHA DUO.
DIU DUll
OTCX 01142
fin 1529.
GOLtl Iltno
ranD OUU
TU
D61'"
I"
o)l.It
0.0
06OS4

UIOI
OU2.
15)llt
IUO.
0'11>2
03111
0)1"
02411>
001
OUU
TLOIII Hit'
TOLfll 142M
xo
0".2

fUIISI
srEPI.,
IIAIDEY
'OUTSI
8
01.,
OTC'
'ISH

1.0'

IUJ4

01010'
I'" 1'20-1111 AD-A'T SU'PIIOGIIAII '011 Vlllr,.,I.G
01020'
THE STAU-UP 'OSITIDII 0' THE cunEII 011
010)0'
TA'CYl OIIIVf SUII'ACE
0104001050'
olD 'IU"BER 02'6.0ElOI"
010.0_
-STOllE CO•• IIIAGE
010100
LIIIIIAGE - . , "StIlT.DSALIL.'.6
01010'
010.0
DOlG 14010
HOlD
01100 lCYADOII OC
10,0 ••
CDDIIOIIIATE ADDIIESSES OF tOOL CE~TEII
UOl9 00010
01110 .~OAOD os
"X'ADDII-,.
x COOROI"ATE ADDRESS IltOl4 OOOOS
01120 YIIOAOO 05
5 •• YADOR,
, CODIIOIIIA" ADDRESS 14019 0000.
01130'
SU8PIIOG.A" INTRY
OllitO TesTIlY " " IOON"R,02\80.67,
tALL flS" SU8PIIOGRAM VIA MONln
Ilt020 IJ 02400 -2110
01150
"ISH,TU.6,
CALCULATE DS-CS OF'SET '"OICATOAS
,
IltO]2 2? 02410 06141
01160
TFM
SET OS TYPE I"OltATDR Ilt041t I. orl0. OOOJI
n.lo.
T;L EPSI.EPSLOII"
CALCULATE TOOL TOLIAA~CE
011 fO
14056 06 UJlIt 06004
140.8 It ISliit 000-1
01180
A" EP51.1.10
AVERAGE 'OLEII FOil SUIPIIOGRAII CHOROl
011.0
TfL AVGTDl.E'S1 ..
14080 06 OS9H IS)lIt
01200
Ilt092 01 ISliit O'OOlt
FAOO EPSI.EPSLO"
Mil
FXWST-2).10 •• ,
CALCULATE UST PARAMETER NORD AOORESS
02010
14104 U onl1 00-10
14116 II 00099 -U52
All
02020
99.FLWSf-IO
020)0
Iltl28 26 OlIO. 000 ••
TF
LAST" •••
SET tOOL RADIUS FOil TUFf DR TUGT
TFl lI,tlIlAO"
01040
litl40 06 au I. 0'''4
TLI.),IO.
nSf TOOL 'OSITION IflLFf.flRGT.TlOIII
CII
02050
14152 14 061'" 000-1
TllF' OR TlRGT
14164 47 14200 01)00
02060
BL
'ABPfl ...
EIIIIOR-INVALIO TOOL 'OSITlOII
8M
IR200 ...
02010
14176 46 14S)1 01100
SET TOOL RADIUS fOR TlON
TFl It.o.o"
02080
1418. 06 031.' 060'4
INITIALIZE x-V COOIIOINATE ADDRESSES
02090 'AB"I TFII .Pr.FUIST-60 ••
14200 16 OJ191t -n02
FOil CUTTEII DISUIIC! TES T
02100
.,".FLWST-'O ••
14212 16 0)1" -1)12

KTE"'.

""

PtG,

14224 )3 011" 00000
SfEP X-' COOROI~ATE ADORESSES
14216 II OU99 DUll
SET l-Y COOROIIIATES Fall DISTANCE TEST
TF
DSUSttS.Y", •
02110
Ilt248 26 Ilt7l4 01199
CAll DISTf SU8PIIOGRAII VIA 1I0Nnll
02140
lIT
MO"1f1l ,OSAIII.' •••
14260 n 02400 14104
DIST',DSATSI.20 ••• DISTI-SQIITFlllPT-XOI··'.IYPT-YOI','1
021S0
If
14212 n 02410 14729
SAVE CALCULATED OIS'AIICE
01160 TOUII TFl TESTD,DISTl ..
142" 06 OlU2 03162
14296 14 061'" 000-)
TEST fLON
TLl,hIO,
CII
02110
IItlO. 47 14)52 01200
lFTRGT
01180
8~
TEST CUTTEII OISTAllCE WITHIN TOUIIINCE
011.0
FSUI fESTO.It ..
14310 02 031'2 0)1,9
11tl32 02 03152 15314
DISTI-0IST1-II-EPSI
FSUI TESTO.EPSI ••
01200
CHECK MINIIIUM DEVIATION
IIl~HII ...
01010
B7
IU44 49 14ltlt. 00000
I4lU 06 In2. 0,n4
CALCULATE NAXIIIUII
03020 LFTIIGf TFL IIAXDEV.AVGTOl ..
1lt164
01 IS)'4 0111'
DEVIATIDII OF CUTTEII
FADO IIAXDEV.R ..
OJ01O
1ltl16 0) 1"2. 031.9
1'11011 CU.VE
FMUl IIAXOEV,II"
0]0"0
14UI
06
o)on 0"89
TFt WOUI.II
0)050
14400 02 0)012 0'.14
0]060
FSUI IIDRKI.AVGTOL
14412
O'
15)2. 01012
0)010
FOIY "AXOEV.WORIl1
IIAXOEy o l.0'1.'.+10EI/III-10EII
0)080
FilUl IIAXDEV.I.OS ••
14424 OJ 15124 UJJ.
TEST CUTtEII OISTAIICE III THIN TDlERAIICE
0)090
nUl TESfO.IIUMV"
1ltlt)6 02 0)1" 15'24
IIOT COIIIIECT TalLE 'DI.T •••• TR' AGAIN
0)100 MINCHII .H
AGAIII ...
14 .... 46 14496 01100
14460 01 Oll6' Oll.'
FSUI DUll.1I
OHIO
14lt72 01 01162 1',14
DISTI-DIS'Z-lItf'SI
FAOO OISTl.EP5I ..
01120
TOOL 'OSITIOII WITH'N TOLERANCE
,NI. TlPOS .. ,
01130
14"'4 It6 1,,""0 onoo
TES' UST PARAIIEtER 1I000D lUSt 1'0111"
USTn • ."T ..
on40 AGAIII C
1449. 24 03209 011"
AESET
OVEllfllOIt I 110 It ATOll
••
12.,
,
OH'O
' IV
IUOI It6 14UO OlltOO
'IIEPAIIE '0 'EST IIExt SET OF COOROIIIATES
0)160
lHE UI"2 ...
14520 It1 ""U6 01200
ERROII COIIDIT'O~IM'RO'EII S'ART UP 011 talCYl
OH10CALL IIIPROC 5U.'IIOGIIAN VIA "OIl'TR
OH80 IIIZOO • lM 1OO"1T•• OIZ50.67 •
llt')2 11 0240D -22'0
IIRITE EIlIIOIl HESSAGE •••• SE.lltM FOil 1110
ITII E"'Rot.ZOOOh'"
01l.0
IIt'44 n 0'410 110001
CAll ."'ROC SUI,.OGRAII VIA IION""
0)200 III at , ITH IOO~IT •• OU,O.".
145'6 11 02ltOO -"'0
II."E 111.011 IIESSACI •••• SEAAC" FOil fNO
UN E."'ot .'''01 •• '',
04010
IIt"1 11 02410 RI601
sn 'USEN' POS It 1011 OF TDOL CIIITEII
04020 fL'OS TFL IIIOAOO ••,t, 61l.
14510 O' IltOlll. OJ,,"
1"''' O. 140111 on"
TFl . YNOADD.Y'T •• "
0"0)0
AUUII! CU" . . f . .Va. .1."1'1011 IGO'1f1l1
o'ea .....
0""040
llt604 06 03141 0"2)
'It.l . . . 031)1 0"13
Olt050
'PL IITC1.'IJ
TEst
CuTfell
1I1.lt,tOW
14.2'
t4 06'It' 000-)
CII
1101.1010.
0""060
...... U Iltno onoo
COL" aa lOR"
IIOL . . . .
0 ..010
•L
146"
...
'ltlt4."'"
GOFIIO
fLOIII ...
040.0
If
'.'64 ot OJtltt 1601.
IOIAca
.II1II. OTCI,1I1NIo0..
04090
,
..
1.
OJ
OJ.I
• ...,.
04100
'NUL ."Y.IIIN'.O
02110
02120

CF

'AI," •

,

¥PT-4
'tPT,STEPn ••

' 'I.

U8

~AGE
O~IID

17

flOIR

14611 49 14114 00000

041200
O~UOo

04140 DSAIII
04"0
04160
04110
04110
04190
04200
05010 DUTSI
05020
050)00
05040 GOLII

ElTEIINAL ARGUIIENT ADDRISSES
OSA TOUR
Dst ',02101
OORG DSA"lo,o'."'1I
NOP YO,DISTI
DORO 0-21
NOP O,lO
DOIIO .-14
OSA 0
OORG 00'0'-4
TFL

DTU,YJ"

TFL
FIIUL
CII
IN
FIIUL
FIlUL
A

OTCy,ll
DTCV,"INI.O
001,1010,
TLDIR, ..
DTCl,IIINI.Oo'
DTCY.IIINI.O
YPT.STfPXY"

05120

TfL

DIII2.VPT.I1o

05130
05140

FSUI 0IR2.VNOADD.tl.
FIlUL DI lIZ .DTCY ..

05150
05160
05110

TFL DIIII • .,T,II
FSUI OIIlI.lNOAOO.II.
FIIUL DIU.DTCl ..

050'0
05060
05070
05010
05090
05100
05110 TLDIII

05110

FADO DIIII,OI1l2 ..

0"90

IL

E1I216, ..

0.200

TF

AL PHA, lPT ..

06010

511

ALPUA,IO ..

06020

TFL

TIIANSI.ALPNA,II.

060]0

ar"

lION I TII.02010.67.

06040
06050
06060
06070

8TH
TFL
Fsue
FIIUL

SINF,TRANSh67.
TRANS2,lO
TRANS2,lNOADD.II.
TRANSl.TRANSI ••

06080
06090
06100
06110
06120

TFL
arH
TFL
FSUI
FIIUL

TRANSI. ALPHA,ll.
COSF.TRANSI.U.
Ul,VO
UK,VNOADO.tl.
UK. TUNSI ..

061)0

FSUI UX, TUNU ..

06140

IH

CHKl ...

06150

IE

CHK], ..

06160

C"

fLI.2.10.

06170
06180
06190

IE
8L
TFl

EXIT, ••

06200
07010

HOD TOlCHK .E'SI
ER200 ...
IL

01020
07010 CHIll

81
CII

EXIT
Tll.l.IO.

07040
07050
07060 CHU

aNE
If
Cit

fRZOO, ..

07070
07080
07090

aL
IE
TFL

EXIT, ••

07100
07110

FSUI TOLeNK,EPSI
fAZOO •• ,
IH

01120 EXIT

17

14699
14100
14111
1471.
1470.
1470.
14105
14 709
14 no

00005 J4Z14
00005
41 05t02 OJI62
41 00000 05"2
00005 -0000

ASSUIIE CUTfU TUVEL OlllECraON IGOIIGTI
14no 06 OJ142 05'U
14742 06 0)U2 05'2]
147.4 OJ 01t12 06024
TEST CUTtER OIRICTION 14766 14 06147 000-1
GORIlT
1477. 46 14114 01100
14190 OJ 01142 06024
GOl"
14802 OJ 011 J2 06024
In ADOItESS OF NUT POI NT ON CURVE
14114 21 0)199 0"2'
CALCUUU DIRECTION YECTOR OF THE CUIIVE
14116 06 OlllZ 01l9R
0IR2-IVII .. I-YNOI
1411. 02 OlllZ 140111
DIR2-1V11011-VNOloDTCY
14850 0] 03112 0]U2
14862 06 01122 0319101
DIIII-lXlloll-lNOI
14814 02 03122 l401M
DIIII-lllloll-lIIOloOTCl
14886 0] 01122 01142
DIRI-IXII+II-KNOloOTCl+IYII+II-YNOloOTCV
14e91 01 0]122 031t2
ERROR-NEGATIVE DIRECTION VECTOR
14910 41 14556 01]00
Gn ADDRESS OF CURRENT ANGLE UPHA
14922 26 03204 OU94
CALCUUTE TOOL POSITION IN THE lOCAL
14934 12 0]204 -0010
TRANSFORIIEO COORDINATE SYSfEM
14'146 06 03102 onOM
CALL SINF-COSF SUellOUTlNE VIA HONITR
14958 17 02400 -2010
14970 17 02410 -lI02
14982 06 0)092 05892
TRANS2-UO-XNOI
14994 O! 03092 140lH
TRANS2-1 XO-INO loS INFI AlPHa I
15006 0] 0]092 olloi
15011 06 01102 0320101
15030 17 024lJ -11 02
TRANSI-COSF' AL'HAI
15042 06 03012 05902
Ul-IVO-VNOI
150U 02 0]012 1401R
UX-IVO-VNO 10COSF I ALPNA I
15066 0) 0)012 03102
UX-UI-'lO-INO I-S INFIALPHA I
15071 02 0301Z 03091
TEST TOOl POSITION AND
15090 46 15226 01100
OIUCTlON COIIIIANOS

PAG.

£R200 •• ,

TOLCHX,UX ..

EXIT
TU.2.10.
E1I200. ,.
TOLCHK.UX ..

RETURN ....

15102 46 15194
UX IS "EIlATlvE-TEST TOOL POSIT ION
15114 14 061H
15126 46 15291
TLRIlT
151,.
47 145]2
ERROR-TlLFT
TLON-TEST TOLERANCE OK
06
O]OH
I5UO
15162 01 03012
ERROR-TOOL NOT NUR SPEtlF lEO CURVE
15174 47 14532
15186 49 15291
UI IS IERo-nST TOOL POSITION
151.4 14 06145
ERROR-TLLFT DR TLRGT 15206 41 14532
15211 49 15291
UI IS POSITIVE-TEST TOOL POSITION
15226 14 06145
15BI 41 I '2ge
TLLFT
15250 46 145)2
ERROR-TLRGT
TLON-TEST TOLERANCE OK
15262 06 010n
15274 02 0]071
ERROR-TOOL NOT NUll S'ECIFIED CURVE
15116 46 14532
IlnUIIN TO TAIDS SUIPROIlIlA..
152'11 49 0241J

01100

.

000-2
01200
01300

..........

0]01l
I5H4
01)00
00000
000-)
01200
00000
000-2
OUOO
01200
030tz
1511"
01100
00000

01110.· •••• ••••••••••••••••••••••••••••••••••••••••••• •••••••••••••••••••••
STO"AGE ALLOCATION
01140 ••••••
07150SuaPROIlUII AND SuaROUTINE ADDRESSES
071600
02406 00000
AD-A" ..ONITOR
.2406.
07110 IIONITR OS
OS-CS O"SET INDICATORS
.2416.
07180 FISH
OS
02416 00000
OZ.U6 00000
OISTAIIC! FUIICTION
.2416.
01190 OIST' OS
02416 00000
ERROR '''OCESSOR
,2416.
01200 ERPRDC DS
02416 00000
SINE
.241 ••
08010 SINF
OS
02421 00000
COUNE
.242h
08020 COSF
OS
IIONI TR STDUGE FOR RETUIlN aDOIIESS
01030 RETURN OS
02411 00000
080",0WORKING
PARAIIITIRS
08050.
CALCULATED rODL TOURANCE III EPSLONI
10 ••
01060 IPSI
OS
IU14 00010
II. . IMUII OlVlAflDN OF CUTTER FROIO CUue
10 ..
08010 IIAXOn OS
IU24 00010
110 'lOAtING 'DINT WOIIO ARIAY
08010 HI!
OS
0241. 00000
'UIIANEft' ADOIIESS CDUIITU
, .. lV••••• O.
01090 A
OUU 00000
COOllOINA'1 AOO.ISS Sf"'INI CONSTANT
.A,
01100 SfIP" OS
onat 00000
ADllllnS 0' LAST POIIIT IYI IN caNON A.RAV
'.A·U.,
GallO US"T OS
0120' 0000'
AOORUS . .
ALPHA IN CANON . . RAY
01.,0 &t_ OS
,.a·U4.
DUO. 0000'
AOORISS DP • cDDtiIl III CANON ARRAY
I.A-U4,
OIUO.,.
OS
Ont.. 0000'
'DDaI" . . ,
.11 "liON 'U'V
D.
I,."'."
01"'0 ,,,'

,2"'''

.au••

os

'.U

eooao

OIIH ,

••

10,A-. .t •

'II" 1000'

TDOL UDIUI call1UfUII! .'IIMT·LlFT·DIII

UI

081TO DISTl

OS

10.8.

Dalla TESTO as

10,8-10,

os
os

10.e-JO,

0'1010 01111
as
0'1020 DIRl
DS
0'10)0 tRANSI OS

10.8-4D.
lD.II-'O.
10.8-60.

011'10

OTe~

08200 Drcy

on .. 00010
tfIlPOtt"" .COIlESS ellllltTER
0)162 00000
DIS'ANeE ."II'EN POINTS
osa6l 00010
CUTTER DIS'AIICE TOLEAAllef,TEST
OJIU 00010
x COORD ICUffER TRAVEl OIIlECTlOIH
01142 00010
Y COORD ICUTTER TRAVEL OIREeTION.
0)U2 00010
DIRfCTION VEt TOR
03122 00010
01 RECTION VECTOR
. 03112 00010
TRANSFORM TOOL POSITION
03102 00010
TRANSFORM TOOL POS.TION
OlD" 00010
TUNSFOIIIIIO TOOL ,oSITION
0)082 00010
TOLERANce CHeeK
03012 00010
WORKI~G STORAGE
0301' 00000
fLOATING 'OINT WORD STACK
01)62 00000
'IXED 'OINT MORO STACK
05540 00000
X COORD Of TOOL CENTU !PRESENT PO"'"
05.92 00000
Y COOllD OF TOOl CENTER IPRESENT POIN"
05Q02 00000
COORD IPRESENT AIIIING DIRECTION.
0~921 00000
Y COORD CPUSEIIT AIIIING DIRECTION.
Onl) 00000
AVERAGf TOLERANCE
0'91~ 00000
TOOl RADIUS
05984 00000
CALCULATED TCOL TOLERANCE 11/10 INTOl'
0600~ 00000
OS TOOL MODifiER
061~5 00000
CS TOOL 'MODIFIER
061H 00000
D~ GOfiMODIFIEIII
06347 00000
OS T'PE INDICATOA
07101 00000

10.8-20.

0'1040 TUIISI liS
09050 UX
0'1060 TOLtHK oS
0'1010 WORlt OS
0'1080 FLIIST OS

10,8-.0.
.TOltHII.
.1162.

090.0 ,.IIST

DS

.""0,

0'il00 XO

OS

,"'1"

0'1110 YO

os

.XO>lO.

O'lUO ..

os

.59n.

O'llJO YJ

os

,'9n.

0'1140 AVGTOL DS
09150 flllAO OS
0'1160 EPSLOII os

.5'174.
.5'1.4.
.~004.

.6145,
0'1110 TL'
OS
09180 TLl
OS
.6l1t7,
09190 GOlDS
.61.. ';
09200 IITEMP os
.nOJ.
10010'
10020'
CONS'ANTS
100)0
DC
1.10500000
10040 1.05
De
2.1.,
10050 0.0
os .60''',
10060 MINI.O OS
,602".

IU32
FLOATING 'OINt ,.05
15114
FLOATING POINT ZERO
06014
MINUS FLOAT,IIG 'OINT ONE
0601..

~'Gf

00008
00002
00000
00000

10070-

10080·.··.·.····.···
•••••.•• ··•······.·····••·•••·••••••.•••••••••••••.••••
DEND TISTRT
14010

10090

PACF
S'~80L

STEPXY onn
Al'HA oua..
SINF 0'416
YPT
03"9

RETURN OZ"1I

•,....

03162

14015

TA8lE

liON IT II 02406
COSF 02421
0)162

"

ENOPNT ' .. 016
FLII
024"
V2
onu

A

PHI
."

Dun
DUO ..

031t ..

IBM 16Z0-1311 AD-APT SUB'ROGIIA~ FOR EVALUATING
THE V-CODIIOINATE OF THE END POINT OF A
TAItYl CURVE SUMENT

0101001020010)0'
01040'

-/0 "UMBER OZS7>OELDI"
'STORE CORE IMAGE
LINKAGE - BTII ENDP"',VN4.67

OlO,O-

01060_
0107001080'
01090
01100 VN ..
01110.
01120 ENDPNT
01110
01140

OOIlG 14010
OC
6,0 ..

OllSO
01160
Oll 70
01180

FSUB
FSUI
TFL
ITM

01190
OllOO

ITM
FIIUL

02010
02010
01030

1FL
ITII
fMUL

02040

FIOO

02050

.7

TFL
TFL
S

14010
14015 00006
ADORES S OF YN~
suaPROCUII ENTRV
1~016 Oft 01161
YI,.PT.II.
V1-XIN .. '
1402. 06 Olln
".YPr.Il.
VI-V".. I'
seT x-v COORDINATe ADDRESSES
'PT.STE'XY ••
140~0 22 01199
14052 OZ 01161
VI-X IN>"-XN
Vl.IPr.11,
1406~ 02 OJ 15Z
YI.YPT.II,
VI-YINH'-YN
14076 06 140lN
Vlf4,PHI,61l
CALL SlNf-COSF SU8"OUTINE VIA MONIfR
MONITR,OIOIO.'"
1~0" " OI~OO
YN .. -SINfl'HI'
1.. 100 17 Ol~10
SlNF,VN... 6711.
VI-I,IN+l'-'N'.SIN'I'HI'
V'.YN4,ll.
141 U OJ 011 U
14114 06 140lN
VN4.'HI,611
VN
..
-COSFIPHI'
141)6 11 O'4'~
COSF .VN".671 1t
VM4-IXIN+l'-XN,.tOSfl'HI'
VII .. , Va,6.
14141 03 140lN
VN4-VllIi+IYIII+l'-VII'.SINF IPHI'
VII ... Y2.6.
14160 01 1"0111
RETURN '0 '.IOS SUIPROGRAM
RETURN .. 6,
1"'7' 49 02 .. 1J

OU9M
onn

Dun

02060·.·.···.·········································
•••••••..........••••
02070......
STOttAGI ALLOCATION
......... .
0201002090 MONltR
02100 SINF
02110 COS,
01120 RETURN

OS
OS
OS
OS

OIl JO.
01140·
02UO FLiI

NORRING ' .. AIIET.RS
,OS
., .... .

02160 A,

oS

Oll9..
OJI911
OUOII

-2011!
J40lN
1.. 01N
0320M
J .. OIN
01162
031tl
00000

SUIPROGRAM ANO SUIROUTINE ADDRESSES
01406 00000
,2406,
AO-A'T MONITOR
01"'" 00000
,2"16,
SINE
014Zl 00000
. '.. ZI.
COSINE
.,..
NONITR STDIIAGE fOil "nURN ADDRESS
DUll 00000

,t.

.FLN+ .... aO.

02170 STe,XY OS

.A.

0,1'0 AL,"A

os

S.A-ll••

Oll.O 'HI
01200 .,T

OS
os

,AL,"A
•• A-U ...

liD FLOATIIiG 'Dill' WORD AIIRAY
0"'" 00000
'ERII.IlEII' ADORESS CDUNTEII
onu 00000
COOROI".T. 'DORISS S"P'ING tONS'ANT
OUU 00000
'
'DORESS OF 'NGLI AL,"' IN CANOII A•••'
OU040000.
01Z0.. 00000
'DORES' 0' • cooao IN CANON AIIRA'

2211

'ACE
0)010 "PI

OS

0.1I.'
ADD.fSS OF • COO.O IN CANON
OU99
n ....OlAn AOO.US CDUNnll
01162
On.,

',I".!t.

,

0000'
A•• A.
0000'

OS
.HII ...·Io-••
00000
0)0)0 VI
oooao
OS lO.l.
0)040 V2
os 10.1-10,
onu 00010
0)0'0'
010.0 •••• • •••••••••••••••••••••••••••••••••••••••••••• , ••••••••••••••••••••
0)070
DINO .NOPNt
1_0 ..

0)020 •

paGE
S'''IOL UIU
10000. '4619
FUGKP 14609,
OJ162
8
PAUlI 14022
UR
Dun
V2
Oll47

VN401G
ECAOOR
CDEFF
ItlllN
UltN4
l.O

"on

'4021
OU62
14020
03179
06075

"nUl".

02411
DIVIDE 14390
EXIT 14602
suac: 14020
OUZ7
UV
14619
J.O

"ON IT"
A
FLII
5MAX
VNI
6.0

02406
OUll
0241.
14020
'4015
14629

"INUD 14no
ALPHA 0'204
"AX I onn
SOUF 024 16

n

oJln

IBM 1620-U1I Ao-APT SUIPROG IAII FOIt nALUA""G
01010'
THE SLOPE AND "AOIUS OF CURVATURE FOl A
01020'
PDIIIT DEFINED BY V IN A GIVE" UICYL
01030'
CURVE .SEGIIENT AND DETERIIINING THE
01040'
"AIIMUM SLOPE OR MINlMU" RADIUS OF
01050'
CURVATURE AT THAT 'OINT
01060'
01070.
.10 HUIII •• onl.olLlIM
01080'
.STOlE COltf IMAGE
01090'
LINKAGI • I' 'AIIA".OSAL.Ltt.t
01100'
01110'
14010
01120
DORG 14010
ENO 011 CU•• E"T 'OINT AGItUMENT ADDRESSES
011)0 ECIDOl DC
12,0"
140al OOOlZ
V-COORDINATE 'DOIIESS 14015 00005
os. "ECADDII-t,
01140 VNI
"AI SLO'E 011 MIN IIAO OF CUlt 'I ADDIIESS
II.ECADOII-I, •
01 ISO SLItDe OS
14020 00005
END POINT DIGIT fo-YES.l-NOI
ltlCADDII.
01160 VN4DIG OS
14021 00001
Sue'.IIGIIA" .NTR'
01170'
COEFF,ALPHA..
SET
COEFFICIENT
ADOlESS!S
on80 PARlII TF
l40ll 26 OU6Z 03204
SM
COEFF,10 ..
C COE".CItNT 'OOlfSS 140J4 12 DUU -0010 '
01190
140U 06 on 57 03161(
TFL Vl,COEFF,II.
n-c
01200
I tOEFI'ICleN' ADDIIISS 14051 U OJ16a -0010
SN
tOEFF,10 ..
02010
14010 06 on47 03161(
TFL ya,COE",I ..
'12-'
02020
14012 01 03147 03147
va-n
FlOO vz,va ..
02030
14094 06 OJIJ7 OJ147
UR-n
TFL UR,va ..
02040
14106 OJ on" 1401N
VZ-ZIIV
FMUL va.VNI,1&.
02050
14111 01 03147 OJl"
"_,,ytC
FADO V2,Yl ..
02060
aOOlllISS
14UO
12 OU6I -0010
,
COEFFICIENt
02070
$"
COEFF.ID ..
1414a 06 oun 140lN
UV-y
TFL uv,VIu,n.
02010
141U
OJ
oun 03127
02090
FNUL UV,UV ..
UV-V'"
14166 OJ DJl Zl OJlIK
FIllUL UV,CDE.,.II,
UV·'V",
02100
1
..
11
OJ
OllU 14619
UV·J.V'"
02110
FMUL uv.J.O ..
UV_UV,,'tUVtC tsLOPII
02&ZO
FAOO uv,n"
141to 01 Dun OJlU
V2"1 •
14201 06 OJI4' OJ1J7
TFL
G2nO
",,-uv
14114
DSt'1 0)1"
TFL IM,UV ..
02&40
",,-uv..a
14216 03 Dun oun
FIIIIL UR,UIt ..
oln,o
""-I.UV'"
14U.
01
O)Ul
060n
FADO IM.IoO ..
011.0
va-t+ll1l ••,
142110 0. oun OIU,
0,.70
TI'L
""-CttUV
••
,,
••
,
14"'0'0)1"01111
.II1II.
1M.
\/II
••
02110
\/II-Utuv,,""J.
14n_ OJ OJin OJ'"
0,.90
'IIUL \/II.n"
caLL ,,,f' SUllOUflWl VIA ....1'.
02200
"" 111M". ,01000 ...,

VI,,,,, ..

O.

VI.""..

,
\/II ...., ... ,+1111.."

OlDlO
01010

VI,COI".1I.

••••

lUI. " oz408 -1000
IU"

" .1..1

-nJY

.14110 . . Olin 011111

211

01010
01040

'Mill
'MUL
FAOO
11111

VI, VIIIl,ll,
'11,6.0"
va,V2"
DIVIDE, ..

VI-AV
IHZ2 Ol 03Ul 1401111
'11-'6'1
14114 01 011.1 1462'
0)050
va-. .y.U
IU"" 01 011" OU47
0)060
SfRAIGlfT Llfilf - TIn II Of C
14"8 '" .4nO 111200
0)010
TFL VII,IODOG •••
seT II OF '-10000.0
14370 06 03117 14.,.
Oloao
a,
DIVIDE-I'
14112
IU02 00000
010.0 01'1101 FOIV VII,VI ••
Ull-SORT'III.UV""")'/.6.V.'81 I. OF tl
l'U90' 09 03U1 OU 51
01100
80, MIIilIIAO.'1N4010..
T'ST END POIIilT DICIt 14402 4) 14510 14021
no POIIllT ..... CALCULAfe MAXIMUM SLOPE
OlHO'
0)120
TfL VIIN4.UII"
SAVE EIilO POIIilT 1U0IUS OF CURVAfUlIE '
14414 06 011" 01117
011)0,
CF
ABSOLUTE VAtU! OF UY 14426 13 olin 00000
uv-z".
0]140
TFl S"U.UV •• ;
ASSUME CALCILA1ED SLO'E MAXIMUM
Hua 06 H02- 01121
01150
AM
COEF'. 20 ..
C COEFFICIENT AOORESS 1"4S0 II OSI6' -0020
01160
TFL MUI.COE,.,11o
MAXI-t
14462 06 0)111 0116K
01110
MUI-2, ••
AISOLUTE VALUE OF t
14414 11 0111. 00000
01180
',ua UV.MUI ..
TUT MAXUISPlUV" .."CC II
14486 02 OJI'1 01111
01190
IIH
ASSUMED M'XI~M SlD'E IS CORRECT
EXIT".
1449a 46 14602 OliOO
01200
SET C (OEPFICI!Nr SLO'E MAXIMUM
"I.. S"n.MAXl.t.
1451,0 06 1402- 01111
EXIT •• ,
IIIAIilCH ro EXIT
14522 4. 14602 00000
04010
87
04020.
CUllIIEIilT POIIIIT ••••• CALCULATE MINIMUM RADIUS OF CURVArURE
040]0 MIHAAQ CF
UII-2.,.
ABSOLUTE VAlU~ OF UR 145]0]) OllIS 00000
040~D
rFt.. IIMIIII.UII.6.
ASSUME CURRENT POIMT • OF C MINIMUM
14'~2 06 1402- OJU,
04050
AR$OLUTE VALUE OF URM4
CF
14554 n 0]171 OCOOO
rEST MINIA8SFIUR, •• aS'IUIIN411
04060
FSUI VII.UIIN4"
1~566 02 0113' 03&1.
EXIT, ••
ASSUMED MINIMUM R 0' C IS CORRECT
04010
aL
14S1. 41 14602 01)00
SET END 'OINT R OF C MINIMUM
04080
14HO 06 1~02- 011"
04090 EXIT
RElUIIIII TO TAICS SU"ROGUM
14602
0241J 00000

"ac.

,

4'

C,

.9

0.100.················································
..••.•............•••
OttllO......
STORAGE ALLot AT InN
••••••••••

04120'
SUa'ROGIIAM AND SUIROUTIN! ADDRESSES
041)0 MOIilIT. OS
,2406,
AD-APT MOIilITOII
02406 00000
02416 00000
04140 SOIlTF OS
.2416.
SOUARE ROOT
04150 IIETURIII OS
.2411.
MOIIIITR STORAGE FOR RErURN ADDRESS
02411 00000
04160'
04170_
WORKING PARAMETER'
SAVE END POIN' R OF C SIGN
041.80 FLAGKIII OS
1..
14609 00001
MAXI"UM SLOPE ADDRESS 14020 00000
04.190 SMAX
OS
.SUOC.
MINIMUM RADIUS OF CURYATUIIE ADDRESS
04200 RMIIil
OS
,SLADC.
14020 00000
1/0 FLOATING potNr WORD ARRAV
.24a8.
OS
05010
02488 00000
.FlIl ... ·IO.
'ERMAIIIEN' ADDRESS COUNT Ell
05020 A
OS
03328 00000
ADDReSS OF ANGlE ALPHA 1111 CANON ARRAV
050)0 AlPHA OS
'.A-124.
03204 0000'

'UI

'Ar.F

05040 UII1II4

OS

10.A-I49.

05050 8

OS

.'ln6 .. lo-t.

05060 COEF'

os

5,a,

05010 VI
O~O.O V2
05090 1111
0'100 UV
0~1l0 MAU
05120_
05110.
05140
05150 1.0
05160
05110 6.0
05180
05190 10000.

OS
OS
OS
OS
OS

10.8-5.
10.B-U.
10.B-25.
10.8-15.
10.8-45.

OS200 1.0
06010.

OS

CONSUNTS
.,)0000000
DC
DC
2.1 ••
•• 60000000
DC
OC, 2.1"
•• 10000000
DC
DC
2.S ..
.60n.

EIilO POlllr RADIUS OF CUIIVArURE
Oll 19·00010
TEMPORARV ADDRESS (OUlilTER
03162 00000
AODIIESS OF COE"lCIENrS
onu 00005
IICRKING nORAG!
0'1'7 00010
0)141 00010
IIORKING STORAGE
0)137 00010
RADIUS OF CURVATU.E
03121 00010
SLOPE
01117 00010
IIORK I NG STORAGE
14617
14619
14621
14629
14Ul
FLOATING POIHT TEN THOUSAND
14U9
060n
FlOATIIIIG I'OIHt ON!
FLOUIIIIG POI "' THREE
FLOATING 'OINT stx

ooooe
00002
00008
00002
00001
00002
00000

06020 •••••••••••••••••• ••••••••••••••••••••••••••••••• •••••••••••••••••••••

06010

DENO PARAII

14012

uz

'AGE

SY"ID\. UIU
10000. 1~410
"ONITR 02~06
CAleos 14012
olSn 0)\42
flW
024'.
XI
01101

0.4'"
CHOR Dl
AYGTOl
DUU
aNIN
12

I ~410
14026
0"'4
Ol132
14020
OJlOl

SfE,n
CHKOYI
A
DCNE
SM. .
YPT

on2.
IU02

OJ:J2.
14)94
14015
OJIt'l

$AYEPT Olll2
CHKCOS O:JIU
0)\6Z
DUYE OJ122
SOUF 02416
YI
OlllZ

•

anUAN
CHAOoa
CL
OYI
.,T

"

02~1I

14025
0)1"
140n
03"4
OIlU

01010'
11M 1620-IJlI AD-APT SUBPROGUM FOR EVALUATING
01020'
THE LENGTH OF THE CHORD IN A GIVEN
OIOJO'
TAIICYL CURVE SEGMENt
01040'
010 SO,
'10 NUNIIER OU9.DELDIN
01060'
• SYORE CORE I "AGE
01010'
LINKAGE - " CHORDL,DUtlL_IO,6
01080'
01090
DORG 14010
1~010
01100 CHADOR DC
16,0"
CHORD LENGTH 'A. .METER ADDRESSES
140" 00016
01110 SNU
OS
S.CHAOOR-l0,
"AXIIOUM SLOPE ADDRESS 14015 00005
OllZO RNIN
5,CHADDR-S,
OS
NINI"UII UOIUS OF CURVATURE ADDRESS
14020 00005
OIUO OVI
5,CHAOOR,
CHORD LENGT" ADDRESS 14025 DODOS
SUBPROGUII ENTRY
01140'
011 SO CHOROL TFl CHKCOS,RIOIN,Il,
TEST. OF C IS sn IIAX FOR STRAIGHT liNE
14026 ·06 OJ152 140201160
Fsua CHKCOS ,10000.
140)' 02 OJIS2 14410
01110
8NZ CALC OS
I~OSO 41 140U DilDO
TFL OVI,IOOOO.·,II,
01180
SET CHORD lENGTH TO LARGE VALUE
14062 06 1402N 14410
01190
81
CHKDVI
14014 49 14202 00000
01100 CALCOS TfL CL,RMIlIo",
14081 06 OU62 1402CL'RCMIN
02010
FNUL CL,AVGTOL,.
14094 OJ 0)162 05974
CL'RCIIIII'EPSI
Ol020
FADD (L,CL"
CL·2IRCNI"·EPSI
14106 01 03162 OJ162
020JO
TfL DSAVE ,AVGTOL
14"8 06 OJIlZ 05914
02040
FIOUL DSAVE,DUVE
14UO OJ OJ122 OJ122
020.0
FSUI CL,DSAVEt,
CL·2.RCIUN.EPSI-EPSI"Z
14I~Z 02 OJI62 onu
020.0
CUL SOR" SUaROUTlNE VU MONITR
It'" MOllnR,ozooO.",
14154 IT 02400 -1000
SORTf ,CL ,61,
02010
CL'SQRF" I I'RCNIN'EPSI-EPS 1"'1
14166 IT 02410 -J162
02080
CL',·!SQUFI2·RC"IN'EP$J-EPSI"211
fAOO CL,CL"
14118 01 OJI62 0]162
TFl DVI,tL.6,
STORE CALCULATED CHORD l EIIG TM
02090
14190 06 1402" OJl62
SlYE
AND SET XN,YII COORDINATE AODRfSSES
02100 CHKDVI Tf
SAVEPT,VPT"
14202 26 03lU OJI99
TFL DISTI,KI,II
14214 06 OU42 OJlO'
02110
TFl DISTl,YI.1I
14226 06 OJU2 OJ1I1
02110
SET XN.l,.,N01 CODRDIIIATE ADDRESSES
021)0
SAVEPT,STEPXV"
A
14231 21 03"2 0))21
CALCULATE INTERVIL DISTANCE
02140
FSUII DISTI,.',II,
14250 02 0)142 OJlOP
1426Z 02 OJI)2 OJlIK
fSUB DUll,Y2,II
02150
14Z14 OJ OJIU OJl42
FIIUL DISTI,DISlI
02160
14286 OJ OJU2 0)1 Jl
fNUL DUT2,DISTZ
02170

os

,.GE
02180
02190

FlDD DISTI ,01ST2
8TN 1I0"IIR,02000,61,

02200

ITM

03010
03020

TFL OSAVE,DISTI
FSUII OSAVE,DWI,II,

03030
OJ040

liNt oollE
FIOUL 01 S T I ,0.4999"

SQRfF,DISTI,6f,

OJ050

TFL

DVI,DISTI,6,

OJ060 DONE

8t

RETURN_ ,6.

,

14298 01 OJI42 OJ\]1
CALL SQRTf SUI.OUTINE VIA MOHITR
UJlD 17 02400 -2000
01 STI-SoRlfl IXl-XlI"2+IYI-Yllo'21
14122 \1 02410 -Jl4l
14])4 06 03122 OJI42
TEST CHORD LE"GTM EXtEEOS INTERVAL DIST
14J46 02 OJ122 1402N
14J58 46 14194 OUOO
CHORD LENGTH EXCEEOS DIST ..... SET CHORD
14)10 03 OJl4Z 14420
LENGTH A"ROX 112 INTERVAL OISTANCE
14J82 06 140ZN OJiU
RETURN TO Tlies SUBPROGRAM
\4J94 49 024\.1 00000

01070.················································.....................

0)080......
STOIUGE ALLOCATION
. . . . . . . . ..
03090'
OJIOO'
SUIPIOGRA" ANO SUBROUTI"e ADDRESSES
0)1 10 MOllnl os
,2406,
AD-A" Mall "OR
02406 00000
OJl20 SORTf as
,2416,
SQUARE lOOT
02416 00000
OJ130 RETURN OS
,2411,
MONITR STOUGE FOR IETURN ADORESS
02411 00000
0)1400
MORKIIIG PARA"ETERS
OJUO'
110 FLOATING POINT 1I0RD UUY
,2488,
OJ160 fLIl
OS
02488 00000
PER"ANENT AOORESS COUNTER
,Hllln'IO,
0)\10 A
OS
0])21 00000
,A,
COORDINATE ADDIESS STEPPING CONSTAIIT
0]110 STEPIV OS
01)28 00000
ADDRESS Of X COORD IN CANON ARRAY
.,A-I14,
0)190 XPT.
OS
03194 00005
10DUSS Of Y COORD III CANON ARRAY
OS
01200
"."'5 •
OU99 0000.
TEMPORAlty AOORESS COUNTER
OS
0~10 •
,fLII+"'lO-',
OJ162 00000
CALCULATED CHORD LENGTH
10,11.
04020 CL
OS
03162 00010
tHECII COSINE aNGLE aLPHA
10,11-10,
040JO CHflCOS OS
ollS2 00010
03142 00010
STORAGE FOR
10.8-20,
04040 DlSll OS
03lJ2 00010
INTERVAL DISTANCE
10,1-]0,
04050 01$12 OS
OHU 00010
CALCULATlCN
10,8-'0,
04060 ouve OS
SAVE X,Y COO"OINAT!! AOGUSSES
10,1-.0,
O~10 SAVEl" OS
OUU 00010
XII COOROINATE aOORESS oilOT 00005
04010 XI
OS
YN COORDINAtE 'DOIIESS Oll12 00005
0~90 Yl
oS 5.11",
IN .. CDOIIDINATE ADoaUS
1I.8-n,
04100 U
OU01 OOOOS
'N.' CDORDINat. ADOR!!SS
OS
041tO "
OUIZ OOOOS
OS"400000
AVIRaGI 'GLIIIAHCI
04110 'vtTIIl OS
04110'
CIIHSUNTS
04140_
•• 10000000
' ... 01 0000'
04150
DC
flOATING. POINT '1000.0
041110 10000. DC
2,lI"
1.410 00001
144" 0000'
DC
04110
•• 0 ..
"LOAfiNG '01'" D......" '
041100 ...." DC

.,,,

,,8-n,

os

".2-',

......,

..........

112

14UO OOOOt
04190'
O~'OO ••••••••••••••••• ti ••••••~ •••••••••••••••••••••••••••••••••••••••••••••
05010
DEMO CHOROl
.
14026

... r,r.
SV~ftOL

UFORII
AL"N,
FLII
UI
VNI

14026
on04
02418
03127

non

VXVAOD 14025
OU6'
0)204
PHI
olin
U2
ypt 03199

•

TABU

RETURM 02411
ec
Oll"
SINP OZ416
VNI
14015

IICNIU 02406
CD'" 0"&2
0)141
ss
XNI
14010

A
COSf

uu

X"

OUU
oZ421
0)1]'

01194

01010.
IBII 1620-1311 AD-APT SUBPROGRAM FOR EVAlUATINe
THE CORRESPONOINt ORDINATE U FOR ANY
01020POINT V IN A GIVEN TABC'l SEG~ENT AND
01030'
01040.
TRANSFORMINt THE IV.UI POINT TO TME
GENERAL X-Y ceOROINATE SVSTEM
01050·
0106001070.
-10 NUMBER 0160-0ELOIM
-STORE CORe IMAGE
0108001090.
LINKAGE - . , ITFORII.DS'LIL+IO.6
0110014010
OORG 14010
01110
16,0. t
'-X-' COORDINatE ADDRESSES
01120 VlnOD DC
14025 00016
V COORDINATE .DDRESS 14015 00005
5.VIUDD-10.
01130 VNI
OS
x COORDINATE ADDRESS 14020 00005
s.vnIDD-5.
01140 XNI
OS
Y COORDINATE ADDRESS 14025 00005
OS
'.vnADO.
01150 ""
SUBPROGUII EMTRY
01160.
14026 06 03157
0\170 X"ORM TFL CC .PHI.II
8TII IIOIIITR.02010,6f.
CalL SlNF-CO" SUIROUTINE VIA IIONITR
01110
14038 " 02400
14050 17 0242J
CC'COSFIPHII
ITII COSF.CC.U.
01190
14062 06 03147
TFL SS.PHI" 1
01200
14074 17 02410
SS.S
INF
II'HII
8TM
SlliF.SS.61.
02010
COfFF,PHI ..
SET COEFfICI!"T 'ODItUSES
TF
OlO20
14086 2' 0)162
C COEFfiCIENT 'OOlllSS 14098 IZ 0)1"
Sill
COEFFoIO ..
020JO
14110 06 oun
UU-C
TFL UU.CDEFFtll.
02040
14122 OJ OlUt
UU'CV
FMUl UU.V .... " .
02050
14114
IZ 0)162
8 COEFF.CUNY ADDIESS
511
COEFF.I0 ..
02060
14146 Oft 03127
ul-a
02070
TFl UI.COEFF." •
141'8
06
OllU
U2-V
TFL U2.VNI.".
02080
14170 03 OU U
02090
FNUL U2.U2 ••
V2'V'"
IHU
OJ
o)ln
FNUl Ul.U2 ••
OZiOO
UI-8''''
14194 01 03U1
FAOD W,Ul ••
02110
14206 OJ OJlI1
FIIUl U2tVNI.lI.
UI·V"J
02120
, COEFFICIENT aODIlESS 14118 12 0)161
021)0
511
COEFF.IO ..
14230 OJ 0)1 U
02140
'NUl. U2.COEFF,lh
U2-""J
UU-" •• '+"'.'+Cy.o 10-01
F.lOO UU,U2 ..
02UO
14242 01 OJI)1
14254 06 1401X-Y
1FL XIIII.'NI.6U.
02160
14266 0) 1401.·V-COS"I'HII
FNUl XIII,CC.'.
02170
142"
06 onn
UI-".·)+.V.·'.CV-U
UI.UU
..
02110
"L
14290 OJ OJII7
. 'NUL UI.SS ..
UI-U.SINf.,H"
OZl90
•• ,.COS'.I'III
I'II'1
FSUI IIII.UI •• ,
02100
14301 01 1<101"
•• ,.,OSI'l 1'111
I'II,It."
I'dO .11".,y,611.
03010
1411401 140114'" 06 1401"
1FL ,"1,'"1.611.
OJOIO
1433' OJ 1401"
0)0)0
'MIA. YIII.SS •••
'-'·SIIII'''""
10'"' os OIUl
0.040
I'MUt. IIII,CC ..

uu-a,.·,."

,·lIt.......

,.,

,-v........

uu-u_COS",""

0320",
-2010
-3157
032011
-)141
0)204
-0010
OJ".
1401 ...
-0010
OH611
140111
OJI17
OJi 11
0)127
140lN
-0010
031611
OJI11
1401111
OJiU
on JY
01141

Dun
OU'M
1401111
OJI4'

o)ln

n4

010\0

.ADD YNI.UU...

Y.V.SlN'''"II.U.CD''''~~::~NOI

.ADD YNI.YPT •• ll.

03060

!'AG'

Y.V.SIN"'"I'.UotOS.""11

,

,

...... " ' "

SUI"'0~:!~4 01 I . .'" OtltA
010.0 ••••••••••••••••••••••••••••••••••••••••••••••••••••••• !:!::.::.~::!~. 0lO0O
"IIETUIIN....

03010

~!~~~:.....

01110.
all 20 "ONITII
011)0 Sill'
OU40 COSF
Q)UO IIETUIIN
01U,0.
OJ170.
OU.O FLIt

IIETUIIN TD fAIOS

STDUGE ALLDCUIDII

.14'"

OS

,24." '

OS

•• LW· ••·IO.

OUOO AVHA

OS

5.A-124.

04010 '1:11
04020 xpT

OS
as

.AL'HA
5.A-1]4.

040]0 YPI

DS

5.XPT.5.

04040 8

OS

.FLW.6.·lo-••

"050 CDEFF

OS

5 •••

04060 CC
04070 55
04080 UU
04090 Ul
04100 U,
04110.

os
os
os
OS
os

10.1-25.
10.1-)5.
10.1I--U.

OJItO A

......... .

SUiPIIOGRA" AND SUBIIDUnNE ADDRESSES
OS
,240',
AD-APT NDllnDII
0'406 00000
OS
.2416.
SINE
02416 00000
OS
CDSIIIE
02421 000041
OS
.'411.
IIOIIITII STDRAGE .011 IIETURN ADIIIIESS
02411 00000
IIOIIIIIIIG 'AUllnEIIS

10.8-5.

lO.a-u.

liD .LDAfiNG 'OINT l1OlIO AIlIlAY
O'UI 0000.
'UIIAlleNT AODIIISS CDUNTO
ouze 00000
ADDRESS DF A",U ALPHA IN CANON ARUY
01204 DODOS
0120. 00000
ADDRESS DF X CDDIID 'N CANON ARRAY
0]1'" OOOOS
ADDRESS OF Y COORD IN CANON ARIIAY
0]199 00001
TEIIPDURY AOORISS tDUII1EII
03162 0000'
ADOIIESS 0' CDE.PlCIEIITS
OHU 00005
COSFIPHII
OHn 00010
SlNfI'HII
U'41000'"
IIDIIK! NG 5TORAGE
ann 00010
IIDRIII NO STOIlAGE
onn 00010
1I01l1liNG STDUGE
OJII1 00010

04&ZO ......................................................................

04110

DEND 1"01111

16026

5Y"IOl fAlLE
SlNUF
AooeON
TEM'I
YN

"

RnUIIN
AlFN
TENP2
YIIEF

0001011
OOOlSA
00019
0001011

01010·
01020·
01030.
010400
01050.
01060·
01070.
01080.
01090.
01100.
01110·
011200
01130.
01140·
01150'
01160'
01170·
01180 AOOtON
01190 XN
01100 YN
02010 AL'N
02020 SLOC
02030 TLOC
02040 XIIE'
02050 YIIE,
02060.
020TO. ,
020.0 'NTIIEf

PNTIIEF OOO)6R
COSF 02.21
flOC 00025R

02'\.11
ODOUR
00029
0001511

liON ITII 02.06
SlNF 02416
IN
0000511

COSAl F 000]9
noc 0002011
XAE. 0001011

1111 1620- 11 11 AD-A" SUBPROGRAM FOR TUNS FORM I NG

THE COORDINATES OF ANY POINT IN A LOCAL CGDROINATE
SYSTEM INTO THE X-Y COORDINATE SYSTEII

Aes
oNA"E 'IIUEF ••• NON-ERASAILE SYSTE" SUIPIIOGUII
.10 NU"BER 0261+0ElDII!
.ASSEMILE RElOC"A.U
oSTORE RELOAOAIlE
LINKAGE - IT PNTREF.DSALBUJO.6
OSUIl IS aDDRESS OF l-tDORD. LOCAL SYST. ORIGIN
OSALIl.' IS AOOIIESS D. Y-COOIIO. LOCAL SYST. ORIOIII
OSAlILtlO IS ADDRESS OF ANGLE ROTATION LDtAL SYST.
OSAULOU IS ADDRESS OF S-tOORO. D. POINT IINPUTI
OSUaLt" IS ADDRESS G, '-tODIIO. OF POINT IINPUtI
OSAUUl5 IS ADDRESS OF I-COOIIO. OF POINT lOUTPUTI
OSALIL.,O IS AOOIIESS OF V-tOORO. OF POINT IDUT'UTI
ot
OS
OS
OS
OS
OS
OS
OS

08035
00005
00010
00015
00020
OOOU
000]0
00015

]6.0
"AOOCON-IO
5.XNt'
5.VN+5
5.ALFN.5
5.SLOC.'
I.TLOC.5
5,XIIE •• 5

000]6
00005
00005
OOOOS
0000'
00005
00005
DODOS

02090
02100
02110
02120
OZ1]O
02140
01110
OZI60
021TO
02110
02190
02200

TFL
FMUL
nUl
"L
'NUL
,aDO

03010
OJ020
03010

'NUL
'NUL
• AGO

SUI'IIDGUI! ENTIIY
IIONI,".02010.61.
CALL SIN,-tOn SUeROUTlNE VIA 1I0NnR
00036 17 02400
IIOVE XII
00061 -0 000]IIIEF,.N •• 11.
IIOVE YN
00060 -0 OOOJII
YREF.YN.611.
IIOYE ALFN
oooU -0 00010
YN.&l'N.II.
IIOVE
AlFN
000'.
00 00039
'EMPI. YN"
SIN&lF-SINFlALFNI
00096 lP 02410
SINF,SINAL.,n.
COSAL'.COS"ALFNI
0010. 11 O,.,J
eOSF.COSAlF.61.
IIOVE TLOC
00120 00 00029
TEll", fLOC.
lLOC.SIIIAL'
001)2 OL 0002.
relll". Sl.NALF ..
XN-T~Ot.SlIIAL'
0016. -I 000)XU'. Te"I'2i6. '
IIOVE SLOC
att" 00 00029
'EIIp,.SLOC.II.
001. . ., 00.29
SLOC.COULl'
Te ..,a,COSAL' ••
XIIE' ...... nOC.slllu'.SlOC.tOUL'
IIIE.,TIII" •• ,
IlOilO -I 000"
T~OC.COSALI'
OIl" OL 00019
CaSAL', ',Loc.llt,
SlOC.SlNA'"
atlOt
-L 10010
$I IIUI'. SLOC .11t
,toctCo.aLf+SLOC.SINIl •
COSAL"SIMlL'"

PAOO

nil' ,COS""

010.0
010st
IU06'
03010.

ITII
TFL
TFL
TFL

TFL

ITII

at"

I"

osc a.....

au

. .nUIIN

.1.

-2010
OOOON
0001000 IN
00010
-0010
-00).
0002N
00010
0002'
DOOr-

000"
010"

000'"

OOOZ-

00'" .., OHM 000.0

2 " ., _III lItO.,
.1" fll' 0 0......
OIa., 0100'
..... -"~I'

YI".~.fLOCtCOS.L'.'LOC.SINAL'

,
I"U"

fa

au

0)010
0)090
OllOO
01110
OlllO
011)0
01140
011 SO
01160

OS
OS

TEMP'
SlNF
SINal.
tOSF
CDSALf
TEIIPZ
RETlJ1IN
MOIIIITR

OS

as

OS
DS
OS

os

10.)9
.24Ie.
,YN

000)9
0241.
00010
OZ411
00019
00029

00010
00000
00000
00000
00000
00010
0241~ 00000
02406 00000
000)6

.2~21

• TEll"

10.29
.Z~II

.2406

DElila 'lIIfllE.

"lie

,1r.E
SYMIOl TABLE
ADoeON 00019R
ONUB 00214R
00240A
TEST) OOUOR

CRIT
SMAX
T-MIN
TIIKII"

'-MA.

OlOiftO.

02060 'UTa
02070
02080
020900
02100
02110

0219002200
OlD 10
01020
0)0)0_
O)O~O

,un

00104A
00061
SN
TUTI Ooo)2A

FUG 0001.
S"M9 OOOO~II
TESTZ 0010611

0001' 00010
OOOO~ 00005
00009 00005
00014 00005
00019 DODOS

DC
DS
DS
OS
OS

20.0
S,IODtON-1S
5,SNM9'5
5.SIIIN+5
5,SIIAX"

Til

SUIPIIOGUII eNTRV
SN-9,SN".,II,
NOVE

TFl CRIT,$IIIN.II
FSUI tAIT .SM"
IN' 'UTZ .. ,

TOM

01140 un
02150
021600
02170 US"
02110

un

POINT ON TlaCVl DEIliOTED IV 11M tN 'OSI'ION 00017
POINT NOT OH ulCn DENOTED IIV 0 IN POSITION 00011
NO. OF POIN" ON "ICVl IIltN"INID IH POSH. 00019

C"
1111'

02120.
021J0

OOOZOA
Ell "' 00009A
SM".
UIS OOOIU
TN
00011

1111 1620-1311 la-I" SUBPROGUM FOR £LIIIINITING POINTS
0111 A CUBIC CURVE THAT ARE NOT 0111 A fAlICn IIliTUVIL
IICS
'NAME ELI"F... eUSlIILE SVSTE" SUIIPRDGUM
'10 NU"8U 02U+DELDIM
.ASSEMBLE RElOC""Bl£
'STORE RELOIOl8LE
LINKAGE - 8T ELIMF .DSALBltl5,6
DSH8L I' HI-ORDER ADDRESS OF S-COOIIO. OF POINT
OSlL81'S IS IDORESS 0' IIINIIIUM S-VAlUE
DSAlBL+IO IS ADOAESS 0' ""IIIU" S-VALUE
OSll8l+15 IS AODltUS OF "IN-IIAX '-VALue

01010'
01020.
01010.
01050.
01060.
01070.
01080'
01090.
OllOO.
01110'
01120.
all )0.
Oll40'
01150.
01160'
Oll70.
01180 100CON
01190 SNM9
01200 SIIIN
02010 SMIX
OZ020 TAIS
02010'
02040'
02050 ELIM'

00058
00014R
OOI18R
00051

I.

tRIT,-l.IO
TUU. "

...

FLAG-Z."

OOltG +-9

.,

FSUI SH,SIlU.It.

un-u ...

lfL '''KMH. ",.,1'
TN.-It 10
,,.. IIItT
.....
..... '.11", '''1_' ..

til

5-'

COOROINAfes OF POIHT
00020 JJ
OOOll 00
S"IH-SN
0004~ 02
._AIIICH I' SIIIN OOIS NO' ExtEEO
00056 '"

ODD,. 000011
OOOU eOOOR
0005' 000 ••

5H
00106 DilDO

DOD.' I' 0005' COO-L
IRANtH I' SIIIN-SN IS ,,'AO.IIIA'ElY lERO
00010 III 0010. 01100

sn
U IT

0 ••• POIN' NO' ON fAICYL
00092 IS 00011 00000
00 I 04 42 00000 00000
oOloa

SN-S"U
'.'lIItH I'

IN .1,f.OI

00106 all 000 . . 000111
$1111
001'1 II. 000.2 DilDO

00110 00 000 . . OOOIR
00141 14 000 . . OOo-L
'UHtH II tN IS ""'Ollllanu leAD

00154 "' 001'4 01100
IUNtIl .. '''1l1li IS IICIIMIIGarlVl
001 •• "6 002.0 000"

zu

01050·
0]060 '."IN
0)010·
0)080
0)090
Dnoo.
OUIO 011 . .1
0]120
0)1]0
on40

OJUO

0)160.
01170 '."AI
ouao·
0)\90
0)200
04010.
04020
040)0

...

I'AGI
EXn-n,' .... z ..

'SUI 'N,T"I"N,.
_II
IIIY-n ...

04060
04070·
04080 SII
04090 Til
04100 CUT
04110 FLAO
04110 t".1I1I
0"1l0

'"-,,,.,,"

00190 02 00011 ooou

IUNtH II' ,,,.,," IICIEOS Til

00202 "7 ooou OUOO

.-. .-.
.
'0"

FLAO-It"

Ot

1.',-

"

I
00110

,.,

un

. . '0,' .... ' ..

IUIICM II' TIl IS NtIII-IlEGU. VI

.-,

EXIT-II

'SUI '".T" .......
ONUI •• ,

.'"
OSC
OSA
OS
OS
os

OS

os

00214 15 ooon 00000
00225 00001

• NCIII"III' 110. 0," I'OlllfS ON T<YL

DOIIG

,.,

SI' a" ••• '0111" 011 fAun

'"AG,I,IO •

00U6 II 0001' 000-1
Don, 4' 00000 00000
00240
001"0 114 00260 00016
00252
00260

II.

OOOU 00000

00260 02 OOOU ODDS.
' .... '''.''N
lallltH I' ,,, DOIS IIDT ElCnD ,,, .....
00272 117 00"4 01100

04040.
040~0

lUNCH I' '" IS 1ION-IIEGAfIVE
DOll. "4 00092 00076

2.4'

OOZ" 00002
00290 DODDS -OOU

10 ...
10.511+10
10,5.... 10
1,1'

00061
00078
000..
000 . .
00051
00020

EXIT-U

lo,can
DINO ILlII'

00010
00010
00010
00001
00010

127

' l

PAGE

SY"IOl UIU
.nTD2 ODOUR
COUNT 0011..

RUTDI 000...
IIESS 00391R

010~0.

01120
01UO

l1li00

OOHU
00009.

AtOU'"
'OSH

OOODOR
0024 ••

AU'." 00.'.
fRIC 001 ...

11M ..20-UIl aD-Apt SU..IIOGUM 'OR AIlEUM
EXltUTIOM-IMTIIIIIUPT llOOE 'EMORY TO 'ILl OU"

01010'
01020'

01040'
01050.
0106001010_
01080'
010.0' .
011001
01110 alOIlll'

OUT~U'

IItS

.NAIIE AlOUII" ••• ERAUBU 'UUI! SUIPROOR'"
0'0 MUNI'R 016)IOILOIM
laSSEMIU R'lOCAUIiU
.SfORE IIILOADalLE
LINKaGE. I
IEDUM'
SUI'R.AM ... flY
....00 •• 10.
CLIAR "1"OIlY MOOUll COUNTER
00000 J6
"WI" At. liE SeCTOR ADDIIISS
00012 J.
TFM OUTPUT.U ...
IflltlALUE IIElion 'DDIIESS
00024 J6
t.N TllEt ••• -1
cm. "osn leM 00000 :::::~;
TOIl 0.0 ••
•
COUNT
00060 119
00II& .-)
00068

011"0
01150
011.0
011 10
01180'
011.0 IIESTOI TOM
01200
SM
02010 IIEST02 TOM

0000. 000-0
00S81 -0000
00389 -0000

::!:: ;:::~

00116 00000

TREt ......

IIEStOIlE 'OSITION 111100'20000-1
000 •• J5 001'"
00080 J2 001.4
TREt ......
RESTOIII 'OSITION NII00'20000-20000
000'112 J5 00\911
tREtl •• I99.9
00104 JI DOl'll"
..... 00.1.10.
0011. JI 0000.
TREt+ •• I.IO
00128 JI 0019"
00140 LJ 0019"
TREtl'
IIIST02111.TkEC ••• II.SAYE POSITION _MOO'20000-20000
00152 K_ 0010)
,11ft ••• I""
00164 JI 00194
.ESTOIIII.TIIIC ••• II.SAYE 'OSITION _1100'20000-1
DOlfi> KN 00019
001.1 )J 00000
.U.RM-I
aUNtH I. MO 11111 IN POSITION 00000
IIESTOI".
00200 '" 00061
'REC' •• 19. .9

02020
020)0 COUNt
02040
02050
020.11

AN
All
AN
CF
TO

02010
02080

AM
TO

02090 TIlEC
02100

TIl
INII

0211002UO

TO

02UO
021'0

SM
TO

02150 'OS"

SK

021.0

lION

02110
02UO
02190
02200

AM
aM
SM
IMZ

0)010'
0)020
0)030
0)040
0)050

Rtn
Rcn
NUY IlESS

TRlt •••• ESTOI·U ••• RISTOAE POSITIOM NII00'20000-1
0021Z KN 001'.
TRIC ••• I99.9
0022" J2 0019"
TREt ••••UTOh" ••• IIESTORE 'OSlnON NII00'ZOOOO-20000
00236 XN 0019.
'OSITIO" A... '011 DISK NRITI·
OUTPUT".
00248 L4 0031.
DUll' 20K TO DISK lIDO SEtTOIISI
OUTPUT ...
002.0 LI 0031.
IIOOIFY SEt TOil AOOMESS 002T2 JI 00)1'
OUTPUTI,.2.10.
MOOI.Y MEMORY 'OOIlESS 0028" JI 00)1'
OUTPUT.10'.20.10.
00296 J2 000e9
....00.1.10
•• INCH I' OU .. , MOT CON'LETE
POSH ...
00301 .. T 002"1

00000
J ....
00000
J9'119'
000-1
000-1
00000
0019"
J999'11
OOt.1I
00412
00000
00019
J99.9
0010)
00101
00T02
000-2
OOOKO
000-1
01200

PAGf

"

ft.

0)060
tlt.L UIT".
0)010'
0)080 OUTPut DOA .0.0.200.0

00320
00U2
00344
'AUSE FOil onUTOII ACT ION
00n6
0031>1
EXIT 10-." SYSTIII

0113"
00U2
00315
.2.-- AD-a'T .MElIM EXECUTION IIIU.RUPTEO •• ,
OOJ..

0)0'0 IIUS

OAt

0)100'
0)110 ....00
0)120 ALFIIII
031S0

OS
I.AEOUM"9
OS
2,"155 •• '-2
DENO llOUMP

3" 00000 COtU
34 00000 COI02
L9 00)91 00100
48 oooeo 00000
49 001U 00000
011110. 0-0000
0000' UO
01100' -0000
00014

00009 00002
00411 00001
00000

au

Sy"eOL "IU
'I~C Yl]

'lCt YL2
IHPUn
CLIIAP
POSNI

0051 'I
Ollit
12012
III"
11160

UCYU
'lCCYLl
I"PUn
tOUNT
POSNZ

DOll?
021 U
12061

nllz

U'"

.ACYLI
.ceno
OELO III
DSUA'
PDSHI

01010.
01020.
010]0.
010.0.
01050.
01060·
01070.
01080
01090 AlLDAD
01100 CDUtlT
01110
OU20 Tut
OIUO

OOIlG 11800
TOil 0.0 ..
All
HIIOO.IoIlO.
All
r~le.6.Z0000
n
-1.AlFIIII-I.'
."'" COUNT ...

0101.00
OIUO POSNI

SK

INPun ...

OU60

liON

INPun .. ,

OUTO

11l1li

INPun ...

01180 CLMAP
01190
01200
02010
02020

'All
AM
SM
II

fFlI

lION ITh U .. 6 TIlt
IIIPun.4.20.10.
INPun.10.2D,10 •.
HllOO ,It 10,
POSNlt ..

020]0.
02040 'DSNZ

SK

INPun ...

02050

liON

IN,un ...

02060
02070
02080.
02090 PDSNI
OZIOO
02110,

B

02120
021]0
02140
02150
02160
02170·
02110 IIl,un

00'"
Ollil
00000
07610

U".

.IICYlO
1I0HIU
A!LOAO
IIUS

DOtU
01562
11100
·12111

nlc U'"

tCC'IU
IH'Un
AL'III
HIIDD

DIU'
110. .
Ill"

U'1l

1111 IuD-un Ao-A" PRoGUII 'Oil AlEUII

E.ECUTIDM-IIEINSTATE MODE .ILE TO IIEIlOAY DUMP
IICS

.NAIII AElOAD •••
olD NUMIIII 026UDELDIII
osrORI COAE IIIAGE
osn nil SYIliDl TAlI.I

eLIIAP.U
OOllG .-]

1111

JF
SK

tecno.zo.IO
IIIPUU+4."
IH,un ...

IICTY
ReTY
IIATY MESS
DSURF.U
B
001111' ... ]

11100
11100 IS 00000
lun IIIlUI
11124 U I U4Z
IIn6 Jl -OOOJ
lUNCH IF NO 1111 IN 'OSIUOII 00000
1114. ", 11112

euu

'OSITION 00000
NIIODoNIIOD..

POSITIOH ..II TO CYLiNoEIl 00
11160 ]4 IZ061
LOAD COilE POSITIONS 00000 THIIU 11799
.
11172 J6 12061
LOAD COilE POSITIONS 12200 THIIU 19999
II . . " 16 12082
CLUII FIIST IIAP ENTItY 1 .... 16 DUll
II0DIFY SECTDII ADDIIESS 11901 U 12100
IIDDIFY IIEIIDRY ADDIIESS 11'120 11 11106
NIlOO.HlIOo-l
IIn2 12 11121
.IIANCH I' 1lIIIOIIY FUlLY REINsr'lED
119.4 46 119. .

00000
0-0-1
KOOOO
11 .. 4
00000
00701
00702
00702
-000OOOKO
OOOKO
000-1
01Z00

POSITION AIIII FOA DISK lEAD
119" ]4 IZ096 00701
LOAD 10K '0 ME~Y 1200 SEcrDRS,
1196. ]6 12096 00701
11910 49 11901 oeooo
1191.
11.11 U OZI1I OOOKO
12000 26 12100 00099
IIEPOSI TlDN UM fD CYLINDER AT DUIIP TIllE
1201Z 54 1Z096 00101
120Z~ 14 00000 00102
12036 '" 00000 00102
120U )9 12111 00100
1206'0 . . 07612 00000
12068
12068
1207.
12011
12012
12011

00006
DODD'
0000'
00006
0000)

0-0000
....
-0000
o-OIU
-11

OOOOS
00006
DODO'
00005
00076

"UOO
0-0000
1180
-0000

OAt

12091
11096
.0.0.200,0
II 102
UID5
] •••• AD-A'T AIIELEM E.ECUTIDN "!SUIIED •• ' lUll

os
OS
OS
OS
DENO

2.eDUNf ••
2.IIESS."02
•• '62
,1620
AELOAD

DO'

02190 INPUT' DDA

.O.O.UI.O
.D.122.' ••• ZZOO

'IGI
02200 IN'UT' DDA
01010 MESS
OJU20.
0)0]0 HIIOD
0]040 ALFRII
030'0 MONlllI
03060 DSURF
OJU1D

2

lIUI 00002
1111S 00002
00000
OfUO 00000
11100

olSn

121

SVIIICIt. UtU
lUIIEU
.\AOOR
MON ITR
AAOOR
BADDR
EA DOli.

vuoca

0080"11.
000 ....11.
02406
00014R
0001911
000
G
014' . .
LeUt 00140R
o
00044.
Slit
ooon

000".
IIIAOOR OOOOU
111111.0 014)1011.
"UlC 00"6~
IUlC 00492R
FADOR OOOl911
H
01466R
lllOfZ 0128011.
.UAO OD72011
SCI." 02416

t.",

01010'
01020'
OIOJO.
01040'
010'0'
01060.
01070.
01080'
01090'
01100'
01110.
011 ZO'
OIUO.
01140'
0115001160_
01170'
01110'
01190'
012000201002020'
02010'
02040020'0.
02060.
020100
02080 AOOCON DC
02090
DC
02100 XIIAOOR OS

50.0
10.0
'.AODCON-Io'.

02110 VNAOOR DS

" XNAOORU,

YlAOOII
TANtON
eNTIIVI
"G
CADDII
FLAG
HCALC

U.

lIIeOT
0.'

00049_
0006011.
OIl.U
OOOO'fR
0002411

ooon

001'6111
0004.111
00011
0lU611

YNAODR
RETURII
aODCOII
All
CCAlC
"UGO
l
NOn
SIIA

"a

OOOMR
02411
0004911

0004 ...
00U6.
OIZ60111
0147611
01141111
000'"

oa41611

112&0011
ONU IN
'.0.0
ANOTI
DAOOll
PUGI
L-O.O
,

."1

DOOS411
OUlIlI
'0103211
01064"
000""
010".
D0900R
01"'''
00011

.. II 1620-Ull AO-"T SU""OOUII POll Dnl"MIHIIIG
THI 'DINTS 011 A GIVIII OINt"Al CCNIC . , WHICH
A liNE 'ASSING THROUGH A GIVell 'OIIlT WILL ••
TAIIGE~T TO THE GENERAL COIIIC
.CS
oNAME "'NCON ... NON-ERAUIU SYSTEM SUBPIIOGUM
.10 NU"BER OZU'OELOIII
'ASSEMBlE RELOCATAlle
'STORE RELOAOAIlE
LlIIUGE - IT fANCON,DIALIL • . , ••
DULIIL IS ADDRESS OF X.-cDD"DINUE 01' UfERNAL IIf
DSAI.IIL" IS ADDRESS OF y.-cODROINATE 0' eXTERNAL 'T
DSALBL+IO IS ADDRESS OF A-COEFFICIENT ICOIIICI
OSAL81.'1' IS ADDRESS OF I-COEFFICIeNT ICONIC'
DSALBL'ZO IS lODRESS OF t-CDEFFICIENT ICONICI
DULBL.n IS ADDRESS OF o-CDEFFICUNT ICONICI
DUUl"O IS, ADDRESS OF e-COEfFICIENT ICONltI
DSAl8Lo,S IS ADDRESS OF F-CDEFFICIEIIT ICONICI
OSALIl'40 IS ADDRESS OF X-COORDIHATE I'DINT II
DSUIlUIo' IS ADDRESS OF Y-COOIIOINATE \POINT I I
DSAlIL"O IS ADDRESS OF I-COORDINATE IPOINT 21
DSAlIL." IS ADDRESS OF Y-COOROIIIATE IPOINT 21
NO POINT IIIDICATEO IY 0 IN 0001.
ONE PCINT INDICATED. I., I IN 00079
TWO POINTS INDICATED IV 1111 III 00079

02120 UDOR

OS

" YNAOOR+5,

021'0 1A00R

OS

"UOOR+' ..

02140 CADDR

OS

5.8&0011+',

021'0 DAOOR

OS

,.tAOD. . ' ,

02160 UOOR

OS

',DAOOR.'.

02170 "ADOII

OS

'.!ADOU',

0004. 000'0
00059 00010
AOOIIESS OF X-COORDINatE I EXTERIIAL POINYI
000010 0000'
ADDRESS OF V-COOROINAn IEXTERNAL pOIIUI
00009 0000'
ADDRESS 0' A-COEFFICIENT ICONICI
000110 0000'
ADDRESS OF I-COEFFICIEIIT ICONICI
00019 0000'
ADDRESS OF t-tOEFFICIENT ICONICI
000Z4 0000'
ADDRESS OF D-COEFFICIENT ICONltI
00029 0000'
ADDRESS OF E-COEFFICIENT ICONICI
000'10 0000'
ADDRESS OF F-CCEFFICIENT ICONICI
000)9 0000'

~Ar.E

02180 • UOOR OS

!I,'.OO. . "

021 90 ""DOli. OS

5.X1ADOU',

02200 IUOOR OS

"ViAOORO',

OlOIO YZAOOR OS

"IlAOO"!I,

Ol020.
0·10100
0'040 'ANeON

SUII'II_'" IIITRY
lION I '111,01000,."
CALL $OR'"

0)050
0)060
0)010
03080
Ol090
OJlOO
OJll0
03120 HCALC
031'0
03140
03150
01160
on70
011.0
03190 LCAlC
0)200
04010
CIoOZO
D40l0
04040
04050
010060
04070
04010
04090
04100
04110
041Z0 ACAlC:
04110
04140
04150
04160
04110
04110
04"0
04200'
05010 ItCALC
0'020
0.a)0
05040
05050
050.0
0'070
05010
0'090
O'UOO

"H
TFl
FIIUl
FADO
FloOD
TFt.
FMOl

G,DIoOOR.ll
G,X~100DR.lL,

G. FADOII.lL
G,FAOOR.lI,
H. EAOOR ,n
H.VIIADOII.II,

fADO G,H"

TFI.
'MUL
FADD
TFL
FIIUL
'ADO

H.CADOR,n
H, VNIoOOR.lL
H,H"
l.BAOOR.lI
L,XNADDII.II,
I..EADDR.n.

FAUO Hfl ••

TFI.
FMOl
'ADO
FADD
TFl
F!lUl
FADD
TFl
F!lUl
TFl
F!lUl
TFL
FIIOL
TFl
F!lUL
FSUI
FIIOL
TFL
FIIOL
F SUI

L,UDDR.1l
l.XNADOR.II.
l.L ..
l,OADDR.ll.
XlADDII.IADOll,611
XIADDII.VII.OOR,.ll.
I.. XIIoDOR , 11,
AG.UDOR,ll
AG,G ••
AH.A.OOR,.11
AH.H,6.
lSO.L,6
LSO.I.,6,
SIIA,IADOR,Il
$1110. L..
S"A.lH,1l
S"A." ..
S11I,CAOOR.1l
S11IItUQ,Uo
SIIA, Sill ..

II

FLAGO ...

TFL
FIIOL
TA.
F!lUL
'SU.
TFL
'IIOL
FSU.
FIIOL
'!lUL

SII',EADORo U
SMa.l"
SIIC"AOOll,lI
SNC .G ..
SII•• SNC ..
SIIC,OAooa ...
Slit ,H"
SIIt.SIIC ..
SIIt,l,.
.... G••

l

ADDRESS OF I-COOIIOIIIATE I PO INT II
000410 0000'
ADDRESS D~ '-COORDIIIATE IPOIN1 II
00049 0000'
ADDRESS OF I-COOROIIIATE IPOIIIT 21
000'4 0000'
ADDRESS OF Y-CDOROIIIATE CPOINT 21
000" 0000'

sue.OU, ••, VIA HONIT"

00060 17
00012 -0
00084 -L
O·.N
00096 -J
00108 -J
00120 -0
00U2 -l
eOYM
001104 -J
G-O·.N.E·".+Z.O"
00156 -0
00168 -L
00180 -J
0019Z -0
00204 -L
E....II
00216 -J
00ZZ8 -J
"·E••·.1I.2.0.C·'.
00240 -0
00252 -l
AoXN
00264 -J
Z.O'''.XN
00276 -J
0.2.0." ....
00288 -0
00)00 -L
.·YNi.
00)12 -J
L·Oo2.0.'.III"·Y"
00324 -0
00'36 -L
00348 -0
00360 -L
00)12 -0
00"4 -L
00196 00
001001 OL
00420 OK
004'2 OL
004410 DO
C-LSD
00456 OL
SIlA·.....L.-c.l··,-.·W-·Z
00461 02
IIIANtH I' DIIIORINATOIt VANIS"ES
00410116

".N

o-H

.·L-.....O-H
u .....- ..........,

021000
01456
01456
014,.
011056
01466
011066
014'6
011066
01466
01466
01476
01476
011076
014"
01476
01476
011076

01476
000411
0004"
011076
DODO'
00009
0004 ..
000411
0004R
000411
00048
00041
00048
0004.
000)1
000]1

-2000
0002R
000011
OOOlR
OOOlR
000'"
OOOOR
01466
0002"
OOOOR
01466
OOOIR
OOOON
0001"
01476
000111
000011
01476
000211
000111
OOOOR
000411
000111
014,.
000111
0'4"
01476
01476
OOO'R
014"
000....
011066
0002"
0004R

00041 000]1
OU60

oazoo

oOlon 00 000)1 000111
00'04 OL 00011 01476
00Sl6 DO 00021 OOOaR
00'" CIt. OOOZ. 0''''.
OOS40 02 0001. 0001.
OO'SZ 00 0002. 0002R
OOS64 OL 0002. 0'". .
DOnI 02 000)1 00011
00'" CIt. 0001.
DOIOO .... DOl"'" " 4 "

"u.

130

05110
05110

FAOO AH,AH,I>Il,
FAOD SIIB,AH,ll.

CCALC

I.O-•• GeH
00612 -J 000411 000411
5"'-E -t •• l-I.G-tt, .O • .,eGaH-DeHel
000)8
000'"
000411
00028
OOOll
000Z8
0004A

000411
OOOZR
0101.
00009
000411
01451t
0003R

OJ 00028
01 0004.
06 00011
SMI"2
OJ 00011
oonlo OJ 00028
00168 01 00011
ADDToSMlooZ.Z .00SIIAoSM'
00180 01 00018
IAANCH IF TWO 'DINTS DO NOT EKIST
fliT Oil ••

0004R
00048
0003.
00038
0004'
00011

-0018
000]8
000\8
00048
00038
00018
00048

05150
05160
05110
05110
05190

TFl AH.DADOII,ltll
F"UL AH,l",
TFl S"C,AG
Fsue SIIC,AH,II.
F"Ul SHe ,G. ,
FMUl LSQ,FADDA,611
FAOD S"C,lSQ,H,

05200 QUAD
06010
06020
060]0
060'0
06050

FAOD
tFL
F"UL
FMUL
FAOO
FAOD

SMA, SMA,.
ROOT,S"8
ROOT ,SM8"
SMC,SMA
ROOT ,S"C
R001,SHC"

06060

eNP

NOU".

06070'
06080 2UNEEK
06090
06100
06110
06120
06130
06140
06150

I Til
TFl
FAOO
FDl Y
TFl
FSUB
FDIV
80

SQRTF,ROOT,67.
YUOOR.S"B,6
YUOOR,ROOT.6

RDDToSQRTFI ROOTI

Y2ADDA.,SMA,6.

Y2°UM8_AOOTIISIIA

YUDDR,S"B,6
VlADOR,ROOT.6
VlADOR,SMA,6,
LNOTl,L-9"

YloISIII-RDOTI/SMA
BRANCH IF l IS "DT

06160.
06170 lOO.O
06180
06190
06200
01010
01020
010]0
07040
01050
01060
01010

TFL
F"Ul
FADD
F"Ul
FADP
'HUl
TFl
FMUl
FADP
TFl
BD

Xl ADDR ,eADDR ,611
XlADDR,nADDR,ItIl,
XlADDR,EADDR,6I1,
XlADDR, YZAODR .611,
X\ADOR,FADDR,6I1,
X\AOOR ,HI Nl.0,6,
lPA,BADDR ,11
2PI,Y2IDDRtll.
2PA,OADDR,Il,
SMA,UDOR,II
ANOT l. $MA-9, •

01080'
01090 AoO.O
01100 FLAGI

FDIY XlAODR,2PA,.,
TOM FLAG,l.ll.

0~130

nuo

00624
00616
00648
00660
00612
00684
00696

DOL
lOG-DoL
GOlhG-OoU

OJ
-0
-L
00
OK
OL
-L

SMC- '.G-. 2.' -l •• 2-0-G-l
00108
00120
00132
00144

SMAol.OoSMA

oona

00804
00816
00828
008'0
00U2
00864
00876

ZOO

U
-6
-I
-9
-6
-Z
-9

02410
0005R
0005R
0005R
OOO.R
0004R
0004R

'AGf

00028
01100

008B8 "l 01280 01461
00900
00912
00924
009)6
00'4.
00960
00912
I.Y2
00984
2PA-aoVZ_D
00996
01008
aRANCH IF A IS NOT ZERO
01020

CoyZ
CoyZ.£
YZoCCoY2_£1
YZ.CC'Y2+£I+F
Xlo-IY2oleoY2_fl+FI

-0
-l
-J
-L
-J
-l
-0
-L
-J
00

0004M
0004"
0004"
000'"
0004M
0004"
01416
01476
01416
00048

0002M
0005R
000]"
0005R
OOO]R
014]6
OOOIR
0005R
0002R
0001"

"] 01064 00039

01110
01120
01130'
01140 ANDll

RETURN .. 6,
8
DORG 0-3

01032 -R 000." 01416
SET 1 ••• OMt: POINT EXISTS
010.4 15 00079 OOOOJ
REf URN TO IIDNITR
01056 49 0241J 00000
01064

FOIV XlADDR.S"A,6,

go-IIVZ'le'YZtElHIIAI

01150
01160
01110
01180
01190
07200

Fon
FMUl
TFl
FMUL
FlOO
82

2PA.SMA
2'A,0.5"
SMA,P
SMA,SMA
Q,SMA,6.
ONElIN,,,

0106.
01016
o 10BB
01100
01112
01124
2
BRANCH IF USULT IS ZERO
01136

-9
-9
-I
00
03
-I

08020
08030
08040
08050

BTII
TFL
FSU8
TOM

SQR TF, Q, 671"
XlADOR,O,611
X2AODR,P,6,
FLAC, ••

1P 02410 -004M
-0 0005" 0004M
-It 0005M 01416

08060
08070 £NTRYI
08080
08090
08100
081100
08\20 ONEllN

DC
1.' ,FHUl XlAODR ,"INI.O ,6
FSUI XIADOR,P,.,
a
RETURN" ••
DORG '-3

011.8
01160
XZ--P+Q
01112
SET R" ••• TNO 'DINTS £XIST
01184
01195
01196
Xlo-P-Q
01208
01220
RETURN TO !lONITII
01228

08130
08140
08UOo
08160 ~0T2

B

XI oX liZ"

polaoVZ+OI/Cl.Odl

Q.' ••

00D4M
01416
01416
00048
00048
0004"

00048
0004B
014"
01416
00048
0004B

"6 01228 01100

08010_

PAGE

08170'
08180 FUGO
08190
08200
090100
09020 lNOTl
09030
09040
09050
09060
090100
09080
09090
091000
09110
09120
091 ]0
09UO
09150
09160
09110
09180
09190
092000
10010
10020 "INI.O
100]0
10040 0.5
10050 G
10060 H·
10010 L
100800
10090 AG
10100 AH
10HO LSQ
lOUD SNA
lOUD 5".
10140 SIIC
IOUO'

TOIl

FLAGtI,l1,

ENTRY!
DORIO - 3

8NN

lUNEEK'I2" ,

TOIl

FLAG,,, ,

RETURN,.6,
B
DORG 0-3

TFL
FIIUL
FADD
FIlUL
10

XUDDR,H,6
XIADDR,YIADDR,.II.
XUDOR,G,.
XUDOR ,IIINI.O,6

·.ZO,ROOf-9 ••

QoSQRTFIQ+P"ZI

lZADD.,H,6
XZADOR, nADOII." I.
XlAODR,G,1t
XZADDR ,MINI.0.6
XlADDR,l,',
FlAC....

1.' ._
DC
RETURN ....
8
DORS -4
DC
DC
DC
DC
DC

DC

.,-10000000
Z,I
•• '0000000
2,0
10,0

10,0

DC

10,0

OS

10.VNAOOR
10 •• UOO.
10.\'14100.
10,,..
10.u
10,211

OS
OS
OS

oS

as

OS

,l-

00000
01436
01416
00000

SET I ••• D"E POINT EXISTS
01228 15 00019 OOOOJ
01196 00000
01240
01248

".

BRANCH IF IIADICANO IS 0.0
01248 Mit 00816 01100
SET 0 ••• NO POINT EXISTS
01260 15 00079 00000
01212 49 0241J 00000
01280

RETURN TO "CHITII

OI2BO
01292
01l0'
01116
IIIANCH IF liDO! IS 110' ZERO
01128

HeY1

-0
-L
-J
-L

OOO.H
0004"
0004"
000411

01466
0004R
01456
01436

113 0\348 00009

01340 M9 010]2 00000
OU48

I
'-0.0
DOIIG -1
TFL
FMUL
FAOO
FMUL
FDIV
TOIl

15 00079
00001
-l 0004"
-It 0004"
49 Ol41J

4

01348
01360
01112
01384
0\396
Uo-iG.He.,211L
SET 11M ••• TWO 'DINTS eXIST
01408
01419
01420
.nulIN to 1I0tI1T1I
01421

Hoyt

014)4
OU],
01444
01446
0""
01466
0141t

-0
·L
-J
-L
-R

ODDS"
0005"
0005"
OOOSII
OOOSM

01466
OOOSII
014",
014)6
01476

15 00019 00000
00001
49 0241J 00000
00001
OOOOZ
00008
00002
00010
00010
00010

00009
00044
00049
00048

00010
00010
00010
00010
Don. 00010
00010
0lU6 00000

ooon

231

10160
10110
lOUD
10190
10200
1101'0
lI020
11010

Z'A
0
ROO'
IIONnll

hGf

DS
OS

.~

0lon6 00000
00000
00011 00010
01406 00000
02416 00000
00079 00000
OZ4ll 00000
00060

.XIADOII
OS
10.U
OS
.U06
sOlin
.2416
'~AG
as .79
RHUII" as
.2411
01110 "litO"

.

OOO~~

os

'IGt
sy"80~ ,ABLE

SEMIN'
TWOTAN
TANCON
OHSTO
NOR"AL
JIGGER
fOURAC
OICAtC
ACON
8815
CRITI
DISTF
DSAII
OSAIIo
OU20
OSU5
oSAS
DYOX
ENEG
FISH
GOI
IN
II8IS
NHY'I
OVOFF
REVE
TEIilP
UN IfV
UYNT

"'"

.2
YT
0.'

17158
1.6)2
02416

I.OHI 06085
TWOINT 1~920
RO-O.O 15100
OFFCHK 16708
IIl.E48 Il3U
HVPFlG on.9
ERPROC 02~16
OEVUT 15520
ADJUV 11012
'CON 0])12
CRITZ 00031
DMU 03228
OSUZ 16)9)
DSAll 16529
OSUl 16589
DSU6 16665
oSA6 l6zn
01
00048
EP05 15932
FUG 00019
GRAD 0)2)8
INION 11164
IIINIF 02~16
liMY'" IUJ6
PSI
OU6I
IIEVEG 15'64
nuo 0'914
0)118
UKII
un 06Ut
0)248
lNO
059))
u
0590Z
VO
060"
'.0

15~12

1502'
IS6U
00019

1''1''

03)62
0)16'
OOO~'

OZ416
16llZ
16519
16519
1665'
IUSI
02.16
1586.
OZ416
06Hl
11208
0)268
16U6
11156
17096
00019
02416
0120.
OUII
onl1
1597J
060U

010~0.

OlltO
01160
OU10
011.0
OU'O

15HZ
15914
16780
02~06

0)31'
0600~

15591
15UO
00069
00069
03298
l6~18

165.9
16599
16695
16Z71
OOOU
16168
02411
16192
0110J

onol

14136
OJ211
OUIl
TU 06141
OJl91
UK'"
VEIII 16910
Xl
15961
VIII
01301
OJJOI
VI
20E" 0001'

UNVECJ
UNPS I
RETURN
IIORllllI
'"NI.O
GOlFRT
ENTRYl
(NSTItT
AIIG'
ecclI
oeON
OSAI
OSAI4
OSA1'
OSUI
OS13
oSAI
E
IIIZOI
FLlln
HYP2
LINEa
MOVEl
ON

15076
1~800

02'11
02~16

0602~

UUZ
148'~

1092
06515
OUI2
On'l2
161U
16U'
16559
1662.
16219
1621f
0595.
16144
on62
16192
nO)6
14992
11"6
PSl2 01211
SE"SE 02416
tllU OS"4
06125
UK'
059U
0,..2
10
0)3121
YII'

UNVECN
TANlNS
ONFUG
NOR"CN
L1NCOII
GOFO'II
02CAtC
AOVEPS
ATANF
eMN
OEVI
OUIO
OSAI5
OSA2
OSU.
oSU
oSA9
ECON
FCOII
G
MYP'
!lAlIIF
IIDVU
GUYSO
ItARE
JAIIF
,~O

UYII
XIII
XI

I'
"

.,1tD
0.0

OJI"

15112
14601
15)11
OHI6
02416
11296
IH56
15700
02416
16SZ'
0)261
16"1
16479
16159
166n
lun
lun
0).02

o,.u

0591.
"n6
OU16
16941
15244
11024
02416
06014
U"I
OU9I
OU91
OJ"I
060'4

1610-llll AD-A,t SU.'ROGR'M 'Ol VIII'FYING
THI SflAT-UP '05"1011 OF 'HI CUTTIIt
ON GENEllaL COllie 0111" SUIIFaCt.

01010.
0106001010.
01010.
010900
01100
011100
011'0 '''STAr I TIl

DII40

en

O"IN
OSAn
DSUI
OU22
DIAn
oSAl
DZ
EUOO
FlII
HYPI
llYEM'
IIODN
NVEIII
PSIt
.
110

15~00

II"

01010OIOlO.
01010.

01110

VERIFY
TOlCHK
RElIOF
NOUrsO
!lONITR
HYFUG
EPSlOII
(ON VCR
AlllUV
8YT

It

'011
""
TIL

ollAME CNSfAY... _ _ . .UILI AIIIUII SUIPMOGAAII

lies

olD _ I f It 0266.0ILOIM
.S'OIII COli IIIAGE
LlliKAGE - .
CII$tll".6
SUI'ROGRAM INTRY
MOIInll.OUID.6f.
CALL 'UH SUIPROGIIAII VIA I11III".
14'9' 11 02'00 -lllO
CALCULatE D'-C' OfF." IlIOle"OlS
FISH,tLZ.I.
oz'IO 061"
Sit
IlIOlCifOll &44.6 liOn., 000-9
IIU"'.,.IO.
" ' OIGIN.,,'. COllie IIIOICAJOl
G"ll.

os "',.

..... 'UG.acOll

'IIU~ H"lAG .leOll..

"L 'OIIAA( • ACON
'lIUl 'OIIAA( .CCOll

...,

""4 "
,4.,1 as Ot"4 0000.4'"
OJS.I OlS"
"4" Ot onn

OJ
OU12
1446' 01 000" 0lSI2
. . . '1 O. . . ., ' OJII'

232

01200
02010
02020
020)0

fAOO 'OURAC,fOURAt
FAOD fOURAt,FOURAt.,
fSU' "VFlAG,FOURAC"

"

"V'l".

020~O'

010.0 N"VI'S

SF

"YPflG."

01060

IT

AEIIOF.OSA2""

02010

TO

OHFlAG,RO-'"

OZOIO
020'0

'MUL "VfLAG,A'
8NN INION".

02100'
02110

.f

MONlfA.DSAlo,.6,

OlUO

INII

flARE "LAG"

021~0'

02UO "'DTAN FSUI X141,XO ..
02160
FSUI VM1.VO ••
02110
BTII IIONITR,OI020,61.
02180
02190
02200
0)010

Fsua XM2.XO ••

FSUI V142.YO ..
UANF.DSUoIO,6,

8J

0)020

UM

MONITR.OUJO.67.

0)010

~f

MINIF,OSA,oll,',

0)040
01050
01060

FSUI PSIl,PSU
f14UL PSIl,O.'
tF
PSI 1-2 ...

0)010
01010

IT

FAOO PSI.PSIl"
MONITR.OSA6., •••

01090 UNPSI IfM
03100
CM
03110
INN

fANF .PSI,67.
MIIS,'.IO
VERT •••

01120'
OU10 NVEAr

rFl BBIS,yO
O)l~O
rFL PSIZ.XO
FNUL PSU.MBIS
031 so
01160
FSUB 811S,PSU ..
MONITR,OSA7'5,6,
03170 ENlRYI IT
01180

IT

LlNtON.DSU''',6.

031'0

,NIl

MOVE1.FLAG"

,
i"U 01 00019 00079
4.0·ut
14500 01 00079 00019
""LAG· ... ,-4.0."C
14'12 01 on1l ooon
'AANC" IF CONlt IS IN "YPERIOLA
1"24 46 .727. 01100
SET NON-",PUIOU INDltATOR FUG
14516 ]2 on49
EVALUATE RESIDUAL IIF POINT PO
14.U 27 1'974
SET RESIDUAL INDICATOR FUG
1""0 25 usn
14512 01 onu
IAANt" IF tUfTER NOT OUTSIDE tONIC
H584 46· 17164

00000
16164

OllOt
DUll
OIJOO

tALL tANtON SUIPROGRAM VII MOHITA
14596 n 02400 'Iun
OEfERMINI UNGENf LINES TO CONlt
1460. If 02410 16214
'RANt" IF TNO LINES 00 NOT EXIST
14620 .. , 17024 00079
X~I'IMI-IO
14612 02 03298 05lU
VMI'V14I-YO
1.. 644 02 03)OB 0590Z
tALL ATANF SUIPROGRAM VIA MONITR
14"6 11 02400 -2020
CALCULATE ARGUMENT OF TINGENT VECTOR
14668 Z1 OZ4IO 16229
IM2-10
14680 02 onu 05892
Y14Z-VO
1~69Z OZ on2. 05902
CALCULATE ARGUMENT OF UNGENT VECTOR
14104 27 02410 16245
CALL MINIF SUaPROGUM VIA MONITR
14116 11 OZ~OO -2130
SELECT SMALU~ OF 'SII ANO PSl2
14728 Z1 02410 16262
14140 02 01218 OlZ88
1~152 01 01218 06065
PSlI'AaSFIPSII-" 1l1l2.0
14164 ]) 03216 00000
PSI'PSloPSII
1411601 0)Z68 01ZT'
tALL TANF SUIPROGRAM VIA 140NITA
1~"8 21 02400 16212
MUS.TANF I'SII
14800 17 02~10 -1261
14112 14 01268 000-'
BUNC" IF LINE VERTICAL BY DEFlNlTlOfl
1"82~ ~6 16'180 01300

1"816 06 01168 05902
148~8 06 0]288 05892
14860 01 0)288 01268
881 S-VO-M8IS •• O
1~87Z 02 01168 0)288
CALL LI NCON SUBPROGRAM VIA MaN ITR
1.... 4 21 02400 162.2
CALCULATE INTOF BISECTOR ANa CONIC
14896 27 02~ 10 16142
BRANC" IF TMO INTERSECTIONS 00 NOT EIIST
1490. 45 14992 00079

0]200'

PAGE
04010 TNOIN' 8T

IIONITR,OU,.5.6.
0ISTF.DSAI0020.6,

0~020

OICAlC aT

0 ..030

IT

lION I TR ,05111",6.

O~O~O

OZCALe IT

OISTF.OSAIZ.ZO •••

04050
04060

FSUI 01.02
8NN MOVEl, ..

040700 .. 080 Movn
04090
04100

TFL
TFL
aT

0 .. 110 IIDRMAL aT

XNO,Xl.,
VNo,Yl"
MONITR.DSAU·5.6,
NORMCN,OSU050

80

G"'l, ••
COIIVCR,UGT ..

06060060rO Vt:AlfY IT

UXN-UYT-UYN-UXT
15)~0 02 0)118 03'88
IRANCH IF CROSS PRODUCT IS NOT POSITIVE
")52 41 1')'8 01100
E--E "'''ENDING MDTtON CCWI
I H64 0) OS954 06024
1 U16 32 05912 00000
lUNCH IF sunup rESr I!EOUNDANT
1'388 4) 'S592 0651'

SET cell INDICATOR

CAl~ DlsrF SUIPIIOGIIAM VIA MONITII
Inoo 2? 02400 165'14
CALCULATE DISTA~E PIIOM CUT'EII tEMlER TO CONIC
8T
DISTF,DSAZ2t,O..
1541221 02410 16619
TFL CII IT I. TOL I
15424 06 00048 059'4
,.OD Cllln,EpSLOH
ISH6 01 00041 06004
U
CIIITI-Z",
CIIITI--ITOLI"PSLOHI 15448 1200046 00000
TFL CIIITZ, TOLD
15460 06 000)8 06014
061~0
FADO CRIU,EPSlON"
CII1T2 o rOLOtEPSLOH
15HZ 01 00038 06004
06UO
TFL TEMP,!
15~84 06 00079 O"5~
06160
'NUL TEMP.TLRAD,.
,.rlIlAD
154'6 03 00079 0598~
06110
CF
TEMP-2",
A8SF(EeTLIIAOI
15508 33 00011 00000
06180 OfVIAT ,sue MODN,TEMP,.
"DON-DISPLACEMENT OF CUTTER PEAIPHERV
15520 02 on08 0001.
06190.
'AOII OS tONIC liN OIAEtTIOH OF CUTTEII tENTER I
06200 TOlCHK Fsua tRITI,MODN
15532 02 00048 03)08
01010
8P
fRZOD-12",
8RANCH IF CUTTEA ItOT WITHIN TOLERANCE
15544 ~6 16156 01100
01020'
010)0
FSUB CRIT2,MODN
15556 02 0003a 03308
01040
liN
U20D-12 .. ,
8RANCH IF CUTTER NO' NITHIN rOLERANCE
15568 41 16156 01100
01050.
01060
BO
OFFCHK,E-9"
BRANCH IF TODLI IS TLLFT OR TLRGT
15580 4] 16108 05'4~
01010'
01080 CONYCR TFL OMAX,TOlO ••
O"Ax-TOLO
15592 06 O]Z28 06014
01090
TFl OPlIN.TOLI
15604 06 03298 05'9~
011 00
SF
DMIN--TOLI
15616 32 032'6 00000
0"IN-2" •
01110
00
ENEG-Il,E-'I"
allANCH IF TDOll IS TllFT OR TLRGT
15628 4) 15852 05945
01120'
011 10
BO
40VEPS ,ONFlAG ..
8RANCH I' POINT PO NOT ON CONIC
15640 ~] 15100 15183
0714001150 JIGGER FMUL UXNT,O.5
15652 03 01198 06065
FMUL UVNT,O.5
01160
1S66~ 03 03208 060n
FSUB XO;UXln"
01170
XO-XO-IO.OoEPSLON0UXN n616 02 05892 03198
01180
HUB YO,UYNT"
YO-YO-IO.OoEPSlON-UYIII 15688 02 05'102 01208
011.0AOVA~E CuTTEII STARTUP POSITION A DISTANCE EQUU
01200.
TO ZO.O'EpSLON IN THE DIIIECTI~ OF UNIT VECtOR
080 I 0 ,oveps TFL
rEMP,TOlO
15100 06 0007. 06014
08020
FAOO TEMP, TOll"
20.0oEP5LON
15712 01 0001. 05994
080)0
FMUL rEAP,uxT..
20.0oUXToEPSLCN
15124 03 0001'1 06115
08040
FAOD XO,TEMP"
XO-XO.,O.O.UxroEpSLON 15136 01 05892 0001'
15148 06 0001. 06014
08050
TFL TEMP,TOLO
FADO TEMP,TOLI"
ZO.O.EPSLON
15760 01 0001'1 05994
08060
FMUl TEMP,uYf..
20.0.uvroepSloN
15112 03 0001'1 06135
08010
YO,TEMP"
YO-YOt20.0oUYToEPSLON
15184 01 05902 ooon
08080
FADD
CALL MAXIF SU8PAOGAAM VIA "ONITII
080'10
8TA MONITR,OZI30,61,

MOHITR,OS4ZI+S,6.

06080060.0 OFFSfO
06100
06110
Obl20
06130

PACf

TFL
5"
IH

TEMP,fPSlON
TEMPtI.IO
MAXIF.DSA21.11.6.

08130

8

RETURN,,6.

081~0

DOIIG

0-]

0815008160

BNF

EPOS.£-l"

08100
08110
08120

08110'
08180 ENEG
08190
08200
09010
09020
0'1030
09040
0905009060 EPOS
09010
0'10'0
09090
O'HOO09110.
09120 XT
09130 YT
09140 IIElIOF
09150
09160
09110
09180
09190
09Z00
10010
10020
100)0
10040
100S0
10060
10010
10080
10090
10100.
10110 OSAI
10110
10130
101"0
10150
10160
10110
10180
10190
10200
11010
11020
110)0
110"0

TFL

'sua

15196 11
15808 06
15810 12
OEVI-MAX1FI0.1·EPSlON,5.0E-51
15832 21
158~4 4'1
AETURN TO MOHITR
15852

0"1 N, TOLD
OMIN-Z
SF
FSU8 ONIN,lUAO ..
lOVEPS
8
OOllG -1

OMAhtOL I-TlUO

TFL

FADD
FIlIlO
D
OOllG

OMAX. TlIIAO, ,
OMIN,TLRAO"
AIIVEPS

02410 16706
OHIJ 00000

811ANCH IF TOOL OUTSIDE CON IC
158H ~~ 15932 05"51

DMU, TOll
OM4)[ t rUtAO ••

02400 -2130
00079 0600'
00019 000-1

D"IN--IfOlOtnUDI

OMu-toLOtnUn
O"I"--tDlIHUAO

0+7

15864
15816
15888
15.00
15912
\S924
15932

06
02
06
3Z
02

0)298

~9

15100 00000

03228 05"4
01228 05~8'"
03298 06014
Oll96 00000
0~984

15'12 01 0)228 05984
15944 01 on9. 05984
U"e ~ .. 11700 00000
"9H

GENERAL CCHIC RESIOUAL SUe.OUTIHe
15968 00005
5,--5
159n 00005
"XT+$!
15914 06 03211 1596Q
TFl 1I0.Uoll
IS986 0303218 03162
FHUL IIO.ACON
15'198 01 Oll18 on9Z
FADO ItO.OCON ••
16010 06 0006'1 033n
TFl IIYT,IICON
16022 03000n 15971
'MUL .YT.n,n
1603~ 01 OllU 00069
.eXT* •• yr*o
FAUO RO.IIYT ..
16046 03 03211 1596Q
noIA.XT ••• ntOI
FHUL AO.ITtll,
160'Sl 01 Ollll 0)412
Xl'IAUrtaUr+DI.'
FAOO RO.FCON . .
16010 06 00069 O)]U
TFl CYT.CCON
16082 0] 00069 1 n1l
con
FHUt CYT,n,ll.
16094 01 00069 03402
c·n·E
FADD CYT .ECON ..
16106 OJ 0006. 1591L
n·lCeYhEl
FMUl tVT.n .lI.
RO_6 •• ' •• 2., •• Y,,'+'·"··2.0 •• ,+£oYT"
fAOD 1I0.cn ..
16118 01 0311. 0006'
CHECK I NO ICarOR
axy
lURH 01"
161JO •• 16142 01500
16142 42 00000 00000
110
161U
DOIIG e-'I

OS

os

, •• '.0

•• '2".

...

OSA TAIILHSt12
OSC ,.016H
OURG OSA1+'·'·U-.
.IIOF VM2,O
OOllG. .-21
1401' YMI,O'I
DORe! -21
NOF 'COM.XMI
DORCI -ZI
Il10' ocOll.etOll
OURII --21
IICON ,CCOll
DOIIG - I I
YO ••COM

-

"'OIIIN'

un

16148 00005 J46Z0
16149 00005
16201
1620e 'I10UU 00000
16'"
16'" oU ono. Ull.
1618.
161 •• it OJ." 0)29'

I6tT.
161Tl 'U DIS" 0 " "

..... 4'

16'"

OUU onu
16ist
161U 41 Ol'lOIOHU

234

,aCt
110'0
I t060
11010
11080
H090
11100
ttttO
11IZO
ttt 30
11140
11 ISO
11160
UUO
tllIO
tttto
,&UOO
IzetO
12020
nOlo
11040
no.o
UO"
liD 10
12010
U090
UIOO

OUI

OSU

OSA4

OS&5

IS'"
OSA?

nllo

UUO
12UO
UI40
U150
UI6D
12110
12110
12"0
U200
U010
1]020
n030
13040
U050
1]060
1]010
1]0'0
uotO
11100
Ul10
uno
UUO

OU.
OS"

05"0
OSAIl

nuo

1)150

U160 Dun
1)110
11180 OSAn
U190
UlIO
'40111
14020
14010
140.. 0

14050
14060
14010
14010
14090
14100
14110 OSA14
14120
I~UO

14"'0
14150
"'160
1~110

14180
1"'''0
14200
15010 OU.,
15020
15010 DSAII
15040
IS050
IS060
t5010
150'0
150'0
15100' DSAn
15110
15120 Dun
IS"O
15140
1'1150
1'1160
15110
15110
11190 DSAI9
IUDO
16010 DSAI.
1.020 '
16010 OSAII
11. . 0

"0,.
"060

16010
160 . .
16090
1.100 DSAZI

16110

ODa'
OU
ODaG
NOP
DOI\G
OSA
DOI\G
NDP
ODaG
OSA
ODaG
NOI'
OCIIIG
DSA
0011'

--t4
xo
•• ,.tZ-•• ' . . . ll-'

.,11,"11
.-14

Xllt
•• "",.")-11
V1I2,'51'
.-14
XIIZ
••
PSU,'I'
.-t4
PSit
•• " .. 4
ose I,.
OSA TAN''''''
OSC ',022n
OSA ENTIIVI+Z'
ose 5,1209,
OCIIIG OSA'.S ••• , ' "
NOI' VZ,O
00110 .-21
NOI' Yl,IZ
DORIO .-21
NOP FCOII.II
DOIIG .-Z1
NOP ECOII,OCOII
DORG .-Z1
NOP ACON,ceON
OOllG --ZI
HOP 811s,.eON
0011' --14
OSA III IS
OOIlG •• '.12-4
OSA OICALC+U
OSC 5,02101
0011' 05A9.5.'.'·'1
NDP VIoOI
DOI\G .-21
NOI' VO,XI
DORG .-14
DSA XO
DORIO "505-4
DSA 02CALC+U
DSC ',OIlOl
DORG DSAII.5 ••• 5-I'
NOP n,02
DORG -21
NO' YO.x,
DORIO __ 14
OSA XO

,.,,'.'."'1

DOR' ..
'.5-~
NDIlfIlAL·U

OSA
OSC
OORG
NOP

S.Oll61
OSAI].5.'.10-.
VNO.O

00II, -Zl

PCON.XNO
001\' _21

HOP

Nap
0011'
Nap
OOIlG
NOP
OCHIG
DSA
DORG
NOP
DOR'
NOP
OORG
NOP
OOR'
NOP
DOII.G
OSA
OOR'
OSA
DSC
DOII.'
NOP
0011'
NOP
OIIIIG

ECON,OcON
.-21
ACON,CCOII
_1I

VO,BCON
-lit
XO
.+'oID-U'._2
'RAD.O
_21
ECON,DCON
-21
ACOII.cCON
0-21
1'110. IC'OII
_14
XNO
•• 5 .....
UNYECT+U
5.02111
OSAI6.'.'. . . .
UYT,O
.-21
GRAO,UXT
.-14
1.0
•• 5.... 4
UNYECN.12
5.02111
DU".,.,.. . .
UYN,O
-ll
IIINI •• ,UXII

OSA
OORG
DSA
DSC
OORO
NOP
OCIII'
NOP
DOlI'
OSA GRAD
DOR • • • ' .... 4
OSA AIIlUV.24
OSC !It 02U'

-'4

DSA

OPfSTD.U

DSC

5,OZ101

00II, OSA21.5. . . . . '1
HOP ,"0. MOON
OCIII' -21
HOP VO,XNO

00II, --I ..
DSA XO
00II ••••• 5-.

"UOOSAII
•• UO

Oh LlNUU6
DsC;t,Olill

16'"
161"

00II . . .,.

""0
'61900h.4

00II. "14
OSA "INa ••
00II0 •• , .......

UtUIOhat
nolO
nOlo

OSA
DSC

I.'"
II'"

"n.

' 104'

00II' OSU .........
HOP

ilYf,O

__

otllN,ulf

AO.lUVoU
'.0241'

., ."2'
'110.'••••••·•
00II0

6

"U5
t6l'9 0000' - ' ' ' '
tlln
16211 41 0110. OIl"
tll15
t6'19 00005 - " "
"ZJ4
41 DIU. 0 " "
"UI
1623' 0000' -JI"
t6250
162,0 41 DUll 0116.
1624f
t625t 00005 -12"

",J4

"U,

162.'
1626t
t6261
"2n
1621.

OOOOt
00005 .I·un
00015
DODD' .1490.
DODOS

"n. 41 Dun 00000

"H'

U,)26
16326 '1 ono. 01111
16U.
tU" 41 0)412 OU"
16)0'
16)06 4t Ol40Z on.,
16296·
1629. 41 01 •• 2 OJI.'
16286
16216 41 0"61 on12
162n
162.7 DODO' · " 6 '
I6)U
16)47 0000. J494.
16)48 00005
16J66
16)66 41 ono. 00041
16156
16)56 4t 0590' 01291
1615)
163.7 00005 ·5.t'
16J1.
16382 00005 .14 . . .
I6ln 00005
16401
1640' 41 01121 OOOJ.
16392
1&391 4t 05901 DUll
16389
1639] 00005 ·1.92
1641~

1&418
16419
16467
'6461
16....
16451
16441

00005 .1'040
0000'
4t

on"

00000

4' 0]412 0124.

16....... 41 0]402 0]192
I6HI
1 .... , . . . , OSI.2 OJ]'2
lUll
16 ... 2 • • 1 05.02 OSI12
16 ... 15
1642. 00105 ·'.92
1&.07
16508 41 O]UI 00000
16""8
16"''' 41 03402 OJJ"
16.....
164" 41 OJ]62 OJ3'2
16478
16418 41 OJZ" OJJ7I
1&415
16419 00005 -]24'
16515
1651. 00005 .1508'
t6520 00005

'AGE

16'"

165]8 ... , 061]5 00000

16128

1652. 41 0]21' 061"
1.,25
16529 00005 ·&015
16'45
16'4' 00005 .15124
"no 0000'
16561
,,,. . 41 onll 00000

I""

16'" .. 0602' 01l1l

I""

I.". 00005 -S2S.
16515
16579 00001 J5J04
"510 0000'
165.9 00005 JI."
1659000001
1660a
16601 '" 011" ono.

,.,,,

1659' . . 05902

on41

16'
, . .". . . .OOI-..ta
a6"0

' . .24 0000; J ....
16'"
00.01
"60

••M4 41 Ha" 00000
16t14
166 ••• 1 ••••, " ' "
aun
'6.,5 00005 -"'4
. .6;1

.66" ..... ""..
..........
,.... ".U.......
IUK

.

us

11050
17060
11010
17080
110~O

17100 OSU6

11110
11120
11130
11140 DSU7
111 50
IU60
171 70'
IUao O"CH.
17190

DOftG
NOP
1l0IIG
HOP
DOIIG
OSA
DOIIG
NOP
DOIIG

1667~

'·21

16664
1666~ 41 onoz OUU
16661
166U 0000'
16(9)
1669~ 41 IUU 01268
166'11
16695 0000' -007'
16706
16706 00001

YO,AtON
-14
KG
·.'·6-".'·)-1l-2
5EIII"' .DEVI

.-14

'."'-4

FMUL HYFUC,E
811
COIIVClI .. ,

lot OU72 OU41

-U",

aSA TEMP
OOllG
OSC 1,1

UM

MOHITR,OZnO,6?,

ERZOI

8J"

EIIPIIOC .2010),".

IT"
aTM

MONITII,On'O,6T,

18040 ERIOO

18030

18050'
18060 NOUlSD 8NF
18010'
18080 HYPI
\80'10
18100
18110
18120.
1800 eMN
18140.
18150 NHYPI
18160
18170
18180
18190
18200
19010.
19020 HYPI
19030
19040
19050
19060
19070
1'1080'
19090 MOVEZ
19100
19110
19120
19\30'
19140 VERT
19150
19160
19110

19180
19190.
19200 RARE

EltPROC,ZOOO,,6?

lltANCH I'

IUD. 03 OU38 0'''.

cutfE~ ON '~OPER.

Sloe

uxt"MINl.O ••
UYN,MINIoO ..
"MUY-Z4

UINa-UXN
UYNa-U'N

BNF

HYP2,HYPFLG"

TFl
FSUB
TFl
FSUI
B
OOllG

UYN,YNO
UYN,VO ..
AIMUV
-3

TFl
FSUI
TFl
FSU8
8
OORC

.-)

UXN.XO ..

UXN,XO
UXN,XNO, ,
UYN.YO
UY", YHO"
AIMUV

UXNoXNO-lO
UVN-YHO-YO

UXN-XO-INO
UYN-VO-VNO

0-)

TFl
TFL
8
DORG

NORMAl-lZ
.-3

TFL
TFL
FMUL
8

1III1S,1.0E48"
88IS.Ml.£4.
8815,10, •
ENTRY!

XNO,X2.i

YMO,V2.,

16792 OJ 01178 06024
16804 03 0)188 06024
16816 49 15256 00000
168H

8RANCH IF CONIC IS AN HYPERBOLA
168H 44 16892 03349

UXI'f,XNO

16836
16848
16860
16872
16884
16892

06
02
06
02

.9

03118
03118
03188
03188
15280

03248
05892
03258
05902
00000

16892
16904
16916
16928
16940
16948

06
02
06
OZ
49

03178
01178
03118
03188
15280

05892
03248
05902
03258
00000

lNO-X2
YNO-Yl

16948 06 03248 03318
16960 06 On58 033Z8
16912 49 15016 00000
16980

SEf Mil S-I.OE4.

16980
1699Z
17004
11016

III S--IoOHI.lO

06
06
03
49

On68
03168
0316.
14 . . 4

06085
11348
05192
00000

OORG

.-3

8NF

EIIZOo-lZ,FUe"

IIRANCH IF ONE TANGENT LINE EXISTS
17024 44 16756 00079
CAll UNITV SUBPROGRAM Via MONITR
11036 27 02400
CALCUlATE UNIT VECTOR TANGENT TO OS
11048 27 02410
Call seNSE SUIPROGRA" VIA MOIIITA
11060 Z7 OZ400
ADJUST SENSE OF UNIT TANGENT VECTOR
11072 It 02"0
BRANtH " un IS POSITIVE
17084 44 11101

aT

IIOIIITR ,OS.23.5,6,
UNITV,OSA24+I5,6,

Z0040

Sf

IIONlfll,OSA2'.5.6,

20050 ADJUV

8TM

SENSE,I,610,

200110

BNF

REVE+u,un-h.

20010.
20080 REV£

fMUl E.MIN1.O ••

MOIIITR,OZl"O,6f.

20090

8TM

ZOIOO
20110
20120

FSU8 ACON.OCON ..
FSU8 BCOI'f,FCON"
8TM NORMLH,OSAZ6+Z,.6.

20110
20140
20150·
2016!! INIOM

e
VERIFY-II
OORG --)

ZII40
21150
2116021110 CQfDI"
ZIlIO
21190
21200
22010
22020210)0

16732 17 0,400 -2Z50
WRITE EUOR "USAGE ... SEA"C~ FOR END
16744 11 02410 K010]
CAU IIIPROC SU.'''OCRAII VIA MONITII
167'6 17 02400 -22'0
WRITE ERROR MESSAeE ••• SEARCH fOR END
16768 1.1 02410 ItOO03

FMUL
FMUL
8
OORe

BT

2105021060 COVill
21070
ZIOIO 0'10'"
2109021100
ZIIIO
ZlIlO.
ZlUO HY"

0'100

BRANCH" CONIC IS AN HYPERBOlA
16780 44 15256 03349

20030

20170.
20110 ON
20190
20200
21010
21020.
Zl030 IN
21040

I""

tALl ''''ROC SUI'ROG"AM VIA MONITR

AI MUV-24,HYPHG ..

20010.
20020 LlNfI

21040
1111'lO

1661~

16720 47

11200'
11010
18020

".",,t'.

'-Zl
SCON,ING

11024

1662'1
16650
16660
000-1
06123

Ea-E IIMPENOING "OTION RIGHT-To-LEFTI
17096 03 05954 06024
CAll NORMLN $UIPIIOCIIAM VIA "ONITII
17108 17 02400 -2140
17120 02 03362 03)92
ACO"'--OCON
17132 02 DUll 01412
IICON--FCON
'1I0JECl CUTTER CENTER TO OS LINE
17144 17 OZ410 16690
17156 4'1 15111 00000
ITl64

eo

IN,lIo-, ..

lUMeN . , POI"T PO IIOT 0" COMIC
11164 4' 1720. 0320'1

Ul
TfL
8
DORG

XNO.XO"
YNO,VO"
NOR"Al+LZ
-,

lNO-XO
TNOOYO

CM
III'

COI,Z,IO
COPDIII".

17208 14 0634T 000-2
1"6HCH IF cal IS GOFWO OR GOIACK
11220 46 In . . 01100

TFL IIIIS.YJ
FDIV 11115,11 . .
VI.' •••
BY

•

tAIiPSI.U

DOIIG ... !

CF

HVPfLG ...

8
NHY').U
DOIIG 0-)
Ifl IIIIS,II
FllUl 1181$."INI.O
FOIV .."S,YoI ••
f)
DVOF'
DOIIG .....

•• -10000000
l,4-

•• ,(1000000

1I11S-'J/I'

a_AMeH .F "-0.0

11176 06 03241 0,.92
17188 06 0)Z58 0590Z
17200 49 15040 00000
n208

I tZJ2 06 03268 059)]
112ft4 0'1 OU68 05923
172~6 . . 16"0 01400
172.8 4. 141U 00000
11216

sn HY".IOLA INDICATOR FlaG
\1Z76 n on4. 00000
In . . 49 14'" 00000
17196
11296
11301
11120
Inn

nn.

06
03
09
••

0)261
0326.
0)Z61
, , ,. .

17J" 00001
ill4' 00001
1U,. 00001

OSt2)
06024
059))
00000

•

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

-.
22060 UlOIN5
2201022080 FLO
22090 "ONITII
22100 FISH
221 to rL2 '
22120 KIE'"
uno 'LMST
22140 HYFUG
22150 ACON
22160 aeON
221 10 CCON
22UO OCON
21190 ECON
21200 FCDN
no 10 'DUllAe
n020 G
U010 Ivt
21040 en
noso HY"LO
n060 UNCON
nOlO FLAG
n080 X"I
2)090 VIOl
13100 llOO!
UIIO YlOl
UUO PSII
uno PSI2
UI_O PSI
U150 DEVI
n160 Xl
23110 VI
U180Xl
11190 Vl
23200 10
24010 VO
24020 01
24030 02
24040 XNO
24050 YNO
24060 GUO
24010 1.0
24010 UXT
24090 UVT
.241DO 111"1.0
24110 IODON
24120 ATANF
24130 "INIF
24140 MUIF
24150 0.5
24160 TANF
l4110 L INCDN
24180 DISTF
24190 NOR"eN
24200 OVOI
25010 UNITY
n02D 20EPS
nOlo TOLl
n040 'OLD
2'JO'0 SENse

25060
25010
250ao
"090
25100
25110
Z'l120
2513,D
25140
25150
2n60
25110
l5l80
25190
2UOO
nOID
26020
nOlo
26040
26050
26060
26010
26080
n090
26100
26110

E
ARG1
CRUI
CRITZ
EPUDII
lElOP
URAD
OIOAI
011111

RETURN
ERPRoe
I.OE48
NORMLN
GOI
YJ
XI
RO
UINT
UYNT
UIN
UVN
DNFLAG
1181S
'liS
0.0

DC

2,-_

u n . 00002

DS
OS
OS

,2411
,2_06
,2416
,6147

DUll
02_06
02416
06141
Dna)

bS

os
OS

os
OS
os
DS
os
as
OS

os
os

OS
as

os

os
os
os
OS
os
os
os
os
os
DS
os
os
os
os
OS
OS

os
os

OS
OS
OS
DS

os

OS
DS
DS
DS
DS
OS
OS
DS
OS
DS
DS

os
DS
os
os
os
DS

DS

os
os
DS
os
OS
OS
DS
OS
OS
DS
OS
OS

os

DS
OS

os
os
os

OS
OS
DS
DS

os

,no)
,uu

10,FLW"'"10
,FLWSTtOolO
,AeONtlO
,lCONtlO
,ttONtlO
,OtONtlO
,ECONtlO
10,19
,5".
10,FDUllAe-10

lo,n,

I,HYHAG+ll
,2416
,19
10,HYFUG-.0
10,1101"0
10,VII .. 10
10,IIOlt\O
10,X/lI-lO
10,X"I-10
10,PSII-10
,PSI
10,1101
10,VIOI
10.X102
IO,VII2
,5a92
,XOtl0
10.41
10,)8
10.PSI-20
10.INO+10
10.INO-l0
,6015
10,61U
10.UITt10
.6024

lo.n

,2_11>
.2411>
,2416
,6065
,2416
,2416
,2416
,2416
,2416

,,.ll>

10.79
,5994
,6014
,24"

,5954

,un
10.41
10,31
,6004
10,79
,5984
10,GRAD-10
10 •• 111
,2411
,2416
,6085
,2416
.6141
,59))
,VJ-IO
10.D""-10
IO,RD-20
10.Ulllf+1D
IO,UXNT-20
10.UINHO
I,REVEG~19

,'Sf
10,UIN-10

,60)4
DS
DENO eNS7Af

onu
OJna
OBU
OH7Z
OHez

onu

03402
03412
00019
05914
ci0069
00069
OU"
02416
00019
03291
OUOI
O)UI
OH2I
01111
01218
OJ261
01161
0)298
OHOI
03311
OH28
0,.92
05902
000_1
00038
0)241
OlUI
OlUI
06015
06115
06135
06024
OUOI
02416
02416
02U6
06065
02416
02U6
02416
02416
024"
02411>
00019
0,.94
06014
02416

05954
06515
00041
00038
06004
00019
05984
OUZI
OU98
02411
02416
06085
02416
06)41
059)]
059U
DUll
03191
03201
OU7t
031 . .
Inu
03261
03161
060)4
1. .. ,

PAC.

10

'''GI!

II

00000
00000
00000
00000
00000
00000
00010
00000
00000
00000
00000
00000
00000
00010
00000
00010
00010
00001
00000
00000
00010
00010
00010
00010
00010
00010
00010
00000
00010
00010
00010
00010
00000
00000
00010
00010
00010
00010
00010
00000
00010
00010
00000
00010
00000
00000
OOODO
00000
00000
00000
OODOO
00000
00000
ODOOO
00010
ODOOO
00000
00000

00000
00000
OOOID
00010
00000
OODIO
ODlloo
00010
ODOIO
00000
DOODO
00000
00000
OOODO
00000
00000
00010
00010
00010
00010
00010
OOODI
00000
00010
00000

217

~AGf

SYMBOL fA8LE

leOORO OOOOOR
NAP. Ol'J12
,seSQ 02981
flRAO OS...

RETURH OHI!
Hepy 02972
Pst
05811
05810

•

~ONITA

PSA

0240.
05851

PSCSQ 02992

Y

058)0

flW

02488
'SA so 02912
PSO
05881
OU40
t

02962
QU61
PSI
SQRTF 02416
leuc 00H411

N

010100
18N 1620-1)11 AD-APT SUBPROGIIAM FOil CETERMIHING
010200
THE I-COOIIO'HATE OF THE CUT"II 80TTOH CENTEII
010)0'
WHEN THE , •• , SUIIFACE IS AN INCLINED 'LANE
01040'
01050'
ONAME lCOOIIO.,. HON-IIIAUIU
01060.
olD NUHI.R OZ6'+OELDIM
01070'
'''SSEMIU IIELOCAUIU
01080.
oS TOilE IIILO'OlBlE
01090'
LINKAGE - I
ICOOIIO.,.
OIlOO.
01\ 10.
SUBPROGR'M ENTRY
Oll20 L(OOItO TFt H, TUAO
00000 06 02962 05'84
Oll )0
TFt PUS(ItPSA
000 12 06 02912 05851
Oll40
FMUt PSASO,PSA ..
00024 03 02912' 05851
01150
TFt PS8S0, psa
00016 06 02982 05861
Oll60
FHUL PS8S0,PSS ..
Pse",
00048 03 ·Ot982 05861
01170
TFt PSCSo,PSC
00060 06 02'192 05811
01180
PSC"Z
00072 03 02992 058H
F"Ul PSCSO,PSC ..
01190
FAOD PSASO,'S8S0 ..
PSA·.Ztpsa··2
00084 01 02972 02'182
FADO PUSo,PSCSO, •
01200
PSA.ot·PS8""PSC", 00096 01 02972 029'12
8TN MONI TR,02000,61,
02010
CAll SQRTF SUIIIOUTINE VIA MOHIfR
00108 17 02400 -2000
erN SORTF, PSUO,67,
01020
. SQRTF I 'SA . . 2'PS . . . atPSC .. 21
001Z0 17 02410 -2912
020)0
FOI V N,PSUO ..
N. Tl RAO/SOR TF CPu . . t.pse .. 2.PSC . . 21
00132 09 02962 01912
02040 leALC TFt ZtPSD
OOIH 06 05840 05881
TFt HAPX,N
02050
00156 06 02972 02962
FHUL HAPX,PU ..
02060
00168 0] 02972 05851
N'PSA
FAOD NAP.,X ..
02070
I.N'PU
00180 01 02972 05820
02080
FMUl NAPX,PSA ..
00192 03 02912 05851
PSA'''''~'PSA 1
02090
Fsua l,HA'I ..
00204 02 05840 02912
o-puo"'H,'UI
02100
tFl N8PY.N
00216 06 02971 02961
02110
FHUl I'fBPY,PSII ..
H.PS8
00228 03 02972 05861
01120
HOD N8PY,V ..
"H'PS8
00240 01 02971 05810
021]0
FMUL NepY,PSI ..
PSB'IY'N'PS81
002'2 0) 02972 05861
O-PUo C•• ,.oPSAI-PSt01 Y'N.PS81
FSUB ZoNap, ..
02140
00264 02 on40 02912
FOIV l,PSC ..
02150
10';"'54 •• IoH"SA I-'S'" "".PS81I1PSC
00276 09 05140 05811
Fsua I,TUAO tt
ID-P5AoI ••
1-'SlOIY'N'PS8IIIPSC-TlRAO
02160
00288 02 05840 05"4
NOPSC
00300 03 02961 05811
02110
FHUl N,PSC ..
Z·Co-PSA·IX+",PSAI-PSlol'.N.PSlllfPSC-NoPSC-TlRAO
FSUD I,N"
02180
00312 02 058.0 02961
RETUIIN TO IICNIU
00324 00001
02190
osc 2,49, •
00]]0 00005 -Z4IJ
OSA -RETURN
02200
0]01002488 00000
0]020 FlW
OS
,2488
010]0 N
OS
0296' 00010
IO,FlW'46'10'14
05984 00000
,59U
0]040 TUAO OS

,..,U

Pl(;f

01050
0]060
0]070
03080
03090
01100
01i10
03120
01110
03140
03150
03160
0)170
03180
Oll90
03200

PSA
PS8
PSC
PSO
PSUO
PS8S0

OS

os

OS

OS
OS
OS

pseso os

IIAPX
Nan

OS
OS
OS
y
OS
l
OS
MOHUR OS
SORTF os
RETUR,. OS
OENO

•

,5851
,PSUIO
,PS8+10
,PSC+IO
IO,N+10
10,PSASQ+l0
10,PS85Q+10
,PSASO
,NAPX
,5820
,X+IO

,V+l0
.2406
,2416
.2411
lCGORD

05851
05861
05871
05881
01912
02982
02992
01972
02972'
05820
05830
05840
01406
02416
01411
00000

00000
00000
00000
00000
00010
00010
00010
00000
00000
00000
00000
00000
00000
00000
00000

..
S INAlf OOOU
'DDtOIl 1456\
ooon
t
14556
"ST
TENPI 14541
15067
1.0

0101001020010300104001050010600101001080_
010.0011000111001120011300114001"00116001110
011 aD AOOCOII
01190 XORG
01200 yoRG
02010 ALPHA
02020"lY
02010 IlY
02040 liST
02050 1ST
020600201002080 UNLDC
02090
02100
02110
02120

kHUkN
ALPHA
COIF
IIXV
'HEYa

02411
14541
OHlI
14546

14'"

S'"BOL

ulLe

IIONIU
AUNF
DSAI
SlNF
VEUL

02406
024"

uon

0'."
U194

lINLOC
1ST
DU'
UNF
XOkG

14,.,
14,.1
150"
014"

14nl

COSAl.
IIY
IIOVE
nil"
YOIIG

.."

1

raGE

1

ooou
145"
146U

Hnl

14U'

I'" 1620-1311 AD-APT SUBPROGUI! FOR CONVERTING
THE CANONICAL FOR" 'A"AIIETEIIS OF A LINE
INTO THE REFERENCE SVSTEII IF A lOCAL CUIIIC CURVE
IICS
ONAlle Acun ... NON-ERASABU .RELEII SIJII'ROGUII
olD NUMBER 02.I.DElOI"
-STORE CORI 111'01
LINKAOE - "
lINLOC,DSAlIL+'O,6
OSALBL IS ADDRESS OF X-COORD. OF CUBIC ORIGIN
OSALILOS IS ADDRESS OF '-COORD. OF CUBIC ORIGIN
DSALBL+IO IS ADDRESS OF REF. ANGU OF CUBIC snTE"
DSAllIl+IS IS ADDRESS OF SLD'E IX-T STSTEII'
DSALIl+IO IS ADDRESS OF Y-INTERCE" IX-V SYStEII'
DSAlBl.Z' IS ADDRESS 0' SlD'E IS-T STSTEII'
DSAUlOiO IS ADDRESS OF '-llItERCEpt IS-' .SYSTENI
DOIIG 14526
)6,0
DC
5. ADOCON-)O
DS
OS
5 •• 0RGt5
OS
5,YORG.'
OS
,.ALPH . . '
OS
5,11.".'
S,lIlY.5
OS
,,!lsro,
OS

14526
14561
14531
14536
14541
14546
14551
14556
145Al

BT"

SUBPROGRAM ENU,
HKY-4
OSA1+5."X"
OS . . -I
DSAI.6
IIONITR,02020,61,
CALL AUNF SIJIIIIOUYlNE

02130

8T

ATANf,DSAI·IO,6,

02140
02150

FSUII THETA.ALPHA,61I,
IT
"ONITR.OSAI.5,6,

SF
TF

CF
CF

02160

BTl!

tANf,"ST.I>111,

02110

8TH

IIONITR .02010,61,

02180 IIOVE
02190
02200
01010
03020
03030

TFl
TFl
ITII
8 Til
tN
BNL

COSAlF .ALPHA,11
51 NALF .CDSAlF
S"lf. S INALF ,61,
COSF.COSUf,61.
IIKY.49,610
YEA.Tl, ••

0304001050
03060
0)010
03080
0)090
03100

TFL
FSUB
TFl
FlIIIl
TFl
FlIIIl

IIST.8lY,61l
8ST. YORG.6Il,
TEIIPI.COSAlF
COSALF.IIST,Il,
TEMP2.SlNALF
$I NAL~ ,liST ,11,

01110

FSU8 TEMP I, S IIIAlF"

03110

FIIUl 8ST, TEIIP1.6,

011 30

FADD TEIIP2 ,COSAlF ..

03140

FNUl TEMPI. XOIIG. 11 ,

01150
0)160
0)110
031800
03190 VERn
03200
04010
04020
04030
040"0
04050

FlDO IST,TEMPI,6
RETURN, .6,
8
DORG .... 3

04060
04010
04080

FNUl C,IIST,Il,
FSUI C.'ORG,Il,
FlIIJl C,COSAlF I t

04090
04100
04110
041200
04130 DSAI

FADD 8ST,e,.
II
RETURII".,
OOllG _4
OSA

1.0,O,-THEtA

04140 OSA2
0.150
04160
04110 1.0
0418004190 MONITA
04200 ATAN'
05010 tHU.
05020 TANF
050]0 SINAL'
05040 CDSAV
05050 SIN"
05060'C05'
05010 TEM"1
05010 nll'2
050.0 IIUua..
05100 e:
OlUO

OSA
DSe:
DC
DC

IIOVE-U
5,OUll
• ,10000000
2,1

OS

,1406
,Z4"
,liST

TFt.
FOIV
FADD
TFl
FMUl
FAOO
FMUl

oS
OS
os
OS
DS
oS
DS

OS

0$
oS
DS
DElIO

C,IMY.lt
C.M.T.Il,
C,XDRG.Il,
1ST • liST .611
BS',VORG.61I,
IST,e.6,
IST,$INALF,6,

,24"

10,41
10,n
.2416

,2421

10,UY
10, ALPHA
,2411
10.U
LlNUe:

00036
00005
00005
DODOS
00005
00005
00005
00005

14562 32 IU41 00000
14'74 26 1'042 14546
145B6 n 15031 00000
145'S n 15041 00000
VIA MONltll
14AlO 17 01400 -2020
CALCULATE THETA, IIHEIIE IIlYoUNFITHEtAI
14621 Z7 01410 15047
THETA-ALPHA
14634 02 14550 1454J
tAll TANF SUI PROGRAM VIA IIOIIITR
14646 27 0'400 15057
CALCULATe MSToTANFITHETA-ALPHAI
14651 17 0'410 J4550
CALLSINF-COSF SUIIROUTINE VIA IIOIIITR
14610 17 02400 -2010
14682 06 000)) 1454J
14694 06 0004' 000))
14106 11 02410 -0043
SINALFoSINFIAl'HA'
14111 17 0141J -Don
COSALF·COS'IAlPHAI
(41)0 14 14540 00011.
DRANCH IF IN~UT llNI IS VERTICAL
14741 46 1411.4 OUOO

14154
14166
14118
14190
14101

IIXY-YORS
IIST.COSF CAl'HA!

06 1"56J 1455J
01 1456J 145)0
06 145" 000))
0) 000]] 14550
06 14541 00043

S I HALFolISToSlNF I Al'HA I
14814 0] 00043 14550
COSF IALPHAI-IIST.SINFI AlPHA'
14826 01 14551 00041
la.'-YORGloleOSFIAlPHA'-MST·SINFIALPHAII
1483B 0) 1456J 14551
SINFIAlPHA'+IISToeOSFIAlPHAI
14850 01 14541 000))
XORG·ISINFIAlPHAI_"ST·COSFIAlPHA"
14862 0) 1.541 IHU
14114 01 14 . . J 14541
14886 49 02.U 00000
RetURN to 11011 IT II
14894
14894
14906
149111
14930
14942
liS To'ORG
14.5.
IISTeYOIIGtC
S I NF CAl'HA'.IIIST.YDltGtC1
14966
IIstoe
14HI
14990
MSToC-YORG
COSFIAlPHA'.IMSToC-YOIlGI
15001
1501.
1S026
RETUIIII TO II1II11".
150J)
-CoIXY/IIlY
CoXORG-C

06
09
01
06
03
01

00023
00023
00021
1456J
1456J
1.56J

OJ 00021 1.550
02 00023 14550
0) 0002) 0001)
01 14'U 00021
4. 024lJ 00000
OOOOS
0000'
00005
00005
00005
0000 •

02406
02416
14156
02."
000"
ooon
02416
02421
141!1l
1.5.1
02411

00000
00000
00000
00000
GOOlD
00010
00000
00000
00010
00010
00000

....,

ooon

ooon

OJ 1456J 0004)

ISO n
15041
'5041
15051
ISDn
15065

nou

1455J
14540
145lJ
14550
IU)O

J'O"
-0000
J4'SO
J4'10

OOOOZ

0001.

219

..
"'Ilt

SY"'OL "eLE

hOPOS UHO

TH~EU

SHCHr 15622
ONE NEG 15206
I IIHAII I~S'l6
CONYU 16192
atuo 1'292
CAllI 16011
C_IT 0001'1

SAIIEPt
1001'11 rR
INFl"
AooeON
8-0.0
' tMII
bEca
OSU

DSU

1~1t.8

FLAG
INOU
"nYu
PNU

14815
000t9
16U4
159JI
IU20
'8",e

bue

....
fin"

Un! nm
sou
S2f
fesn
fNOA
TZf

..

VI
0.0

I..,"

01010'
01020'
010'0'

01416
112U
ISBI4
n201
InSJ
Inu
In91
11064

SHUle
RETUtlN
NOOIFY
FooUC
.-0.0
110
tN

uno

02411
11>160
00069
Un6
14'60
,4,..
01S" 02U'

osu

1~IlS

11$1

I""
.4nO

DUPL !6?!1i
'LAG' 1461f
"OD2 .

~m· Jlt'.
I.u'
",.
SfIlR
51

usn
TNOI
n

XII
YII

lAC

.. 214
11142
15810
l"U
111U
14540
14'4'
00029

SliIlMNI
DNEPbS
LilCUlf
illFFpt
AN

'''.''"Z 0002'

"NtRtF
IIINI.o
e;SLON
AlFN

In

Ol416
1t074
11090
I"''JO
I"SJ~

t6UO
1410j
osu 1413'
ELlII' OZ4"
IIiCU
IIODJ
1101'" 1469,,'
call'
OSU

' ZII

,A,,,
51
$]T

tun
fI
nf

X,

VI

tun

ean lnoo

non

"'21

tUU

OZ4"
"470
14,,'J
atERD 16172
CON60 11oao
osu 14711
OSU 14US

.'

lilCIII 11044
lIOO4 lU51
NI''' 141019

'.'"
r,·loom
Iml
..... It-tft
sn
?lao

517

UIlO

flf
T4T
II

17261
is'I06

t1ZU
11211
I?I"

"

l72n
14510
IU"

nzu

1720
14 . .0
14,.,

YI.

1811 1620-1311 AD-APT SUBPROGRAM FOR CErUIIINIIIG
THE INTERSECTIONS OF A LINE AND TUCY~ INfERYAL
IItS
'NAHE aCllS5 ••• NON-Elias aiLE ARELEII SUBPROGRAII
'10 NUMBER 0269.0ElOIH
'SfORE CORE IMAGE
LINKAGE - If LINfaR,DSALIl.6,,6
OSAL8l IS ADDRESS OF SLOPE OF LINE IS-T SYSTEM I
OSAL8l>1 IS ADDRESS OF f-llllERCEPT IS-T SYSfENI
DSAL8l>10 IS AIlDRESS OF l-COORD. INfERVAL ORIGIN
DSAl8L.15 IS ADDRESS OF Y-COORO. INTERYAL ORIGIN
OSALBL.20 IS ADDRESS OF AIIGlE ROTATION S-T SYSrEII
DSAlBl>U IS ADDRESS OF A-COEFFICIENT OF INTERYAL
OSALBL»O IS ADDRESS OF a-COEFFICIENf OF INTERVAL
DSAlIU)S IS ADORESS OF C-COEFFIClEllf OF IlIfERVAL
DSAl8L'40 IS AOD~ESS OF X-COORDINATE IPOIIIT II
DULeL>" IS ADDRESS OF Y-COOROIIIAtE IPOINT II
DUUL.'O I S ADDRESS OF x-tDORDIIIAtE !PDINf II
DSAlIl>5' IS ADORESS OF Y-COORDIIIATE IPOIIIT 21
OSAL8L.'0 IS ADORESS 0' X-CDOIOIIIATE l'OINf II
DUlIl>" IS AOORESS OF Y-COOROIIIATE IPOIIIT JI

010",0-

OIUO'

01060'
01010'
01080'
01090'
01100'
01110'
01120'
011 '0'
01140'
011 ~O'
OllbO.

a 1110.
all 80.

011 qo.
01200'
020 10.
02020'
02010.
02040'
02050'
01060
02010 ADOCOll
02080 MSf
02090 BSf
02100 XN
02110 YN

l'Oli

.4119
14900
FUGF 14111
11001 ..... 4
MOYU 15.,0
PNf1 . • ,,"

111'1
52
IH21
'·0.0 U60Z
TMXMN IHU
rz
17111
liEf 0 14906
II
14''10
Y]

lUtZ

16272

OSn

"IH

U

IUD)
I s~oz
02406
15.. JI
IU"

NO. OF IIIfEIISECtllIIIS INDiCATED BY Z-OIGIT
FlfLD III COilE POSITIIIIIS 00011-00019
DOIIG 14H6
DC
50,0
DS
5,aDOCDII-4'
as 5,MST>'
DS
5, Bn.,
DS
'i,XII.'

14516
1.. 51'
14530
145)5
14'40
14SU

DOOSO
0000'
0000'
0000'
DODO'

14550
1""5
In60
14'J6S
IU10
14'"
14595
145110
145115
1"590
I"''''

0000'
00005
00001
0000'1
0000'
0000'1
00020
OOOOS
0000'
0000'1
0000'

'ACE
02110 ALFII
021J0 AN
Oll~O 1111
Oll50 C/II
01160 XI
02110 YI
02180
02190 Xl
02200 Yl
01010 U
OJOlO YI
0)010'
0)040_
010'0 LIN'A'

OS
DS
OS
AS
OS
OS
DC
OS
OS
DS
OS

0)060
0)010
0)080
0)090
01100

SF
fF
CF
BY

01110

If

OlllO

10

0)1 )01
01140 110111'

I

SF

aliso

011601
01l1O OUI
OlllO
0)1'10
OllOO
04010
04020
04010
04040
04050
04060
04070
04080
O~O.O

04100
04110
04120
041JO
04140
041'0
04160
0411e
04UO
04190
OUOO
OSDIO
0'1020
OSOJO
OSO.o
OSO'O
05060
OS070

TF

OUZ
osn

S,YN+5
'i,ALFII>'
,.AN.5
S,BN.'
5,CM>'1
"XI.'
lO,O
5.YI.,
s,U'S
'1,".'1
!s,n>,

SUBPROGIIAII E/IITRY
OSAl.'.8ST..
SET ADDRESS ARGUNfll'S FOR lllCUIE
1"'1'16 26 147111 1"'J5
1~608 12 14536 00000
IN-4
14610 JZ 14'51 001100
AN-4
I~Ul 26 14UJ 1456'S
OSAl>20.CII
lU44 n IUI9 00000
DUZ.6
CALL LIICUIE SUBPIOGRAM YIA MOIl 1'II
IOONITR,OSAI.'.6.
IU56 n 02400 IUOI
CALCUlATE l"fEIISlCTlOIIS LINE AIIO CUBIC
LIICUBE.DSAZ.'0.6.
IU61 21 Ol .. IO 1476)
IIAIICH I. l"'fI1l5ICT'01l EllSTS
WEEO.FLAG ..
1.. 610 41 '4'0' 00019

Rffuall .. ' .
DOIIG - "

DSA
OSC
001110
NOP
DORG
NOP
DOIIG
1101'
DORG
NOP
DORIO
Nap
DOIIG
OSA
001110
DSA
OSC
DOIIG
NO'

IIDINf-U
,.0nOI
DSAI".'-11-11
51.t)
-ZI

Sz.u
$I,n

-ZI
-21
0.0
'-21

0.0

-14
0
.>,.u-"
0
S,OUU
OSu.,.,.,-U
II.VI

DOIII -21

OSA4

DSU

IIOP
00110
/110'
DOlI
OSA
DOIIG

St."
-n

0.0
-14
0
••
"""11,0
DOIIII '-21
IIOP SIIIII.S. . 1
DOIIII "'1"
OSA

-

l

,.7-...,.....

sa·'

IInUIl" TO !lIIIIITR

I""'Z 49 OZ"'" 00000
14699
14701 0000' "4'10
14104 0000'
14'"
14?SZ 4' UIU IlIU
IU"
14142 4' IllU UUl
1471'
14U24, H,OO 1l1l0
14112
14UZ "I 00000 00000
14712
'4112 41 00000 00000
1410'1
1411) 0000' -0000
14164
14 " . OOOOS -0000
1'''69 OOOOS
1"197
141. . 41 "2U nl"
I'll"
41 "au "IU

1ft'
"
lun

lun
14'75
1"7'.
1481'
1412"
l"Il"
148 ..
14111
1""

41 00000 00000
0000' -DOlO
"I
41

nlu IOCIOO

"t..

nlU

0000' " ' " ,

au

..
O"0~O

OOR,G

O'Joqo
OS! 00

,..CP

HUMN,O

'-2\
S14IN.I14AX

O~150

OORe;
NOP
DORIO
OSA
DORIO
NOP

Q~160

~ORIO

'-21

OH 10
OHao
OH90 OSA?
05200
060\0
06020
OhOlD

NOP
DORIO
OS.
OORe;

514IN,S14"
'-14
53-9
"'5'4-4'5'5-11-2

NOP

O. SN

~HIO

0'120
OSl)O DSU
O~I~O

DbO~O

06050 oua
Ob060
06010 OS.9
06080
ObOQO06l00_

06\\0 WEED
06\ 20
06\)0
06\40
06\50
06160
06\10
06160

"~'.S.4-iI.It5.1t-6-1

14e"
14944 41 1718] 00000
14eH
14e)4 41 11163 1711)
l.ell
1~835 00005 Jl112
IU6]
14864 41 1118] 00000
14854
14854 41 1716] 11111

",,4

52-9
"5 ••-."'4-6-2
TII.IIN,O

1~851

14e55 00005 HIl3
14883
14884 41 00000 11193
14al.
I~al' 41 00000 00000
14811
14875 00005 -0000
14896
14900 00005 -0000
14901 00005

DORIO '-21
NOP 0.0
OORe; '-14
as. 0
aORel "5'5-4
OSA 0
OSC 5.02101

CALCULATE M. . IMUM S-VAlUE IN TlBCYl INTERVAl
SM IN. O. 0"
SET SMIN - 0.0
1~906 06 1116)
NPTS,FlAG,.
SIORE Ito. OF INTERSECTION POINTS
14918 26 14619
ro
SIT-9,ftM
14930 25 1721~
TO
SlT-9,ft"
14941 25 11234
10
IH-9,R"
14954 25 11254
TFt
rWOA,AN, It
14966 06 17203
FAOD TWOA, TWOA"
2.00AINI
1~978 01 17203
aRANCH IF AIHI -0.0
14990 46 15526
6Z
A-O.O",
rFl
TF

11064
00019
16919
16910
16919
1~55N

1120]
01200

061 QO-

06200
07010
01020
01030
01040
01050
01060
07070
01080

IFM
BI"

OSA9,SNCAlC'll
"ONITR,OlOOO,67,

1FL

RTARGeBN.ll

fMUl RTARG,RTARG ••
TFl
FADO
FMUl
FSU8
IT"

Fl)URAC, TWOA
FOURAc,rWOA,.

Tfl

SMAXI,8N,1I

FOURAC,C~.ll,

RTARG,FOURAC,.
SCRTF ,RfARG.67.

01090
07100
01110
01110
011 3D
01\40

F01V SMAX2,TWOA,t

01150

FOIV SMAX1.TWOl"

01160

BP

FMUl SMAX1,"UN1 .. O"

1Fl 514AX2, SMU I
FAOC SMAII,RTARG ••
FIU8 SMAX2,RTARG"

ONEPOS, ..

0111001180 OHENEG TFL

SMAX,SfiltAX2"

01190
01200

OECR.u.e"H
SErCNT

TFN
8

15002 16 14900 J5]42
CAll SORTF SUBROUTINE VIA MONITR
15014 11 02400 -2000
15026 06 00079 1456BINlo'2
15038030001900019
15050 06 00069 11201
4.00AINI
15062 01 00069 1120]
4.00'INloCINI
15074 03 00069 1456N
8CN ••• 2-~.O •• INJ.C.~J 15086 02 00019 00069
RTA.G-SORTFI8INI·'2-4.0oAINI.CINII
1500S 11 02410 -0019
1511006 17314 1456-SINI
15122 03 1731~ 11014
15134 06 17324 1111'
-81""RTARG
15146 01 11314 00079
-81NI-RTARG
15158 02 17324 00019
1-81 N I-RTARG 11I2.0.AI N' 1
15110 09 11324 1120]
I-BINHRTARG"".0'AINII
15182 09 17314 1120]
8R ANCH If S"AX I IS POS IT I VE
1519~ 46 15238 01100
SET MAXIMUM S-VAlUE IN H8CYl INTERVAL
15206 06 11113 11324
15218 16 16100 J6111
15230 . . 15622 00000

'AGF
08010
aORG 0-)
06020TNOPOS.SMAl2-2 ..
08010 ONE'OS 8NF
0804008050

TFl

SMAX.SMAK1"

08060
08010
oa08008090 TWOPOS
08100
08110

9
ONENEG+12
OQRG *-3

TF

DSA8+S,YN

TF
A

DSAS.15,YN
OSAO+14,CON60, ,

08120
OBIlO

CF
8T

OSA8'6
MOtu TR ,DS"iJ.5,b,

08140 SHUle Bf

DISTF,OSA8+20.6.

08150
08160
OBll0
08180

TFt CR n, SN
FSU8 CA IT. SMUI ..

CF

C.RJT-2",

08190

BP

OIFFPT" ,

FSUIl C.Rlf,EPSLON ••

08200.
09010 SAMEP! TFl CRiT,SMAl2
Fsua CRIT,SN ..
09020
090]0
SNN ONEPOS+lZ ...

4

15238
BUNCH IF 2 HCN-NEG. S-VAlUES AT T-O.O
15238 ~4 15210 17122
Sf I

MAXI~UM

S-VAlue IN HBCYL INTERVAL
15250 06 17173 I HI4
15262 49 15218 00000
15210

15210 26 14880 14H~
152B2 26 14B90 1454'
FA8RICATE ADDRESSes OF XIN'" AND YIN,"
15294 21 1~889 17080
15306 33 14881 00000
CAli. OISTF SUBPROGRAM VIA MONlTR
15318 21 02400 1H05
CALCULATE 5 AT INTERVAL ENO 'OINT
UlJO 21 02410 14895
15342 06 00039 11193
15)54 02 000)9 11"4
51 NI-5MUI
15366 H 00031 00000
ABSH 51 It I~SMAX 11
A8SF I S I It I-SMA" II-EPSlON
15378 02 00039 11090
8RANCM If 15MAXI,O.01 IS NOT END POINT
15390 46 15410 01100
15402 06
15414 OZ
SMAl2-SlN I
BRANCH" SlNI DOES NOT EXCEED
15426 46

00039 17324
00039 17193
SMUZ
15"0 01100

09040090500
09060 I"FlPT TFL

AN INFLECTION POINT ellSTS WITHIN TABCYl INTERVAL
SET MAXiMUM S-VAlUE IN TA8eYl INTERVAL
SMU,SMAU ..
154]806 11113 113Z4
15450 16 16100 J6660
tFM OECR+18,IIAR£
15462
49 15622 00000
SETCNT
8
15410
DORIO 0-]

09070
09080
09090
09100'
09110 DIFfPT 1Ft CR IT. SMAXl
FSUB crUT,SH"
09120
091)0
ONENfG".
8'
091~O·

SAAX.SMU1 ..

09lS0

TFt

09160
09170
09180'
09190 ,00.0
09200
10010
100ZO'
100)0
100itO

INFlPhll
8
OOllG -3

100~O

1006010070 ,.0.0
10010
100.0

1Fl

SMU,CN.U

!IV

.-0 .. 0, ••

FDIY SMA.,IH,ll.
'MUI. SMAX,"INI.O ••
OH£NEGH2
8
OOi\G ~)

15410 06 00039 17314
15"B2 02 00019 1119)
S"AXI-StNI
BUNCH I' SMU1 EXCEEDS SINI
lH9. 46 15206 01100
SET ""IIMUM S-VAlUE IN useYl INTERVAL
15506 06 17173 11314
15518 ~9 15450 00000

15526
15526 06

Inu

11t'6"

tINII"NI
lUNCH I' IINI-O.O

15538 09 I n n Ilt56U'J50 U "582 01400

$IIAI-·" II II II H I

Inu 0] Iftn n074

un/t

49 lUll 00000

lUll

OU9,T-O.0
TIII/POS

155ez 16 14900 J560Z

8

DOlI 10

.-)

"60a

TFII

I" ••

.9 InfO 00000

HI

..
10100t
10110 foO.O

tFl

SIIU,SII ••

10110
B
OHEIlEUt,'
10110
OORG
lOUD10t'lO SEtClllt"
FLAGt,lI'rs ..

t.'

10160'
10170
10110
101'10'
10200

110,0

11020
11030

110"0

IIOSO
11060
11070
11080
lI090
11100
11110

,.0..

rFL

UARG.IN,II

~IIUL ""'.G,RtARG"

'FL 3AC. THREU
'HUL 'AC.ell,II,

'Iul

~TA.G.UCIf

B.'"

SQUF,UAIIG.61.

TP\.

5I1X""I,I;',lI
,,' '
SIiXIINI,IIINI.O ••
SHXMII2.SMXMIII
SMXMNI •• ,.IIG ••
SMX"N2,.'ARG ••
SNxMN"THIIEU .. ,

""U~

TFL
FAOO
FSUB
FOIV

FOI V 511 XIIIII I , 'Hlleu,.

11110 'ESTa
11140
11150

TFL CR " ,SMAl
FSUB CRIT,SMXMNI ••
INN TUU ...

111110.
nll0 IIOVU
11180
IIUO
11200'
12010 Tlsn
IZ020
U030

OOAG - J

UI60
IZI70
12110 CALLl

l56iz

0' I"TtliStCflOft 'DINTS

SAVE IlUMIEII

. 15622 " 14611 1"'1'
CALCULifl 'C(lIII-MAX' ••• SIf OtiOSoO.o
FACIO 'IIOA,AII,II,
/1111.
,156')4 01 IT20' i455"
....IICII ., AI"'oO.o
15646 U I.UZ OIZOO
II
"URO ...

11120

1Z040'
12050 TEsn
12060
12070
12080
12090'
121001l0VEl
12110'
12120
121)0
12140
12150

SET "AUIIUM S-VAlUE III fAlICn III'UV'"
"601 O. 17'7' '71'1)
Ittl" "'I "'II 00000

TFL

SIIXIIII. SMXMII2 ••

B

NOVEl' 12

'FL CRIT.SMIN
FSUB CRIT,SIIXMNI ••
8N
IIOYEZ .. ,
TFL
TFL

SMXIIII, SMXMNI
SMXM'H ,SMXMN2

8

NOVEltlZ

II... " 0007. IU615.70 01 000" 0007'

.''''''1

UU' O. 00029112QI

1.0•• I .. I'CIIiI
I •••• O' 0001' 14""
.11II1 ...• •• O•• IIIII.ClIIII "10. 0. 000" 0001.
.UIIG.SOR" 1IIIII,u,-J.o •• IliltCINl,
1571. 11 02410 -OOT.
uno 06 nlu 14S6-ellil
11742 0) n,u n07"
15154 06 0002'1 1711J
-81111,"TaRG
15166 01 IT21) 0001.
-IINI-UARO
1"78 02 00029 00019
SM_"NZ·I-1I1111·"""G"I'.0"INtl
U 790 O. 00029 I7Z0J
'IIXMllt'I-allll.lIl'1I1GIIU.Oo'INII
1~802 09 1721) 1720J
15"" 06 0003. 171 U
SMAX-SMXMln
15826 02 000)9 17Z U
BIIAIICII IF 1'.'111 DOES IIOT EXCEEO SMAX
UUI 46 ".70 OIJOO
,,.,. 06 11304 000l'!
'5162 •• 15950 00000
UITO
15170 06. 00039 1116)
SIIIN-SMXMNI
15882 02 000)' 1721)
IRAIICH IF SMIII EICEIOS SMXMNI
151'4 "7 ISIIO 01100
15906 0. In04 I7lU
15911 06 lun 00029
uno •• 1"'0 00000
1!t'l"

OORO o-J

SMIMllaSMXIINI
unl 06 IU04 172U
SMXNII. SMXIINI"
EVALUATe 'I " hSMIMII
TMXIIII,AII,II
15'150 O' 11In 14"11
rMXMN,SMXMN"
"'III'SIIIIIII
1"61 0) 17"3 'f)O"
AlliloSMIMN.IINI
15.74 01 Inn '1456TNIIIII,I .. ,II.
SMIIIN·"INloSMIIIN •• 11I11
TMXMN,S.. IMN"
1'986 0) 17113 I fl04
FAOD TIIII"", eN. U.
SIII""'I'INI'SIII,,".8'''II.CIN'
159'18 01 lflU 1451111
FNUL fMXMIII,SIIIMN"
'''I''N'AllilloSIII''"'''.' '" loSMINII,02.el .. 10SMIMli
16010 0) UIIJ 1 n04
CALL fUIIF SUIP"OGIIAM VI A MOIl nil
ITM IIONITII,02620.61.
16022 " 02"00 -2620
TI'L

'FL
'MUL
FAOD
F"UL

160]4 16 00019 000-0
VERIFY TH'" 'OINT IShTlI IS ON TUCYL
16046 17 02"10 14130
lltAIICH IF '0111' IS 110' ON ",aCYL
1605B 45 16082 00017

12190
12200

at

TFM

FLIG" 10
ELI MF .05"'." .6.

UOIO

8l1li·

SAVU.1Z.FUO·Z ••

atN

STOIIF,51-',.
FLAGf.hl0

SAVE POINT lSI. fl.

VEIIIFY THAr 'OIIiT '52,TZI IS ON fA!lCYL
16106 27 01"10 1"1'0
IlItANCH IF '0111' IS 110' Oil TABCYL
1611. U 16142 00017

n020'
nOlO SAVEl

n040 OECII . 511
UO.O
U

."

13060'
IJ070

IT

ELUfF,DS",.",6.

UOIO

l/illt

SAYEUlhFUG-•••

8TN

SfORF,S2-...
FLAUT.hIO
DECII .......

U090'
Ul00 SAVEl
UItO
131Z0
131100
n140
13150
11160'
lill0 SAWE)
UlIO
'11'100
IlZOO stOllF
'4010
140200
110010
140'10
' ..050
1100600
140ro MCJ04
14010
140.0
141000
14110 CIIII
141200
141J0
1""'0
1"1500
141110 AURO
1"110
14180
1-".00
14Z00
1\010
"020

SII

I'

16130 17 1621" J711Z
SAWE POINT CU.UI
16142 II 14.17 000-1
IIIAHCM IF iLL PoiNTS EIlAMIIiED
1615" "6 161. . 01200

'H.'

'U.U'

ELlMF.DS"'." ••• ·>'

WER.FY

l/illt

OEC"'I •• FLAG-I•••

MOtH IF '01'"

aTN
B

STORF,SJ-...
DEC ... ' ....

SAYE POINT IU.U,

SfORF.u.Sit...

"'" lID"".

'" ...
•'" S'OII""
.1

STORI'.ZhSTOII .... I •• "

'OiNT

I"INCH·I' 110

IS Oft '''!lCYL
16166 21 OZ41D 14870 >
1$ 110' 011 "'acYL
16171 U I " " 00017
161'10 If 1621" JlIU
16201 4. 1610- 00000
1621" 16

RICOIIO

"""11

lun

J7214

16U6 '" 16"Z 00000
162,. II 16U' lUlL
161" '" 00000 00000
16251

lillY

DOlI. - .

16252 U I6U. 000-2
16264 "'I 16126 00000
16212

S'ORF'ZZ. •• IO

OOIIG - J

"S. 1627Z '"

lERO
Inn 00019

011 "'!lCYL _

.ItANCH I I'

110.

• 0-,

IInu"" '0

lION'"

"L NOI.IN,lI
FAGO '''08. TWOI ..
IURO ...
II

2.00IfN'
MANCIl IF. "N'*O.O

16292 06 nln "56'UO" 01 I flU nln
IUI6 46 16)12 01200

-telll'

16)21 06 IU04 n06'
16'40 01 "104 14''"

10

00II.

CO"VItT ,fLAO."

IIETUIIN....

IJII:

. ,Ft.

SMIIMN.O ••
,sua SMXMN.CII.lh
FOU SMXIIII. 'Il0l ••

IIDY"'"

I'SOJO
' I
00II. . . .
1S01o0
1'50S01'50,.0 IUIIO TPL ,1111111.0.0
CALLI
I
I~'O

A

16070 I' 1621" J70.1
16082 U 14617 000-1
lltAIICH IF ALL 'OINTS EU"IIiED
160." "6 00000 01200

at

l/illt

'af.F

SIl"'~II""~0.""11

16U4 '"~ 0241J 00000
162'12

16J52 "

IUD' I" ••
00000

,.,.. 'I· .SI..
••nt

IIln 06 IflU "06"
161•• 41 1I0U 00000

U!

..
U080
15090'
I~IOO
I~IIO

OOllG .-,
CDHVU TF

TF

16191

FlAGT.FLA'

OSA4'IO.Al'N ••

15110

T.

~I-'.Sl'-' ••

ULlO

fFII

DSU.IIOOI"
MOHIU.OSU"".

16192 , . 1461' 0001'
MOYE ADDkusn OF aN,YHANO ALFN
16404 16 147.9 14550
"DYE COOIIDINUn 0' ,0t1lT ISn.TIfI
16416 U
Ull4
SEt InUR" UORESS TO liHue PROCOHM
.
16428 16 14161 J6464
CALL P"TAfF SUI'ROG"II YIA "ONUR
16440 21 02400 14"S
'RANS.Ol" 'DINT INTO a-v CDOIID. SYSTEM
164'2 'T Ol410 14.0.
IIOVE I-Y COORDIN'1.S TO OUTPut .OORES~fS
1.,.4 O. 145T- 112U
1641. O. 1,'7M 11Z'S
lUNCH" NOT OIlU ONE POlllt ON tUCYl
16." 45 16"0 I")'

uns

ISI~O

aT

15150

It

PHUEF.bU4.JO, ••

15\6011001

TFL

I1.XI •• ,

15110
15180

a.

TFL

VI.VI,6

PNU.UT-."

151'10'

sn _ •••

he'"

Itl" liiT

'F

16010
16020
160l0.
16040 PH"

8
RETURN .... ·
DaR' .-)

RETURN TO liON I U

TR

16050
16060
16010
16080'
16090 11002

TFII DSAltllOOl
8
MDDI-14
DDRG .-]

IIOy( COORDINAres 0' POIlIt CSZT, UTI
16520 JI 171JJ 112)4
1(5)2 16 I"''' J6552
16544 '9 164.0 00000
1"5'

TFL

X2.XI,6.

16100
16110

TFl
IINR

n.YI.6
PNU,Sn-...

16120'
16130
16140
16150.
16160 PNT)

Fh.8,ft.8'1.

51-9.52T-' ••

ii'

IIOVE X-Y COORDINATES fa DU"Ut ADDRESSES
165" 06 1451- 11llS
1"64 06 ""N 17 291
BUNCH If THREE 'OINTS ON UICYL
16516 4' 16596 11254

B
EXIT
DORIi .-S
TR

l/jfli~U''''/j'
16500 b 00019 1461'
165 12 '9 OIHJ 00000
16520

16588 49 16500
16596

SI-9.SlT-9 ..

oonoo

16170
16180
16\90
16200'
17010 MOO)

DSU.IIDDS
8
liDO 1-14
DOIIG .-)

IIOYE COORDINATES OF 'OINT UJT. UTI
16596 Jl 11U] 11254
16608 16 1416' J6621
16620 49 16440 00000
16621

TFL

MOVE

17020
170]0
17040
17050'
17060'
17070 URE
17080

TfL n.Y106
8
EXIT
DOIIG - J

TFII

X),XI,6,

x-v

COORDINAtES TO OUTPUT
1662. 06
16640 06
1665' . .
'''660

ADDRESSES
1459- 112')
14'" l12n
16500 00000

BE

NPTS,FLAG
CDNYRT ...

16460 24 14619 0001'
IRANtH If ALL Cu,U: POINTS ON UICYL
16612 46 16J9l 01100

III 10

TF
TF

FlAGT,NPTS
FLAGF ,FLA" ..

17120

TFL

SMIN,SII""

16614 26
NO. OF PDllnS ON fA.cn wITHIN
16696 26
SfT SMIN-SMU
16101 06

11130
11140

TFL
Tfll

SMAX.SN,.
DfCR+lI,OU'L
MOYE!

17090'
11100

C

14617 14619
SEIII-IIIT.
14631 00019
1716] 171T]

'AGE
1H~0

8

11160

001\10 - )

11110'
17180 OUPL
11190

8Z

•

FlAG,FUGf
RETURN .. 6.

1120018010
18020

CM
Bile

CONyIltT., •

180]0'
18040

TFII

TFII
18050
TFII
18060
TFII
18010
TFN
18080
18090 HODIFY All
AM
18100
18110 INDU A
A
18120
TFL
18110
FSU8
18140 COIIP
BHE
18150
18160'
1I1T0
\8180
18190.
18200
19010 RM
19020
190)0
19040_
19050 5Ll
19060
19010
19080
19090
19100'
19110 INCIII
19120
19UO
19140
19150
19160
19110 !NCU
19\80
19190
19200
20010
20020

FLAG,4,10

SET SIIU-51 NI

16152 Zl 00019 146]1
RETURN 10 MONIT. IF NO 'DINtS ON TlaCYl
16164 46 02"J OUOO
16116 14 00019 000-4
lUNCH" NO TIIO fAICn 'DINTS ARF. IDENTICAL
161 . . 41 16S92 01200

FLAG,S,IO,
COHP-I,S\T-IO
COMP.H,SlY-10
INDEXtIl,INCAI-1
INOEXt23.IIICRl-2
INOEXtll,2ol0
INOEHU.l.10
COMP-I
COMP'lI
CRIT
CRIT
MODIFY",

CII
INtI

IHOU+U,INCR 1+'*)
5LT

TOil

S4r-9, "

DC

•

DOIIG

1,',CDIIVRT

'-J

SET NUIIIIER Of INTfUECTlCIIS
16100
""2
16'H
161)6
1684e
16860

DC

DC
DC
DC
DC
DC

DC

DC
DC
DC
lOOlO
DC
20040 0.0
DC
'0050
20060 1I1NleO DC

2.10
2.0
2.0
2.20
Z,O
2.20
2,10

2.20
Z.20
2,-20
2,20
2.0
•• 0

20-"

•• -10000000

It&

)

00019
16919
"'Ill
U89S
1. .01
168'15
16901
1691'1
U.9)1
000]9
000)9

000-)
H21)
J12J1
HO]O
Jl042

OOO-l
000-2
00000
00000
00000
00000

16160 01100

169'" I" 1"9' Jl0H
16956
169" 01100

'"

REMOVf DU'UUTI fUNNTS
16961 15 11n4 00000
\6919 00001
16910 49 IU92 00000

"'I"

16981
COMP-I,9.10
11000
CO"' . . 109.10
CO"'-1 ,COII'+ 11.6". REMOVf DUPLICATE fUIIEIITS
11012
11014
CONVRT
8
11011
DOIIG '-4

DC
DC

.

16
16
16
16
"
11
16812 11
16884 Zl
16896 1I
1690B 06
16920 02
lUNCH If ELEMENTS ARE UNEQUU
I6Ul41

5M
SM
Til

DC

I

16120 010 1111] 17ln
161]2 II> 16100 .. 6152
16144 . . 15.,1 00000
1nU

110ll
170)4
UO}'
lTOll
no.o

12 169 . . 000-9
lZ I . . " 000-'

11 "'III 16UJ
00000
49

I""

OOOOl
00001
00002
0000'
00,002

110~Z ooo~a

1t0'-OGOO'
H046 00002
U048 00002

11UO OOOOl
11aU 00001
lTD!", OOODZ
non 0000'
1106~ 00001
"on 00001

"I" oeao.

au

---.-~----~---.

20010 (ONIoO DC
20080
DC
10090 EPSlON DC
20100 51
DC
20110 n
DC
20120
DC
20130 52
DC
10140 T2
DC
10UO
DC
20160 H
DC
20110 n
DC
20180
DC
201'0 SMIN
DC
20200 SMU
DC
21010 T"XMN DC
21020 SN
DC
210)0 TIIIOA
DC
21040 5MX"'1l DC
21050 SIT
DC
21060 TIT
DC:
21010 SlT
DC
21080 flT
DC
21090 UT
DC
lIlOO nT
DC
21110 54T
DC
21120 14T
DC
211 )0
DC
21140 SMXMII! DC
211 ~o SMUI DC
21160 SMU2 DC
21110'
211 aD MON \T~ os
21190 l Nel/sE os
21200 FLAG .OS
22010 RfTU_N OS
22020 51
os
120)O T\
os
22040· XI
os
22050 YI
os
22060 RfARG OS
22010 FOUUC OS
22080 ~QRTF OS
os
22090 ""rs
22100 OISTF OS
22110 CR IT
os
22\20 FlAGT os
UlJO )AC
os
22140 THREU os
22150 SMlMI'IZ OS
22160 Ell"F OS
22110 '"'_Ef os
22180 TNOB
os
221'10 FlAGF OS
11200
DENO

PAr.t
6.600004
•• 10000000
2.-5
10.0
10.0
I.'
10.0
10.0
1 ••
10.0
10.0

11080 00006
11088 00008
11090 00002
11100 00010
1111000010
11111.00001
11121 00010
11111 00010
111ll 00001
11142 00010
11152 00010
I1IH 00001
11163 00010
1111) 00010
l11n 00010
111n 00010
11203 00010
17211 00010
17'" 00010
n2n 00010
112H 00010
1TlH 00010
1126) 00010
112U 00010
112n 00010
1129) 00010
11294 00001
IH04 00010
IUI400010
11114 00010

I.'

10,0
10.0
10.0
10.0
10.0
10.0
10.0
10.0
10.0
10.0
10.0
10.0
10.0
10,0
I.'
10,0
10,0
10.0

02406
02416
onOl9
02411
11142
11tH
11281
1129)
00019
00069
02416
14619
02416
000)9
14611
00029
11203
0002'1
02416
02416
171"
1'611
14596

.'406
,21tl6
),19
.2411
10.53
lo.n
10.S4T
10.14T
10.79
10.69

.2.16

2.lINUltn
.'416
10.J9
Z.NPrs·Z
10,29
.TWOA
10.UC
.Z416

.n"

10.TMXMN
Z.LtNUIUS
LINT. .

00000
00000
0000)
00000
00010
00010
00010
00010
00010
00010
00000
00002
00000
00010
00002
00010
00000
00010
00000
00000
00010
00002

.... rtf

SY"SDL TA8U

)ROOTS 11718
T2CALC 18042
02411
lNCUBE 11382
"I'fOll 11454
BeuSE In"
CAPa 19146
COSF 02421
EX"F 02416
LOGF 02416
PI)
191Z6
0/)
19146
SIGNF 1861.
I1nlo
51
11361
T\
1/)
19076
2'111 19096

,XROOT
TlCAlC
REFAOO
CUBRTF
ARG
INOrz
CBna
DSU
FLAG
MST
'HI
II
SMA"
52

19146
18054
18156
18590
18584
18142
18)52
18089
00019
113)1
19136
19136
19146
17)66
unl
T2
liNT 18484
ZREAl 11890

RETU~N

0101001010'
010)001040'
01050'
01010001010.
01080'
01090.
01100'
0111001120'
OU)O011.0'
01150.
011600111001180'
0119001200'
02010'
02020'
020)0
020.0 ADDCOH
Olaso
02060 MSf

Ino"

18\26
02406
IH15
02416
19136
18388
18105
111Z9
UU8
19136
19!)6
R/2
S"B/2 19116
$)
11376
11381
n
1REAl 18850
19126
UB

2RCOrs 185)6
SlCAlC 18516
MINI.O 19066
18106
a-o
U/27 19156
113)6
BST
CCUBE l11st
DSU 18115
FLAGO 18810
NVERT 18304
19116
0
51
1IU5
SOIlTI 19U6
UM' 19156
VERT 11260
1ROOT 112)6
JlNT 11011

18010
18962
19106
11341
1'1018
1'11'6
1'I1I6
18589
18U"
191210
191110
012
SIGN 18684
SORTF OZ416
19166
O.~
19086
21NT 11460
4Xll
It 166

nCAlC
SItALC
MINO.5
ACUBE
11-0
CAPA
CM"'"
U'OO
HPIU

,

TE""

111M 16l0-1)ll AD-APT SUBPROGRAM FOR DETERMINING
TItE INTERSECTIONS OF A LINE AIID A CUBIC

ReS
-NAME ACllI7 ••• NON-ERASaIlLE ARElEM SUBPROGRAM
olD NU"BER onOoOElOIM
-STORE COIlE 'MAGE
LINKAGE - BT LNCUBE.DSALBL.50.6
OSALBl IS aDDRESS OF SLO'E OF LINE IS-T SYSTfM'
DSAlBLo5 IS aDDRESS T-INTERCEPT LINE IS-T SYSTIMI
OSA18l010 IS ADDRESS OF A-COEFFICIENT ICUBICI
OSALllolS IS ADDRESS OF 8-COEFFICIENT ICU81CI
OSAlBlo,O IS ADDRESS OF C-COEFFICIENT ICUBICI
OSAlBl"5 IS ADDRESS Of S·COORDINATE IPOIN' II
OSAl8l'30 IS ADDRESS OF T-COO_DINATE IPOINT II
OSA18Lon IS ADDRESS OF S-COORDINUE IPDINT 21
DSAlBL'40 IS ADD_ESS OF T-COO_DINATE IPOINT 'I
OSALBl'45 IS ADDRESS OF S-COORDINaTE IPOINT 31
OSALBU'O IS AOOllnS Of' T-COOROINATE fPOINT 31

'NUMIER OF INTERSECTIONS INDICATED BY 2-01GIT
'IELO IN COIlE 'OSITIONS 00011-0001.
OORG
oe
DC
OS

Ol010 8$T

OS

0201. ACUIIE

OS

02090 lICutE

OS

OllOO CCIIII

OS

021&0 $I

OS

n

DS

021'.

2UNEEK
T-FOFS
MONITR
10CCOli
"UNF
BSO/.
CBRTB
DSA2
FLAGT
NOTO
PHil)

11326
50.0
6,0
5. AODCDN-....

"Inos,

,.CCUlI •• ,

nll6
l u n 00050
11)81 00006
aDDRESSES Of SLOPE AND T-INTE_CEPT
a1)ll 00005
OF llNI IlOCAl 5-' REFERENCE SYS'fR'
IUJ6 0000'
Aoo_eSSIS 0' A·COE'FlcaeM' (CUllel
In"l 0000'1
AOORISSIS OF I·COE,FICIINT fCURICI
aU ..600005
ADOIIESSU 0' C·COl'FtCIIIIT ICUllaCl
all51 0000'1
AOOllns 0' "'COOIIOINA" fPOlliT al
"19600005
AOOIIUS 0' T-COOIIDINAT. /PO'''' It

•

-~~

..

..
I' ..r.e
011 )0 52

0$

',f10"

02140 U

DS

',Uo',

AOOln5 DF

011'0 SJ

OS

5, U'"

ADORns OF

01160 TJ

OS

.,Uo"

ADDIESS DF

02170'
02180'
011'0 L"CUI!
02200
0)010
Ol020
0)0)0

o'oU
01050'
01060 ANOTZ
01070
01080
010.0
03100
03110
0)120
031 10
O)HO
031S0
0)160
03\ 10
03180

SUBPIIDGtlall INTI'
FlAGTtI,IO,
ASSU~E DNI INTfRSECTIDN EKIS'S
l u n 16 I n n
TFL CMIN",CtUIIf, II
In9. 06 1'116
FSUI tM'"M,MST,II,
C"INM'C-IIST
IH06 02 1.116
TFl ',BCUtE,11
17.18 06 1'126
I',.cun,ll,
17
. . 0 O. 1911t
'DIY
•¥
'UII(M " A-CO."ICI.Nf ., '.10
17HZ " 11706
TF~

h'"

'.0. ,.

FOIV
TFl
FDIY
FHUl
'Fl
FMUl
FMUL
TFl
FMUl
FSU8
FHUl
FSUI
FHUl

'M'NM.ACUIE,lI,
A,BH,II
.,Atuae, 11,
",flUNl.O"

IH ••
17466
17418
17490
17501
17S!4
IH26
175)8
175.0
17562
17574
17586

O"M'N""

01), II) ..
P,1/1,.
TEMP.Pll
TEMP, PI)"
OI).TEM'"

FNUl R,O.5"
FSUII QIl.AI1 ••

04010
04020
04040
0.050
04060

TFl
FMUl
TFl
FMUl
FNUl
FADD

850/4.5"1I1l
850/4. SMIII2"
11/27.S"Al3
n/H.SMAI3"
nIl7.SMAI3"
BSOI4. A)/27"

04010

IIIN

HP/EI •• ,

0.0800
04090 )ROOTS CF
Bnt
04100

50RU-2".
"ONITII,02000.67.

04110
04120

8T"
8TN

SORTF.SQRTA,67,
MaN ITII ,01020.67,

04110
0.140
04150
04160

IT
FMUl
CF
8TM

AUNF.DSAI'IO,6,
'H1.113 ..

04170
04\80

8TH SORTF ,5"AIl.67,
FAOD lUOOT. 5"'"''

04\90
04100

TFl

IrM

05010
05020

8TM
FMUl

0'0)0
0.040
05050
05060

FSUII
FAUO
TFl
efM

01.00

D. 19116 IU.J

11598 0) 19116
176\0 03 19116
5MBn.plJ.ool 0/1.o-'o.1I9.0 I-R/2.0
17622 01 19116
17614 06 19116
17646 0) 19116
5MI··2/ •• 0
176~8 O' 19156
5MI··2/9.0
17610 0) 1'156
1768l 0) 19156
S"A")/27.0
5QRT A'SMI •• 2I4.00S"Ao.3117.0
1769. 01 1.1l6
lUNCH I F RESULT NOT NEGATIVE
11706 46 1822"

19126
1908.

'··219.0
5MlI)·01).0-I'''U'.0
012.0
Q/2.0-' •• 2/ •• 0

0/2.PI) ••

I7UJ

17HO
In.J

17)30
I7l4J
19066
19116
19076
1.076
1.126
19126
1.156
190B6
1.1"

013.0
'1).0

0.0.5 ...
Q/2.TE"',.

000-1
17J'J

\9U6
l'U6
1.1l6
1'146
19146
19126
1'1'6
D) 19156
01 191410
0) 19116
02 19116

A'ISTIA
R'-lSrlA

01l.0

03190
03200

O~O)O

AOOUSS OF

,

lU61 0000'
S-tOOROIHArE I'OlllT 1I
In66 0000.
,-tOO.DIIIUE .,0IN' 11
In71 0000'
S-tDORDIHArE 11'0 (lIlT )I
IU76 0000'
'-CDDIIOI"U! !PDINT JI
lUll 0000.

06
09
0)
06
0)
OJ
06

").0 0 10/1.0-1'0'2/'.01

"n.o

AISFI50UAI
11111 )) 19U"
CALL SQRTF SUBROUTINE VIA MONITII
177)0 17 02400
17742 17 01410
SQRTFIA'SFISQRTAII
CAll ATANF SU8110urr"E VIA "ON1TR
17754 17 01400
17766 27 02410
CAlCUlATE PHI
1777. 0) 19136
I'HII).O
17790 )) 19146
A85F I S"AI] I
CAll SQRTF SUBROUTINE VIA MOll1TR
17.02 11 01400
SQRTFIA.SFISMA/)II
17.14 11 02410
1.0.SOUP"'ISFISM.," 1

SMA/,), .,

MaNIU.01000,67,

19116
19116
19116
19146
191 ••
191410
191"
01100
00000
-1000
J9116
-2020
18099
19076
00000
-1000
J.146

PAGE

0.070

FHUl

05080
05090
05100

'SU8
FAOO
eTII

05110
051Z0

Tfl
FHUl

051)0
05140 )INT

FSUB

TD"

05 . .0 neAlC IT"
05160 nCAlC 8TM
05170 TlCAlC 8TN
05180
TF
05190
05200
060100
06010
060)0
06040 DSAI
06050
06060
06010
06080 DSAI
06090
0.100
06110
06120DSn
06110
06140'
0.150 51

•

DORG
NOP
DOIIG
05A
OORG
HOP
OORG
OSA
DDRG
NOP
DORG
DSA
OS

11011
UOI5
11019
lUO.
11104
11101
1110'
11114
11114
11111
11115
11UI

50IlTA,PHI
_14
5MII1
•• '-1-4.'.2-6
tBUAoU,O
'-14
CA"
00,01-40"2-0-1

cBlln.u,o

-14
tAPa
DORG ••••

06160 ,0FOFS TF
06110
SM
06110
TFl

1-.

•• IO,--l
··11,',10
,ACU8E,1l,

(

TloA
NEGAflVE AOOIIESS Of fI

FHUl
,ADO
PHUl
FAOO
'HUl

IIEFAOO,SI.61l.
I(FAOO.ICUII.OII.
IIEfAOO,51,0'1.
IIffAOD,CCUlI.OII.
IIIFAOO.SI.OII.

nO"SI

88

•• t

DORO - .

"1 1.1J6 .'1)6
00005 J9110

41 IU6. OODOO
00005 J.1SO
41 11400 OODOO
00005 J'I.6

51

5..

,--5.

06&.0 unDO os
06200
01010
01020
010]0
07040
07050
07060
010100

17826 01 1.146 1914'
I7U. 06 17)50 1.1l6
CAll SIIIF-C05F SUIROOTINE VIA IIONITII
17850 17 02400 -2010
eOSFI'H./).OI
17 •• , 17 0241J J1150
C05F.51.6711,
2.0050.TFI'ISFISIIA/JII·C05FII'HI/).01
51.2XllOOT.6.
17814 0) 17,.0 19146
17886 02 17350 19126
Sl
51.1'13.6.
17898 01 l.ll6 19096
PHII).OOl.O'P 111.0
pHI/).2p1/)"
17.10 06 17160 1'1)6
Sl.PHIIl.6
C05FI'HI/'.002.0.'I/'.01
COSF.52.6711.
17912 17 024lJ J 1360
52.2X.00T,6, 2.0050IlTF.185FI5M"111'C05FIPHI/).0·2.0"I/,.01
17934 0) 17)60 19146
52
17946 01 17360 19126
S2,P/1,ft.
PH1/).004.00l'I/).0
11958 01 191'6 190.6
PH1/).lpI/J.,
COSFIPH1/).004.00PI/).01
COSf,"HI,),67,
17970 17 02.2J J'1)6
530pHlll.6
17'82 06 17)70 19U6
51,lXllOOT,6, 2.lIoSORTF1AII5FISIIA/lll oC05F11'HI/).0'4.0'I'1/1.0'
U994 0] 17)70 19146
S)
11006 02 (7)70 19126
SJ,P/l,6,
THIlEE UNIQUE INTEIlSEC'TlONS EXIST
FLAGT,)"
11018 l' 177Z9.0000)
T1_51'IS)'I'oS)0110CI 1'0)0 17 18116 J7]1O
T-fOFS,SJ.l1I,
Tl.S2'ISl'IAoS2'I,oCI 18041 11 11116 J7'60
'.FOF5.52,111.
Tl-SI'151ol,oSI0111t) 18054 17 11116 J1J50
'-FOFS.51,111.
IIOV( _ I U OF IIITERSECTlONS
FLAG,FLAGT 0'
11066 26 00019 17129
1107. .9 OI.lJ 00000
IInUI... TO IIGNITII
RETUAN ••••
11011
-4 •• -1-11-1
51.PHIIl,.
lION IT II .02010,61,

n-".SI"
n_$lo,usa'III
11_Uol,0110"'C
'I_Slo'II""SI ••

un

,+t,

tlln OOOOS
tlIl6 Z6 11156 t i l l '
111]8 12 tll56 000-'
uno D6 00000 I n4J
11156 OODOO
11162 0) 11110
.111401,111'0
111 •• OS 181S0
11198 01 1."0
1121001 1111'0

IIUN
11'.0

"llll
l1nJ
.11Z_

lun ." 00000 OODOO
IU2.

•

..
01010 "P/U

U

lIlOOrs."

,.ANCH ., 1I.'ULf IS

PAlif

lf~O

010'0'
01100 I~OO'
01110

CM
811

IIST .... 6lO
IIYEIIl ...

07120'
011)0 YE'"
07hO
07150
011.0
01170
01180.
011.0 IfVEn

11236 I" I7UJ 00011.
lUNCH ., LINE IS NOT VER T~AL
IU04 OUOO'

TFL
FNUL
FOIV
I
001111

5101",611,
51,111111.0,.,
st,IIST.611.
nCALC
-)

SI'&ST
SI'-'ST
SI--IST/NSf

II'"

110111,".02000.",

01200
08010
08020
080)0 ceUA

UN SORTP,SQIITA.U.
ffL , CAPA,IQlU
FADO CAPA.SIlI/2"
ar cuall" ,oSUtS ..

080.0
0.050
080/00 ,caUl

TFL

08070
08080
08090
08100
08110

TFL
FADD
FSU8
til
aE

CAU SOIlT, SU'"OUfllll VIA IIOItITIl
IUOIt 11 02.00
1011"'SOIlT" I
11116 11 02410
18'2' 06 1'1"
CA""'SMI/2+$0IlT.
11'40 01 1.1'.
CAI'A" SMIIZtSOIlU''''I.DIJ.O.
18"2 27 115.0
l'l64 O. 1.146
CAPe·SM.,I-SOII'"
1.'1. 02 19146
C.P.·'SM./Z-SQIIT •• ·.'I.O/ •• O}
18)1' 21 115.0
18400 O. I U'O
18412 01 11)50
SI,CAPUCAP8-P
184H 02 17)50
184'" •• 1712.
IRANCH IF OIfE 11f""SECTlON exISTS
184.8 '16 11054

08UO'
081)0 211t'
081.0

FIIUl CAI'A,C",. ••
2UIIUII ...

CAPA.CAPI
184.0 0) 1'156 I ••••
.IIANCH IF "'SULT IS 'OSI'IVE
1''17' ". 18504 01.00

TOIl

ONE IIITEIlSECrtDlf U'STS
.848. U 17129 00001
1849. 4. 1.0'. 00000
IUD.

08150'
08UO 1111'

CApa.SIII"
FSUI- CAPI.SOIlTA"
IT
Cue"'F ,DSU.S ..
SI,CApA,6
sl,tAPa,6
SI,p,6.
FLAGr,I,IO
nCALC" ,

'"

08170
08110
08190'
08100 2UllEEII
09010 $lCALC
09020
09010
090.0'
09050 21100TS
09060
09070'
09080
09090
09100
09110'
09120 CuellTF
0'110'
09hO ARG
09150 EUOO
09160'
09170

FLAGT.I ..

.-)

nCALC
I
DOIIG
,TFL
FMUL
I
OOIIG

$2.S1.6I1,
52.IIUIO.',6,
J2CAlC
-)

CII
111ft

liST. '1 •• 610
VEIl!",

'OM

FLAGT" ..

NVEU
DOIIG '+6
II

II,.. ",

18260
,18272
IU. .
18296

Ino.

06 uno
0) I U50
09 11"0
•• 110''1

17))0
19066
I rUJ
00000

-2000
J911.
1'1)6
1.116
11110
19116
1.1'6
18120
19156
.9146
.9U6
000-'
01100

18504 06 .7J60 11350
18516 03 17J60 19106

18528 •• 1I0U 00000
IB5.6

8I1AN~H

I' LINE IS

185)6 1. 11')J OOOM,
46 182.0 0 •• 00

VEII':~:~.

TNO INTEIlSte'IONS IxlST
18560 .5 "72' 00002
18572 49 te.04 00000
185.'

TFL

TENPF.AIIG,II

'8590 O. 1'166 1.51"

OS
OS

5.CUIRT'-6
'.ARGo5

1.,8'\ 00005
115" 0000'

MF

SI GlhUMPF-2

"60' 11 II.,. 1.16.

09180

aTM

MONITII.OZO.O,6T,

0'190
09200
10010

BTM LOGF.TEIIPF,67,
FMUl TEMPF,I/)',
IT" 'MONIlR.OZOJO,,,.

10020

.TM

10010 SlGII'
100.0
10050
10060
10070'
10080 41'0
10090
10100
10110'
10120 IIIOU
10lJO
101'10
10150
10160
10170
101110
10190
10200

IIF
TEMPF-2.SIGN
TfL ARG. TEIIp".
I
EUDD.,6.
DOIIG 0-)

EXp"TEMpF •• l.

"L 2X8.aCUIf,1I
'ADO 2XII,UI ..

I'

.-0, ••

TFL
'NUL
TFL
'ADO
FNUL
FAOO
'NUL
'OIV
.0

TEMp,ClllNII
TEMp.CMINM"
TENp" lXI
TEII",,.I ..
'IX"IST
TEMP.'I.' ..
CNIIfM.IIINI.O .. '
CIIIIIII.ZXI ..
NO'O,'EM __ t ••

,II.

11010'
11020 llIEAl
110)0
110.0'
110" IIOro

.,.,

ZRfAL.'EMP-I ••

11060'
U070 'lAGO

"N

FUG .. lO.

I'N

NONITII.OZOOO ••' .

UUO

ITN

SOR".T'"'••' .

lIUO
1l1.0
111.0
11160

FOIV
fFl
FADO
,l1li

'EN".UI ..
S2.CNIIIft.6.
SZ.TEMP, ••
FUGl.Z ..

I
ae'UIIN ••••
DORG - I

111'0 SICALC FSU.
IU.O
fFl
111.0
CM
lI200
II
12020
12010
120.0'
12010 "0

CALL LOGF 5U.IlOUTIIIE VIA MONITII
1861. 11 02400
18626 17 02.10
LOGF U.S, I ARG II
lOGFIA.SF"RG'./).O , 18618 0] 19166
CALL EXPF suallOUTINE '1IA MONItR
18650 11 02.00
EX"FllOGFIAISFI'"G"/J.OI
18662 IT 02.10
1867'1 11 1916.
18686 06 1158"
18698 .9 I8'>8R
EXIT
18106
2.0'11
lUNCH IF • IS ZERO

",.0-.

CNIIfIl.'f", ••
51.'"1 ......
FLAG,.2"0
"CALC •••

I
nCALC
...1 - .

-20.0
J·It66
19016
-2030
'J9166
1861~

19166
00000

18106 06 19126 173.0
11118 01 19126 19126
unO.6 19011 01200

IU.2 06
1"5~ 0)
11166 06
18778 01
181.0 0)
"'O••
18802 01
IC-MST ••• ' ••• O•• ·."
1•• 1. OJ
-tMIMM
IU26 09
-CMIIIMI2.011
.UNCM If NOT OIfE IIfTIIISECTION
•• n. 4J

'IS'

. ".

1"'0

I
SI'AlC
DOIIG - I

11080
110.0
11l00'
11110 IIIEAl

aOlo-

4

11224 .6 185.6 01'00

19156 19116
1"56 19116
"16' 1.126
1'166 19126
19166 11330
1"" 19166
1.116 1.066
19116 19126
EX'STS
illS' 191'"

4. II. .Z 00000

IRANCM •• TNO INTEIISECTIONS EXIST
... sa .. 4 1. .90 .'lS'I

NO INTEIISECTION 'RISTS
IIfTUIIN TO AUN".

1••10 16 0001' 000-0
18 •• 2 •• O,,,IJ 00000
18890

CALL SORTF SU.IlOUfIIfE VIA _ITII
.8890 l' 02'100
SOIl'FIIC-"S"··'.'.0-"85"'-ROO'
, 1•• 02
024.0
1I00T'.,.0'.'
,.9.4 09 ,9156
S2eC-IIS'
1 •• 26 06 1"60
SI.C-IIIHIIOUT
18.,. 0& IU6D
rNO .IIUIISfCTlDNS lalST
11950 IS IT'Z.
. C~NST-.DO'
...., OZ 19U'
SleC-MST-aDOT
11.1. 06 'T15O

.1

..... .4 1 "n
8111111CtC .. ' no IflTEIIStc:TlDlfS EIIST

-2000
J.I"
19126
1.116
191"
00002
19.56
1.116
0DD-2

II... "6 11041 0&200
19010" " " "
19011

HIIIICtC ••• CooII.ft .. NOT IECIG

~000

1'011 .. J .90.1 1'101

au

,.

...

•

1Z070
1Z080
lZ0900
12100

FLAGO

OOU

1'0)0
I'D"

.-)'

ll120
III )00
121~0

121S0 MINI.O
12160
12170 II)
12110
12190 0.5
12200
11010 2PIIl
UOZO
110)0 MIND.'
13040 CIIUIII
n050 P
13060 II
U070 013
UOBO TEll'
H090 TEIIPF
HIOOO
Ull0 SIGN
13120 FLAG
131]0 FlAGT
UI .. O 0
U150 PI)
DUO O/Z
uno R/2
HUO 8S0/~
11190 511812
D200 HIll
14010 SIIAIl
140Z0 SORTAI~O)O SORTF
1~040 AUNF
I~OSO PHI
14060 lKROOT
14070 PHIIl
H080 CO SF
"'0.0 lOGF
14100 EX'F
14110 ZXI
14110 .. XB
141]0 CAPA
I~"'O CAPB
lUSO IION"II
1'160 RETUIIN
1'110

IQ031 06 IU!IO uno
190'0 ~9
00000
1'1051

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

1'06~ 00001
I'OU 00002
1'07~ 00008
1'076 00001
l'OI~ 00001
1'1016 00001
1'I0'l~ 00001
1909. OOOOZ
I'IO~ 00001
1'10. 00002
1911. 00010
19126 00010
1.13. 00010
I.H6 00010
I'IS6 00010
19166 00010

',-10000000
2,1

.,nuu))

2,0
.,50000000
2,0
I,Z09~)'U

1,1
1,-SOOooooo
2,0
10,0
10,0
10,0
10,0
10,0
10,0

as
as
as
as
os
os
as
os
os
as
os
OS
os
as
as
as
as

,SIGNfolO
2.19
2, ]ROOrs_1I
,CIIINII
.P
.0
,R
,R/2
.TeIlP
,Oil
,850/.
,Z .. 16
,2416
,SQRTA
,SMAIJ
.PHI
,2 .. Z1
,2416
.2416
,PI]
,TEIIPF
,TEIIP
,URODT

05

OS

os

2JTC: ',"

:rq30 ";', ~
•
Vii
~\, . ;~O

YZAOOR
1I0VEXl
ADotON
IIAOOR

all ~OO

01160·
01110·
011800
011.0 AOOCON DC
01200 XlAOOR os

os

".,lAOOU"

02040 IIADDII
020 50 UODII

!,.,

02060.
020100
02080 LCNDN2 T't
02090
'SUI
02100
I'
OZliO.
02&'0

022000)010 NVERT
0)020
010)0

St''''

~

OflOO~R

LCNO~2

00030_

UADO"
f.FLAG
CDINC
SLOPE

BAOOR OOOHR
NVERT OO"OR

, . XI AOOR."

"X"OOU"

OS

""
TFL

,

00014"
oolOOR
oonlR
00114_

XI AOOR
DfL TAY

EXIT
IEIIP

00004_
OOOZ'_
001'180
0007"

Res

COINCIQlNT 'TS. INOICATEOIY RII III OSALIL"O ADDR.

OZO]O .,UOOII OS

021]0 IIOVEI'
02140·
OIISO
0216002tTO SLOPe
01110
02190

T ASI

YIADOR

30,0
5,AOOCON-lli,

02020 XUODA OS

DS

~

~I~"

'NAME lCNtN2 ••• ERASABLE AllELE" SUI'ROGRA"
olD NUIISER OZll-0ElOI"
-ASSEMBLE RELOCATA8lE
-STORE RELOAOABLE
LINKAGE - 8T LCNON2.0SALIL'25,6
OSAlBL IS ADDRESS OF X-COORDINATE 'POINT II
OSALIL" IS ADDRESS OF Y-COOROINATE IPOINT II
DSALBL+IO IS ADDRESS OF X-COORDINATE IPDINI 21
DSAl8l+15 IS ADDRESS OF Y-COORDINATE IPOINT 21
DSALBl'20 IS ADDRESS OF SLOPE OF LINE
OSALIL+15 IS ADDRESS OF Y-INTERCEPT OF LINE

OIO~O-

010600
0107001080010900110001110·
OIlZO'
011 )0'
OIHO-

,

191~.00000

..

18" 1620-1311 AD-APT SUBPROGRA" FOR DETERMINING
THE SLOPE AND Y-INIERCEPT OF A LINE DEFINED 8Y
TWO UNIQUE POINTS

01010010200103001040-

02010 nAOOR

00019R
00078R
0002'1.
00024"

00000
00002
00002
00000
00000
00000
00000
00000
00000
00000
00000
00000
OZ~I. 00000
OZ~16 00000
1'116 00000
• t,I46,OOooo
, .,' 913'6 00000
OZ421 ,00000
OZ416 00000
02~16 00000
1'116 00000

111156 00000
00000'
~o" 00000
t~f/"::' , 02~1l
00000
Inu

DS
OS
,Z~06
OS
,2~1l
OS
DENO lNCUle

06085
OOl81R
0002911
0002'R
00l20R

6

\86n
00019
I17Z.
1.116
1.12.
19116
19U6
1.1l6
1'116
1'15.
1'1U
19U6

.0/2

OS
OS

"'~E

1."_

ST"OOI

1.0E48
III.H8
OElTU
FLAG
VERT

1.17. 00000

TfL 51,85T,611
VEU'24
DOIIG .-4

a

illiG

~.

"YlAOOU',

00029 00030
AOOIIESS OF X-COORDINATE IPOINT II
OOOO~ 00005
ADOIIESS QP v-COOIIOIIIATE IPOINT II
0000. 00005
ADDRESS
X-COORDINATE IPOINT II
00014 DODOS
ADDRESS Of .,-CDDRDINATE IPOINT 21
00019 00005
ADDRESS OF SLO'E
00024 00005
ADDRESS 0' '-INTfRCEPT
00019 DOOO~

0'

SUBPIIOGRAII ENTRY
DELTAY,YlAODR,611
DELTAY,VIAOOR,,,II, YZ-YI
ERFLAG."
'RANCH I' Vl·YI
SLOPE-6 ,IIER f ..

DELTAX.X,.ODR.tll
'SUI Ollf.X,II.DOI,"I.,
II

,.,

'0"
CM
I...

OELTAY.DELTA......
MAOO••••• 10
WlU ...

T't •• 001.Y1AOOR.,,11
T'L fEM"IIAOD.,II
.MUL f .... ,.IAOOI.II,

000)0 -0 000211 OOOIR
00042 -It 000211 OOOOA
00054 "" OOZOO 01200

sn

SIIITCN 'NOICATI", INEQUALITY
0006" JO OOloe -0110
00011 -0 0002. OOOIN
000.0 -It OO'Z. 000011
XI-It I
00102 ~6 0.000 01100
IRANCH .,

U."

00114 -II 0001" OOOZII
DOlI' J4 000211 000-'
. . . . . . . nO,. .II'.IIUI IV DEFINITION
00111 ~t 00"0 01'00

"'YI·,.t/'.'·I.I

"Oil

001'0 -0 OOOIR OOOOR
ODltl 00 080f. 0002.
Ol 00019 000011

oon.

IU

O)O~O
'SUI IADOR.TfRP.I.
O)O~O fllf
18
'"
0)01>0
001110 0-9
0)070O)OiO IRFLAG "", SLOPE-e,tol"".

0)090
OliOO
OUIO.
OUlO VEU
O)UO
0)140
OU50
011.0

00111> -2 OOOIR 00019
oOl'n 41 00000 00000
00100

sn SlIlTeM lliOICUI,. fOUA(UY
00200 JO 00108 -0"8
00212 "' 0001. 00000
00220

•
MOVEU
DORG --I

TFL

MADDR,l.OHI,I,

TfL IADDR.III.nl ••
'"UL .. DOII,I"OOtI,IU,
II
•• ,
00111 .-,

sn

Mol.OIU

, ••-1.0..... ,
ellT

0)170·

.M... 'Ollt"

011.0 COIIIIC

'011

FUG ....

ilf

OUtO
0)100
04010
04020.
040)0
04040 "I.E48
04050'
0401>0 I.OE48
04010 DEl lAY
04080 DELTA.
04090
04100 FUG
04110

DC
88

"',_
, ••

exIT

fE"'

00111

0-,

DC
DC

1,49

OS
OS
OS
OS
OS
Df"D

,'08'
,MADOR
,IAOOR
10."
1.0El fAY
LC"D"'

8,-10000000

00220 -. 000211 060a'
00212 -a 000111 oozal
00244 -L 000111 000111
oon. U 00000 00000

oou.

"I COINUO'"T

J'

Don.
OOO,M 00000
OOZ" 00001
00270 42 00000 00000
00212
0027' 0000.
00281 00002

alan

000Z4
00029
0001.
00024
000~0

00600
00000
00000
00010
00001

tu



Source Exif Data:
File Type                       : PDF
File Type Extension             : pdf
MIME Type                       : application/pdf
PDF Version                     : 1.3
Linearized                      : No
XMP Toolkit                     : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37
Create Date                     : 2014:03:13 21:12:53-08:00
Modify Date                     : 2014:03:13 21:39:57-08:00
Metadata Date                   : 2014:03:13 21:39:57-08:00
Producer                        : Adobe Acrobat 9.55 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:0df5ef37-a603-0148-bb12-4587a2268ea0
Instance ID                     : uuid:c5c7951f-510e-3341-87e8-f9fe1e70bc62
Page Layout                     : SinglePage
Page Mode                       : UseNone
Page Count                      : 254
EXIF Metadata provided by EXIF.tools

Navigation menu