Digital PDFs

DEC-8E-ACVTA-A-LA

December 2000

82 pages

Original

0.3MB

Document:	dec-8e-acvta-a-la
Order Number:	DEC-8E-ACVTA-A-LA
Revision:
Pages:	82
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/dec-8e-acvta/dec-8e-acvta-a-la.pdf

OCR Text

1
2
FLOATING.
3
4
5
6
7
8
9
10

/LAB-8E CONVERT PROGRAM-CONVERTS LAB-8E MS DATA
/AND SINGLE, DOUBLE, AND FLOATING TO SING,DOUB,AND
/
/DEC-8E-ACVTA-A-LA
/
/COPYRIGHT 1972
/DIGITAL EQUIPMENT CORPORATION
/MAYNARD, MASSACHUSETTS 01754
/

11
/FILE CON.14
12
/CONVERT PROGRAM FOR LAB-8E PROGRAMS
13
/RUNNING UNDER PS-8
14
/LAB-8E CONVERT
15
SET1=
CLL CLA IAC
16
SET2=
CLL CLA IAC RAL
17
SET3=
CLL CLA IAC CML RAL
18
SET4=
CLL CLA IAC RTL
19
SET6=
CLL CLA IAC CML RTL
20
SETM2= CLL CLA CMA RAL
21
SETM3= CLL CLA CMA RTL
22
FIELD
0
23
*7200
/TELETYPE DEVICE
HANDLES AND
24
/INPUT FILE DEVICE
HANDLER.
25
/7200 - 7577
26
*6600
/OUTPUT DEVICE
HANDLER.
27
/6600 - 7177
28
*5200
29 005200 0000 BUFJOB, 0
/BUFFER FOR JOB LIST OF
AVERAGER.
30
31
*5600
32 005600 0000 BUFOUT, 0
/BUFFER FOR OUTPUT.
33
34
*6200
35 006200 0000 BUFIN, 0
/BUFFER FOR INPUT.
36
FIELD
1
37
*20
38 010020 0000 OUTTYP, 0
/TYPE =
1,2,3,4,5,6,7 FOR F4, F2
39 010021 0000 INTYP, 0
/SI, DO, DA, AV,
HI.
40 010022 0000 SWITCH, 0
41 010023 0000
0
/SWITCH VALUES,0 AFTER LAST
VALUE.
42 010024 0000
0
43 010025 0000
0
44 010026 0000
0
45 010027 0000
0
46
47 010030 0000 ENTRYI, 0
/ENTRY POINT TO
INPUT DEVICE HANDLES
48 010031 0000 ENTRYO, 0
/ENTRY POINT TO
OUTPUT D.H.
49 010032 0000 FILESZ, 0
/FILE SIZE OF INPUT
2

FILE.
50
51 010033 0000 READNO, 0
CHARACTERS IN READ BUF.
52 010034 0000 WRITNO, 0
CHARACTERS ON WRITE BUF.
53 010035 0000 CONVTY, 0
CONVERT ROUTINE
54
55 010036 0000 CONINP, 0
CONVERT ROUTINE.
56 010037 0000
0
57 010040 0000
0
58 010041 0000
0
59 010042 0000
0
60 010043 0000
0
61
62 010044 0000 BLKOSZ, 0
THE OUTPUT BLOCK.
63 010045 0000 BLKISZ, 0
THE INPUT BLOCK.
64 010046 0000 TEMP1, 0
65 010047 0000 TEMP2, 0
66 010050 0000 TEMP3, 0
67 010051 0000 BLKIN, 0
NUMBER.
68 010052 0000 BLKOUT, 0
NUMBER
69
70 010053 0000 FILOSZ, 0
FILE.
71 010054 0000 AVHBKA, 0
HEADER BLOCK.
72 010055 0000 AVHBBA, 0
BUFFER ADDRESS
73
74 010056 0000 AVHBBC, 0
BUFFER COUNT.
75
76 010057 0000 AVTMP1, 0
77 010060 0000 AVTMP2, 0
78 010061 0000 AVTMP3, 0
79 010062 0000 AVTMP4, 0
80 010063 0000 AVBACT, 0
OF DATA POINTS
81
82 010064 0000 AVLACT, 0
OF # OF DATA
83

/NUMBER OF
/NUMBER OF
/CONVERT TYPE FOR
/INPUT & OUTPUT FOR

/LOGICAL SIZE OF
/LOGICAL SIZE OF

/INPUT BLOCK
/OUTPUT BLOCK
/-SIZE OF OUTPUT
/ADDRESS OF NEXT
/HEADER BLOCK
/HEADER BLOCK

/BLOCK ADDRESS OF #
/FOR AVERAGE
/LOCATION IN BUFFER
/POINTS FOR AVERAGE
3

84
85 010065 0000 FIOBUF, 0
POINTER.
86 010066 0000 FIOBFS, 0
WRITTEN TO MS.
87
88 010067 0000 AVDQFG, 0
CYCLE ON DATA
89
90 010070 0000 AVDALK, 0
IF THERE IS A
91
92
93 010071 0000 AVDATY, 0
OUT, 1,2, OR 3
94
OR TREND
95 010072 0000 AVDTYV, 0
VARIABLE, - DATA TYPE
96
97 010073 0000 AVDQBS, 0
DAQUAN REREAD.
98 010074 0000 AVDQLS, 0
DAQUAN REREAD.
99
100 010075 0000 AVF2SP, 0
PRECISION POSITION PT.
101 010076 0000 SIDOFG, 0
BIT #
102
0-4095.
103
104 010077 0000 DARDS, 0
105 010100 0000 CRDGET, 0
106
107 010101 0000
0
108 010102 0000 CRDSKP, 0
109
110 010103 0000
0
111 010104 0000 REDSF, 0
ROUTINE.
112
113
*2000
114 012000 6201 START, CDF
0
115 012001 7300
CLA CLL
116 012002 1377
TAD (4003
117 012003 3776
DCA I (7746
118 012004 6211
CDF 10
119 012005 4775
JMS CRLF
4

/OUTPUT BUFFER
/SAVED LAST LOC.
/DAQUAN FLAG TO
/FLAG TO DETERMINE
/LINKED DATA BLOCK.
/TYPE OF DATA GOING
/FOR AVG, CONF.L.
/DATA TYPE
/BLOCK SAME FOR
/LOCATION SAVE FOR
/FORTRAN 2 SINGLE
/=0,FLAG OFF;=1,THEN A 12
/IS CONSIDERED POSITIVE
/END TELE INPUT CHAR.
/# OF NUMBERS TO READ
/FOR SI AND DO ONLY.
/# OF NUMBERS TO SKIP,
/FOR SI AND DO ONLY.
/DONE FLAG FOR REDSU

/SET JOB CONTROL WORD

120 012006
121 012007
122 012010
DECODER
123 012011
124 012012
125 012013
126 012014

4774
0010
4773

JMS I (7700
10
JMS I
(200

0005
0000
0000
1372

5
0
0

/LOCK IN USR
/CALL COMMAND

TAD (7201
127 012015 3224
128 012016 1771
DEVICE HANDLERS.
129 012017 7450
130 012020 5770
131 012021 0367
132 012022 4773
133 012023 0001
134 012024 7201
HANDLER
135 012025 5766
136 012026 1365
137 012027 3236
138 012030 1764
139 012031 7450
140 012032 5770
141 012033 0367
142 012034 4773
143 012035 0001
144 012036 6601
HANDLER.
145 012037 5766
146 012040 1363
147 012041 3245
148 012042 1764
149 012043 4773
150 012044 0003
151 012045 7601
OUTPUT.
152 012046 0000
153 012047 5766
154 012050 4773
155 012051 0011
156
157 012052 7300

DCA DHCT4
TAD I (7617

/LOAD INPUT AND OUTPUT
/TEST FOR BAD COMMAND

DHCT4,

SNA
JMP COMERR
AND (17
JMS I (200
1
7201

/HANDLER AT 7200 FIELD 0

DHCT5,

JMP ERR
TAD (6601
DCA DHCT5
TAD I (7600
SNA
JMP COMERR
AND (17
JMS I (200
1
6601

/IS AT 6600 OF FIELD 0.

DHCT6,

JMP ERR
TAD (7601
DCA DHCT6
TAD I (7600
JMS I (200
3
7601
0
JMP ERR
JMS I (200
11

/RETURN FILE SIZE

DHCT7,

/ENTRY POINT TO INPUT

/LOAD OUTPUT HANDLER.
/TEST FOR BAD COMMAND.

/ENTRY POINT FOR OUTPUT

/CREATE OUTPUT FILE.
/RETURN STARTING BLOCK FOR

/UNLOCK USR.

CLL CLA
158 012053 6032
159 012054 1362
160 012055 4761
161 012056 1360
162 012057 3015
163 012060 4757
164 012061 1356
TYPE.
165 012062 3010
166 012063 3014
167 012064 1355
168 012065 3011
169 012066 4754
170 012067 7106
171 012070 7006
172 012071 7006
173 012072 3012
174 012073 4754
175 012074 1012
176 012075 3012
177

KCC
TAD (252
JMS PRTCH
TAD
(-2
DCA
15
JMS TTYIN1
TAD
(-6
CON3,

/PRINT VALUE
/SET UP TTY READ.
/DETERMINE OUTPUT

DCA
10
DCA
14
TAD
(COMLST-1
/SET LIST ADDRESS
DCA
11
JMS TTYINP
/READ FIRST CHAR.
CLL RTL
RTL
RTL
DCA 12
JMS TTYINP
/2ND CHAR.
TAD 12
DCA 12

178 012076
LIST.
179 012077
180 012100
181 012101
182 012102
COMPARISON
183 012103
184 012104
185 012105
186 012106
187
188 012107
189 012110
190 012111
191 012112
TYPE
192 012113
193 012114
194
XX<XX/X
195 012115
196 012116
197 012117
198
199 012120
200 012121
201 012122
202 012123
203 012124
204 012125
205 012126
206 012127
207 012130
208 012131
209 012132
210 012133
211 012134
212 012135
213 012136
214 012137
215 012140
216 012141
217 012142
INPUT FILE
218 012143
219 012144
220 012145

1012

CON2,

TAD

7041
1411
2014
7650

CIA
TAD I
11
ISZ
14
SNA CLA

5307
2010
5276
5770

JMP
CON1
ISZ
10
JMP
CON2
JMP COMERR

2015
5312
5320
1014

CON1,

ISZ
JMP
JMP
TAD

DCA
OUTTYP
JMS TTYINP

7200
1353
5262

CLA
TAD
JMP

7040
1350
5747

CON4,

CON5,

CON6,

/SET TYPE.
/SEARCH FOR

15
.+2
CON4
14

3020
4754

1014
3021
1352
3046
3446
4754
1351
7650
5335
4754
3446
2046
5324
4775
1224
3030
1236
3031
1771

/COMPARE INPUT TO

/TEST IF DONE.
/DO TEST ON INPUT
/READ <
/INPUT IS IN THE FORM

(-11
CON3

TAD
14
DCA
INTYP
TAD (SWITCH
DCA TEMP1
DCA I TEMP1
JMS TTYINP
TAD (-15
SNA CLA
JMP CON6
JMS TTYINP
DCA I TEMP1
ISZ TEMP1
JMP CON5
JMS CRLF
TAD
DHCT4
DCA
ENTRYI
TAD
DHCT5
DCA
ENTRYO
TAD I
(7617
CMA
TAD
(20
JMP DHCT13
8

/READ /

/READ SWITCH.
/STORE INPUT SWITCHES.

/GET FILE LENGTH OF

221 012147
012150
012151
012152
012153
012154
012155
012156
012157
012160
012161
012162
012163
012164
012165
012166
012167
012170
012171
012172
012173
012174
012175
012176
012177
222
223 012200
224 012201
225 012202
226 012203
227 012204
SIZE
228
229 012205
230 012206
231 012207
BLOCK.
232 012210
233 012211
FLAG.
234
235
236

2200
0020
7763
0022
7767
5627
2263
7772
5636
7776
5621
0252
7601
7600
6601
2322
0017
2317
7617
7201
0200
7700
2343
7746
4003

PAGE

0377
7112
7012
7041
3032

DHCT13, AND (7760
CLL RTR
RTR
CIA
DCA
FILESZ

3033
1776
3051

DCA
TAD I
DCA

READNO
(7620
BLKIN

/0 BUFFER IN COUNT

3034
3076

DCA
WRITNO
DCA SIDOFG

/0 BUFFER OUT COUNT
/0 12 BIT # POS.

/SAVE NEG. FILE

/SET INPUT FILE

237 012212 7040 DHCT12, CMA
FILE SIZE
238 012213 1020
TAD
OUTTYP
FLOATING PER BLOCK.
239 012214 7640
SZA CLA
240 012215 7001
IAC
241 012216 1375
TAD
(377
242 012217 3044
DCA
BLKOSZ
243 012220 7040
CMA
FILE SIZE
244 012221 1021
TAD
INTYP
245 012222 7640
SZA CLA
DO=4
246 012223 7001
IAC
247 012224 1375
TAD
(377
248 012225 3045
DCA
BLKISZ
249 012226 7344
SETM2
250 012227 1020
TAD
OUTTYP
SINGLE
251 012230 7450
SNA
FLOATING POINT OUTPUT.
252 012231 5235
JMP DHCT11
253 012232 1374
TAD (-4
254 012233 7640
SZA CLA
255 012234 5237
JMP
DHCT10
256 012235 1373 DHCT11, TAD
(374
257 012236 3044
DCA
BLKOSZ
258 012237 1772 DHCT10, TAD
DHCT6
ADDRESS
259 012240 3052
DCA
BLKOUT
260 012241 1771
TAD
DHCT7
SIZE
261 012242 3053
DCA
FILOSZ
262 012243 3100
DCA CRDGET
READ
263
264 012244 3101
DCA CRDGET+1
265 012245 5770
JMP SWITVA
266 012246 1252 DHCT14, TAD
JMPTYP
INPUT ROUTINE
267 012247 1021
TAD
INTYP
268 012250 3251
DCA
.+1
269 012251 0000
0
270 012252 5652 JMPTYP, JMP I
.
271 012253 3675 JMPLST, F4
272 012254 2537
F2
273 012255 3600
DO
274 012256 2327
SI
10

/SET OUTPUT LOGICAL
/F4 USES 85,

/255 DECIMAL
/SET INPUT LOGICAL
/F4=1, F2=2, SI=3,
/DA=5, AV=6, HI=7

/TEST FOR FORTRAN 2
/PRECISION OR

/SET BLOCK SIZE=252
/SET OUTPUT BLOCK
/SAME OUTPUT FILE
/0 # OF POINTS TO
/FOR SI AND DO ONLY.
/GET SWITCHES.
/CREATE JMP TO

/JUMP TO ROUTINE.
/=1
/=2
/=3
/=4

275 012257
276 012260
277 012261
278 012262
279 012263
280 012264
281 012265
282 012266
283 012267
284 012270
285 012271
286 012272
287 012273
288 012274
289 012275
WRITTEN
290 012276
291 012277
292 012300
293 012301
294 012302
295 012303
296 012304
297 012305
298 012306
299 012307
300 012310
301 012311
302 012312
303 012313
304 012314
305 012315
306 012316
307

2327
2527
2400
2600
6600
0664
0662
0417
2311
0401
0623
1011
0126
0317
1034
7650
5302
4767
0001
1772
7041
1052
3313
1766
0365
4764
0004
7601
0000
5322
6211
5763

SI
FS
HI
AV
CO
COMLST, 0664
0662
0417
2311
0401
0623
1011
0126
0317
FILDON, TAD

FILD1,

FILD2,

WRITNO

SNA CLA
JMP
FILD1
JMS FILOUT
1
TAD
DHCT6
CIA
TAD
BLKOUT
DCA
FILD2
TAD I
(7600
AND
(17
JMS I
(7700
4
7601
0
JMP
ERR
CDF
10
JMP
START

/=5, DA
/=6
/=7
/=10
/=11
/F4
/F2
/DO
/SI
/DA
/FS
/HI
/AV
/CO
/TEST IF LAST BLOCK

/WRITE THE LAST BLOCK
/GET SIZE OF FILE

/CLOSE FILE

/RESTART PROGRAM

308
309 012317 7001
310 012320 7001
ERROR
311 012321 7001
312 012322 3326
CREATE, HANDLER
313 012323 4343
314 012324 4764
315 012325 0007
316 012326 0000
317 012327 1362
CONVERT TYPE
318 012330 4761
319 012331 3104
320 012332 4760
321 012333 4757
322 012334 5332
323 012335 0004
324 012336 0003
325 012337 0002
326 012340 0001
327 012341 0001
328 012342 0015
329
330 012343 0000
331 012344 7200
332 012345 1356
333 012346 4755
334 012347 1354
335 012350 4755
336 012351 5743
337
338 012354 0212
012355 5621
012356 0215
012357 4400
012360 3704
012361 3746
012362 2334
012363 2000
012364 7700
012365 0017
012366 7600
012367 4000
012370 7000
012371 2046
012372 2045

COMERR, IAC
ERRRW, IAC
NOROOM, IAC
ERR,
DCA

ERRM,
SI,

SI1,
SICOD,

CRLF,

/COMMAND ERROR.
/READ OR WRITE
ERRM

/DEVICE FULL.
/ERROR 0, CLOSE,

JMS CRLF
JMS I
(7700
7
0
TAD
(SICOD-1
JMS
SETCON
DCA REDSF
JMS
REDSU2
JMS
CONVRT
JMP
SI1
4
3
2
1
1
15

/SETUP
/0 COUNT DONE FLAG.
/READ INPUT
/OUTPUT DATA

0
/OUTPUT A CR. LF.
CLA
TAD (215
JMS PRTCH
TAD (212
JMS PRTCH
JMP I CRLF

PAGE

012373 0374
012374 7774
012375 0377
012376 7620
012377 7760
339 012400 1377 HI,
CONVERT TYPE
340 012401 4776
341 012402 4775
OF
342 012403 7777
343 012404 7402
344 012405 2076
IS ALL POS 0-4095.
345 012406 6201
346 012407 1774
OF 0TH HISTOGRAM
347 012410 3101
TRANSFER.
348 012411 1101
349 012412 7041
350 012413 3036
351 012414 1773
HISTOGRAM-BIN WIDTH
352 012415 7041
353 012416 3037
354 012417 1772
OF HISTOGRAM
355 012420 1101
TRANS.
356 012421 3101
357 012422 1772
358 012423 7041
359 012424 3040
360 012425 6211
361 012426 4302
362 012427 6201
363 012430 1771
WIDTH OF HISTOG.
364 012431 7041
365 012432 3036
366 012433 1770
TIME
367 012434 7041
368 012435 3037
369 012436 1767
370 012437 7040
371 012440 3040
PST.

TAD

(HICOD-1

JMS
JMS

SETCON
CREAD

-1
HLT
ISZ SIDOFG
CDF 0
TAD I

(BUFIN+23

DCA CRDGET+1

/SETUP
/READ FIRST BLOCK
/HISTOGRAM
/SET FLAG,12 BIT #
/GET - SIZE
/SET # OF POINTS TO

TAD CRDGET+1
CIA
DCA
CONINP
TAD I
(BUFIN+57

/GET 0TH

CIA
DCA
TAD I

/GET - SIZE

CONINP+1
(BUFIN+25

TAD CRDGET+1

/ADD TO POINTS TO

DCA CRDGET+1
TAD I (BUFIN+25
CIA
DCA
CONINP+2
CDF 10
JMS
HI6TST
CDF 0
TAD I
(BUFIN+21

/GET - BINW

CIA
DCA
TAD I

/GET MIN

CONINP
(BUFIN+30

CIA
DCA
CONINP+1
TAD I (BUFIN+56
CMA
DCA
CONINP+2
13

/OUTPUT A ORDER FOR

372 012441
373 012442
374 012443
375 012444
376 012445
AND
377 012446
378 012447
379 012450
380 012451
381 012452
382 012453
383 012454
384 012455
385 012456
386 012457
387 012460
COUNT.
388 012461
389 012462
390
391 012463
392
393 012464
SWITCH
394 012465
395 012466
396 012467
397 012470
398 012471
399 012472
400 012473
401

6211
4302
3076
7040
3033

CDF 10
JMS
HI6TST
DCA SIDOFG
CMA
DCA
READNO

4775
7777
7402
1366
3057
4775
7774
7402
2057
5253
7240

JMS CREAD
-1
HLT
TAD (-41
DCA AVTMP1
JMS
CREAD
-4
HLT
ISZ AVTMP1
JMP HI3
CLA CMA

HI3,

3100
3104
4765

DCA CRDGET
DCA REDSF
HI1,

JMS

REDSU2

1326

TAD

HSCAL

7650
5300
1036
7110
3036
1037
7110

SNA CLA
JMP
HI2
TAD
CONINP
CLL RAR
DCA
CONINP
TAD
CONINP+1
CLL RAR

/0 12 BIT POS FLAG.
/DONE WITH BLOCK 1
/READ NEXT BLOCK

/SKIP 132 WORDS.

/SET HIGH ORDER
/0 COUNT DONE FLAG.
/READ DATA FROM
/THE HISTOGRAMS
/TEST FOR SCALE

/SCALE DATA

402 012474
403 012475
404 012476
405 012477
406 012500
407 012501
408 012502
409 012503
410 012504
OUTPUT
411 012505
412 012506
413 012507
414
415 012510
416
417 012511
VALUUES
418 012512
419 012513
420 012514
421 012515
422
423 012516
424 012517
425 012520
426 012521
427 012522
428 012523
429 012524
430 012525
431 012526
432
433
434 012527
435 012530
436 012531
437 012532
438 012533
439 012534
440 012535
441 012536
442 012537
443 012540
444 012541
445 012542
446 012543
INPUT.

3037
1040
7110
3040
4764
5263
0000
1020
1363
7640
5311
4764

DCA
CONINP+1
TAD
CONINP+2
CLL RAR
DCA
CONINP+2
HI2,
JMS
CONVRT
JMP
HI1
HI6TST, 0
TAD
OUTTYP
TAD
(-6

HI6T2,

5702

SZA CLA
JMP
HI6T1
JMS
CONVRT
JMP I

HI6TST

TAD

CONINP+1

3324
1040
3325
4764

DCA
TAD
DCA
JMS

HI6TT1
CONINP+2
HI6TT2
CONVRT

1324
3036
4764
1325
3036
5307
0000
0000
0000

TAD
DCA
JMS
TAD
DCA
JMP
HI6TT1, 0
HI6TT2, 0
HSCAL, 0

1362
4776
3761
4760
7777
5757
4764
5332
1356
4776
3761
4760
7775

FS,

1037

HI6T1,

FS1,

F2,
F2A,

HI6TT1
CONINP
CONVRT
HI6TT2
CONINP
HI6T2

/TEST FOR FORTRAN 2
/SINGLE PRECISION

/OUTPUT IN PACKED
/FORTRAN 2 FORMAT.
/SAVE OTHER 2

/OUTPUT EACH VALUE
/BY ITSELF

TAD (FSCOD-1
/SET CONVERT TYPE.
JMS SETCON
DCA UNPT1
/0 UNPACK ASCII SWITCH.
JMS UNPK32
/READ 1 WORD.
-1
JMP FILDON
JMS CONVRT
JMP
FS1
TAD
(F2TAD-1
/TEST FOR COMMAND
JMS
SETCON
DCA UNPT1
JMS UNPK32
-3
/READ 3 WORDS FOR FLOATING
15

447 012544
448 012545
449 012546
DATA
450 012547
451 012550
452 012551
453 012552
454 012553
455 012554
456
457

5757
4764
5342
0013
0000
0012
0011
0011
0000

JMP FILDON
JMS
CONVRT
JMP
F2A
F2TAD,

13
0
12
11
11
0

/FILE DONE RETURN.
/CALL CONVERT
/GET NEXT FLOATING

458 012556 2546
012557 2275
012560 4200
012561 4337
012562 6721
012563 7772
012564 4400
012565 3704
012566 7737
012567 6256
012570 6230
012571 6221
012572 6225
012573 6257
012574 6223
012575 4104
012576 3746
012577 6520
459 012600 1377
6200
460 012601 3776
461 012602 4775
462 012603 7777
463 012604 7402
464 012605 1051
465 012606 7001
466 012607 3054
BLOCK
467
468 012610 1374
POINTER TO BUFFER
469 012611 3055
470 012612 1373
471 012613 3056
472 012614 1372
BUFFER
473 012615 3776
474 012616 2051
475 012617 3033
476 012620 6201
477 012621 1771
THERE IS
478 012622 6211
479 012623 7650
BLOCK
480 012624 5231
481 012625 4775
482 012626 7777

PAGE

AV,

AV1,

TAD

(BUFJOB

DCA
JMS
-1
HLT
TAD
IAC
DCA

CRBUFP
CREAD

AVHBKA

/SAVE NEXT HEADER

TAD

(BUFJOB+2

/ADDRESS
/SET

DCA
TAD
DCA
TAD

AVHBBA
(-375
AVHBBC
(BUFIN

/RESET THE READ

DCA
ISZ
DCA
CDF 0
TAD I

CRBUFP
BLKIN
READNO

BLKIN

(BUFJOB+1

CDF 10
SNA CLA
JMP
JMS
-1

/READ BLOCK 1 INTO

/CHECK IF
/ANOTHER HEADER

AV2
CREAD
17

483 012627
484 012630
485 012631
COUNTER
486 012632
487 012633
488 012634
CHAR.
489 012635
JOB LIST.
490 012636
491 012637
492 012640
WORD 1 IF
493 012641
494 012642
495 012643
496 012644
497 012645
498 012646
499 012647
500 012650
501 012651
502 012652
CHAR.
503 012653
504 012654
TYPE
505 012655
506 012656
507 012657
508 012660
509 012661
510 012662
511 012663
512 012664
513 012665
514 012666
515 012667
CHAR.
516 012670
517 012671
518 012672
519 012673
520

7402
5216
3770
1367
4766
4765

AV2,
AV21,

HLT
JMP
DCA

AV1
AVF2CT

TAD (HICOD-1
JMS SETCON
JMS
AVRJLS

7450

SNA

5764
3046
1046

JMP
DCA
TAD

7710
7001
4763
1046
0362
7112
7012
7012
4763
4765

SPA CLA
IAC
JMS
AVSTOU
TAD
TEMP1
AND
(3700
CLL RTR
RTR
RTR
JMS
AVSTOU
JMS
AVRJLS

3057
1057

DCA
TAD

0361
7106
7006
7004
3071
1071
4763
1057
0360
4763
4765

AND
(7400
CLL RTL
RTL
RAL
DCA
AVDATY
TAD
AVDATY
JMS
AVSTOU
TAD
AVTMP1
AND
(377
JMS
AVSTOU
JMS
AVRJLS

7041
3057
1057
4763

CIA
DCA
TAD
JMS

/0 STORE PACK
/SET UP CONVERT TYPE.
/READ 1ST JOB LIST
/TEST FOR END OF

AV22
TEMP1
TEMP1

AVTMP1
AVTMP1

AVTMP1
AVTMP1
AVSTOU

/SET 1ST OUTPUT
/LOW RESOLUTION
/SAVE CHANNEL #.

/READ 2ND JOB LIST
/DETERMINE DATA

/SAVE DATA TYPE
/OUTPUT DATA
/GET SORT CODE
/READ 3RD JOB LIST
/# OF POINTS, RECP
/AS POS. NUMBER.

521 012674
522 012675
523 012676
524 012677
525 012700
POINTS
526 012701
527 012702
TO
528 012703
529 012704
530 012705
SINGLE
531 012706
OUTPUT
532 012707
533 012710
534 012711
535 012712
OUTPUT.
536 012713
537 012714
538 012715
539 012716
540 012717
541 012720
542 012721
543 012722
544 012723
545 012724
546 012725
OUTPUT
547 012726
548 012727
549 012730
OF ADD
550 012731
FOR
551 012732
552 012733
ADDRESS
553 012734
WORDS
554 012735
WORDS
555 012736
BLOCK
556 012737

1034
7650
7040
1052
3063

TAD
WRITNO
SNA CLA
CMA
TAD
BLKOUT
DCA
AVBACT

3046
1020

DCA
TAD

1357
7540
5312

TAD
(-3
SMA SZA
JMP
AV31

/WRITE INTO.

7640

SZA CLA

/DOUBLE OR FLOATING

7001
7001
3046
7344

IAC
IAC
DCA
SETM2

AV31,

TEMP1
OUTTYP

TEMP1

/TEST IF BLOCK WAS
/WRITTEN
/SAVE BLOCK OF # OF
/CALCULATE LOCATION

/DETERMINE IF

/TEST FOR F2 FLOATING

1020
7650
7001
1046
3046
1046
7041
1066
3064
1020
1356

TAD OUTTYP
SNA CLA
IAC
TAD TEMP1
DCA TEMP1
TAD
TEMP1
CIA
TAD
FIOBFS
DCA
AVLACT
TAD
OUTTYP
TAD
(-6

7640
5755
1770

SZA CLA
JMP
AV4
TAD
AVF2CT

/CALCULATE POSITION

1354

TAD

/INSIDE 3 VALUES

3075
1770

DCA
TAD

AVF2SP
AVF2CT

/THE # OF POINTS
/CHANGE BLOCK

7640

SZA CLA

5342

JMP

AV32

/OF 3/2 PACKED

1064

TAD

AVLACT

/AVBACT IS THE

1357

TAD

(-3

/ADDRESS

/ADJUST ADD DECREMENT.
/FOR 4 WORDS IF SO.
/SUBTRACT FROM LAST
/LOCATION WRITTEN.
/TEST IF FORTRAN 2.
/SINGLE PRECISION

/AND ADDRESS OF 4

557 012740
OF
558 012741
559 012742
POSITION
560 012743
DESIRED
561 012744
562 012745
563 012746
564 012747
565 012750
566
567 012751
568 012752
569
570 012753
012754
012755
012756
012757
012760
012761
012762
012763
012764
012765
012766
012767
012770
012771
012772
012773
012774
012775
012776
012777
571 013000
572 013001
573
574 013002
NEXT
575 013003
576 013004
577 013005
578 013006
579 013007
580 013010
581 013011

3064
5755
1034

AV32,

DCA

AVLACT

/AVLACT IS THE ADD.

JMP
TAD

AV4
WRITNO

/THE 4 WORD PACKET
/AVF2SP IS THE

7640

SZA CLA

/OF THE WORD

5351
1353
3064
2063
5755

JMP
TAD
DCA
ISZ
JMP

AV33
(BUFOUT
AVLACT
AVBACT
AV4

ISZ
JMP

AVLACT
AV4

2064
5755

AV33,

5600
0002
3000
7772
7775
0377
7400
3700
3451
3441
3515
3746
6520
3513
5201
6200
7403
5202
4104
4125
5200
1377
3046

PAGE

AV4,

TAD
DCA

(-4
TEMP1

4776

AV3,

JMS

AVRJLS

7300
2046
5202
4775
7777
7402
1036

CLA CLL
ISZ
TEMP1
JMP
AV3
JMS
CREAD
-1
HLT
TAD CONINP
20

/WITHIN THE 3 WORD
/CONVERTED PACKET.

/READ UP TO THE
/JOB LIST
/READ # OF SWEEPS
/WRITE # OF SWEEPS.

582 013012 4774
583 013013 1033
IN INPUT BLOCK.
584 013014 7650
585 013015 7040
586 013016 1051
587 013017 3073
588
589
590 013020 3067
FLAG
591 013021 3070
FLAG.
592 013022 1057
593 013023 7041
594 013024 3060
POINTS IN DATA BLOCK.
595 013025 1060
DATA BLOCK.
596 013026 3062
597

JMS AVSTOU
TAD READNO
SNA CLA
CMA
TAD
BLKIN
DCA
AVDQBS

/TEST FOR LAST CHAR

DCA

AVDQFG

/SAVE THE BLOCK
/ADDRESS FOR DAQUAN
/REREAD.
/ADDRESS IS FIXED.
/SET DAQUAN CYCLE

DCA

AVDALK

/CLEAR DATA LINK

TAD
CIA
DCA

AVTMP1
AVTMP2

TAD AVTMP2
DCA AVTMP4

/SET COUNT OF #
/SAVE LENGTH OF 1ST

598 013027 1071
599 013030 7041
600 013031 3072
601 013032 1020
TYPE
602 013033 1373
603 013034 7650
604 013035 5772
605 013036 4775
606 013037 7776
607 013040 7402
608
SINGLE
609 013041 1371
THE HIGH ORDER
610 013042 4770
DESIRED.
611
612 013043 1036
613 013044 4774
614 013045 2072
615 013046 5250
616 013047 5267
617 013050 4775
LIMITS
618 013051 7776
TYPE
619 013052 7402
620 013053 1036
621 013054 4774
622 013055 2072
TREND
623 013056 5260
624 013057 5267
625 013060 4775
626 013061 7777
627 013062 7402
628 013063 1367
CONVERT TYPE FOR
629 013064 4770
630 013065 1036
631 013066 4774
632 013067 2060
633 013070 5227
634 013071 4775
635 013072 7777
636 013073 7402
637 013074 1036

AV7,

TAD
CIA
DCA
TAD

AVDATY

/GET DATA TYPE

AVDTYV
OUTTYP

/TEST FOR OUTPUT

TAD
(-5
SNA CLA
JMP
AVDQA
JMS
CREAD
-2
HLT
TAD

(AVCOD1-1

JMS

SETCON

TAD
JMS
ISZ
JMP
JMP
JMS

CONINP
AVSTOU
AVDTYV
.+2
AV6
CREAD

-2
HLT
TAD
JMS
ISZ

AV6,

/STANDARD OUTPUT
/READ AVERAGE VALUE
/NOTE IF OUTPUT IS
/PRECISION
/WILL BE TAKEN AS
/SET CONVRT TYPE
/TEST DATA TYPE
/READ CONFIDENCE
/HAS SAME CONVERT

CONINP
AVSTOU
AVDTYV

/TEST DATA TYPE FOR

JMP
JMP
JMS
-1
HLT
TAD

.+2
AV6
CREAD

JMS
TAD
JMS
ISZ
JMP
JMS
-1
HLT
TAD

SETCON
CONINP
AVSTOU
AVTMP2
AV7
CREAD

/SINGLE INPUT

CONINP

/TEST LINK BLOCK

(HICOD-1

/SET

/READ LINK WORD

638 013075
639 013076
BLOCKS
640 013077
CYCLE.
641 013100
642 013101
643 013102
644 013103
IN
645 013104
AND
646 013105
COUNT.
647
648 013106
649 013107
650 013110
651 013111
652 013112
653 013113
654 013114
655 013115
656 013116
657 013117
658

7650
5320

SNA CLA
JMP
AV8

/NO MORE LINK

1067

TAD

AVDQFG

/TEST FOR DAQUAN

7640
5306
1036
7041

SZA CLA
JMP
AV12
TAD
CONINP
CIA

/SAVE # OF POINTS

1057

TAD

AVTMP1

/LINK DATA BLOCK

3057

DCA

AVTMP1

/ADD TO TOTAL

1036
3060
7001
3070
1033
7650
5227
3033
2051
5227

AV12,

TAD
CONINP
DCA
AVTMP2
IAC
DCA
AVDALK
TAD
READNO
SNA CLA
JMP
AV7
DCA
READNO
ISZ
BLKIN
JMP
AV7

/SET COUNT FOR THIS
/DATA BLOCK.
/SET DATA LINK FLAG
/SET TO READ NEXT
/BLOCK

659 013120
660 013121
661 013122
662 013123
663 013124
IF
664
THEN
665 013125
666 013126
667 013127
668 013130
669 013131
670 013132
GET
671 013133
POINT
672 013134
673
674 013135
LIMIT
675 013136
676 013137
SWEEPS
677 013140
678 013141
679 013142
BLOCK.
680 013143
681 013144
682
683 013166
013167
013170
013171
013172
013173
013174
013175
013176
013177
684 013200
685 013201
686 013202
687 013203
688 013204
689 013205
690 013206

1020
1373
7640
5766
2067

AV8,

TAD
OUTTYP
TAD
(-5
SZA CLA
JMP
AV10
ISZ
AVDQFG

/TEST FOR DAQUAN
/NOT DAQUAN OUTPUT.
/TEST CYCLE FLAG,
/NEW VALUE=TYPE

1067
7041
1071
7650
5766
1073

TAD
AVDQFG
CIA
TAD
AVDATY
SNA CLA
JMP
AV10
TAD
AVDQBS

/DONE

3051

DCA

BLKIN

/NEXT DATA FROM A

3033

DCA

READNO

7001

IAC

/SET TO READ FROM
/BEGINNING OF BLOCK
/NEGATE FILE SIZE

3032
4775

DCA
JMS

7777
7402
1062

-1
HLT
TAD AVTMP4

3060
5227

DCA AVTMP2
JMP
AV7

3235
6520
3746
3541
3200
7773
3451
4104
3515
7774
7001
3035
4777
7776
7402
1067
7650

FILESZ
CREAD

/REREAD BLOCK TO

/THIS READS # OF

/SET COUNT OF 1ST DATA

PAGE

AVDQA,

IAC
DCA
CONVTY
JMS
CREAD
-2
HLT
TAD
AVDQFG
SNA CLA
24

/SET CONVERT TYPE
/READ AVG VALUE
/TEST CYCLE FLAG
/TO CONVERT.

691 013207
692 013210
DATA POINT
693 013211
694 013212
695 013213
LIM
696 013214
697 013215
698 013216
699 013217
LIM.
700 013220
701 013221
702 013222
DATA POINT
703 013223
704 013224
705 013225
706 013226
707 013227
708 013230
TREND
709 013231
710 013232
711 013233
712 013234
713 013235
714 013236
715 013237
716 013240
717 013241
718 013242
ADD
719 013243
720 013244
721 013245
722 013246
723 013247
724

4776
2072

JMS
ISZ

CONVRT
AVDTYV

/TEST FOR END OF

5213
5775
4777

JMP
JMP
JMS

.+2
AV6
CREAD

/READ CONFIDENCE

7776
7402
7040
1067

-2
HLT
CMA
TAD

AVDQFG

/TEST TO WRITE CON.

7650
4776
2072

SNA CLA
JMS
CONVRT
ISZ
AVDTYV

5225
5775
4777
7777
7402
1374

JMP
JMP
JMS
-1
HLT
TAD

1067
7650
4776
5775
1070
7650
5773
3060
1063
7041

TAD
AVDQFG
SNA CLA
JMS
CONVRT
JMP
AV6
TAD
AVDALK
SNA CLA
JMP
AV13
DCA
AVTMP2
TAD
AVBACT
CIA

1052
7650
5260
1063
3254

AV10,

/TEST FOR END OF

.+2
AV6
CREAD

/READ TREND

(-2

/TEST TO WRITE

TAD
BLKOUT
SNA CLA
JMP
AV14
TAD
AVBACT
DCA
AV15

/TEST IF THERE WAS
/A LINK BLOCK
/YES, TEST IF BLOCK
/WITH # OF POINTS
/IS STILL IN CORE
/YES
/NO READ BLOCK IN

725 013250 6202
726 013251 4431
727 013252 0200
728 013253 6200
729 013254 0000 AV15,
730 013255 5772
731 013256 1371
FROM
732 013257 3060
733 013260 1064 AV14,
UPDATED
734 013261 1060
735 013262 3061
736
737
ACTUAL NUMBER
738
OUTPUT FILE
739
IT GOES
740
741 013263 1020
FORTRAN 2
742 013264 1370
743 013265 7650
744 013266 5317
745 013267 1057
746 013270 3036
AVERAGE TO BE CONVERTED.
747 013271 1020
748 013272 7041
749 013273 3047
750 013274 2047
751 013275 5302
752 013276 4767
753 013277 4766
754 013300 1365
755 013301 5764
756 013302 2047 AV26,
757 013303 5310
758 013304 4767
759 013305 4766
760 013306 4763
761 013307 5762
762 013310 2047 AV27,
763 013311 5315
764 013312 4767
765 013313 7344

CIF
JMS I
0200
BUFIN
0
JMP
TAD

0
ENTRYO

ERRRW
(400

/SET TO ADJUST LOC

DCA AVTMP2
TAD AVLACT

/BUFOUT TO BUFIN.
/ADJUST ADD OF NUMBER TO BE

TAD AVTMP2
DCA AVTMP3

/W.R.T. BUF. ADD.
/THIS PART WILL STORE THE
/OF DATA POINTS IN THE
/SINCE THE BLOCK IN WHICH

OUTTYP

/PROBABLY HAS BEEN WRITTEN.
/TEST FOR SINGLE

TAD
(-6
SNA CLA
JMP
AV17
TAD
AVTMP1
DCA CONINP

/SET # OF POINTS IN

TAD

TAD OUTTYP
CIA
DCA TEMP2
ISZ TEMP2
JMP AV26
JMS SDSUB
JMS DF4SUB
TAD (-3
JMP AV25
ISZ TEMP2
JMP AV27
JMS SDSUB
JMS DF4SUB
JMS F4F2SU
JMP AV29
ISZ TEMP2
JMP AV28
JMS SDSUB
SETM2
26

/SET OUTPUT TYPE.
/TEST FOR SF4
/CONVERT TO F4
/TEST FOR SF2
/CONVERT TO F2 FLOATING.

/TEST FOR SD

766 013314
767 013315
768 013316
769 013317

5764
7040
5764
1361

AV28,

JMP AV25
CMA
JMP AV25

AV17, TAD
770 013320
771 013321
772 013322
773 013323
774 013324
775 013325
776
777 013326
778 013327
779 013330
780 013331
781 013332
782 013333
783 013334
784
785 013335
WORD
786 013336
PACKET
787 013337
788 013340
IN AVERAGE
789 013341
790 013342
791
792 013355
013356
013357
013360
013361
013362
013363
013364
013365
013366
013367
013370
013371
013372
013373
013374
013375
013376
013377
793 013400
ASCII
794 013401
795 013402

(-4
3046
1360
3012
7040
1061
3013
6201
1413
6211
3412
2046
5326
4757

/GET 4 WORD PACKED
DCA
TEMP1
TAD
(CONINP-1
DCA
12
CMA
TAD AVTMP3
DCA
13
AV18,

CDF 0
TAD I 13
CDF 10
DCA I
12
ISZ
TEMP1
JMP
AV18
JMS
UNPACK

/PACKET OF DATA

1356

TAD

(CONINP

/CONVERT TO 3 WORD
/6 BIT ASCII
/GET POINTER TO

1075

TAD

AVF2SP

/WITHIN 3 WORD

3046
1057

DCA
TAD

TEMP1
AVTMP1

/STORE # OF POINTS

3446
5755

DCA I
TEMP1
JMP AV24

3400
0036
5400
0035
7774
3401
4600
3402
7775
5217
5200
7772
0400
2320
3433
7776
3067
4400
4104
4777

PAGE

AV24,

JMS

PACK32

/REPACK IN 3/2

1376
3046

AV29,
AV25,

TAD
DCA

(-4
TEMP1

/MOVE BACK TO
/BUFFER

796 013403
797 013404
798 013405
799 013406
800 013407
801
802 013410
803 013411
804 013412
805 013413
806 013414
807 013415
808
809 013416
810 013417
811 013420
812 013421
813 013422
814 013423
BACKOUT.
815 013424
816 013425
817 013426
818 013427
819 013430
820

1375
3012
7040
1061
3013

TAD
(CONINP-1
DCA
12
CMA
TAD AVTMP3
DCA
13

1412
6201
3413
6211
2046
5210

AV19,

1063
7041
1052
7650
5233
1063

AV16,

3231
6202
4431
4200
6200

TAD I
CDF 0
DCA I
CDF 10
ISZ
JMP

12
13
TEMP1
AV19

TAD
AVBACT
CIA
TAD
BLKOUT
SNA CLA
JMP
AV13
TAD
AVBACT
DCA
CIF
JMS I
4200
BUFIN

AV20
0
ENTRYO

/TEST IF BUFFER IS
/STILL IN CORE
/YES
/WRITE DATA

821 013431
822 013432
823
824 013433
825 013434
826 013435
827 013436
828 013437
829 013440
830
831 013441
832 013442
833 013443
834 013444
835 013445
836 013446
837 013447
838
839 013450
840
841 013451
842 013452
843 013453
844 013454
845 013455
846 013456
847
PARK
848 013457
849 013460
850
851 013461
852 013462
853
854 013463
DATA
855
856 013464
NEEDS
857 013465
858 013466
859 013467
860 013470
861 013471
862 013472
863
864 013473
865 013474

0000
5774

AV20,

0
JMP

1033
7650
5773
3033
2051
5773

AV13,

TAD
READNO
SNA CLA
JMP
AV21
DCA
READNO
ISZ
BLKIN
JMP
AV21

/SET TO READ THE
/NEXT BLOCK

7240
4251
1313
7650
5250
4263
5241

AV22,

CLA CMA
JMS AVSTOU
TAD
AVF2CT
SNA CLA
JMP
AV23
JMS
AVF2SU
JMP
AV22

/OUTPUT -1 TO END FILE.

5772

AV23,

0000
3036
1020
1371
7640
5261

AVSTOU, 0
DCA
CONINP
TAD
OUTTYP
TAD
(-6
SZA CLA
JMP
AVSTU2

4263
5651

JMS
JMP I

AVF2SU
AVSTOU

/ROUTINE

4770
5651

AVSTU2, JMS
JMP I

CONVRT
AVSTOU

/OUTPUT VALUE

0000

AVF2SU, 0

JMP

ERRRW

FILDON

TAD

7640
5273
1367
3313
1366
3314

SZA CLA
JMP
AVF2S1
TAD
(-3
DCA
AVF2CT
TAD
(AVF2BU
DCA
AVF2BP
AVF2S1, TAD
DCA I

/TEST FOR FORTRAN 2
/SINGLE PRECISION
/CALL FORTRAN 2

/ROUTINE TO HOLD

1313

1036
3714

/OUTPUT ANY PARTIAL
/FORTRAN 2 SINGLE
/PRECISION DATA

AVF2CT

CONINP
AVF2BP
30

/FOR PACKING
/TEST IF BUFFER
/TO BE RESET
/YES

/STORE DATA

866 013475
867 013476
868 013477
869 013500
FOR
870 013501
871 013502
872 013503
873 013504
874 013505
875 013506
876 013507
877
878 013510
879 013511
880 013512
881 013513
882 013514
883

2314
2313
5663
1310

ISZ
ISZ
JMP I
TAD

3036
1311
3037
1312
3040
4770
5663

DCA
CONINP
TAD
AVF2BU+1
DCA
CONINP+1
TAD
AVF2BU+2
DCA
CONINP+2
JMS
CONVRT
JMP I AVF2SU

0000
0000
0000
0000
0000

AVF2BP
AVF2CT
AVF2SU
AVF2BU

AVF2BU, 0
0
0
AVF2CT, 0
AVF2BP, 0

/TEST FOR 3 CHAR.
/STORE CHARACTERS
/CONVERT

884 013515 0000
885 013516 2056
EMPTY
886 013517 5335
887 013520 1054
READ.
888 013521 3326
889 013522 6202
890 013523 4430
891 013524 0200
892 013525 5200
893 013526 0000
894 013527 5774
895 013530 1365
POINTER AND COUNT
896 013531 3055
897 013532 1364
898 013533 3056
899 013534 2054
ADD.
900
901 013535 6201
902 013536 1455
903 013537 6211
904 013540 2055
905 013541 5715
906
907 013542 0010
908 013543 0007
909 013544 0006
910 013545 0001
911 013546 0001
912 013547 0015
913
914
915 013564 7403
013565 5202
013566 3510
013567 7775
013570 4400
013571 7772
013572 2275
013573 2632
013574 2320
013575 0035
013576 7774
013577 5032
916 013600 1377

AVRJLS, 0
ISZ

AVHBBC

/TEST IF HEADER BUF

JMP
TAD

AVRJL2
AVHBKA

/YES STORE BLOCK TO

DCA
CIF
JMS I
0200
BUFJOB
AVRJL1, 0
JMP
TAD
DCA
TAD
DCA
ISZ

AVRJL1
0
ENTRYI

ERRRW
(BUFJOB+2
AVHBBA
(-375
AVHBBC
AVHBKA

/READ BLOCK

/SET

/SET TO NEXT BLOCK

AVRJL2, CDF 0
TAD I AVHBBA
CDF 10
ISZ AVHBBA
JMP I
AVRJLS
AVCOD1, 10
7
6
1
1
15
PAGE

DO,

TAD

(DOCOD-1
32

/SET UP

CONVERT TYPE
917 013601 4346
918 013602 1020
919 013603 1376
OUTPUT
920 013604 7650
921 013605 5215
922
923 013606 4775
PRECISION
924 013607 7776
925 013610 5774
926 013611 4265
927 013612 5774
928 013613 4773
929 013614 5206
930
931 013615 1372
932 013616 3252
933 013617 1371
934 013620 3253
935
936 013621 4775
937 013622 7776
938 013623 5243
939 013624 4265
940 013625 5243
941 013626 1037
942 013627 3653
PRECISION
943 013630 2253
944 013631 2252
945 013632 5221
946 013633 1254
947 013634 3036
948 013635 1255
949 013636 3037
950 013637 1256
951 013640 3040
952 013641 4773
953 013642 5215
954

JMS
TAD
TAD

SETCON
OUTTYP
(-6

/TEST FOR FORTRAN 2
/SINGLE PRECISION

SNA CLA
JMP
DO1
DO2,

JMS

CREAD

/READ A DOUBLE

-2
JMP
FILDON
JMS DOCNO
JMP FILDON
JMS CONVRT
JMP
DO2

/VALUE.

DO1,

TAD
DCA
TAD
DCA

/MUST READ 3 VALUES

DO3,

JMS
CREAD
-2
JMP
DO4
JMS DOCNO
/TEST FOR END OF DATA.
JMP DO4
TAD
CONINP+1
DCA I
DOV2
/SAVE THE SINGLE
ISZ
ISZ
JMP
TAD
DCA
TAD
DCA
TAD
DCA
JMS
JMP

(-3
DOV1
(DOSTR
DOV2

DOV2
DOV1
DO3
DOSTR
CONINP
DOSTR+1
CONINP+1
DOSTR+2
CONINP+2
CONVRT
DO1

/PART OF THE NUMBER
/PUT IN CONVRT
/BUFFER

955 013643
HAD
956 013644
957 013645
958 013646
959 013647
960 013650
VALUE
961 013651
962
963 013652
964 013653
965 013654
966 013655
967 013656
968
969 013657
970 013660
971 013661
972 013662
973 013663
974 013664
975
976 013665
977 013666
978 013667
979 013670
980 013671
981 013672
982 013673
983 013674
984
985 013675
986 013676
987 013677
988 013700
989 013701
990 013702
991 013703
992
993 013704
994
995 013705
SET.
996 013706
997 013707
998 013710
999 013711

1252

DO4,

TAD

DOV1

7041
1372
7650
5774
4773

CIA
TAD
(-3
SNA CLA
JMP
FILDON
JMS
CONVRT

5774

JMP

0000
0000
0000
0000
0000

DOV1,
DOV2,
DOSTR,

0
0
0
0
0

0010
0007
0006
0005
0005
0015

DOCOD,

10
7
6
5
5
15

0000
2101
5273
2100
5273
5665
2265
5665

DOCNO,

1370
4346
4775
7775
5774
4773
5277

F4,

0000

REDSU2, 0

/TEST IF LAST READ
/ANYTHING IN IT.
/NO
/OUTPUT PARTIAL

FILDON

0
/SUB. TO TEST FOR END OF DATA
ISZ CRDGET+1
/FO R SWITCH.
JMP DOCNO1
ISZ CRDGET
JMP DOCNO1
JMP I DOCNO
DOCNO1, ISZ DOCNO
JMP I DOCNO

F4A,

TAD (F4COD-1
JMS SETCON
JMS
CREAD
-3
JMP
FILDON
JMS
CONVRT
JMP
F4A

1104

TAD REDSF

7640
5774
1020
1376

SZA CLA
JMP FILDON
TAD
OUTTYP
TAD
(-6
34

/SET CONVERT TYPE.

/FILE DONE RETURN

/READ 1 OR 3 WORDS
/FROM INPUT FILE.
/TEST IF COUNT FLAG
/DONE IF SO.

1000 013712 7650
1001 013713 1367
FORTRAN
1002 013714 1366
PRECISION.
1003 013715 3317
1004 013716 4775
1005 013717 0000
1006 013720 5340
1007 013721 4265
COUNT
1008 013722 5326
1009 013723 2317
1010 013724 5321
1011 013725 5704
1012
1013 013726 2104
1014 013727 1020
1015 013730 1376
1016 013731 7640
1017 013732 5774
1018 013733 7325
1019 013734 1317
1020 013735 7650
1021 013736 5774
1022 013737 5704
1023 013740 1317
GOTTEN ON READ.
1024 013741 7041
1025 013742 1010
1026 013743 7650
1027 013744 5774
1028 013745 5704
1029
1030 013746 0000
1031 013747 1020
1032 013750 3046
1033 013751 1446
1034 013752 7450
1035 013753 5765
1036 013754 3035
1037 013755 5746
1038
1039

REDS1,
REDS3,

REDS4,

REDS2,

SNA CLA
TAD
(-2

/SET 3 WORD FOR

TAD

/2 SINGLE

(-1

DCA
REDS1
JMS
CREAD
0
JMP
REDS2
JMS DOCNO

/TEST FOR END OF DATA BY

JMP REDS4
ISZ REDS1
JMP REDS3
JMP I
REDSU2

/TEST IF DONE.

ISZ REDSF
TAD OUTTYP
TAD (-6
SZA CLA
JMP FILDON
SET3
TAD REDS1
SNA CLA
JMP FILDON
JMP I REDSU2
TAD
REDS1

/SET COUNT DONE FLAG.
/TEST FOR FS OUTPUT.
/DONE IF NOT.
/TEST FOR PARTIAL DATA.
/NO MORE DATA TO OUTPUT.
/PARTIAL FS DATA TO OUTPUT.
/TEST IF ANY CHAR.

CIA
TAD
10
SNA CLA
JMP
FILDON
JMP I
REDSU2
SETCON, 0
TAD
DCA
TAD I
SNA
JMP
DCA
JMP I

OUTTYP
TEMP1
TEMP1
COMERR
CONVTY
SETCON

/SETUP CONVRT TYPE

1040 013765 2317
013766 7777
013767 7776
013770 6526
013771 3654
013772 7775
013773 4400
013774 2275
013775 4104
013776 7772
013777 3656
1041 014000 0000
IN THE
1042
WRITE
1043
1044 014001 1600
1045 014002 7510
1046 014003 5207
1047 014004 7240
1048 014005 3010
1049 014006 5236
1050 014007 3010
1051 014010 1377
1052 014011 3011
1053 014012 1053
1054 014013 7650
1055 014014 5776
1056 014015 1034
BUFFER NEEDS
1057 014016 7640
1058 014017 5225
1059
1060 014020 1375
1061 014021 3065
1062 014022 1044
1063 014023 7041
1064 014024 3034
1065 014025 1411
OUTPUT BUFFER.
1066 014026 6201
1067 014027 3465
1068 014030 6211
1069 014031 1065
1070 014032 3066
ROUTINE
1071 014033 2065
1072 014034 2034

PAGE

FILOUT, 0

/ROUTINE TO STORE
/OUTPUT BUFFER AND

FIL9,
FIL2,

FIL1,

/THE DATA.
TAD I
FILOUT
SPA
/TEST FOR FILE CLOSE.
JMP FIL9
CLA CMA
DCA 10
JMP FIL8
DCA 10
TAD
(CONINP-1
DCA
11
TAD FILOSZ
SNA CLA
JMP
NOROOM
/FILE IS FULL.
TAD
WRITNO
/TEST IF OUTPUT
SZA CLA
JMP
FIL1

/TO BE RESET.

TAD
DCA
TAD
CIA
DCA
TAD I

/SET BUFFER START.

CDF 0
DCA I
CDF 10
TAD
DCA
ISZ
ISZ

(BUFOUT
FIOBUF
BLKOSZ
WRITNO
11

/SET BUFFER SIZE
/STORE DATA IN

FIOBUF
FIOBUF
FIOBFS

/SAVE LAST LOCATION
/WRITTEN FOR AV

FIOBUF
WRITNO

/TEST IF BUFFER

FULL
1073 014035
1074 014036
1075 014037
1076 014040
FLOATING.
1077 014041
1078 014042
1079 014043
1080 014044
1081 014045
1082 014046
1083 014047
1084 014050
1085
1086 014051
1087 014052
1088 014053
1089 014054
1090 014055
1091 014056
1092 014057
1093

5274
7344
1020
7450
5245
1374
7640
5260
1373
3012
1374
3013
1412
6201
3465
6211
2065
2013
5251

FIL8,

FIL7,

FIL5,

JMP
SETM2
TAD
SNA

FIL3
OUTTYP

JMP FIL7
TAD (-4
SZA CLA
JMP
FIL4
TAD
(AVF2EN-1
DCA
12
TAD
(-4
DCA
13
TAD I
CDF 0
DCA I
CDF 10
ISZ
ISZ
JMP

12
FIOBUF
FIOBUF
13
FIL5

/TEST FOR FORTRAN 2
/SINGLE OR

/MOVE BLOCK
/ENDING TO BLOCK

1094 014060 1052 FIL4,
TAD
BLKOUT
/SET ADD OF BLOCK
TO WRITE TO.
1095 014061 3266
DCA
FILADD
1096 014062 6202
CIF
0
/WRITE DATA.
1097 014063 4431
JMS I
ENTRYO
1098 014064 4200
4200
1099 014065 5600
BUFOUT
/BUFFER AT BUFOUT
OF FIELD 0.
1100 014066 0000 FILADD, 0
1101 014067 5772
JMP
ERRRW
1102 014070 2053
ISZ
FILOSZ
/TEST FOR FILE FULL
1103 014071 7200
CLA
1104 014072 2052
ISZ
BLKOUT
/SET NEXT BLOCK TO
WRITE
1105
1106 014073 7200
CLA
1107 014074 2010 FIL3,
ISZ
10
/TEST IF DONE
1108 014075 5212
JMP
FIL2
1109 014076 2200
ISZ
FILOUT
1110 014077 5600
JMP I
FILOUT
1111 014100 6300 AVF2EN, 6300
/F2 FLOATING OUTPUT IS
63A6, 2A2, CR. LF.
1112 014101 0300
0300
/F2 SINGLE OUTPUT IS
189A2,2A2,CR.LF.
1113 014102 4300
4300
/2A2 PART IS DUMMY OUTPUT.
1114 014103 5215
5215
1115
1116 014104 0000 CREAD, 0
/READS FROM THE
INPUT FILE
1117 014105 1704
TAD I
CREAD
1118 014106 3010
DCA
10
1119 014107 1377
TAD
(CONINP-1
1120 014110 3011
DCA
11
1121 014111 2304
ISZ
CREAD
1122 014112 1032 CR5,
TAD
FILESZ
/TEST IF FILE DONE
1123 014113 7650
SNA CLA
1124 014114 5704
JMP I
CREAD
1125 014115 1033
TAD
READNO
/TEST IF ANY
CHARACTERS IN BUFFER
1126 014116 7640
SZA CLA
1127 014117 5335
JMP
CR1
1128 014120 1051 CR3,
TAD
BLKIN
1129 014121 3326
DCA
CRBLK
/STORE BLOCK TO
READ.
1130 014122 6202
CIF
0
/READ THE NEXT
BLOCK
1131 014123 4430
JMS I
ENTRYI
1132 014124 0200
0200
/READ 2 RECORDS
38

INTO FIELD 0
1133

1134 014125
1135 014126
1136 014127
1137 014130
1138 014131
1139 014132
1140 014133
POINTER.
1141 014134
1142
1143 014135
1144 014136
1145 014137
1146 014140
1147 014141
1148 014142
EMPTY
1149 014143
1150 014144
BLOCK ADD.
1151 014145
1152 014146
BLOCK
1153 014147
1154
1155 014150
GOTTON
1156 014151
1157 014152
1158 014153
1159
1160 014154
1161

6200
0000
5772
1045
7041
3033
1371

CRBUFP, BUFIN
CRBLK, 0
JMP
TAD
CIA
DCA
TAD

3354
6201
1754
6211
3411
2354
2033

DCA
CR1,

CR2,

/AT BUFIN
ERRRW
BLKISZ

/SET BLOCK SIZE

READNO
(BUFIN

/SET BUFFER

CRBUF

CDF 0
TAD I CRBUF
CDF 10
DCA I
11
ISZ
CRBUF
ISZ
READNO

/GET VALUE

/TEST IF BUFFER

5350
2051

JMP
ISZ

CR4
BLKIN

/YES, INCREMENT

7200
2032

CLA
ISZ

FILESZ

/TEST FOR LAST

7200

CLA
ISZ

/TEST IF ALL WORDS

JMP
ISZ
JMP I

CR5
CREAD
CREAD

/YES NORMAL EXIT

2010

CR4,

5312
2304
5704
0000

CRBUF,

1162 014171 6200
014172 2320
014173 4077
014174 7774
014175 5600
014176 2321
014177 0035
1163
1164 014200 0000
FORTRAN
1165
1166
PACKED 6 ASCII
1167 014201 1600
1168 014202 3336
1169 014203 1377
RETURN WORDS.
1170 014204 3335
1171 014205 7040
1172 014206 3341
1173
1174 014207 1337
1175 014210 7640
1176 014211 5255
1177 014212 4776
DATA.
1178 014213 7774
1179 014214 5330
1180 014215 1375
1181 014216 3340
1182 014217 1374
1183 014220 3011
1184 014221 7344
1185 014222 3012
1186
1187 014223 1740
1188 014224 0373
1189 014225 3411
1190 014226 1740
1191 014227 0372
1192 014230 7112
1193 014231 7012
1194 014232 3046
1195 014233 2340
1196 014234 1740
1197 014235 0373
1198 014236 3411
1199 014237 1740

PAGE

UNPK32, 0

/UNPACKS 3/2 ASCII FROM
/2 AND STORES DATA AS ASCII
/THEN CHANGES IT INTO

UNP7,

TAD I UNPK32
DCA UNPCT
TAD (UNPBF2

/SAVE # OF WORDS WANTED.
/SET STORAGE BUF. FOR

DCA UNPT3
CMA
DCA UNPT4

/SET 6 BIT ASCII PACK FLAG.

TAD UNPT1
SZA CLA
JMP UNP2
JMS CREAD
-4
JMP UNP6
TAD (CONINP
DCA UNPT2
TAD (UNPBUF-1
DCA 11
SETM2
DCA 12

UNP1,

TAD I UNPT2
AND (377
DCA I 11
TAD I UNPT2
AND (7400
CLL RTR
RTR
DCA TEMP1
ISZ UNPT2
TAD I UNPT2
AND (377
DCA I 11
TAD I UNPT2
41

/TEST TO READ MORE DATA.
/READ 4 WORDS OF 3/2 PACKED
/END OF INPUT FILE.

/UNPACK INPUT INTO ASCII.

/SAVE TOP 4 BITS.
/GET 2ND WORD.
/STORE NEXT 8 BIT ASCII.

1200 014240
1201 014241
1202 014242
1203 014243
1204 014244
1205 014245
1206 014246
1207
1208 014247
1209 014250
1210 014251
1211 014252
1212 014253
1213 014254
ASCII.
1214
1215 014255
1216 014256
1217 014257
1218 014260
1219 014261
1220 014262
1221 014263
1222 014264
1223 014265
1224 014266
1225
1226
1227 014267
1228 014270
1229 014271
1230 014272
1231 014273
1232 014274
1233 014275
1234 014276
1235 014277
1236
1237 014300
1238 014301
1239 014302
1240 014303
1241 014304
1242
1243 014305
1244 014306
1245
1246 014307
1247 014310

0372
7106
7006
7004
1046
3411
2340

AND (7400
CLL RTL
RTL
RAL
TAD TEMP1
DCA I 11
ISZ UNPT2

2012
5223
1371
3337
1370
3340

ISZ 12
JMP UNP1
TAD (-6
DCA UNPT1
TAD (UNPBUF
DCA UNPT2

/TEST TO DO 2ND 2 WORDS.

TAD I UNPT2
TAD (-215
SNA
JMP UNP4
TAD (215-212
SNA
JMP UNP4
TAD (212-232
SNA CLA
JMP UNP6

/TEST FOR CR. LF. ^Z

TAD I UNPT2
AND (77
ISZ UNPT4
JMP UNP8
CLL RTL
RTL
RTL
DCA I UNPT3
JMP UNP4

/COMBINE 2 8 BIT ASCII
/INTO 1 WORD 6 BIT PACKED.

1740
1367
7450
5307
1366
7450
5307
1365
7650
5330

UNP2,

1740
0364
2341
5300
7106
7006
7006
3735
5307
1735
3735
2335
7040
3341

UNP8,

2336
7200
2340
2337

/SET COUNTERS TO USE 8 BIT

/END OF FILE.

TAD I UNPT3
DCA I UNPT3
ISZ UNPT3
CMA
DCA UNPT4
ISZ UNPCT
CLA

UNP4,

/STORE NEXT 8 BIT ASCII.
/POINT TO NEXT INPUT WORD.

ISZ UNPT2
ISZ UNPT1
42

/TEST REQUIRED COUNT

/TEST TO READ MORE DATA.

1248 014311
1249
1250 014312
1251 014313
1252 014314
1253
1254 014315
BUF.
1255 014316
1256 014317
1257 014320
1258 014321
1259 014322
1260 014323
1261 014324
1262 014325
1263 014326
1264
1265 014327
1266 014330
1267 014331
1268
1269 014332
1270 014333
1271 014334
1272 014335
1273 014336
1274 014337
1275 014340
1276 014341
1277 014342
1278 014343
1279 014344
1280 014345
1281 014346
1282 014347
1283

7200

CLA

1336
7640
5207

TAD UNPCT
SZA CLA
JMP UNP7

/TEST IF DONE

1600

TAD I UNPK32

/MORE OUTPUT DATA TO CONINP

3336
1363
3011
1362
3012
1411
3412
2336
5323

DCA UNPCT
TAD (UNPBF2-1
DCA 11
TAD (CONINP-1
DCA 12
TAD I 11
DCA I 12
ISZ UNPCT
JMP UNP5

UNP5,

2200
2200
5600

UNP6,

ISZ UNPK32
ISZ UNPK32
JMP I UNPK32

0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000

UNPBF2, 0
0
0
UNPT3, 0
UNPCT, 0
UNPT1, 0
UNPT2, 0
UNPT4, 0
UNPBUF, 0
0
0
0
0
0

/END OF FILE EXIT.

1284 014362 0035
014363 4331
014364 0077
014365 7760
014366 0003
014367 7563
014370 4342
014371 7772
014372 7400
014373 0377
014374 4341
014375 0036
014376 4104
014377 4332
1285 014400 0000
1286 014401 1035
ROUTINE
1287 014402 1205
1288 014403 3204
1289 014404 0000
1290 014405 5605
1291 014406 4425
1292 014407 4430
1293 014410 4434
1294 014411 4442
1295 014412 4447
1296 014413 4431
1297 014414 4435
1298 014415 4443
1299 014416 4451
1300 014417 4455
1301 014420 4460
1302 014421 4436
1303 014422 4462
1304 014423 4466
1305 014424 4470
1306 014425 4777
PUT IN CONINP
1307 014426 7777
PUT IN CONINP
1308 014427 5600
1309 014430 4776
1310
IN FIRST
1311
1312 014431 4777
1313 014432 7776
1314 014433 5600

PAGE

CONVRT, 0
TAD
TAD
DCA
0
CONJPL, JMP I
SS
SD
SF2
SF4
DS
DD
DF2
DF4
F2S
F2D
F2F4
F4F2
SF2S
F4S
F4D
SS,
JMS

CONVTY
CONJPL
.+1
.

FILOUT

-1
SD,

DD,

/JUMP TO CONVERT

/CONVTY=1
/=2
/=3
/=4
/=5
/=6
/=7
/=10
/=11
/=12
/=13
/=14
/=15
/=16
/=17
/SINGLE INPUT IS
/DOUBLE INPUT IS

JMP I
JMS

CONVRT
SDSUB

JMS
-2
JMP I

FILOUT
CONVRT
44

/AND CONINP+1.
/FLOATING IS INPUT
/3 LOCATIONS.

1315 014434
1316 014435
1317 014436
1318 014437
1319 014440
1320 014441
1321 014442
1322 014443
1323 014444
1324 014445
1325 014446
1326 014447
1327 014450
1328 014451
1329 014452
1330 014453
1331 014454
1332
1333 014455
1334 014456
1335 014457
1336
1337 014460
1338 014461
1339
1340 014462
1341 014463
1342 014464
1343 014465
1344
1345 014466
1346 014467
1347 014470
1348 014471
1349

4776
4775
4774
4777
7774
5600
4776
4775
4777
7775
5600
4773
5225
4772
4771
4773
5225

SF2,
DF2,
F4F2,

JMS
JMS
JMS
JMS
-4
JMP I
JMS
JMS
JMS
-3
JMP I
JMS
JMP
JMS
JMS
JMS
JMP

SDSUB
DF4SUB
F4F2SU
FILOUT

4772
4771
5231

F2D,

JMS
JMS
JMP

F2F4SU
F4DSU
DD

4772
5244

F2F4,

JMS
JMP

F2F4SU
F3OUT

4770
4777
7774
5600

SF2S,

JMS
JMS
-4
JMP I

PACK32
FILOUT

4771
5247
4771
5231

F4S,

SF4,
DF4,
F3OUT,
DS,
F2S,

F4D,

CONVRT
SDSUB
DF4SUB
FILOUT
CONVRT
DSSUB
SS
F2F4SU
F4DSU
DSSUB
SS

CONVRT

JMS F4DSU
JMP DS
JMS F4DSU
JMP DD

/PACK INTO PS-8 3/2

1350 014472 0000
MANTISSA OF F4 #.
1351 014473 7300
1352 014474 1040
1353 014475 7041
1354 014476 3040
1355 014477 1037
1356 014500 7040
1357 014501 3037
1358 014502 7430
1359 014503 2037
1360 014504 5672
1361

F4COM,

/SUBROUTINE TO NEGATE

CLA CLL
TAD CONINP+2
CIA
DCA CONINP+2
TAD CONINP+1
CMA
DCA CONINP+1
SZL
ISZ CONINP+1
JMP I F4COM

1362 014570 5032
014571 5000
014572 5275
014573 5213
014574 4600
014575 5217
014576 5200
014577 4000
1363 014600 0000
AND
1364
PACKED ASCII
1365 014601 3046
1366 014602 1037
1367 014603 7700
1368 014604 5210
1369 014605 4777
1370 014606 1376
1371 014607 3046
1372 014610 1036
OVERFLOW
1373 014611 7510
1374 014612 5220
1375 014613 0375
1376 014614 7650
1377 014615 5226
1378 014616 1374
1379 014617 5227
1380
1381 014620 1373
1382 014621 7710
1383 014622 5230
VALUE.
1384 014623 1036
VALUE.
1385 014624 0374
1386 014625 5230
1387
1388 014626 1036
1389 014627 1373
FORTRAN 2
1390 014630 3047
1391
1392 014631 3036
1393
1394 014632 1037
1395 014633 7640
1396 014634 5240

PAGE

F4F2SU, 0

/CONVERT F4 TO F2
/STORE IN PS-8

F42U8,

DCA TEMP1
TAD
CONINP+1
SMA CLA
/TEST FOR NEG VALUE.
JMP F42U8
JMS F4COM
TAD
(4000
DCA
TEMP1
/SAVE SIGN
TAD
CONINP
/TEST EXPONENT FOR
SPA
JMP
F42U1
AND
(7600
SNA CLA
JMP
F42U5
TAD
(177
JMP
F42U2

F42U1,

/NEGATIVE

/SET TO MAX VALUE

TAD
(200
SPA CLA
JMP
F42U3

/SET TO MAX NEG

TAD

CONINP

/GET NEGATIVE

AND
JMP

(177
F42U3

F42U5,
F42U2,

TAD
TAD

CONINP
(200

/ADD 200 FOR

F42U3,

DCA

TEMP2

/SAVE EXPONENT

DCA

CONINP

/CLEAR EXPONENT

TAD
CONINP+1
SZA CLA
JMP
F42U6
47

/USE FOR 0 MANTISSA

1397 014635
1398 014636
1399 014637
1400 014640
1401 014641
1402
1403 014642
PLACES
1404 014643
1405 014644
1406 014645
1407 014646
1408 014647
1409 014650
1410 014651
1411 014652
1412 014653
1413 014654
1414 014655
EXPONENT.
1415 014656
1416 014657
1417 014660
1418 014661
1419 014662
1420 014663
1421 014664
1422

1040
7650
5262
1372
3050
1040

F42U6,
F42U4,

TAD
CONINP+2
SNA CLA
JMP
F42U7
TAD
(-4
DCA
TEMP3

/SET EXPONENT=0

TAD

/ROTATE BITS 4

CONINP+2

7104
3040
1037
7004
3037
1036
7004
3036
2050
5242
1047

CLL RAL
DCA
CONINP+2
TAD
CONINP+1
RAL
DCA
CONINP+1
TAD
CONINP
RAL
DCA
CONINP
ISZ
TEMP3
JMP
F42U4
TAD
TEMP2

7106
7004
1046
1036
3036
4771
5600

CLL RTL
RAL
TAD
TEMP1
TAD
CONINP
DCA
CONINP
JMS
PACK32
JMP I
F4F2SU

F42U7,

/STORE SIGN, AND

1423 014665
1424
PACKED
1425 014666
WORDS
1426 014667
1427 014670
1428 014671
1429 014672
1430 014673
1431 014674
1432 014675
1433 014676
1434 014677
1435
BIT VALUE
1436 014700
1437
1438 014701
ASCII TO
1439 014702
1440 014703
1441 014704
1442 014705
1443 014706
1444

0000

F42SB1, 0

/CONVERT A WORD OF

1046

TAD

TEMP1

/6 BIT ASCII TO 2

0370
4301
3047
1046
7012
7012
7012
0370
4301

AND
JMS
DCA
TAD
RTR
RTR
RTR
AND
JMS

(77
F42SB2
TEMP2
TEMP1

/OF ASCII

5665

JMP I

F42SB1

0000
1367
7510
1366
1365
5701

(77
F42SB2

F42SB2, 0
TAD
SPA
TAD
TAD
JMP I

/RETURN WITH LEFT 6
/IN AC.
/CONVERT STRIPPED

(-40
(100
(240
F42SB2

/ASCII

1445 014765 0240
014766 0100
014767 7740
014770 0077
014771 5032
014772 7774
014773 0200
014774 0177
014775 7600
014776 4000
014777 4472
1446 015000 0000
CONVERT FORTRAN
1447 015001 7300
PRECISION
1448 015002 3046
1449 015003 1037
NUMBER.
1450 015004 7700
1451 015005 5207
1452 015006 2046
1453
1454 015007 1036
FIXED POINT.
1455 015010 1377
1456 015011 3036
1457
1458 015012 1046
1459 015013 7010
1460 015014 7200
1461 015015 1037
1462 015016 7010
1463 015017 3037
1464 015020 1040
1465 015021 7010
1466 015022 3040
1467 015023 2036
1468 015024 5212
1469
1470 015025 1037
PRECISION WORDS
1471 015026 3036
1472 015027 1040
1473 015030 3037
1474
1475 015031 5600
1476

PAGE

F4DSU,

/SUBROUTINE TO

CLA CLL

/4 TO DOUBLE

DCA TEMP1
TAD
CONINP+1

/TEST FOR NEGATIVE

SMA CLA
JMP
F4DSU1
ISZ TEMP1
F4DSU1, TAD

CONINP

TAD
DCA

(-27
CONINP

/ROTATE BITS TO

F4DSU2, TAD TEMP1
/CARRY SIGN FOR NEG #S.
RAR
CLA
TAD CONINP+1
RAR
DCA
CONINP+1
TAD
CONINP+2
RAR
DCA
CONINP+2
ISZ
CONINP
JMP
F4DSU2
TAD

CONINP+1

DCA
TAD
DCA

CONINP
CONINP+2
CONINP+1

JMP I

F4DSU

/STORE IN DOUBLE

1477 015032
1478 015033
FLOATING TO
1479 015034
1480 015035
1481 015036
OF PACKED
1482 015037
1483 015040
OF
1484 015041
1485 015042
1486 015043
1487 015044
1488 015045
1489
1490 015046
1491 015047
1492 015050
1493 015051
1494 015052
1495 015053
1496 015054
1497 015055
1498 015056
1499 015057
1500 015060
DONE.
1501 015061
1502 015062
1503 015063
1504 015064
1505 015065
1506 015066
1507 015067
1508 015070
1509 015071
1510 015072
1511 015073
1512 015074
1513 015075
1514 015076
1515 015077
1516 015100
1517 015101
1518 015102
1519 015103
1520

0000
1036

PACK32, 0
TAD

CONINP

/CONVERT F2

3046
4776
3036

DCA
JMS
DCA

TEMP1
F42SB1
CONINP

/PS-8 ASCII FORMAT.

1037
3046

TAD
DCA

CONINP+1
TEMP1

/6 BIT ASCII AND
/CONVERT TO 4 WORDS

1047
3037
4776
7106
7006

TAD
TEMP2
DCA
CONINP+1
JMS F42SB1
CLL RTL
RTL

/PS-8 3/2 PACKING.

3046
1046
0375
1036
3036
1046
7106
7006
0375
1037
3037

DCA
TEMP1
TAD
TEMP1
AND
(7400
TAD
CONINP
DCA
CONINP
TAD
TEMP1
CLL RTL
RTL
AND
(7400
TAD
CONINP+1
DCA
CONINP+1

1040
3046
1047
3040
4776
3041
1047
7106
7006
0375
1040
3040
1047
7112
7012
7010
0375
1041
3041

TAD
CONINP+2
DCA
TEMP1
TAD
TEMP2
DCA
CONINP+2
JMS
F42SB1
DCA
CONINP+3
TAD
TEMP2
CLL RTL
RTL
AND
(7400
TAD
CONINP+2
DCA
CONINP+2
TAD
TEMP2
CLL RTR
RTR
RAR
AND
(7400
TAD
CONINP+3
DCA
CONINP+3
51

/MUST TAKE 3 WORDS

/OUTPUT WORDS 1 & 2
/DO 2ND 2 WORDS

1521 015104
1522

5632

JMP I

PACK32

/EXIT

1523 015175
015176
015177
1524 015200
DOUBLE
1525 015201
1526 015202
1527 015203
0-4095.
1528 015204
1529 015205
1530 015206
1531 015207
1532 015210
1533 015211
1534 015212
1535
1536 015213
SINGLE
1537 015214
1538 015215
1539 015216
1540
1541 015217
F4.
1542
1543 015220
1544 015221
1545 015222
1546 015223
1547 015224
1548 015225
1549 015226
1550 015227
1551 015230
1552 015231
1553 015232
1554 015233
1555 015234
1556 015235
1557 015236
1558 015237
DOWN.
1559 015240
1560 015241
1561 015242
1562 015243
1563 015244

7400
4665
7751
0000

PAGE
SDSUB,

/CONVERT SINGLE TO

1036
3037
1076

TAD
CONINP
DCA
CONINP+1
TAD SIDOFG
/TEST IF 12 BIT WORD IS POS

7640
5211
1036
7710
7040
3036
5600

SZA CLA
JMP SDSU1
TAD CONINP
SPA CLA
CMA
DCA
CONINP
JMP I
SDSUB

0000

SDSU1,
DSSUB,

1037
3036
5613
0000
3047
1036
7500
5235
7040
3036
2047
7100
1037
7041
3037
7430
2036
7300
1037
7440
5246
1036
7640
5246
3040

/TEST FOR NEG.

0
TAD
DCA
JMP I

/CONVERT DOUBLE TO
CONINP+1
CONINP
DSSUB

DF4SUB, 0

DF4S1,

/CONVERT DOUBLE TO

DCA
TEMP2
TAD
CONINP
/TO RIGHT.
SMA
/TEST FOR NEGATIVE.
JMP
DF4S1
CMA
/SET POSITIVE
DCA
CONINP
ISZ TEMP2
/SET NEG # FLAG.
CLL
TAD
CONINP+1
CIA
DCA CONINP+1
SZL
ISZ
CONINP
CLL CLA
TAD CONINP+1
/CHECK FOR 0 VALUE,AND
SZA
/MOVE MANTISSA
JMP
DF4S2
TAD
CONINP
SZA CLA
JMP
DF4S2
DCA
CONINP+2
53

1564 015245
1565 015246
1566 015247
1567 015250
1568 015251
1569 015252
1570 015253
POINT AND
1571 015254
1572 015255
1573 015256
SET
1574 015257
1575 015260
1576 015261
1577 015262
1578 015263
1579 015264
1580 015265
1581 015266
1582 015267
1583 015270
1584
1585 015271
1586 015272
1587 015273
1588
1589 015274
1590

5617
3040
1036
3037
1377
3036
1037

DF4S2,

DF4S3,

JMP I
DCA
TAD
DCA
TAD
DCA
TAD

DF4SUB
CONINP+2
CONINP
CONINP+1
(27
CONINP
CONINP+1

0376
7640
5271

AND
(2000
SZA CLA
JMP
DF4S4

1040
7104
3040
1037
7004
3037
7040
1036
3036
5253

TAD
CONINP+2
CLL RAL
DCA
CONINP+2
TAD
CONINP+1
RAL
DCA
CONINP+1
CMA
TAD
CONINP
DCA
CONINP
JMP
DF4S3

1047
7640
4775
5617

DF4S4,

TAD
TEMP2
SZA CLA
JMS F4COM
JMP I

DF4SUB

/SHIFT DECIMAL
/CHANGE EXPONENT
/DONE WHEN BIT 1

/REDUCE EXPONENT

/SET SIGN
/TEST FOR NEG #.

1591 015275
TO F4
1592
HAVE BEEN
1593 015276
FORMAT. AND
1594 015277
IN THE
1595
1596 015300
1597 015301
NUMBER
1598 015302
1599 015303
1600 015304
1601 015305
1602 015306
1603 015307
NOW
1604 015310
1605 015311
1606
1607 015312
MANTISSA
1608 015313
1609 015314
1610 015315
1611 015316
1612 015317
1613 015320
1614 015321
1615 015322
1616 015323
1617 015324
1618 015325
1619 015326
1620 015327
1621 015330
1622 015331
1623 015332
1624
1625 015333
SO.
1626 015334
1627 015335
1628 015336
1629 015337
1630 015340

0000

F2F4SU, 0

/CONVERT F2 FORMAT
/FLOATING. F2 MUST

1374

TAD

(-4

/WRITTEN IN A6

3046

DCA

TEMP1

/UPACKED TO 3 WORDS

3047
1036

DCA
TAD

TEMP2
CONINP

7710
2047
1036
0373
3050
1036

SPA CLA
ISZ TEMP2
TAD
CONINP
AND
(3770
DCA
TEMP3
TAD
CONINP

0372
3036

AND
DCA

(7
CONINP

1036

F24SU1, TAD

CONINP

7110
3036
1037
7010
3037
1040
7010
3040
2046
5312
1037
7640
5333
1040
7650
5342
1047
7640
4775
1050
7112
7010

/CALLING ROUTINE.
/SAVE SIGN OF

/SAVE EXPONENT
/KEEP ONLY MANTISSA

/SHIFT FROM 27 BIT

CLL RAR
DCA
CONINP
TAD
CONINP+1
RAR
DCA
CONINP+1
TAD
CONINP+2
RAR
DCA
CONINP+2
ISZ
TEMP1
JMP
F24SU1
TAD
CONINP+1
SZA CLA
JMP
F24SU2
TAD
CONINP+2
SNA CLA
JMP
F24SU3
F24SU2, TAD TEMP2
SZA CLA
JMS F4COM
TAD
TEMP3
CLL RTR
RAR
55

/TO 23 BIT MANTISSA

/TEST FOR 0
/MATISSA

/SET VALUE NEG IF ENTERED

/RESTORE EXPONENT

1631 015341
STORE
1632 015342
1633 015343
1634

1371
3036
5675

TAD
F24SU3, DCA
JMP I

(-200
CONINP
F2F4SU

/SUBTRACT 200 AND

1635

1636 015371
015372
015373
015374
015375
015376
015377
1637
1638 015400
3
1639 015401
FLOATING
1640 015402
1641 015403
1642 015404
1643 015405
3/2 PS-8
1644 015406
1645 015407
1646 015410
1647 015411
1648 015412
1649 015413
1650 015414
1651 015415
1652 015416
1653 015417
1654 015420
1655 015421
1656 015422
1657 015423
1658 015424
1659 015425
1660 015426
1661 015427
1662 015430
1663 015431
1664 015432
1665 015433
1666 015434
1667 015435
1668 015436
1669 015437
1670 015440
1671 015441
1672 015442
1673 015443
1674 015444

7600
0007
3770
7774
4472
2000
0027

PAGE

0000

UNPACK, 0

/UNPACK 4 WORDS TO

1036

TAD

CONINP

0377
7106
3046
1036

AND
(1400
CLL RTL
DCA
TEMP1
TAD
CONINP

/POINT

0376
7106
7006
7006
3036
1037
0376
1036
3036
1037
0375
7112
1046
3037
1040
0376
1037
3037
1040
0377
7112
7012
3040
1041
0375
7106
7006
7004
1040
3040
1041

AND
(77
CLL RTL
RTL
RTL
DCA
CONINP
TAD
CONINP+1
AND
(77
TAD
CONINP
DCA
CONINP
TAD
CONINP+1
AND
(7400
CLL RTR
TAD
TEMP1
DCA
CONINP+1
TAD
CONINP+2
AND
(77
TAD
CONINP+1
DCA
CONINP+1
TAD
CONINP+2
AND
(1400
CLL RTR
RTR
DCA
CONINP+2
TAD
CONINP+3
AND
(7400
CLL RTL
RTL
RAL
TAD
CONINP+2
DCA
CONINP+2
TAD
CONINP+3

/ASCII PACKING

/UNPACK TO 3 WORD

/DATA IS INPUT IN

1675 015445
1676 015446
1677 015447
1678 015450
1679 015451
1680 015452
1681 015453
1682
1683 015575
015576
015577
1684
1685 015600
1686 015601
1687 015602
1688 015603
1689 015604
1690 015605
1691 015606
1692 015607
1693 015610
1694 015611
1695 015612
1696 015613
1697 015614
1698 015615
1699 015616
1700 015617
1701 015620
1702
1703 015621

0376
7106
7006
7006
1040
3040
5600

AND
(77
CLL RTL
RTL
RTL
TAD
CONINP+2
DCA
CONINP+2
JMP I
UNPACK

7400
0077
1400

PAGE

0000
6031
5201
6036
3220
1220
1377
7450
5600
1376
7450
5245
1375
4221
1220
5600
0000

TTYROU, 0
/TELETYPE INPUT SUB.
KSF
JMP .-1
KRB
DCA TTYROS
TAD TTYROS
TAD (-377
SNA
JMP I TTYROU
/RESTART INPUT ON RUBOUT.
TAD (-203+377
SNA
JMP PSOUT
/^C RETURN TO PS8.
TAD (203
JMS PRTCH
TAD TTYROS
JMP I TTYROU
TTYROS, 0

0000

PRTCH, 0
1704 015622
1705 015623
1706 015624
1707 015625
1708 015626
1709
1710 015627
1711 015630
1712 015631
1713 015632
1714 015633
1715 015634
1716 015635
1717
1718 015636
INPUT.
1719 015637
1720 015640
1721 015641
1722 015642
1723 015643
1724 015644
1725 015645
1726 015646
1727 015647
1728
1729 015650

6046
6041
5223
7300
5621

/SUB TO PRINT CHAR.
TLS
TSF
JMP .-1
CLA CLL
JMP I PRTCH

0000
6201
1457
2057
6211
0374
5627

TTYINP, 0
CDF 0
TAD I AVTMP1
ISZ AVTMP1
CDF 10
AND (77
JMP I TTYINP

/SUB TO GET TTY INPUT.

0000

TTYIN1, 0

/SUB TO SET UP READ OF TTY

1373
3077
4250
1372
3057
5636
7300
6203
5771

PSOUT,

TAD (-215
DCA DARDS
JMS DARD
TAD (BUFOUT
DCA AVTMP1
JMP I TTYIN1
CLA CLL
CDF CIF 0
JMP I (7600

0000

/GET TTY INPUT.

/READ TTY.

DARD, 0
1730 015651
1731 015652
1732 015653
1733 015654
1734
1735 015655
1736 015656
1737 015657
1738 015660
1739 015661
1740 015662
1741 015663
1742 015664
1743 015665
1744 015666
1745 015667
1746 015670
1747 015671
1748 015672
1749 015673
1750 015674
1751 015675
1752
1753 015676
1754 015677
1755 015700
1756 015701
1757 015702
1758 015703
1759 015704
1760 015705
1761 015706
1762 015707
1763 015710
1764 015711
1765 015712
1766 015713
1767
1768 015714
1769 015715
1770 015716
1771 015717
1772 015720
1773 015721
1774

1372
3057
1370
3060

/SUB TO ACCEPT DATA FROM TTY.
DARD1, TAD (BUFOUT
/SET BUF IN AND COUNT
DCA AVTMP1
TAD (-400
DCA AVTMP2
/UP TO 255 CHAR ACCEPTED.

4200
7450
5276
1077
7450
5314
7041
1077
7041
6201
3457
6211
2057
2060
5255
1367
4221

SWTC10, JMS TTYROU
SNA
JMP SWITC5
TAD DARDS
SNA
JMP DARD2
CIA
TAD DARDS
CIA
CDF 0
DCA I AVTMP1
CDF 10
ISZ AVTMP1
ISZ AVTMP2
JMP SWTC10
TAD (277
JMS PRTCH

7240
1057
3057
7040
1060
3060
1372
7041
1057
7710
5251
1366
4221
5255

SWITC5, CLA CMA /RUBOUT MOVE BACK A CHAR
TAD AVTMP1
DCA AVTMP1
CMA
TAD AVTMP2
DCA AVTMP2
TAD (BUFOUT
/TEST FOR FRONT OF BLOCK.
CIA
TAD AVTMP1
SPA CLA
JMP DARD1
TAD (334
/OUTPUT A BACK SLASH.
JMS PRTCH
JMP SWTC10

1077
7041
6201
3457
6211
5650

DARD2,

TAD DARDS
CIA
CDF 0
DCA I AVTMP1
CDF 10
JMP I DARD

/GET CHAR
/TEST FOR RUBOUT
/TEST FOR END

/STORE INPUT CHAR.
/TEST FOR BUFFER FULL
/FULL,PRINT ?

/OUTPUT TERMINATOR.

1775 015766
015767
015770
015771
015772
015773
015774
015775
015776
015777
1776
1777 016000
1778 016001
1779 016002
1780
1781 016003
1782 016004
1783 016005
1784 016006
1785
1786 016007
1787 016010
1788 016011
1789 016012
1790 016013
1791 016014
1792 016015
1793 016016
1794 016017
1795
1796 016020
1797 016021
1798 016022
1799 016023
1800 016024
1801 016025
1802
1803 016026
OUTPUT.
1804 016027
1805 016030
1806 016031
1807 016032
1808 016033
1809 016034
1810 016035
1811
1812 016036

0334
0277
7400
7600
5600
7563
0077
0203
0174
7401

PAGE

4777
7770
3776

SWITC,

JMS SWTCK
-10
DCA HSCAL

/CHECK FOR H SWITCH.

4777
7774
7650
5220

JMS SWTCK
-04
SNA CLA
JMP SWITC2

/TEST FOR D SWITCH.

4775
7777
7402
7240
3033
4775
7777
7402
5236

JMS CREAD
-1
HLT
CLA CMA
DCA READNO
JMS CREAD
-1
HLT
JMP SWITC1

4777
7755
7650
5236
1374
3057

SWITC2, JMS SWTCK
-23
SNA CLA
JMP SWITC1
TAD (-100
DCA AVTMP1

/CHECK FOR S SWITCH

4775

SWITC3, JMS CREAD

/TRANSFER BLOCK 1 TO

7774
7402
4773
7774
2057
5226
5330

-4
HLT
JMS FILOUT
-4
ISZ AVTMP1
JMP SWITC3
JMP SWITC4

4777

SWITC1, JMS SWTCK
62

/NO D.
/D SWITCH, DELETE BLOCK 1.
/READ IN BLOCK 1

/READ LAST WORD OF BLOCK
/NEXT READ IS FROM BLOCK 2.

/NO S.
/SKIP 1 BLOCK.

/4 WORDS AT A TIME.

/TEST FOR T SWITCH.

1813 016037
1814 016040
1815 016041
1816 016042
1817
1818 016043
1819 016044
1820 016045
1821 016046
1822 016047
1823 016050
1824 016051
1825 016052
1826 016053
1827 016054
1828
1829 016055
1830 016056
1831 016057
1832 016060
1833 016061
1834 016062
1835 016063
1836 016064
1837 016065
1838 016066
1839 016067
1840 016070
1841 016071
1842 016072
1843 016073
1844 016074
1845 016075
1846 016076
1847 016077
1848 016100
1849 016101
1850 016102
1851 016103
1852 016104
1853 016105
1854 016106
1855 016107
1856 016110
1857 016111
1858 016112
1859
1860 016113
1861 016114

7754
7650
5330
4772
1371
4770
1367
3077
4766
1365
3046
1364
3010
3771

-24
SNA CLA
JMP SWITC4
SWTC11, JMS CRLF
TAD (TITLE-1
JMS MESPRT
TAD (-232
DCA DARDS
JMS DARD
TAD (BUFOUT
DCA TEMP1
TAD (BUFOUT-1
DCA 10
DCA CZCK1

6201
1410
4763
3446
2046
1410
4763
3446
7240
1046
3046
1410
4763
3047
1047
7106
7006
0362
1446
3446
2046
1047
7112
7012
7010
0362
1446
3446
2046
5255

SWTC12, CDF 0
TAD I 10
JMS CZCK
DCA I TEMP1
ISZ TEMP1
TAD I 10
JMS CZCK
DCA I TEMP1
CLA CMA
TAD TEMP1
DCA TEMP1
TAD I 10
JMS CZCK
DCA TEMP2
TAD TEMP2
CLL RTL
RTL
AND (7400
TAD I TEMP1
DCA I TEMP1
ISZ TEMP1
TAD TEMP2
CLL RTR
RTR
RAR
AND (7400
TAD I TEMP1
DCA I TEMP1
ISZ TEMP1
JMP SWTC12

6211
1052

SWTC13, CDF 10
TAD BLKOUT
63

/T SWITCH.
/PUT TITLE IN BLOCK 1.
/PRINT MES.'TITLE'.
/SET INPUT TERMINATOR.
/GET TTY INPUT.
/PACK IN PS-8 3-2 PACKING.

/0 END OF INPUT FLAG.

/PACK 1 OF 3

/PACK 2 OF 3.
/PACK 3 OF 3
/GET 3RD CHAR.

/GET HIGH 4 BITS
/STORE IN WORD 1.
/GET LOW 4 BITS.

/STORE IN WORD 2.

/WRITE OUT THE TITLE.

1862 016115
1863 016116
1864 016117
1865 016120
1866 016121
1867 016122
1868 016123
1869 016124
1870 016125
1871 016126
1872 016127
1873
1874 016130
1875 016131
1876 016132
1877 016133
1878 016134
1879

3322
6202
4431
4200
5600
0000
5761
2053
7200
2052
7200

DCA SWTC14
CIF 0
JMS I ENTRYO
4200
BUFOUT
SWTC14, 0
JMP ERRRW
ISZ FILOSZ
CLA
ISZ BLKOUT
CLA

4777
7756
7650
5760
5757

SWITC4, JMS SWTCK
-22
SNA CLA
JMP DHCT14
JMP SWTC30

/TEST FOR R SWITCH.

1880 016157
016160
016161
016162
016163
016164
016165
016166
016167
016170
016171
016172
016173
016174
016175
016176
016177
1881 016200
1882 016201
DO.
1883 016202
1884 016203
1885 016204
1886 016205
1887 016206
1888 016207
1889 016210
1890 016211
1891 016212
1892 016213
1893 016214
1894 016215
1895 016216
1896 016217
1897 016220
1898 016221
1899 016222
1900 016223
1901 016224
1902 016225
1903 016226
1904 016227
1905 016230
1906 016231
1907 016232
1908 016233
1909 016234
1910 016235

6200
2246
2320
7400
6260
5577
5600
5650
7546
6400
6271
2343
4000
7700
4104
2526
6244
1021
1377

PAGE

7700
5776
1021
1375
7710
5776
4774
1373
4772
4771
0102
5210
4774
1370
4772
4771
0100
5216
1021
1375
7650
7001
7001
7041
3241
2103
5240
2102

SMA CLA
JMP COMERR
TAD INTYP
TAD (-3
SPA CLA
JMP COMERR
SWTC21, JMS CRLF
TAD (MESS1-1
JMS MESPRT
JMS NUMGET
CRDSKP
JMP SWTC21
SWTC20, JMS CRLF
TAD (MESS2-1
JMS MESPRT
JMS NUMGET
CRDGET
JMP SWTC20
TAD INTYP
TAD (-3
SNA CLA
IAC
IAC
CIA
DCA SWTC15
SWTC17, ISZ CRDSKP+1
JMP SWTC16
ISZ CRDSKP

SWTC30, TAD INTYP
TAD (-6

/TEST IF INPUT CORRECT
/GOOD FOR ONLY SI,DA AND

/PRINT MES. # TO SKIP.
/GET NUMBER +1
/HIGH ORDER VALUE ADD.
/PRINT MES. # TO READ.
/GET NUMBER +1
/HIGH ORDER TO STORE ADD.
/READ 1 OR 2 WORDS.
/1 FOR SI ,2 FOR DO.

/COUNT # TO SKIP.
/COUNT DOUBLE PRE.

1911 016236
1912 016237
1913 016240
TIME.
1914 016241
1915 016242
1916 016243
1917
1918 016244
1919 016245
1920 016246
1921 016247
TABLE.
1922 016250
1923 016251
1924 016252
1925 016253
1926 016254
1927 016255
1928 016256
1929 016257
1930
1931
1932 016260
TITLE.
1933 016261
1934 016262
1935 016263
1936 016264
1937 016265
1938 016266
1939 016267
1940 016270
1941 016271
1942
1943
1944 016272
1945 016273
1946 016274
1947 016275
1948
1949 016276
1950 016277
1951 016300
1952 016301
1953 016302
1954 016303
1955 016304
1956 016305

5240
5767
4766

JMP SWTC16
JMP DHCT14
SWTC16, JMS CREAD

0000
5776
5233

SWTC15, 0
JMP COMERR
JMP SWTC17

0000
1365
3010
1410

SWTCK,

0
TAD (SWITCH-1
DCA 10
SWTCK1, TAD I 10

/SUB TO TEST FOR SWITCH.

7450
5256
1644
7640
5247
7001
2244
5644

SNA
JMP SWTCK2
TAD I SWTCK
SZA CLA
JMP SWTCK1
IAC
SWTCK2, ISZ SWTCK
JMP I SWTCK

/TEST FOR END.
/0,NO MATCH.
/GET VALUE TO SEARCH FOR.

0000

CZCK,

/SUB TO TEST FOR END OF
/TEST IF DONE.

CZCK1,

TAD CZCK1
SZA CLA
JMP SWTC13
TAD (-232
SNA
ISZ CZCK1
TAD (232
JMP I CZCK
0

1271
7640
5764
1363
7450
2271
1362
5660
0000

/DONE SKIPPING.
/READ 1 OR 2 WORDS AT A

/GET VALUE IN INPUT SWITCH

/RETURN 1 IF FOUND.
/RETURN AC=0 IF NOT FOUND.

/SET DONE FLAG ON CNTR.Z.

0311
0304
0275
0000

TITLE,

311
304
275
0

/ID=

0323
0313
0311
0320
0240
0243
0275
0000

MESS1,

323
313
311
320
240
243
275
0

/SKIP #=

1957
1958 016306
1959 016307
1960 016310
1961 016311
1962 016312
1963 016313
1964 016314
1965 016315
1966

0322
0305
0301
0304
0240
0243
0275
0000

MESS2,

322
305
301
304
240
243
275
0

/READ #=

1967 016362
016363
016364
016365
016366
016367
016370
016371
016372
016373
016374
016375
016376
016377
1968
1969 016400
MESSAGE.
1970 016401
1971 016402
1972 016403
1973 016404
1974 016405
1975 016406
1976
1977 016407
1978 016410
1979 016411
1980 016412
1981 016413
1982 016414
1983 016415
1984 016416
1985 016417
1986 016420
1987 016421
1988 016422
1989 016423
1990 016424
1991
1992 016425
1993 016426
1994 016427
1995 016430
1996 016431
1997 016432
1998 016433
1999 016434
2000 016435

0232
7546
6113
0021
4104
2246
6305
6407
6400
6275
2343
7775
2317
7772

PAGE

0000

MESPRT, 0

3010
1410
7450
5600
4777
5202

DCA 10
MESPT1, TAD I 10
SNA
JMP I MESPRT
JMS PRTCH
JMP MESPT1

0000
1607
3314
2207
3714
1314
7001
3315
3715
1376
3077
4775
1374
3316

NUMGET, 0
TAD I NUMGET
DCA NUMGT1
ISZ NUMGET
DCA I NUMGT1
TAD NUMGT1
IAC
DCA NUMGT2
DCA I NUMGT2
TAD (-215
DCA DARDS
JMS DARD
TAD (BUFOUT
DCA NUMGT3

6201
1716
6211
1376
7650
5303
6201
1716
6211

NUMG2,

/SUBROUTINE TO PRINT A

CDF 0
TAD I NUMGT3
CDF 10
TAD (-215
SNA CLA
JMP NUMG3
CDF 0
TAD I NUMGT3
CDF 10
68

/TEST FOR END,0.

/SUB. TO GET INPUT NUMBER.
/HIGH ORDER ADD.
/0 VALUE.
/GET LOW ORDER ADD.
/0 VALUE.
/SET INPUT TERMINATOR.
/READ TTY INPUT.

/READ 8 BIT ASCII.
/TEST FOR END OF INPUT.

/TEST FOR A NUMBER.

2001 016436
2002 016437
2003 016440
2004 016441
2005 016442
2006 016443
2007 016444
2008 016445
2009 016446
2010 016447
2011 016450
2012 016451
2013 016452
2014 016453
10.
2015 016454
2016 016455
2017 016456
2018 016457
2019 016460
2020 016461
2021 016462
2022 016463
2023 016464
2024 016465
2025 016466
2026 016467
2027 016470
2028 016471
2029 016472
2030 016473
2031 016474
2032 016475
2033 016476
2034 016477
2035
2036 016500
2037 016501
2038 016502
2039 016503
2040 016504
2041 016505
2042 016506
2043 016507
2044 016510
2045 016511
2046 016512
2047 016513
2048 016514

1373
7710
5607
6201
1716
6211
1372
7700
5607
1714
3317
1715
3320
1371
3046
7100
1320
1715
3715
7430
7001
1317
1714
3714
2046
5255
6201
1716
6211
1373
7100
1715
3715
7430
2714
2316
5225
7300
1715
7040
3715
1714
7040
3714
2207
5607
0000

TAD (-260
SPA CLA
JMP I NUMGET
CDF 0
TAD I NUMGT3
CDF 10
TAD (-272
SMA CLA
JMP I NUMGET
TAD I NUMGT1
DCA NUMGT4
TAD I NUMGT2
DCA NUMGT5
TAD (-11
NUMG1,

DCA TEMP1
CLL
TAD NUMGT5
TAD I NUMGT2
DCA I NUMGT2
SZL
IAC
TAD NUMGT4
TAD I NUMGT1
DCA I NUMGT1
ISZ TEMP1
JMP NUMG1
CDF 0
TAD I NUMGT3
CDF 10
TAD (-260
CLL
TAD I NUMGT2
DCA I NUMGT2
SZL

ISZ I NUMGT1
ISZ NUMGT3
JMP NUMG2
NUMG3, CLL CLA
TAD I NUMGT2
CMA
DCA I NUMGT2
TAD I NUMGT1
CMA
DCA I NUMGT1
ISZ NUMGET
JMP I NUMGET
NUMGT1, 0
69

/COMMAND ERROR.

/ERROR.
/SACE VALUE SO FAR.

/MULTIPLY CURRENT VALUE BY

/TEST FOR CARRY.

/ADD NEW DIGIT.

/STORE LOW ORDER.
/TEST FOR CARRY.

/MAKE NUMBER #+1
/AND NEGATIVE.

/HIGH ORDER ADD

2049 016515
2050 016516
2051 016517
2052 016520
2053
2054 016521
2055 016522
2056 016523
2057 016524
2058 016525
2059 016526
2060 016527
2061 016530
2062 016531
2063 016532
2064 016533
2065 016534
2066
2067

0000
0000
0000
0000

NUMGT2, 0
NUMGT3, 0
NUMGT4, 0
NUMGT5, 0

0004
0003
0002
0001
0001
0015
0000
0014
0017
0016
0016
0000

HICOD,

F4COD,

/LOW ORDER ADD.

4
3
2
1
1
15
0
14
17
16
16
0

2068 016571
016572
016573
016574
016575
016576
016577
2069
2070 016600
2071 016601
2072 016602
2073 016603
2074 016604
2075 016605
2076 016606
2077 016607
2078 016610
2079 016611
2080 016612
2081 016613
2082 016614
2083 016615
2084 016616
2085 016617
2086 016620
2087 016621
2088 016622
2089 016623
2090 016624
2091 016625
2092 016626
2093 016627
2094 016630
2095 016631
2096 016632
2097 016633
2098 016634
2099 016635
2100 016636
2101 016637
2102 016640
2103 016641
2104 016642
2105 016643
2106 016644
2107 016645
2108 016646
2109 016647

7767
7506
7520
5600
5650
7563
5621

PAGE

1377
4776
4775
7777
7402
6201
1774
3036
1773
7041
3037
1772
3040
1040
7041
3057
6211
4771
7040
1057
3061
6201
1770
3036
1767
3037
6211
1020
1366
7640
5241
4771
5252
1365
4776
4764
6201
1770
6211
3037

CO,

CO1,

TAD (HICOD-1
/SET CONVERT TYPE.
JMS SETCON
JMS CREAD
/READ BLOCK 1.
-1
HLT
CDF 0
TAD I
(BUFIN+23
/GET AUTO FLAG.
DCA CONINP
TAD I (BUFIN+21 /GET RATE.
CIA
DCA CONINP+1
TAD I (BUFIN+20 /GET # OF POINTS.
DCA CONINP+2
TAD CONINP+2
CIA
DCA AVTMP1
/SAVE # OF POINTS.
CDF 10
JMS HI6TST
/OUTPUT DATA.
CMA
TAD AVTMP1
DCA AVTMP3
CDF 0
TAD I (BUFIN+74 /GET HIGH ORDER SWEEP.
DCA CONINP
TAD I (BUFIN+75 /LOW ORDER SWEEP.
DCA CONINP+1
CDF 10
TAD OUTTYP
/TEST F2 SING. PRE.
TAD (-6
SZA CLA
JMP CO1 /NO
JMS HI6TST
/OUTPUT F2S FORMAT
JMP CO2
TAD (DOCOD-1
/SET CONVERT TYPE DO IN.
JMS SETCON
JMS CONVRT
/OUTPUT SWEEP COUNT.
CDF 0
TAD I (BUFIN+74
CDF 10
DCA CONINP+1
/MOVE HIGH ORDER FOR SI
71

OUTPUT.
2110 016650
2111 016651
2112
2113 016652
2114 016653
2115 016654
2116 016655
2117 016656
2118 016657
2119 016660
2120 016661
2121 016662
2122 016663
2123 016664
2124 016665
2125 016666
2126 016667
2127 016670
2128 016671
2129 016672
2130 016673
2131 016674
2132 016675
2133 016676
2134 016677
2135 016700
2136 016701
2137 016702
PRE.
2138 016703
2139 016704
READ.
2140 016705
PRE.
2141 016706
2142 016707
2143 016710
2144 016711
2145 016712
2146 016713
2147 016714
2148 016715
2149 016716
2150 016717
2151 016720
2152 016721
2153
2154 016722

4764
4764
7040
3033
4775
7777
7402
4775
7777
7402
2061
5257
1365
4776
1020
1366
7650
5302
4775
7776
5763
4764
2057
5272
5763
3057
4775

JMS CONVRT
JMS CONVRT
CMA
DCA READNO
JMS CREAD
-1
HLT
JMS CREAD
-1
HLT
ISZ AVTMP3
JMP CO3
TAD (DOCOD-1
JMS SETCON
TAD OUTTYP
TAD (-6
SNA CLA
JMP CO4
JMS CREAD
-2
JMP FILDON
JMS CONVRT
ISZ AVTMP1
JMP CO5
JMP FILDON
DCA AVTMP1
JMS CREAD

/SET TO READ NEXT BLOCK.

7772
7200

-6
CLA

/AT A TIME.
/DON'T HALT IF END OF FILE

1037

TAD CONINP+1

/CHANGE DOUBLE TO SING.

3036
1041
3037
1043
3040
4764
7346
1057
7510
5301
7200
5763

DCA CONINP
TAD CONINP+3
DCA CONINP+1
TAD CONINP+5
DCA CONINP+2
JMS CONVRT
SETM3
TAD AVTMP1
SPA
JMP CO7
CLA
JMP FILDON

0004

CO2,

/OUTPUT 2 DUMMY NUMBERS.

CO3,

CO5,

CO7,
CO4,

FSCOD,

4
72

/SKIP POINTS IN TEMP BUFFER

/SEND DO INPUT TO CONVRT.
/TEST FOR FS

/READ DATA AND CONVERT.

/FILE DONE ON COUNT.
/OUTPUT FS ,READ 3 DOUBLE

/TEST IF ALL POINTS DONE.
/NO

2155 016723
2156 016724
2157 016725
2158 016726
2159 016727
2160
2161
2162

0000
0002
0001
0001
0000

0
2
1
1
0

2163 016763
016764
016765
016766
016767
016770
016771
016772
016773
016774
016775
016776
016777
2164 017000
2165 017001
2166 017002
2167 017003
2168 017004
2169 017005
2170 017006
2171 017007
2172 017010
2173 017011
2174 017012
2175 017013
2176 017014
2177 017015
2178 017016
2179 017017
2180 017020
2181 017021
2182 017022
2183 017023
2184 017024
2185 017025
2186 017026
2187 017027
2188 017030
2189 017031
AV.
2190 017032
2191 017033
2192 017034
2193 017035
2194
2195 017174
017175
017176

2275
4400
3656
7772
6275
6274
2502
6220
6221
6223
4104
3746
6520
4777
7770
7650
5210
1021
1376
7640
5775
4777
7774
7650
5221
4777
7755
7650
5231
5775
4777
7755
7650
5774
4777
7754
7640
5775
1021

PAGE

SWITVA, JMS SWTCK
-10
SNA CLA
JMP SWTV1
TAD INTYP
TAD (-7
SZA CLA
JMP COMERR
SWTV1, JMS SWTCK
-04
SNA CLA
JMP SWTV2
JMS SWTCK
-23
SNA CLA
JMP SWTV3
JMP COMERR
SWTV2, JMS SWTCK
-23
SNA CLA
JMP SWITC
JMS SWTCK
-24
SZA CLA
JMP COMERR
SWTV3, TAD INTYP

1376
7700
5775
5774

TAD (-7
SMA CLA
JMP COMERR
JMP SWITC

6000
2317
7771

/TEST THE SWITCHES,1ST H.

/GOOD ONLY WITH H INPUT.

/TEST D .

/S CAN'T BE ON.

/TEST FOR S

/T CAN'T BE ON

/INPUT CAN'T BE HI,CO,OR

017177

6244

AV
AV1
AV10
AV12
AV13
AV14
AV15
AV16
AV17
AV18
AV19
AV2
AV20
AV21
AV22
AV23
AV24
AV25
AV26
AV27
AV28
AV29
AV3
AV31
AV32
AV33
AV4
AV6
AV7
AV8
AVBACT
AVCOD1
AVDALK
AVDATY
AVDQA
AVDQBS
AVDQFG
AVDQLS
AVDTYV
AVF2BP
AVF2BU
AVF2CT
AVF2EN
AVF2S1
AVF2SP
AVF2SU
AVHBBA
AVHBBC

2600
2616
3235
3106
3433
3260
3254
3416 unreferenced
3317
3326
3410
2631
3431
2632
3441
3450
3400
3402
3302
3310
3315
3401
3002
2712
2742
2751
3000
3067
3027
3120
0063
3542
0070
0071
3200
0073
0067
0074 unreferenced
0072
3514
3510
3513
4100
3473
0075
3463
0055
0056
76

AVHBKA
AVLACT
AVRJL1
AVRJL2
AVRJLS
AVSTOU
AVSTU2
AVTMP1
AVTMP2
AVTMP3
AVTMP4
BLKIN
BLKISZ
BLKOSZ
BLKOUT
BUFIN
BUFJOB
BUFOUT
CO
CO1
CO2
CO3
CO4
CO5
CO7
COMERR
COMLST
CON1
CON2
CON3
CON4
CON5
CON6
CONINP
CONJPL
CONVRT
CONVTY
CR1
CR2
CR3
CR4
CR5
CRBLK
CRBUF
CRBUFP
CRDGET
CRDSKP
CREAD
CRLF

0054
0064
3526
3535
3515
3451
3461
0057
0060
0061
0062
0051
0045
0044
0052
6200
5200
5600
6600
6641
6652
6657
6702
6672
6701
2317
2264
2107
2076
2062
2120
2124
2135
0036
4405
4400
0035
4135
4142 unreferenced
4120 unreferenced
4150
4112
4126
4154
4125
0100
0102
4104
2343
77

CZCK
CZCK1
DARD
DARD1
DARD2
DARDS
DD
DF2
DF4
DF4S1
DF4S2
DF4S3
DF4S4
DF4SUB
DHCT10
DHCT11
DHCT12
DHCT13
DHCT14
DHCT4
DHCT5
DHCT6
DHCT7
DO
DO1
DO2
DO3
DO4
DOCNO
DOCNO1
DOCOD
DOSTR
DOV1
DOV2
DS
DSSUB
ENTRYI
ENTRYO
ERR
ERRM
ERRRW
F2
F24SU1
F24SU2
F24SU3
F2A
F2D
F2F4
F2F4SU

6260
6271
5650
5651
5714
0077
4431
4435
4443
5235
5246
5253
5271
5217
2237
2235
2212 unreferenced
2200
2246
2024
2036
2045
2046
3600
3615
3606
3621
3643
3665
3673
3657
3654
3652
3653
4447
5213
0030
0031
2322
2326
2320
2537
5312
5333
5342
2542
4455
4460
5275
78

F2S
F2TAD
F3OUT
F4
F42SB1
F42SB2
F42U1
F42U2
F42U3
F42U4
F42U5
F42U6
F42U7
F42U8
F4A
F4COD
F4COM
F4D
F4DSU
F4DSU1
F4DSU2
F4F2
F4F2SU
F4S
FIL1
FIL2
FIL3
FIL4
FIL5
FIL7
FIL8
FIL9
FILADD
FILD1
FILD2
FILDON
FILESZ
FILOSZ
FILOUT
FIOBFS
FIOBUF
FS
FS1
FSCOD
HI
HI1
HI2
HI3
HI6T1

4451
2547
4444
3675
4665
4701
4620
4627
4630
4642
4626
4640
4662
4610
3677
6527
4472
4470
5000
5007
5012
4436
4600
4466
4025
4012
4074
4060
4051
4045
4036
4007
4066
2302
2313
2275
0032
0053
4000
0066
0065
2527
2532
6722
2400
2463
2500
2453
2511
79

HI6T2
HI6TST
HI6TT1
HI6TT2
HICOD
HSCAL
INTYP
JMPLST
JMPTYP
MESPRT
MESPT1
MESS1
MESS2
NOROOM
NUMG1
NUMG2
NUMG3
NUMGET
NUMGT1
NUMGT2
NUMGT3
NUMGT4
NUMGT5
OUTTYP
PACK32
PRTCH
PSOUT
READNO
REDS1
REDS2
REDS3
REDS4
REDSF
REDSU2
SD
SDSU1
SDSUB
SET1
SET2
SET3
SET4
SET6
SETCON
SETM2
SETM3
SF2
SF2S
SF4
SI

2507
2502
2524
2525
6521
2526
0021
2253 unreferenced
2252
6400
6402
6276
6306
2321
6455
6425
6503
6407
6514
6515
6516
6517
6520
0020
5032
5621
5645
0033
3717
3740
3721
3726
0104
3704
4430
5211
5200
7301 unreferenced
7305 unreferenced
7325
7307 unreferenced
7327 unreferenced
3746
7344
7346
4434
4462
4442
2327
80

SI1
SICOD
SIDOFG
SS
START
SWITC
SWITC1
SWITC2
SWITC3
SWITC4
SWITC5
SWITCH
SWITVA
SWTC10
SWTC11
SWTC12
SWTC13
SWTC14
SWTC15
SWTC16
SWTC17
SWTC20
SWTC21
SWTC30
SWTCK
SWTCK1
SWTCK2
SWTV1
SWTV2
SWTV3
TEMP1
TEMP2
TEMP3
TITLE
TTYIN1
TTYINP
TTYROS
TTYROU
UNP1
UNP2
UNP4
UNP5
UNP6
UNP7
UNP8
UNPACK
UNPBF2
UNPBUF
UNPCT

2332
2335
0076
4425
2000
6000
6036
6020
6026
6130
5676
0022
7000
5655
6042 unreferenced
6055
6113
6122
6241
6240
6233
6216
6210
6200
6244
6247
6256
7010
7021
7031
0046
0047
0050
6272
5636
5627
5620
5600
4223
4255
4307
4323
4330
4207
4300
5400
4332
4342
4336
81

UNPK32
UNPT1
UNPT2
UNPT3
UNPT4
WRITNO

4200
4337
4340
4335
4341
0034