Directory of image this file is from
This file as a plain text file

[PRINTIM5
  ----
$20
#1E OPR 1
JMP 1B
SETi1
2A+3777
JMP 2M
JMP 2E
JMP 1E
STC 1R
JMP 2M
JMP 2E
JMP 1E
STC 1S
JMP 2M
JMP 2E
JMP 1E
STC 1T
#1F SETi1
2B+3777
JMP 2M
JMP 2E
JMP 1F
STC 1U
#2Z OPR 1
SETi3
-1002
RDCui
#1P 4010
XSKi3
JMP p+2
JMP 2Y
LDA
2000
SCR 13
STAi
#5H 0000
SETi7
5H
SETi2
3777
LDAi
#1R 000
SRO 7
COM
SAEi2
JMP 1G
LDAi
#1S 000
SRO 7
COM
SAEi2
JMP 1G
LDAi
#1T 000
SRO 7
COM
SAEi2
JMP 1G
LDAi
#1U 000
SRO 7
COM
SAEi2
JMP 1G
MTBu
4000
JMP 1H
#1G LDAi
1
ADM
1P
SAEi
5000
JMP 1P-1
LDAi
4010
STC 1P
JMP 1P-1
#2Y MTBu
0000
SETi1
2C+3777
JMP 2M
JMP 7R
JMP 7P
SAEi
31
JMP 1E
JMP 1F
[MESSAGE PRINT
#2M SET 10
0
LDHi1
SHDi
7200
JMP 10
JMP 7P
JMP p-5
[ENTER DIGITS
#2E SET 10
0
CLR
STC 2J
JMP 7R
SHDi
1300
JMP 2H
SHDi
1400
JMP 2J-1
SHDi
1200
JMP 2J-1
JMP 7P
SHDi
3700   [L
JMP 2T
ADAi
-11
APOi
JMP 2E+4
ADAi
11
AZEi
CLR
STC p+5
ADD 2J
MULi
12
ADAi
0000
STC 2J
JMP 2E+4
LDAi
#2J 0000
XSKi10
JMP 10
[DELETE
#2H LDAi
22
JMP 7P
SROi
3777
JMP p-5
JMP 10
[MESSAGES
#2A"
-
-
TIME  <;
":<:<:<;
#2B"
FREQ.  <;
#2C"
NO SUCH DATA. FOR NEW FREQUENCY ONLY, TYPE F. OTHERWISE ANY KEY.<;
[L6BUFTTY
[LAP 6 COMPATIBLE VERSION OF BUFFERED TELETYPE SUBROUTINES.
[READ AND PRINT
[ALPHANUMERICS
[SUBROUTINE.
[AJH REVISED
[JUNE 1967
[LAP 6 CHARACTER
[IN ACCUM.
[PRINT
#7P STC p+13
ADD 0
STC p+14
ADD p+10
ADAi
7L
STC p+2
LDA
0
OPRi2
LDAi
0
SAEi
12
JMP 000
SROi
5252
JMP p-3
LDAi
212
JMP p-13
[READ.LEAVES
[LAP 6 CHARACTER
[IN ACCUM.
#7R LDA
0
STC p+33
ADD 1
STC p+22
ADD 2
STC p+23
OPRi1
SETi1
-101
SETi2
7L-1
SAEi2
JMP p+21
LDAi
7L
COM
ADD 2
AZEi
COM
STC p+10
LDAi
0
STC 1
LDAi
0
STC 2
LDAi
0
JMP 000
XSKi1
JMP p-23
JMP p-14
[TABLE
#7L 260
261
262
263
264
265
266
267
270
271
215
377
240
246
247
255
253
257
243
215
301
302
303
304
305
306
307
310
311
312
313
314
315
316
317
320
321
322
323
324
325
326
327
330
331
332
251
000
277
275
245
254
256
244
333
300
336
273
274
276
335
252
272
207
[END SUBROUTINE L6BUFTTY.
#2D"
RZS|2     RCAL      XCAL      RZS|RCAL
<;
#2F"
R100ZERO  R100CAL   DIFFERENCE
<;
#2G"
RSIGZERO  RSIGCAL   DIFFERENCE
<;
#2K"
XSIGZERO  XSIGCAL   DIFFERENCE
<;
#2Q"BLOCK <;
#1H SETi1
2040
JMP 2M
SETi1
2Q+3777
JMP 2M
LDA
1P
BCLi
7000
JMP 1A
SETi1
2D+3777
JMP 2M
SETi2
2003
LDAi2
JMP 1A
LDAi2
JMP 1A
LDAi2
JMP 1A
LDAi2
JMP 1C
JMP 1B
SETi1
2F+3777
JMP 2M
LDAi2
COM
JMP 1A
LDAi2
JMP 1A
LDAi2   [DIFF
JMP 1A
LDA 2
JMP 1K
JMP 1B
SETi1
2G+3777
JMP 2M
LDAi2
COM
JMP 1A
LDAi2
JMP 1A
LDAi2   [DIFF
JMP 1A
LDA 2
JMP 1K
JMP 1B
SETi1
2K+3777
JMP 2M
LDAi2
COM
JMP 1A
LDAi2
JMP 1A
LDAi2   [DIFF
JMP 1A
LDA 2
JMP 1K
JMP 1B
JMP 1E
[CARRIAGE RETURN
#1M SET 1
0
JMP 1B
SROi
3333
JMP p-3
JMP 1
#1B SET 10
0
LDAi
12
JMP 7P
JMP 10
[4 DIGIT PRINT
#1A SET 10
0
APO
JMP p+5
STC 1D
LDAi
14
JMP p+5
COM
STC 1D
LDAi
17
JMP 7P
SETi11
-4
LDAi
#1D 0000
ROL 3
STA
1D
BCLi
7770
JMP 7P
XSKi11
JMP 1D-1
SETi11
-5
LDAi
14
JMP 7P
XSKi11
JMP p-4
JMP 10
[PRINT RATIO, 4 DIGITS
#1C SET 10
0
ROL 1
STC p+7
LDAi
7775
STC p+14
SETi11
-4
LDAi
0000
ROL 3
STA
p-3
BCLi
7770
JMP 7P
SROi
7775
JMP p+4
LDAi
64
JMP 7P
XSKi11
JMP 1C+11
JMP 10
[VOLTAGE
0310
#1K SET 10
0
MUL
4000+1K-1
APO
JMP p+5
STC 1J
LDAi
14
JMP p+5
COM
STC 1J
LDAi
17
JMP 7P
CLR
STC 11
LDA
1J
COM
ADAi
144
APOi
JMP p+3
XSKi11
JMP p-5
ADAi
-144
STC 1J
ADD 11
JMP 7P
CLR
STC 11
LDAi
64
JMP 7P
LDAi
#1J 0000
ADAi
12
APOi
JMP p+3
XSKi11
JMP p-5
ADAi
-12
COM
STC p+4
ADD 11
JMP 7P
LDAi
0000
JMP 7P
LDAi
51
JMP 7P
JMP 10
[COMMA SPACE
#1L SET 10
0
LDAi
14
JMP 7P
SROi
3333
JMP p-5
JMP 10
[LIST
10     [CONSTANT
#2T CLR
STC 2S
JMP 7R
SHDi
1200
JMP 2R
SHDi
1400
JMP 2R
SHDi
1300
JMP 2H
JMP 7P
BCLi
7770
STC p+5
LDAi
#2S 0000
ROL 3
ADAi
0000
STC 2S
JMP 2T+2
#2R LDA
2S
BCLi
7003
AZEi
ADD 2T-1
BSEi
4000
STC 2L
JMP 1M
RDCu
#2L 4010
SNSi0
JMP p+6
LDA
2077
SAEi
3456
JMP 1E
LDA
2L
BCLi
7000
JMP 1A
SETi1
2A+2
JMP 2M
LDA
2000
JMP 2N
JMP 2M
LDA
2001
JMP 2N
JMP 2M
LDA
2002
JMP 2N
JMP 1L
SETi1
2B
JMP 2M
LDA
2003
JMP 2P
JMP 1B
LDAi
4
ADM
2L
SAEi
5000
JMP 2L-1
JMP 1E
[4 DIGIT DECIMAL
#2P SET 10
0
APOi
COM
SETi11
0
ADAi
1750
APOi
JMP p+3
XSKi11
JMP p-5
ADAi
-1750
STC 1J
ADD 11
JMP 7P
CLR
STC 11
ADD 1J
ADAi
144
APOi
JMP p+3
XSKi11
JMP p-5
ADAi
-144
STC 1J
ADD 11
JMP 7P
LDA
1J
JMP 2N+4
[2 DIGIT DECIMAL
#2N SET 10
0
APOi
COM
SETi11
0
ADAi
12
APOi
JMP p+3
XSKi11
JMP p-5
ADAi
-12
COM
STC p+4
ADD 11
JMP 7P
LDAi
0000
JMP 7P
JMP 10
[PRINTIM5
[LAST MOD 19 NOV 69