[PLOTLINU
[SPECIAL PLOTTER TEST
$20
JMP 4Q
CLR
STC 1D
SETi1
1A+3777
#1B LDHi1
SHDi
7700
JMP 1F
AZEi
JMP 1C
MULi
#1G 1
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 HALT
RSW
STC 1G
JMP 20
[ADD SIMPLOT
[ R
[  E
[   M
[    O
[O    V
[ R    E
[  I
[   G
[    I
[     N
$400
[  ------
[   ----
[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
[TABLE FOR LINUS
#1A 0110
0004
1103
1403
1604
2005
2107
2110
2011
1612
1613
1713
2016
2021
2521
2717
3120
3220
3421
3624
3722
4020
4421
4622
5023
5123
5525
5730
6026
5526
5200
2553
#2A 0030
5400
3053
0031
5634
6226
6023
5621
5420
5200
1753
0020
5622
6025
6130
6032
6335
6441
6334
6240
6244
6046
5650
5753
5754
5654
4650
3447
3447
4646
4545
4644
#2B 4545
4443
4542
4544
4342
4541
4541
4442
4341
4440
4342
4140
3736
3435
3235
3036
2741
2744
3344
3643
4046
4346
4500
4656
0042
5237
4434
3532
3530
3630
4031
4130
#2C 4227
4130
4227
4426
4327
4226
4325
4326
4225
4324
4225
4226
4124
4000
2442
0023
4124
3700
2032
0022
3025
3030
3600
3435
0032
2632
1633
1136
0640
0747
0660
0764
#2D 0760
0760
1154
1252
1247
1152
1351
1546
1543
1446
2046
2344
2337
1736
2236
2700
3432
0034
2035
1241
1537
1142
1245
1245
1143
1050
1000
3311
0031
1030
1026
0623
#2E 0622
1122
1623
2026
2130
2032
2030
2031
1530
1023
1222
1114
1213
1212
1111
1110
1005
1004
1110
1400
1116
0012
1311
1100
1316
0013
1216
1316
1513
1700
1620
0022
#2F 1700
2320
0021
2117
2100
2547
0027
5000
3246
0030
4630
4731
5032
5000
3350
0035
4700
3454
0036
5437
5300
3352
0036
5542
5645
5542
6035
6031
5500
3742
0043
5000
#2G 4346
0047
5451
5450
5051
4752
4100
4331
0042
2640
2540
2000
2733
0033
3200
3230
0026
3100
2530
0030
2732
2732
2626
2621
2700
2125
0027
2432
2432
2226
2223
2320
#2H 2300
2022
0023
2226
2132
2100
3626
0040
2642
2700
3625
0040
2500
3623
0040
2400
3622
0040
2200
3721
0040
2100
7601
7777
[END TABLE LINUS