[SEARCH
[AJH JUNE 67
$20
#1B LDAi
2352
STC 1H+6
LDAi
3353
STC 1H+10
SETi12
-16
SETi13
7C+3777
JMP 1M
SETi15
0
SETi14
2A+3777
#1P JMP 7R
SHDi
1300
[DELETE
JMP 1B
SHDi
7500
[ASTERISK,ESCAPE
JMP 1U
SHDi
1400
[SPACE
JMP 1P
SHDi
1200
[EOL
JMP 1S
JMP 7P
STHi14
XSKi15
JMP 1P
#1S LDA
15
COM
STC 1T
LDAi
75
JMP 7P
[PRINT HEAD
SETi12
-15
SETi13
7B+3777
JMP 1M
[READ IN FIRST BLOCKS
RDCi
2350
RDC
3351
SETi1
5001
SETi10
20
SETi11
1
SETi13
2B+3777
#1E JMP 1H
[BEGIN SEARCH
LDHi1
SHDi
1400
[SPACE
JMP 1E
SHDi
7700
[FINISHED
JMP 1B
STHi13
SHDi
6500
[ORIGIN
JMP 1C
SHDi
6600
[COMMENT
JMP 1D
SAEi
0012
[EOL
JMP 1E
SETi12
2B+3777
#1W SET 13
12
SET 15
1T
SETi14
2A+3777
#1G LDHi14
SHDi13
JMP 1R
LDH 13
SHDi
1200
JMP 2C-1
LDHi12
JMP 1W
#1R XSKi15
JMP 1G
[PRINT LINE
#1V LDA
10
JMP 1Q
LDA
11
JMP 1Q
SETi13
2B+3777
SETi14
-60
LDHi13
JMP 7P
SHDi
1200
JMP 2C-1
XSKi14
JMP 1V+12
LDAi
12
JMP 7P
LDAi
14
JMP 7P
SROi
3777
JMP p-5
JMP 1V+10
[INCREMENT
[LINES
LDAi
#2C 0000
APO
JMP p+6
LDAi10
LDA
10
AZEi
JMP 1N
CLR
STC 2C
LDAi
#2D 0000
APOi
JMP p+5
LDA
1K
STC 10
STC 2D
LDAi
1
ADM
11
JMP 1E-2
#1Q SET 17
0
ROL 3
STAi
0000
BCLi
7770
JMP 7P
LDA
p-5
SROi
3567
JMP p-12
LDAi
14
JMP 7P
JMP 7P
JMP 17
[TEST FOR LAST
[CHAR.IN BLOCK
#1H LDA
1
SAEi
5777
JMP 0
RDCi
2352
RDC
3353
LDAi
2
ADD p-5
STC p-6
ADD p-3
ADD p-6
STC p-7
SETi1
4777
JMP 0
[ORIGIN SET
#1C CLR
STC 1K
JMP 1H
LDHi1
SHDi
1400
JMP 1C+2
STHi13
SHDi
1200
JMP 1L
STAi
0000
LDAi
#1K 0000
ROL 3
ADD p-4
STC 1K
JMP 1C+2
#1L STHi13
CLR
STC 10
COM
STC 2D
COM
STC 2C
JMP 1W-2
#1D CLR
COM
STC 2C
JMP 1E
[BIN OVERFLOW
#1N SETi12
-32
SETi13
7A+3777
JMP 1M
JMP 1B
[MESSAGE PRNT
#1M SET 17
0
LDHi13
JMP 7P
XSKi12
JMP p-3
JMP 17
[EXIT,FINISH
#1U LDAi
12
JMP 7P
SROi
3737
JMP 1U
SETi15
RCG
SETi16
7300
JMP 15
[MESSAGES
#7A 1212
1212
4742
4214
4024
4154
1425
3441
2445
5414
3734
4130
4612
#7B 1212
2534
4114
1414
4046
4614
1212
#7C 1212
4630
2445
2633
1431
4245
1475
[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.
#1T 000
#2A 0
0
0
0
0
0
0
0
0
0
0
0
#2B 0
0
0
0
[END FOR NOW