[GLOBEPLT
$20
LDAi
2525
STC 9Y+3
SNSi2
JMP 9D
JMP 3T
JMP 4P
1000
1000
JMP 4Q
SETi1
8L-1
#9Z LDAi1
SAEi
6777
JMP p+2
JMP 9C
APO
JMP 9Y+1
JMP 8R
ADD 8X
STC 9X
ADD 8Y
STC 9Y
JMP 4P
#9X 0
#9Y 0
JMP 3L
SROi
2525
JMP 9Z
JMP 3R
SNS 0
JMP 9Z
KBDi
SAEi
13
JMP 9Z
LDA
1
ADAi
-1
STC 2
LDA 2
APOi
COM
STA 2
LDAi2
APOi
COM
STA 2
JMP 9Z
#9C HLT
#9D SETi2
-240
RSW
BCLi
7760
ROL 1
ADAi
8T+4000
STAi
#9B 0
SETi1
0
#9A LDA
1
JMP 8R
SET 15
9B
SNS 5
JMP p+3
JMP 8E
JMP p+2
JMP 8D
LDA
1
JMP 8W
XSKi1
NOP
XSKi2
JMP 9A
JMP 9Z-7
[PICKUP COORDINATES
#8R SET 17
0
MULi
3
ADAi
8C
STC 16
LDA 16
STC 8X
LDAi16
STC 8Y
LDAi16
STC 8Z
JMP 17
[SAVE COORDINATES
#8W SET 17
0
MULi
3
ADAi
8C
STC 16
LDAi
#8X 0
STA 16
LDAi
#8Y 0
STAi16
LDAi
#8Z 0
STAi16
JMP 17
[ROTATE X
#8D LDA
8X
MUL 15
STAi
#8A 0
LDA
8Z
MUL 15
STAi
#8B 0
LDA
8X
MULi15
ADD 8B
STC 8B
ADD 8Z
MUL 15
COM
ADD 8A
STC 8X
ADD 8B
STC 8Z
JMP 0
[ROTATE Y
#8E SET 17
0
LDA
8X
STC p+7
ADD 8Y
STC 8X
JMP 8D
ADD 8X
STC 8Y
LDAi
0
STC 8X
JMP 17
[COS SIN TABLE
#8T 3777
0000
3731
0617
3544
1420
3247
2162
2650
2650
[END 
[SIMPLOT
#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
$2001
#8L 1
2
1
3
1
4
1
5
1
6
1
7
1
10
1
11
1
12
1
13
1
14
1
15
15
2
2
3
3
4
4
5
5
6
6
7
7
10
10
11
11
12
12
13
13
14
14
15
2
16
3
17
4
20
5
21
6
22
7
23
10
24
11
25
12
26
13
27
14
30
15
31
16
17
17
20
20
21
21
22
22
23
23
24
24
25
25
26
26
27
27
30
30
31
31
16
6777
[TEMP END
$3000
#8C 0
1
2
[PLANE 0
0
0
0
[PLANE 1
0
400
100
200
340
100
340
200
100
400
0
100
340
-200
100
200
-340
100
0
-400
100
-200
-340
100
-340
-200
100
-400
0
100
-340
200
100
-200
340
100
[PLANE 2
0
700
400
340
600
400
600
340
400
700
0
400
600
-340
400
340
-600
400
0
-700
400
-340
-600
400
-600
-340
400
-700
0
400
-600
340
400
-340
600
400
[PLANE 3
0
1000
1000
400
700
1000
700
400
1000
1000
0
1000
700
-400
1000
400
-700
1000
0
-1000
1000
-400
-700
1000
-700
-400
1000
-100
0
1000
-700
400
1000
-400
700
1000
[TEMP END