[DBLFLT
[FLOPSY
[L2Q2,3
[DOUBLE
[PRECISION
[FLTG. PT.
[SUBROUTINES
$1000
[ADD
#5A CLR
ADD 0
JMP 7A
LDA 1
COM
ADA 2
SKP 14
JMP p+4
SCR 14
BCOi
7737
SCRi 1
ROLi 1
LZEi
COM
STC 7M+1
JMP 6I
LZE
JMP 6H
LDA 1
STA 3
LDAi 2
STAi 3
LDAi 2
STAi 3
JMP 7M
JMP 7H
JMP 7I-2
JMP 6G
LDAi 3
JMP 6C+2
SET 1
6G+1
SETi 2
0
JMP 6D
JMP 7Q
[SUBTRACT
#5B CLR
ADD 0
JMP 7A
JMP 6I
JMP 6D-2
JMP 6H
JMP 5A+3
[MULTIPLY
#5C CLR
ADD 0
JMP 7A
LDA 1
ADA 2
JMP 6E+1
STC 5E
JMP 6C
JMP 6I
JMP 6D
JMP 6H
JMP 6D
LDAi 2
LDAi 2
ROR 1
STA 2
JMP 6H
LDAi 1
MULi 2
STA 3
MSC 5
STAi 3
LDAi 1
ROR 1
MULi 2
ROL 1
STAi 3
JMP 6H+2
LDAi 1
MUL 2
JMP 5F
#5D JMP 6H
LDAi 1
LDAi 1
ROR 1
MULi 2
JMP 5F
JMP 6G
LDAi 3
LDAi 3
ROLi 1
ROL 1
BCLi
7776
STC 7P
JMP 6G
LDAi 3
ROLi 1
STAi 3
JMP 6G
LDA 3
STAi 3
JMP 6G
LDAi
#5E 0
STA 3
JMP 7Q
#5F STC 7X
JMP 6B
STC 7X+1
SETi 1
7X-1
JMP 6G
JMP 7H
SETi 2
-0
JMP 7I
SROi
2525
JMP 5D
JMP 5D+6
[DIVIDE
#5G CLR
ADD 0
JMP 7A
ADD 7K
STC 5J+1
LDAi 2
AZEi
HLT
JMP 6H
LDA 2
COM
ADA 1
JMP 6E+1
JMP 6C
JMP 6H
JMP 6D
JMP 6I
JMP 6D
JMP 6H
LDAi 1
STAi 3
LDAi 1
STAi 3
LDAi 2
COM
STC 7X+1
LDAi 2
COM
STC 7X+2
STC 7X
STC 7Y
SETi 2
7X-3
#5H JMP 6H+2
JMP p+2
#5I JMP 6I+2
JMP 7H
#5J SROi
0001
JMP 5M
SETi 5
-0
JMP 6G
LDAi 3
AZE
JMP 5K-3
LDAi 3
AZEi
JMP 5K+2
CLR
JMP 6G
LDAi 3
#5K APO
JMP 5L
LDA 2
BSE
5J+1
STA 2
XSKi 5
#5L SET 1
6G+1
JMP 6G
JMP 7H
XSK 5
JMP 5H
JMP 5I
#5M XSKi 2
XSKi 2
XSKi 2
SROi
3333
JMP 5J+3
JMP 6G
CLR
ADD 7X
STAi 3
CLR
ADD 7Y
STAi 3
JMP 7Q
[MOVE 1 TO 2
#6A LDA 1
STA 2
LDAi 1
STAi 2
LDAi 1
STAi 2
CLR
JMP 0
[Z TO A
#6B MSC 5
ROL 1
SKP 15
ADD 7K
JMP 0
[COM SETUP
#6C LDAi 1
BCOi 2
ROLi 1
LDAi
NOP
LZE
ADD p+3
STC 7S
JMP 0
JMP 6D-20
SETi 2
-0
[COM|ABS 1
#6D LDAi 1
SCRi 1
ROLi 1
XSK 2
LZE
COM
STA 1
LDAi 1
XSK 2
LZE
COM
STA 1
JMP 0
[OVF CHECK
#6E ADA 3
AZEi
CLR
STA 3
SKP 14
JMP 0
APO
HLT
[RESULT=0
#6F JMP 6G
LDAi
-3777
STA 3
CLR
STAi 3
STAi 3
JMP 7T
[SET 3
#6G SETi 3
0
JMP 0
[SET NORMAL
#6H SETi 2
7Y+4000
SETi 1
7X
JMP 0
[SET REVERSE
#6I SETi 2
7X
SETi 1
7Y
JMP 0
[SETUP
#7A BCLi
6000
STC 4
ADD 0
STC 7E
LDA 4
JMP 7G
JMP 7F
STC 7C
LDAi 4
JMP 7G
JMP 7E+1
STC 7D
LDAi 4
JMP 7G
NOP
STC 6G+1
#7B JMP 6I
SETi 1
#7C 0
JMP 6A
XSKi 2
SETi 1
#7D 0
JMP 6A
XSKi 4
ADD 4
ADD 7A+1
STC 7T
STC 7P
JMP 6G
JMP 6H
#7E RTN
STC 7D
ADD 7F+2
JMP 7B-1
#7F STC 7D
LDAi
7Z
STC 7C
JMP 7E+2
[IR+SIGN TEST
#7G APOi
XSKi 0
APO
COM
ADAi
-17
SCRi 1
ROLi 1
ADD 7G+3
LZEi
JMP 0
STC 1
LDA 1
ADD 7S-1
STA 1
ADAi
-3
JMP 0
[ADD 1 TO 3
#7H SET 4
0
CLR
JMP 6G
LDAi 1
STC 7J
LDAi 3
STC 7J+2
LDA 1
LAM 3
LDAi 1
LAMi 3
JMP 6G
STC 0
LAMi 3
STC 0
LAMi 3
JMP 4
SETi 2
0
[CHECK FOR
[ADD OVERFLOW
#7I SET 1
0
JMP 6G
LDAi
#7J 0
BCOi
0
APO
JMP 1
LDAi 3
BCO
7J
APOi
JMP 1
JMP 6G
LDAi
#7K 1
JMP 6E
LDAi
#7L -1
XSK 2
JMP 7M+2
ADD 7P
XSK 2
COM
STC 7P
JMP 6G
LDAi 3
BCOi
4000
STA 3
JMP 1
[SCR N  3
#7M LDAi
0
SET 2
0
AZEi
JMP 2
STC 5
SETi 4
-30
#7O CLR
JMP 6G
LDAi 3
SCRi 1
STA 3
LDAi 3
RORi 1
STA 3
XSKi 4
JMP p+2
JMP p+3
XSKi 5
JMP 7O
JMP 6G
LDAi 3
ROLi 1
LZE
COM
STC 7P
JMP 2
#7P 0
[NORMALIZE,
[ROUND,XIT
#7Q CLR
STC 1
ADD 7P
RORi 1
JMP 6G
LDAi 3
SAEi 3
JMP p+5
AZE
JMP p+3
LZEi
JMP 6F
JMP 6G
LDAi 3
APO
JMP 7U
ROL 1
APOi
JMP 7T+1
#7R JMP 6G
LDAi 3
LDAi 3
RORi 1
STC 0
LAM 3
JMP 6G
STC 0
LAMi 3
APO
JMP 7V
JMP 6G
CLR
ADD 1
COM
JMP 6E
SET 1
3
#7S NOP
CLR
#7T XIT
LDAi 3
ROLi 1
STA 3
JMP 6G
LDAi 3
ROLi 1
STA 3
XSKi 1
JMP 7R-3
#7U JMP 7V
JMP 7R
#7V CLR
ADD 0
STC 7W
ADD 7L
JMP 7M+2
ADD 7L
ADD 1
STC 1
LDA 3
BCLi
4000
STA 3
#7W RTN
[ARG 1
#7X 0
0
0
[ARG 2
#7Y 0
0
0
[FAC
#7Z 0
0
0
[TRANSFER
#5N CLR
ADD 0
JMP 7A
SET 2
7D
JMP 6A
JMP 7T-1
[FLOAT
#5O CLR
ADD 0
JMP 7A
ADD 7D
STC 6G+1
JMP 6G
LDAi
27
STA 3
JMP 5B-10
[FIX
#5P CLR
ADD 0
JMP 7A
ADD 7D
STC 6G+1
JMP 6G
LDAi
-27
JMP 6E
APOi
JMP 7T
JMP 7M+2
JMP 7T-1