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

[DECFPS
[DECIMAL TO FLOATING
[POINT CONVERSION
[SINGLE PRECISION
[USES FLOS 1A,1M,1D,1J,1X,1R,1N,,
[JMP 1P
[ADDR INPUT STRING I,E,F FORMAT,ENDS IN 77
[ADDR FP OUTPUT
[XR 1,2,3,4
[JAN 7|15|69
#1P CLR
ADD 0
JMP 1X-1
ADD 1R+1
STC p+145-1
ADD 3
STC p+134 [OUTPUT ADDR
ADD 2
ADA i
-4000
STC 4 [INPUT STRING
STC p+107+1 [NO E YET
 STC p+55+5 [NO . YET
STC p+3+24 [E +
STC p+214   [INITIAL 0
STC p+213+1
 LDH i4  [INPUT NEXT CHAR
SHD i  [-
1700
JMP p+42
SHD i  [+,SIGNS SET
2000
JMP p-6
SHD i  [.
6400
JMP p+24
SHD i  [END OF #
7700
JMP p+66
SHD i [BLANK
1400
JMP p-17
SAE i  [E
0030
JMP p+27 [DIGIT
LDA i [E
SIGN EXP
STC p+55+7 [MOVE SIGN
COM [SET FLAG
STC p+53+1
ADD p+162 [MOVE MAN
STC p+157
ADD p+160+1
STC p+155+1
JMP p-40
 CLR [DEC PLACE ENCOUNTERED
COM 
STC p+12+5
[MOVE 10 TO p+154
ADD p+144
STC p+153
ADD p+142+1
STC p+151+1
JMP p-44
[NEGATIVE SIGN
 CLR
COM
STC p-47+24
JMP p-50
[DIGIT,EVALUATE #
 STC p+131
[FLOAT DIGIT
JMP 1I
p+127
p+126
SRO i [DEC PT?
0000 [DEC PT INDICATOR
JMP p+12 [-0,YES
[MUL BY 10, +0 N0
JMP 1M
p+131
p+122
p+127
[ADD NEW DIGIT
JMP 1A
p+125
p+114
p+123
JMP p-70
[AFTER DEC PT,DIV BY POWERS OF 10
 JMP 1D
p+110
p+121
p+106
[INCREAS POWER OF 10
JMP 1M
p+116
p+105
p+114
JMP p-10-5
[WRAP UP
 SRO i [E?
0000 [E FLAG
JMP p+25 [-0,E
LDA  [+0,NO E
p-106+24
STC p+2
SRO i
SIGN MAN
JMP p+2 [-
JMP p+5
LDA
p+75+1
COM 
STC p+73+1
[MOVE RESULT TO OUTPUT AREA
CLR
SET i2
 OUTPUT ADDR
ADD p+67
STA 2
LDA
p+64+1
STA i2
JMP RETURN
[FIX EXPONENT
 JMP 1J
p+60
p+47
[EXP OVER OR UNDERFLOW CAUGHT BY FLOS
[10 TO THE |EXP|
 CLR
ADD p+47 [MOVE 10 TO p+55
STC p+54
ADD p+45+1
STC p+52+1
ADD p+43+2 [MOVE 1 TO p+53
STC p+52
ADD p+41+3
STC p+50+1
 ADD p+35 [FIXED PT EXP
AZE i
JMP p+17
SCR i 1
STC p+31
LZE i
JMP p+5
JMP 1M
p+37
p+34
p+35
JMP 1M
p+31
p+30
p+27
CLR
JMP p-20
 ADD p-166+24 [EXP SIGN
APO i
JMP p+5
JMP 1D
p+12+2
p+21
p+20
[10 TO EXP * |MAN|
JMP 1M 
p+16
p+11
p+12
JMP p-77+6
 0
0
 4 [CONSTANT 10
2400
1 [CONSTANT 1
2000
 0
0
 0
0
 0
0
[END DECFPS