[SORTIMP4
[TO SORT DATA FROM INPUT TAPE ON UNIT 1
[AND SAVE IT IN NEW FORMAT ON UNIT 0
[BLANK MARKED TAPE ON UNIT 0
[DATA TAPE PRODUCED BY SAM IMP4 ON UNIT 1
  ----
$20
[PRINT OPTIONS MESSAGE
SETi1
2D+3777
JMP 2M
[FIND NEXT FREE FILE AN FETCH NEW DATA
#1A SETi1
-20
LDAi
3000
STC 5E
RDCi
#5E 3000
LDA
1400
SAEi
3456
JMP 1B
LDAi
40
ADM
5E
XSKi1
JMP 5E-1
MTBi
0
SETi1
2G+3777
JMP 2M
HLT
#1B MTB
0
SETi1
2K+3777
JMP 2M
LDA
5E
JMP 2P
JMP 2M
LDAi
37
ADD 5E
JMP 2P
JMP 2M
[TIME
#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
[FREQUENCY
#1F SETi1
2B+3777
JMP 2M
JMP 2E
JMP 1F
COM 
STC 1U
JMP 2Z
[CODE
#1H SETi1
2F+3777
JMP 2M
JMP 2E
JMP 1H
ADAi
-7
APOi
JMP 1H
ADAi
7
ROL 1
ADAi
1400
STC 5A
SETi1
2077
SETi4
-36
LDA
5E
STA
5B
STA
5C
STA
5F
STC 5G
[TRANSFER RCAL, XCAL, FREQUENCY.
RDCi
#5F 3000
LDA
5A
ADAi
100
STC 2
LDA
2005
STA 2
LDA
2006
STAi2
LDAi
17
ADM
2
LDA
1U
STA 2
LDAi
3456
STC 1400
WRC
#5G 3000
[TRANSFER DATA
LDAi
1
ADD 5B
STA
5B
STC 5C
RDCi
#5B 3000
SETi3
-20
SETi2
#5A 1400
LDAi1
STA 2
LDAi1
STAi2
LDAi
17
ADM
2
XSKi3
JMP 5A+1
WRC
#5C 3000
XSKi4
JMP 5G+1
JMP 1F
[SEARCH
#2Z 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
LDAi
1001
ADD 1P
STA
1Q
ADD p-4
STA
1Q+2
ADD p-7
STC 1Q+4
RDCui
#1Q 5001
RDCui
6002
RDCu
7203
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
[PRINT 3 DIGIT OCTAL VALUE
#2P ROL 3
STC p+4
SET 10
0
LDAi
0000
ROL 3
STA
p-3
BCLi
7770
JMP 7P
SROi
3333
JMP p-12
JMP 10
[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
2600   [C
JMP 1H
SHDi
3100   [F
JMP 1F
SHDi
4100   [N
JMP 1A
SHDi
4700   [T
JMP 1E
SHDi
5500   [Z
JMP 1Z
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
[ZERO DATA
#1Z SETi1
3777
CLR
STAi1
XSK 1
JMP p-2
JMP 1H
[MESSAGES
#2A"
TIME  <'
":<:<:<'
#2B"
FREQ.  <'
#2C"
NO SUCH DATA. FOR NEW FREQUENCY ONLY, TYPE F. OTHERWISE ANY KEY.<'
#2F", CODE  <'
[OPTIONS MESSAGE
#2D"
-
N = NEW DATA, T = TIME, F = FREQUENCY, C = CODE, Z = ZERO DATA
-
-
<'
#2K"
-
- - - - - - - - - - - - - - - - - -
-
NEW DATA SET OCCUPIES BLOCKS < THROUGH <.<'
#2G"
-
-
**TAPE FULL**
LOAD FRESH TAPE ON UNIT 0 AND START 20
-
-
<'
[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.
[END FOR NOW
[SORTIMP4