Directory of image this file is from
This file as a plain text file

[FPDECD
[FLOATING POINT TO 
[DECIMAL CONVERSION
[USES FLOD ,1S,1M,1D,,1X,1N,,1R,
[DOUBLE PRECISION
[JMP 1Z
[ADDR OF FP #
[ADDR STRING E FORMAT OUTPUT,ENDS IN 77
[XR 1,2,3,4,5
[JAN 7|18|69
#1Z CLR
ADD 0
JMP 1X-1
ADD 1R+1
STC p+235-1
ADD 3
ADAi
-4000
STC 4 [OUTPUT STRING
LDA 2 [MOVE #TO p+230
STC p+227
LDA i2
STC p+225+1
LDA i2
STC p+223+2
LDA i [# DIGITS TO BE PRINTED
 77
STC p+152+1
STC p+126+5 [NO DEC PT YET
ADD p+216
MUL
4000+p+217+2
STA i
 0 [EXP*LOG 2
STA
p+213+1 [FOR SIGN EXP
APO
COM
STC p+210 [|EXP|
ADD p+204+1
ROL i1
LZE
JMP p+4 [-
CLR [+
ADD p+206+3 [1
JMP p+7
ROR i1 [-, |MAN|
COM
STC p+173+1
ADD p+172+2
COM 
STC p+170+2
ADD p-2 [17
JMP p+160 [STORE +,-
ADD p+174 
STC p+201 [10 TO p+201
ADD p+172+1
STC p+177+1
ADD p+170+2
STC p+175+2
ADD p+166+3 [1 TO p+177
STC p+176
ADD p+164+4
STC p+174+1
ADD p+162+5
STC p+172+2
 ADD p+154 [FIXED PT EXP
AZE i
JMP p+17
SCR i1
STC p+150
LZE i
JMP p+5
JMP 1M
p+161
p+155
p+157
JMP 1M
p+152
p+151
p+150
CLR
JMP p-20
 ADD p+133+1 [SIGN EXP
APO i
JMP p+5
JMP 1D
p+133+3
p+143
p+142
[EXTRACT DIGIT
SET i5
0 [DIGIT COUNTER
[#-POWER 10
 JMP 1S
p+116
p+135
p+131
CLR
ADD p+127+1
APO [- RESULT?
JMP p+17 [YES,STORE DIGIT
CLR 
ADD 5
SHD i [9 YET?
1100
JMP p+12 [YES
XSK i5
LDA [MOVE #-POWER 10 TO #
p+115
STC p+77
ADD p+113+1
STC p+75+1
ADD p+111+2
STC p+73+2
JMP p-25
 CLR
ADD 5
AZE [0?
JMP p+7 [NO,STORE
SRO i [DEC PT YET?
0000 
JMP p+4 [-0,YES
ADD p+62+1 [+0,NO
AZE
JMP p+45-4
JMP p+51 [STORE DIGIT
SRO [DEC PT YET?
p-7
JMP p+6 [-0,YES
LDA i [+0,STORE.
64
JMP p+43
COM
STC p-22+5 [SET FLAG
 SRO i [ADD DIGITS YET?
177
JMP p+31 [1,CONTINUE
SRO i [0,YES
5252 [BEEN HERE YET?
JMP p+33+3 [FINISH
LDA i
30 [NO,PRINT E
STH i4
[SET  UP FOR EXP CONVERSION
LDA i
3
STC p-13+1
ADD p-160
STA
p+30+1
SCR 13
STC p+26
JMP 1I
p+24
p+23
LDA i
2 [APPROX POWER 10 FOR EXP
JMP p-172-1
CLR [LOWER POWER 10 BY 1
ADD p-174
ADD p+20+3
STC p-176
 JMP 1D
p+32
p+20
p+30
JMP p-110-2
 STH i4
CLR
JMP 0
[FINISH
ADD p-216 [77
STH i4
JMP RETURN
 0 [# TO BE CONVERTED
0
0
 0 [|EXP|
0 [SIGN EXP
1151 [LOG 2
-1
 4 [10
2400
0
1 [1
2000
0
 0
0
0
 0
0
0
[END FPDECD