[PLOTCAT
[SPECIAL PLOTTER TEST
$20
JMP 4Q
CLR
STC 1D
SETi1
1A+3777
#1B LDHi1
SHDi
7700
JMP 1F
AZEi
JMP 1C
MULi
#1G 20
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
40
STC p+2
JMP 4P
2340
0000
HLT
JMP 20
[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
[CATBRAIN
[TABLE FOR PLOT
[AJH 19 FEB.1968
#1A 7052
0070
4267
4160
4153
4034
4030
4126
4224
4423
5024
5426
5730
6134
6342
6446
6453
6250
6053
6260
6162
6064
5766
5570
5471
5271
4672
4271
4674
4373
4170
4053
4070
4073
3774
3571
3272
3671
3271
2670
2466
2364
2162
#2B 2060
1753
1650
2053
1646
1442
1434
1530
1726
2124
2423
3024
3426
3630
3734
4053
4060
3767
3770
3670
#2C 3000
6623
0064
2363
2500
6353
0064
5566
5500
6260
0055
5753
5652
5550
5442
5536
5532
5334
#2D 6200
3261
0030
5625
5126
4631
4533
4537
4741
4752
4660
5157
5560
5166
4400
6634
#2E 0060
2757
2360
2752
3241
3137
3133
3331
3326
3225
2730
2232
1700
3416
#2F 0032
2536
2342
2350
2452
2353
2255
2162
2000
4015
0043
2000
4360
0040
6300
2657
#2G 0024
5717
5513
4712
4405
4312
4411
4111
3712
3405
3512
3413
3117
2323
2126
2100
1633
#2H 0014
3614
4216
4500
2147
0017
4317
3521
3100
2435
0020
3600
2042
0024
4300
3474
0034
0400
7601
7777
[END OF TABLE CATBRAIN