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

[DECFPD
[DECIMAL TO FLOATING
[POINT CONVERSION
[DOUBLE PRECISION
[USES FLOD-1R
[JMP 1P
[ADDR INPUT STRING,ENDS IN 77
[OUTPUT FP
[USES XR 1,2,3,4
#1P LDA
0
JMP 1X-1
ADD 1R+1
STC p+260
ADD 2
ADD 1M+62 [CONSTANT -4000
STC 4  [INPUT STRING
ADD 3 [OUTPUT ADDR
STC p+251
STC p+127 [SIGN FLAG 1
STC p+135 [SIGN FLAG 2
STC p+262 [FP BUFFER
STC p+261+1
STC p+260+2
STC p+24 [DEC PT FLAG
STC p+225 [FRACTION SIGN
STC p+210 [EXP. SIGN
STC p+142 [EXP. COUNTER
ADD 1Q [CONSTANT LDA i
STC p+101
 LDH i4
SHD i
1400
JMP p-3 [SUPPRESS BLANKS
 JMP p+57 [NUMERIC?
JMP p+36 [NOT NUMERIC
STC p+240+1
COM
STC p+104 [NEXT SIGN IS D
STC p+235
[FLOAT DIGIT
JMP 1I
p+233
p+232
SRO i
 0 [DEC PT FLAG
JMP p+13
[NUM=NUM*10
JMP 1M
p+230
p+216
p+226
[NUM=NUM+DIGIT
 JMP 1A
p+224
p+220
p+222
LDH i4
JMP p-25
[DIGIT|POWER OF TEN
 JMP 1D
p+213
p+220
p+211
[INCREASE POWER OF TEN
JMP 1M
p+215
p+200
p+213
JMP p-16
 SHD i
".;
JMP p+33 [DOT
SHD i
"E;
JMP p+60 [E
 SHD i
"-;
JMP p+40 [SIGN
SHD i
"+;
JMP p+35 [SIGN
SHD i
7700
JMP p+67
 HLT [INVALID CHARACTER OR SYNTAX
[NUMERIC TEST--SKIP IF NUMERIC
 ADA i
-11
APO
XSK i0
LDH 4
JMP 0
[MOVE ROUTINE
 LDA 1
STA 2
LDA i1
STA i2
LDA i1
STA i2
JMP 0
[DECIMAL PT FOUND
 LDA i
JMP p-17
STC p-2 [NEXT . ERROR
COM
STC p-66
[SET-UP FOR POWER OF TEN MULTIPLY
SET i1
p+132
SET i2
p+144
JMP p-20
JMP p-60-2
[SIGN ROUTINE
 SRO i
 0 [0 FOR FIRST SIGN
JMP p+5
STC p+102
COM
STC p-4
JMP p-121
 SRO i
 0 [0 FOR SECOND SIGN
JMP p-42 [TOO MANY SIGNS
STC p+57
COM
STC p-4
[READ-IN EXPONENT AND CONVERT TO FP
 LDH i4
SHD i
1400
JMP p-3 [SUPPRESS BLANKS
JMP p-51 [NUMERIC?
JMP p-64 [TEST FOR +,-,77 ONLY, ALL OTHERS ERROR
LDA i
 0  [EXPONENT STORE
MUL i
12
STC p-3
LDH 4
ADM
p-6
LDH i4
JMP p-10-3
 SET i1
p+72
SET i2
p+73
JMP p-63
SET i1
p+62
SET i2
p+74
JMP p-70
 LDA
p-24
AZE i
JMP p+16
SCR i1
STC p-30
LZE i
JMP p+5
JMP 1M
p+53
p+60
p+51
JMP 1M
p+55
p+54
p+53
JMP p-20
 SRO i
 0 [EXPONENT SIGN
JMP p+2
JMP p+5
JMP 1D
p+33
p+35
p+34
JMP 1M
p+35
p+31
p+33
 SRO i
 0 [FRACTION SIGN
JMP p+2
JMP p+10
LDA
p+25+1
COM
STC p+23+1
ADD p+22+2
COM
STC p+20+2
 SET i1
p+16
SET i2
 RESULT
JMP p-145 [MOVE TO RESULT
 JMP RETURN
 4 [CONSTANT TEN
2400
0
 1  [CONSTANT ONE
2000
0
  0
0
0
  0
0
0
  0
0
0
[END DECFPD
[MJM 2|20|70
[AFTER JAN DECFPD