[PLOTSNOO
[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"FROM THE NEUROPHARMACOLOGY GROUP
'
[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
[SYMBOL X
#3E 0226
6244
6622
4400
[SYMBOL +
#3F 0247
4144
1474
4400
[SYMBOL SQUA
#3G 0117
0277
7111
1701
4400
[SYMBOL TRIA
#3K 0147
0212
7247
0144
0000
[SYMBOL 0
#3I 0137
0257
7573
5131
1315
3701
4400
[SYMBOL DIAM
#3J 0147
0274
4114
4701
4400
[SYMBOL STAR
#3O 0147
0221
7515
6147
0144
0000
[END OF SIMPLOT.
[AJH, JUNE 1967
[TABLE FOR SNOOPY,1967
#1A 0434
0002
3402
4701
4701
2302
2302
3604
3604
3005
2713
2724
3706
2211
1520
1243
3434
2544
2560
2674
3076
3776
4676
4674
4772
4770
4666
4464
4045
4346
5245
5446
5650
5754
5755
6156
6356
6555
6652
7050
7046
6645
6744
6640
7235
7234
7133
7232
7132
7034
7034
7133
6634
6537
6540
6637
6534
6536
6340
6243
6143
6043
5742
5536
5136
5042
5232
4532
4732
#2B 4431
4532
5224
4414
4510
4406
4405
4304
4204
3400
1227
0012
4400
2444
0031
4434
4240
4144
4245
4345
4242
4036
4031
4230
4400
3243
0043
5035
4535
4200
4656
0050
#2C 5674
6376
6375
6076
5776
5265
5160
5245
5442
5543
5746
5600
4461
#2D 0046
6447
6546
6646
6744
6644
6545
6446
6452
6153
6247
6500
4360
0045
6150
6000
5763
0061
6464
6567
6470
6300
6251
0052
4200
6636
#2E 0061
3261
3062
2764
2771
3273
3500
1027
0010
4400
5354
0053
5653
5554
5554
5654
5400
5554
0055
5656
5656
5456
5555
5500
5754
0057
5660
5660
5557
5500
6154
0061
5662
5662
5561
5500
6354
0064
5464
5664
5563
5563
5600
6654
0066
5667
5567
5466
5400
7054
0070
5671
5671
5471
5570
5500
7254
0073
5473
5673
5572
5572
5600
7454
0075
5475
5574
5574
5675
5600
1001
7777
[END OF TABLE FOR SNOOPY - - THE ONLY TRUE-BLUE ENEMY OF THE RED BARON+