[SPFLT
[SNGL PRCISION
[FLTING PT
[PACKAGE
[OF DILL
[STAUFFER AND
[STACY
[U.N.CAROLINA
$1400
#1M 0
#1E 0
#2M 0
#2E 0
[CONS FOR FIX
[TO FLT CONV
#3K 13
[PICK 1---
[COMMON TO ALL
[SUBROUTINES
#1P ADA i
3
STA
3P
ADA i
-6003
STC 3
LDA 3
STC 1
LDA i 3
STC 2
LDA i 3
STC 3
LDA 2
STC 2M
LDA i 2
STC 2E
LDA 1
STC 1M
LDA i 1
STC 1E
SET i 1
1M
SET i 2
2M
JMP 0
[ADD SUBROUT
[SUB ENTRANCE
CLR
ADD 0
JMP 1P
ADD 2M
COM
STC 2M
JMP p+4
[ADD ENTRANCE
CLR
ADD 0
JMP 1P
LDA 1
BCO 2
APO
JMP p+4
LDA i
#5Z NOP
JMP p+3
LDA i
JMP 1N
STC 2A
ADD 2E
COM
ADD 1E
AZE
JMP p+3
LDA 2
JMP 2A-1
APO i
JMP p+6
COM
SET i 1
2M
SET i 2
1M
STA 3
LDA 1
AZE i
JMP 4A
LDA 3
ADA i
-13
APO i
JMP 2P
ADA i
SCR i 13
STC 1A
LDA 2
#1A 0
JMP 2R
ADM 1
#2A 0
BCO 2
APO i
JMP 2P
LDA 1
SCR i 1
BCO i
4000
JMP 2R
STA 1
SET 2
#1K 1
LDA i 2
ADD 1K
STA 2
[PICK 2
[COMMON TO ALL
[SUBROUTINES
#2P LDA 1
STA 3
LDA i 1
STA i 3
CLR
#3P 0
[ROUNDS OFF
#1R SRO i
5252
JMP 0
#2R STC 1A
ADD 0
STC 3R
ADD 1A
APO
JMP p+4
LZE
ADD 1K
JMP 0
LZE i
ADD 2K
#3R 0
[DIVIDE SUB
CLR
ADD 0
JMP 1P
ADD 2E
COM
JMP 3E
LDA 1
BCO 2
ROL 1
BCL i
#2K 7776
ADD 5Z
STC 4Z
STA 3
LDA 2
AZE
JMP p+4
LDA i
3700
STC 1E
APO
COM
STA 2
LDA 1
APO
COM
STA 1
COM
ADA 2
APO i
JMP 1D
LDA 1
SCR i 1
JMP 1R
STC 1M
ADD 1E
ADD 1K
STC 1E
#1D LDA 2
COM
JMP p+2
#2D LDA 2
ADA 1
ADA 1
STA 1
APO i
JMP 3D
AZE
JMP 4D
#3D LDA 3
BSE i
#5D 4000
STA 3
SRO
5D
JMP 7D
JMP 1D
#4D SRO
5D
JMP 7D
JMP 2D
#7D LDA 3
SCR i 1
BCL i
4000
#4Z 0
STA 3
JMP 3M
[MULTIPLY SUB
CLR
ADD 0
JMP 1P
ADD 2E
JMP 3E
LDA 1
MUL
2M+4000
STA 3
LDA 1
MUL 2
ROL i 2
LDA 3
#3M ROL 1
BCO 3
APO
JMP 4M
LDA 3
ROL i 1
STA 1
CLR
ADD 1E
ADD 2K
STC 1E
JMP 2P
#4M LDA 3
JMP 1R
STA 1
JMP 2P
[FIX TO FLOAT
[ENTER WITH ADD
[IN A REGISTER
STC 1
LDA 1
STC 2E
SET i 1
2E
ADD 0
STC 3P
JMP 1P+21
[NORMALIZE SUB
#1N SET 2
1
XSK i 2
LDA 1
AZE
JMP 2N
STA 2
JMP 2P
#2N ROL 1
BCO 1
APO
JMP 2P
LDA 2
ADD 2K
STA 2
LDA 1
ROL 1
STA 1
JMP 2N
[EXPONENT CHK
#3E ADM
1E
APO
COM
ADD 1N
APO
HLT
JMP 0
[TFL 
CLR
ADD 0
ADD 4A+1
JMP 1P+2
#4A SET 1
2
JMP 2P