[LABEL
[ENTER SINGLE LINE ON TELETYPE - BUFFERED.
[SET RIGHT SWITCHES FOR SIZE
[SET PEN POSITION
$20
JMP 3W
JMP 4P
3400
1750
JMP 4Q
JMP 4P
-3400
0
#1D SETi1
1B-1+4000
LDAi
12
JMP 7P
LDAi
1212
STC 1B
#1A JMP 7R
SHDi
1300
JMP 1D
SHDi
1200
JMP 1C   [PLOT
STHi1
JMP 7P
JMP 1A
[PLOT
#1C STHi1
JMP 7P
RSW
BCLi
7700
AZEi
ADD 1H
STA
p+3
JMP 3S
LDAi
0000
MULi
-11
STC 1G
SETi1
1B-1+4000
JMP 4P
-3750
0
JMP 3L
JMP 3R
SROi
3737
JMP p-4
JMP 4P
-3400
0
LDHi1
SHDi
1200
JMP 1E   [END
JMP 4U
JMP p-5
[END
#1E JMP 4P
0
#1G -11
JMP 4Q
JMP 4P
-3400
0
JMP 1D
#1H 0001
[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.
[  ------
[   ----
[SIMPLOT
[CALL AS FOLLOWS-
[JMP 4P
[   X
[   Y
[NEXT INSTRUCTION
[AJH, JUNE 1967
#4P LDA
0
BCLi
6000
STC 14
LDA 14
STC 4X
LDAi14
STC 4Y
LDAi14
LDA
14
ADD 4P+3
STC p+2
JMP 4Z
JMP 000
[CLOSEOUT PLOT
#4Q SET 17
0
CLR
STC 3X
STC 3Y
JMP 3R+2
[SET PLOTTER WIDE
#3W LDA
0
STC 3U+20
LDAi
OPR 10
STC 4J+6
LDAi
OPR 7
STC 4J+12
LDAi
OPR 12
STA
3U+12
STC 4K+6
LDAi
OPR 11
STA
3U+3
STC 4K+12
JMP 3U
[SET PLOTTER TALL
#3T LDA
0
STC 3U+20
ADD 3W+17
STA
3U+12
STC 4J+6
ADD 3W+12
STA
3U+3
STC 4J+12
ADD 3W+4
STC 4K+6
ADD 3W+7
STC 4K+12
[RESET PEN POSITION BEFORE STARTING.
#3U JMP 4Q
LDAi
-3000
OPR 11
JMP 4L
ADD 4E
APO
JMP p-4
LDAi
-62
OPR 12
JMP 4L
ADD 4E
APO
JMP p-4
JMP 4Q
JMP 0000
[INTERPOL
JMP 000
#4Z LDA
0
STC 4Z-1
STC 15
ADD 3X
COM
ADD 4X
STAi
#4A 0
APO
COM
STC 4B
ADD 3Y
COM
ADD 4Y
STAi
#4C 0
APO
COM
STC 4D
ADD 4D
COM
ADD 4B
APO
CLR
ADD 4D
AZEi
JMP 4Z-1
ROL 1
XSKi15
APOi
JMP p-3
LDAi
240
ADD 15
STC 4H
ADD 15
COM
ADAi
254
STC 4G
ADD 4E
#4G ROL 10
ADD 4E
COM
STC 15
ADD 4B
JMP 4H
STC 4B
ADD 4D
JMP 4H
STC 4D
STC 4M+3
STC 4M+11
#4M CLR
ADD 4B
LAMi
0
LZE
JMP 4J
CLR
ADD 4D
LAMi
0
LZE
JMP 4K
LDAi
#4I 0
APOi
JMP 4L
COM
STC 4I
ADD 4E
ADM
15
AZE
JMP 4M
JMP 4Z-1
#4X 0
#4Y 0
#4B 0
#4D 0
#4H ROL 4
JMP 0
#4J SET 17
0
LDA
4A
APO
JMP p+5
OPR 10
LDAi
#4E 1
JMP p+4
OPR 7
LDAi
#4F -1
ADMi
#3X 0
CLR
STC 4I
JMP 17
#4K SET 17
0
LDA
4C
APO
JMP p+5
OPR 12
LDA
4E
JMP p+4
OPR 11
LDA
4F
ADMi
#3Y 0
CLR
STC 4I
JMP 17
#4L SET 17
0
SETi16
1640
XSKi16
JMP p-1
JMP 17
[LOWER PEN
#3L SET 17
0
LDAi
#4R 7777
APO
JMP 17
OPR 14
CLR
COM
STC 4R
SETi16
0
XSKi16
JMP p-1
SROi
3333
JMP 3L+12
JMP 17
[RAISE PEN
#3R SET 17
0
LDA
4R
APOi
JMP 17
OPR 13
CLR
STC 4R
JMP 3L+12
[END OF INTERPOL
[SIMPALPH
[CHARACTER SET FOR
[CALCOMP PLOTTER.
[CALL AS FOLLOWS-
[JMP 4U, WITH THE
[CHARACTER IN
[ACCUMULATOR FOR
[REGULAR OUTPUT.
[CODES 70 AND UP
[FOR GRAPH SYMBOLS.
LDAi
0000
APO
JMP 3L
JMP 000
#4U BCLi
7700
STAi
0
LDA
0
STC 4U-1
ADD 3X
STC 3C
ADD 3Y
STC 3D
LDAi
-1
STC 3Z
ADD 4U+3
ADAi
4S
STC p+2
LDA
0
ADAi
3777
STC 14
ADD 4R
STC 4U-4
[DRAW CHARACTER
JMP 3R
JMP p+2
JMP 3L
#3A LDHi14
AZEi
JMP 4U-1
SHDi
0100
JMP 3A-3
SHDi
0200
JMP 3A-1
JMP 3P
STAi
#3N 0000
LDH 14
SCR 3
JMP 3P
STAi
#3M 0000
LDAi
#4T 0000 [FLAG FOR  HORIZONTAL OR VERTICAL
APO
JMP p+10
ADD 3N
ADD 3D
STC 4Y
ADD 3M
ADD 3C
STC 4X
JMP p+10
ADD 3N
COM
ADD 3C
STC 4X
ADD 3M
ADD 3D
STC 4Y
JMP 4Z
JMP 3A
[SCALE AND OFFSET
#3P BCLi
7770
ADD 3Z
MULi
#3B 0000
JMP 0
[STORAGE
#3Z -4
#3C 0
#3D 0
[SET CHARACTERS ON  VERTICAL
#3V CLR
COM
STC 4T
JMP 0
[SET CHARACTERS ON  HORIZONTAL
#3H CLR
STC 4T
JMP 0
[SET CHARACTER SIZE
#3S BCLi
7700
AZEi
ADD 4E
STC 3B
JMP 0
[MATRIX ACCESS TABLE
[EVERYTHING FROM THIS POINT ON MAY BE ANYWHERE IN MEMORY, INCLUDING UPPER HALF.
#4S 6A
6B
6C
6D
6E
6F
6G
6H
6I
6J
6S
6S
6K
6S
6S
6N
6O
6P
6Q
6S
5A
5B
5C
5D
5E
5F
5G
5H
5I
5J
5K
5L
5M
5N
5O
5P
5Q
5R
5S
5T
5U
5V
5W
5X
5Y
5Z
6S
6S
6S
6R
6S
6T
6U
6L
6W
6S
3E
3F
3K
3G
3I
3J
3O
6S
[END OF TABLE
[DIGIT MATRICES
#6A 1202
1627
3746
4231
2112
0161
#6S 0000
#6B 0231
2127
1601
5100
#6C 1602
2737
4645
1211
4101
6100
#6D 1602
2737
4634
2434
4342
3121
1201
6100
#6E 3102
3713
4301
6100
#6F 1202
2131
4243
3414
1747
0161
0000
#6G 1302
2434
4342
3121
1216
2737
4601
6100
#6H 1702
4746
1101
6100
#6I 2102
1213
2434
4546
3701
2102
3142
4334
2415
1627
3701
6100
#6J 1202
2131
4246
3727
1615
2434
4501
[SPACE
#6K 6100
[END DIGITS
[ALPHABETIC MATRICES
#5A 0216
2747
5654
1454
5101
7100
#5B 0217
3746
4534
1444
5352
4111
0171
0000
#5C 5202
4121
1216
2747
5601
7100
#5D 0217
3755
5241
1101
7100
#5E 5102
1114
4414
1757
0171
0000
#5F 0214
4414
1757
0171
0000
#5G 4302
5351
2112
1627
4756
0171
0000
#5H 0217
1454
5751
0171
0000
#5I 0231
2127
1737
0151
0000
#5J 1202
2131
4247
3757
0171
0000
#5K 0217
0147
0214
4101
6100
#5L 1702
1141
0161
0000
#5M 0217
3457
5101
7100
#5N 0217
4147
0161
0000
#5O 1202
1627
4756
5241
2112
0171
0000
#5P 0217
4756
5544
1401
7100
#5Q 2102
1216
2747
5652
4121
4251
0171
0000
#5R 0217
4756
5544
1434
5101
7100
#5S 1202
2141
5253
4424
1516
2747
5601
7100
#5T 1702
5737
3101
7100
#5U 1702
1221
4152
5701
7100
#5V 1702
3157
0171
0000
#5W 1702
2134
4157
0171
0000
#5X 0257
0117
0251
0171
0000
#5Y 1702
3431
3457
0171
0000
#5Z 1702
5711
5101
7100
[-,+,|,
#6N 1402
5401
6100
#6O 1402
3436
3234
5401
6100
#6P 0247
0161
0000
[# = , COLON .
#6Q 2102
4701
6702
4101
1302
6301
2502
7501
7100
#6R 1402
5401
1302
5301
7100
#6T 0222
2313
1222
0131
0000
#3O 1402
2425
1514
0111
#6U 0221
2212
1101
3100
[LEFT,RIGHT
[PARENTHESES
#6W 2102
1315
2701
4100
#6L 0223
2517
0141
0000
[END OF SMPLTWYD
[AJH, JUNE 1967
[END SHORTENED SIMPLOT
[TABLE
#1B 0000
0000
0000
[END LABEL