[FASTTTY
$1000
SETi3
3001
SETi2
-377  [COUNTER
OPR 1 [CLR TTY READ BUFFER
SETi1
1K+4000-1
JMP 1M
#3P SETi1
1L+4000-1
JMP 1M
LDA
2B
JMP 1U
JMP 1M
LDA
2T
JMP 1U
JMP 1M
LDA
2S
JMP 1U
LDAi
12
JMP 7P
SROi
3333
JMP p-3
[START ACCEPTING BLOCK NUMBERS
#1F LDA
3
BCLi
7400
JMP 1S [PRINT OCTAL
LDAi
14
JMP 7P
SROi
2525
JMP p-3
JMP 1C
BCLi
7000
STA 3
XSKi3
NOP
XSKi2
JMP 1F
[FULL
LDA
2K+1
ADD 2
STC 2
SETi1
1N+4000-1
JMP 1M
JMP 1F
HLT
HLT
HLT
[ACCEPT OCTAL
#1C LDA
0
STC 1R
STC 1T
JMP 7R
JMP 7P
ADD 2K+7 [-7
APOi
JMP p+11
ADD 2K+6 [+7
APO
COM
STC 2J
ADD 1T
ROL 3
ADD 2J
JMP 1C+3
ADD 2K+6 [+7
JMP 2E
[RETURN WITH NUMBER
LDAi
#1T 0000
#1R JMP 000
[ACCEPT DECIMAL
#1D LDA
0
STC 1R
STC 1T
JMP 7R
JMP 7P
ADD 2K+11 [-9
APOi
JMP p+12
ADD 2K+10 [+9
APO
COM
STC 2J
ADD 1T
MUL
2K+2 [12
ADD 2J
JMP 1D+3
ADD 2K+10 [+9
JMP 2E
[HANDLE LETTER CODES
#2E SHDi
1300 [DEL
JMP 3D
SHDi
1200 [EOL
JMP 3E+3
SHDi
1400 [SPACE
JMP 3E
SHDi
2500 [B
JMP 3B
SHDi
5100 [V
JMP 3V
SHDi
3300 [H
JMP 3H
SHDi
3700
JMP 3L
SHDi
4500 [R
JMP 3R
SHDi
3200 [G
JMP 3G
SHDi
4300 [P
JMP 3P
JMP 3D
[SPACE
#3E LDAi
12
JMP 7P
[EOL
JMP 1R-2
[DEL
#3D LDAi
22
JMP 7P
SROi
3777
JMP p-5
LDAi
12
JMP 7P
JMP 1F
[BIN WIDTH
#3B JMP 1D
BCLi
7600
AZEi
ADD 2K
STC 2B
JMP 1F
[VERT
#3V JMP 1D
BCLi
7740
AZEi
ADD 2K
STC 2T
JMP 1F
[HORIZ
#3H JMP 1C
BCLi
7770
AZEi
ADD 2K
STC 2S
JMP 1F
[REPLACE LINES
#3R JMP 1C
BCLi
7400
ADAi
3000
STC 3
JMP 1F
[OPEN LINE
#3L JMP 1C
BCLi
7400
STC 4
LDA
4
JMP 1S
LDAi
14
JMP 7P
SROi
2525
JMP p-3
LDAi
3000
ADD 4
STC 4
JMP 1C
BCLi
7000
STA 4
JMP 1F
[GO
#3G LDA
1T
BCLi
7000
AZEi
JMP p+3
STA 3
XSKi3
LDA
3
BCLi
7400
ADD 2K+1
STA
3000
AZEi
JMP 3D
LDAi
42
JMP 7P
LDAi
12
JMP 7P
SROi
3333
JMP p-3
JMP 1Y [LOAD PLOTTING
#2J 000  [TEMP STORAGE
[PRINT DECIMAL
#1U STC 7B
ADD 0
STC 2F-1
COM
STC 2F+5
ADD 2K+4
STC 7C
STC 7A
JMP 7D
STC 2J
ADD 7B
JMP 2F
LDA
2K+2
STC 7C
ADD 2J
STC 7B
JMP 7D
STC 2J
ADD 7B
JMP 2F
LDA
2J
JMP 7P
JMP 000
#2F SET 10
0
AZE
JMP p+5
LDAi
0000
APO
JMP 10
JMP 7P
CLR
STC 2F+5
JMP 10
[PRINT OCTAL
#1S STC p+10
ADD 0
STC 1U-1
COM
STC 2F+5
JMP p+2
JMP 2F
LDAi
0000
ROL 3
STA
p-3
BCLi
7770
SROi
3567
JMP p-12
JMP 7P
JMP 1U-1
[MESSAGE PRINT
#1M SET 10
0
LDHi1
SHDi
7200
JMP 10
JMP 7P
SXL 1
JMP p-6
OPR 1
LDAi
64
JMP 7P
SROi
3567
JMP p-3
JMP 10
[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.
[TAG DEFINITIONS
7D=53
7C=7D+4
7B=7D+57
7A=7D+105
2B=171
2S=2B+1
2T=2B+2
2H=2B+3
2K=2B+4
1K=2547
1L=1K+111
1N=1K+166
1Y=36
[END FASTTTY