[PRINTIMP
  ----
$20
#1E SETi1
2A+3777
JMP 2M
JMP 2E
JMP 1E
COM
STC 1R
JMP 2M
JMP 2E
JMP 1E
COM
STC 1S
JMP 2M
JMP 2E
JMP 1E
COM
STC 1T
#1F SETi1
2B+3777
JMP 2M
JMP 2E
JMP 1F
COM 
STC 1U
#2Z OPR 1
SETi3
-1002
LDA
1P
ADAi
-10
STC 1P
RDCui
#1P 4010
XSKi3
JMP p+2
JMP 2Y
SETi2
3777
LDAi
#1R 000
SAEi2
JMP 1G
LDAi
#1S 000
SAEi2
JMP 1G
LDAi
#1T 000
SAEi2
JMP 1G
LDAi
#1U 000
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
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
<'
#2G"
RSIGZERO  RSIGCAL
<'
#2K"
XSIZERO  XSIGCAL
<'
#2L"
RSIGCAL - RSIGZERO
<'
#2N"
R100CAL - R100ZERO
<'
#2P"
XSIGCAL - XSIGZERO
<'
#1H 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
JMP 1B
SETi1
2G+3777
JMP 2M
LDAi2
COM
JMP 1A
LDAi2
JMP 1A
JMP 1B
SETi1
2K+3777
JMP 2M
LDAi2
COM
JMP 1A
LDAi2
JMP 1A
JMP 1B
SETi1
2L+3777
JMP 2M
LDAi2
JMP 1A
JMP 1L
LDA 2
JMP 1K
JMP 1B
SETi1
2N+3777
JMP 2M
LDAi2
JMP 1A
JMP 1L
LDA 2
JMP 1K
JMP 1B
SETi1
2P+3777
JMP 2M
LDAi2
JMP 1A
JMP 1L
LDA 2
JMP 1K
JMP 1B
JMP 1E
[CARRIAGE RETURN
#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
[SPACE
#1L SET 10
0
LDAi
14
JMP 7P
SROi
3777
JMP p-5
JMP 10
[END FOR NOW
[PRINTIMP