[PLOTXMAG
[SPECIAL PLOTTER TEST
$20
JMP 4Q
CLR
STC 1D
SETi1
1A+3777
#1B LDHi1
SHDi
7700
JMP 1F
AZEi
JMP 1C
MULi
#1G 14
STC p+6
LDHi1
MUL 
1G
STC p+3
JMP 4P
0
0
JMP 1B
#1C SROi
#1D 0000
JMP 1E
JMP 3L
CLR
COM
STC 1D
JMP 1B
#1E JMP 3R
CLR
STC 1D
JMP 1B
#1F JMP 4Q
LDA
1G
MULi
3
SCR 3
JMP 3S
SETi1
1H+3777
#1K LDHi1
SHDi
1200
JMP 1L
JMP 4U
JMP 1K
#1L LDA
1G
MULi
120
STC p+2
JMP 4P
1400
0000
JMP 4Q
HLT
RSW
BCLi
7760
STC 1G
JMP 20
#1H"HO? HO? HO=
'
[ADD SIMPLOT
[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.
[COMPLEMENT ACCUM.
[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
ADD 4U+3
ADAi
-67
APOi
JMP p+4
LDAi
-1
JMP p+3
LDAi
-4
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
6R
6S
6T
6U
6L
6W
6S
6S
6S
6S
3E
3F
3K
3G
3I
3J
3O
6S
[END OF TABLE
[DIGIT MATRICES
#6A 1202
1627
3746
4231
2112
0151
#6S 0000
#6B 0231
2127
1601
4100
#6C 1602
2737
4645
1211
4101
5100
#6D 1602
2737
4634
2434
4342
3121
1201
5100
#6E 3102
3713
4301
5100
#6F 1202
2131
4243
3414
1747
0151
0000
#6G 1302
2434
4342
3121
1216
2737
4601
5100
#6H 1702
4746
1101
5100
#6I 1202
1324
3445
4637
2716
1524
3443
4231
2112
0151
0000
#6J 1202
2131
4246
3727
1615
2434
4501
[SPACE
#6K 5100
[END DIGITS
[ALPHABETIC MATRICES
#5A 0216
2747
5654
1454
5101
6100
#5B 0217
3746
4534
1444
5352
4111
0161
0000
#5C 5202
4121
1216
2747
5601
6100
#5D 0217
4756
5241
1101
6100
#5E 5102
1114
4414
1757
0161
0000
#5F 0214
4414
1757
0161
0000
#5G 4302
5351
2112
1627
4756
0161
0000
#5H 0217
1454
5751
0161
0000
#5I 0231
2127
1737
0141
0000
#5J 1202
2131
4247
3757
0161
0000
#5K 0217
1447
1441
0151
0000
#5L 1702
1141
0151
0000
#5M 0217
3457
5101
6100
#5N 0217
4147
0151
0000
#5O 1202
1627
4756
5241
2112
0161
0000
#5P 0217
4756
5544
1401
6100
#5Q 2102
1216
2747
5652
4121
4251
0161
0000
#5R 0217
4756
5544
1434
5101
6100
#5S 1202
2141
5253
4424
1516
2747
5601
6100
#5T 1702
5737
3101
6100
#5U 1702
1221
4152
5701
6100
#5V 1702
3157
0161
0000
#5W 1702
2134
4157
0161
0000
#5X 0234
1734
5734
5101
6100
#5Y 1702
3457
3431
0161
0000
#5Z 1702
5711
5101
6100
[-,+,|,
#6N 1402
5401
6100
#6O 1402
3436
3234
5401
6100
#6P 0247
0151
0000
[TAG = , .
#6Q 2102
4701
6702
4101
1302
6301
2502
7501
7100
#6R 1402
5401
1302
5301
6100
#6T 0222
2313
1222
0131
0000
#6U 0221
2212
1101
3100
[LEFT,RIGHT
[PARENTHESES
#6W 2102
1315
2701
3100
#6L 0223
2517
0131
0000
[SYMBOL MATRICES
[OMITTED
[END OF SIMPLOT.
[AJH, JUNE 1967
[TABLE FOR XMAG
#1A 0402
0006
1111
1615
2022
2127
2224
2723
3322
4321
4420
4220
4021
3522
3323
3322
4321
5022
5324
5727
6231
6435
6140
5744
5650
5650
5344
5340
5434
5631
6027
6231
#2A 6434
6641
7050
6754
6756
6656
6455
6054
6053
5654
5456
5460
5560
5755
6054
6054
6252
6350
5650
5351
5051
4550
4347
4246
4246
4545
4744
5340
5436
5333
5327
5525
#2B 5423
5022
4324
4326
4430
4432
4234
4236
4441
4443
4350
4450
4352
4453
4351
3450
3347
3347
3350
3650
4050
3651
3652
4152
4351
4347
4047
4247
3150
2753
2364
1670
#2C 1372
1073
0204
0200
2722
0030
1530
0230
1531
1134
1435
1440
1046
1650
2350
2747
3145
2641
2235
2031
2027
2231
1734
1435
1440
1544
2050
2700
4616
0040
0234
0235
1036
1235
1032
1132
1232
1131
0630
0200
4327
0042
3400
#2D 4131
0041
3040
2600
3024
0031
2132
2000
3521
0037
2400
3727
0035
3033
2731
3027
3032
2634
2637
2732
2727
3000
2733
0026
3125
3100
2432
0025
2700
2235
0021
4021
4322
4200
2443
0024
4125
#2E 3731
3732
4234
4235
4036
3741
3743
4043
4300
2743
0027
4130
4327
4325
4227
4131
4230
4300
3141
0027
4026
4000
3542
0037
4340
4241
4241
4337
4341
4342
4241
4137
#2F 4135
4200
3541
0037
4041
4000
4344
0041
4536
4534
4300
2444
0026
4531
4432
4332
3731
3432
3333
3334
3435
3336
3435
3636
3435
3331
3331
3400
1165
0010
6605
#2G 6603
6501
6201
6002
6104
6406
6507
6507
6410
6410
6507
6510
6511
6511
6410
6410
6311
6311
6411
6110
5706
5606
5510
5512
6012
6411
6513
6615
6615
6511
6500
7602
#2H 7777
[END TABLE XMAG