[ABCDEPLT
[ADD TO DIMETRIC
[----
[MAIN PART
LDA
6A
MULi
#6A 0     [A
STC 6G
ADD 6B
MULi
#6B 0     [B
ADD 6G
STC 6G
ADD 6C
MULi
#6C 0     [C
ADD 6G
STAi
#6G 0     [A.A + B.B + C.C
CLR
STC 6F
LDAi
1
ADMi
#6F 0     [SQRT [A.A + B.B + C.C]
MUL
p-2
COM
ADD 6G
APOi
JMP 6F-3
LDAi
#6D 0     [D
MUL
6A
STAi
#6H 0     [A.D
LDA
6E
MUL
6B
STAi
#6J 0     [B.D
LDAi
#6E 0     [E
MUL
6C
STAi
#6K 0     [B.C.E
MUL
6A
STAi
#6L 0     [A.C.E
LDA
6K
MUL
6B
STC 6K
[END MAIN PART
[---
[INSERT 4V
#4V SET 17
0
LDA
6F
ROL 1
STC 7C
ADD 4Y
MUL
6H+4000
JMP 6P
ADD 4X
MUL
6J+4000
JMP 6Q
STAi
#6M 0     [X TEMP
LDA
6G
ROL 1
STC 7C
ADD 4X
COM
MUL
6L+4000
JMP 6P
ADD 4Y
MUL
6K+4000
JMP 6Q
STC 4Y
ADD 6M
STC 4X
JMP 17
[LOAD DIVIDEND
#6P STC 7A
ZTA
LZE
COM
ROL 1
STC 7B
JMP 0
[ADD TO DIVIDEND AND DIVIDE
#6Q SET 16 
0
STC p+14
ZTA
LZE
COM
ROL 1
STC p+3
CLR
LDAi
0
LAM
7B
LDAi
0
LAM
7A
STC 0
LAM
7B
STC 0
LAM
7A
JMP 7D
LDA
7B
JMP 16
[END INSERT 4V
[DPDIV2
[DOUBLE PREC.
[DIVISION SUB-
[ROUTINE.
[ON ENTRY -
[DIVIDEND MSB
[IN 7A, LSB IN
[7B, DIVISOR
[IN 7C.
[ON EXIT -
[QUOTIENT MSB
[IN 7A, LSB IN
[7B, DIVISOR
[UNCHANGED IN
[7C. REMAINDER
[IN ACCUMUL.
[AJH APR.67
#7D LDA
0
STC 7A+10
LDAi
#7C 0
AZEi
JMP 0
APOi
COM
STC 7B-11
STC 7B-13
ADD 7A
STAi
0
APOi
JMP p+6
COM
STC 7A
ADD 7B
COM
STC 7B
LDAi
3777
STC 7B+2
ADD 7B-2
STC 7B+5
CLR
ADD 7B
ROLi1
STC 7B
ADD 7A
ROLi1
STC 7A
ADD 7B-13
ROLi1
STAi
0
ADAi
0
AZEi
COM
APO
JMP p+6
STC 7B-13
LDAi
1
ADMi
#7B 0
SROi
3777
JMP 7B-25
SROi
0001
JMP 7B-25
LDA
7C+11
APOi
JMP p+5
LDA
7B-13
COM
STC 7B-13
LDA
7C
BCO
7C+11
APOi
JMP p+10
LDAi
#7A 0
COM
STC 7A
ADD 7B
COM
STC 7B
LDA
7B-13
JMP 000
[END
[A OR #6A IS EQUIVALENT TO X SHIFT OF TRIPLOT
[B OR #6B IS EQUIVALENT TO Z SHIFT OF TRIPLOT
[C OR #6C IS NOT REPRESENTED IN TRIPLOT
[D OR #6D IS AN X AXIS SCALE FACTOR
[E OR #6E IS A Y AXIS SCALE FACTOR