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

[FPDECS
[FLOATING POINT TO 
[DECIMAL CONVERSION
[USES FLOS ,1S,1M,1D,1I,1X,1R,,,
[SINGLEPRECISION
[JMP 1Z
[ADDR OF FP#
[ADDR STRING E FORMAT OUTPUT,ENDS IN 77
[XR 1,2,3,4,5
[JAN 7|21|69
#1Z CLR
ADD 0
JMP 1X-1
ADD 1R+1
STC p+216-1
ADD 3
ADA i
-4000
STC 4 [OUTPUT STRING
LDA 2 [MOVE# TO p+211
STC p+210
LDA i2
STC p+206+1
LDA i [# DIGITS TO BE PRINTED
7
STC p+141+1
STC p+115+5 [NO DEC PT YET
ADD p+201
MUL
4000+p+201+2
STA i
 0 [EXP*LOG 2
STA
p+175+1 [FOR SIGN EXP
APO
COM
STC p+172 [|EXP|
ADD p+167+1
ROL i1
LZE
JMP p+4 [-
CLR [+
ADD p+170+2 [1
JMP p+4
ROR i1 [-, |MAN|
COM
STC p+156+1
ADD p-2 [17
JMP p+145 [STORE +,-
ADD p+161 [
STC p+164 [10 TO p+164
ADD p+157+1
STC p+162+1
ADD p+155+2 [1 TO p+163
STC p+162
ADD p+153+3
STC p+160+1
 ADD p+145 [FIXED PT EXP
AZE i
JMP p+17
SCR i1
STC p+141
LZE i
JMP p+5
JMP 1M
p+147
p+144
p+145
JMP 1M
p+141
p+140
p+137
CLR
JMP p-20
 ADD p+124+1 [SIGN EXP
APO i
JMP p+5
JMP 1D
p+124+2
p+131
p+130
[EXTRACT DIGIT
SET i5
0 [DIGIT COUNTER
[#-POWER 10
 JMP 1S
p+110
p+123
p+120
CLR
ADD p+116+1
APO [- RESULT?
JMP p+15 [YES,STORE DIGIT
CLR 
ADD 5
SHD i [9 YET?
1100
JMP p+10 [YES
XSK i5
LDA [MOVE #-POWER 10 TO #
p+104
STC p+71
ADD p+102+1
STC p+67+1
JMP p-23
 CLR
ADD 5
AZE [0?
JMP p+7 [NO,STORE
SRO i [DEC PT YET?
0000 
JMP p+4 [-0,YES
ADD p+56+1 [+0,NO
AZE
JMP p+40-4
JMP p+44 [STORE DIGIT
SRO [DEC PT YET?
p-7
JMP p+6 [-0,YES
LDA i [+0,STORE.
64
JMP p+36
COM
STC p-22+5 [SET FLAG
 SRO i [ADD DIGITS YET?
7
JMP p+24 [1,CONTINUE
SRO i [0,YES
5252 [BEEN HERE YET?
JMP p+26+3 [FINISH
LDA i
30 [NO,PRINT E
STH i4
[SET  UP FOR EXP CONVERSION
LDA i
3
STC p-13+1
JMP 1I
p-150
p+24
LDA i
2 [APPROX POWER 10 FOR EXP
JMP p-154-1
CLR [LOWER POWER 10 BY 1
ADD p-156
ADD p+20+3 [-1
STC p-160
 JMP 1D
p+27
p+20
p+25
JMP p-101-2
 STH i4
CLR
JMP 0
[FINISH
LDA i
77
STH i4
JMP RETURN
 0 [# TO BE CONVERTED
0
 0 [|EXP|
0 [SIGN EXP
1151 [LOG 2
-1
 4 [10
2400
1 [1
2000
 0
0
 0
0
[END FPDECS