|
2824
|
1 * Disassembly by Os9disasm of atof.r
|
|
|
2
|
|
|
3 section code
|
|
|
4
|
|
|
5 atof: pshs u
|
|
|
6 ldu 4,s
|
|
|
7 ldb #$10
|
|
|
8 clra
|
|
|
9 L0007 pshs a
|
|
|
10 decb
|
|
|
11 bne L0007
|
|
|
12 L000c ldb ,u+
|
|
|
13 cmpb #$20
|
|
|
14 beq L000c
|
|
|
15 cmpb #9
|
|
|
16 beq L000c
|
|
|
17 cmpb #$2d
|
|
|
18 bne L001e
|
|
|
19 inc 4,s
|
|
|
20 bra L002a
|
|
|
21 L001e cmpb #$2b
|
|
|
22 beq L002a
|
|
|
23 bra L002c
|
|
|
24 L0024 sex
|
|
|
25 leax 8,s
|
|
|
26 lbsr L00e4
|
|
|
27 L002a ldb ,u+
|
|
|
28 L002c cmpb #$30
|
|
|
29 blt L0034
|
|
|
30 cmpb #$39
|
|
|
31 ble L0024
|
|
|
32 L0034 cmpb #$2e
|
|
|
33 beq L0042
|
|
|
34 bra L004c
|
|
|
35 L003a sex
|
|
|
36 leax 8,s
|
|
|
37 lbsr L00e4
|
|
|
38 inc 1,s
|
|
|
39 L0042 ldb ,u+
|
|
|
40 cmpb #$30
|
|
|
41 blt L004c
|
|
|
42 cmpb #$39
|
|
|
43 ble L003a
|
|
|
44 L004c leax 8,s
|
|
|
45 ldb #$b8
|
|
|
46 stb 7,x
|
|
|
47 pshs x
|
|
|
48 pshs x
|
|
|
49 lbsr _dnorm
|
|
|
50 leas 2,s
|
|
|
51 lbsr _dmove
|
|
|
52 ldb -1,u
|
|
|
53 cmpb #$65
|
|
|
54 beq L0068
|
|
|
55 cmpb #$45
|
|
|
56 bne L00a1
|
|
|
57 L0068 inc 2,s
|
|
|
58 ldb ,u+
|
|
|
59 cmpb #$2b
|
|
|
60 beq L0089
|
|
|
61 cmpb #$2d
|
|
|
62 bne L008b
|
|
|
63 clr 2,s
|
|
|
64 bra L0089
|
|
|
65 L0078 sex
|
|
|
66 pshs d
|
|
|
67 ldd 8,s
|
|
|
68 pshs d
|
|
|
69 ldd #$000a
|
|
|
70 lbsr ccmult
|
|
|
71 addd ,s++
|
|
|
72 std 6,s
|
|
|
73 L0089 ldb ,u+
|
|
|
74 L008b subb #$30
|
|
|
75 bcs L0093
|
|
|
76 cmpb #9
|
|
|
77 ble L0078
|
|
|
78 L0093 ldd 6,s
|
|
|
79 tst 2,s
|
|
|
80 beq L009d
|
|
|
81 nega
|
|
|
82 negb
|
|
|
83 sbca #0
|
|
|
84 L009d addd ,s
|
|
|
85 std ,s
|
|
|
86 L00a1 clr 2,s
|
|
|
87 ldd ,s
|
|
|
88 bge L00b2
|
|
|
89 nega
|
|
|
90 negb
|
|
|
91 sbca #0
|
|
|
92 std ,s
|
|
|
93 ldd #1
|
|
|
94 std 2,s
|
|
|
95 L00b2 leax 8,s
|
|
|
96 ldd 2,s
|
|
|
97 pshs d,x
|
|
|
98 ldd 4,s
|
|
|
99 pshs d
|
|
|
100 leax 14,s
|
|
|
101 lbsr _dstack
|
|
|
102 lbsr scale
|
|
|
103 leas 12,s
|
|
|
104 lbsr _dmove
|
|
|
105 ldd 4,s
|
|
|
106 beq L00d4
|
|
|
107 leax 8,s
|
|
|
108 lbsr _dneg
|
|
|
109 bra L00d6
|
|
|
110 L00d4 leax 8,s
|
|
|
111 L00d6 leau _flacc,y
|
|
|
112 pshs u
|
|
|
113 lbsr _dmove
|
|
|
114 leas 16,s
|
|
|
115 puls u,pc
|
|
|
116 L00e4 pshs d
|
|
|
117 leas -8,s
|
|
|
118 ldd 5,x
|
|
|
119 lslb
|
|
|
120 rola
|
|
|
121 std 5,x
|
|
|
122 std 5,s
|
|
|
123 ldd 3,x
|
|
|
124 rolb
|
|
|
125 rola
|
|
|
126 std 3,x
|
|
|
127 std 3,s
|
|
|
128 ldd 1,x
|
|
|
129 rolb
|
|
|
130 rola
|
|
|
131 std 1,x
|
|
|
132 std 1,s
|
|
|
133 lda ,x
|
|
|
134 rola
|
|
|
135 sta ,x
|
|
|
136 sta ,s
|
|
|
137 asl 6,x
|
|
|
138 rol 5,x
|
|
|
139 rol 4,x
|
|
|
140 rol 3,x
|
|
|
141 rol 2,x
|
|
|
142 rol 1,x
|
|
|
143 rol ,x
|
|
|
144 asl 6,x
|
|
|
145 rol 5,x
|
|
|
146 rol 4,x
|
|
|
147 rol 3,x
|
|
|
148 rol 2,x
|
|
|
149 rol 1,x
|
|
|
150 rol ,x
|
|
|
151 ldd 5,x
|
|
|
152 addd 5,s
|
|
|
153 std 5,x
|
|
|
154 ldd 3,x
|
|
|
155 adcb 4,s
|
|
|
156 adca 3,s
|
|
|
157 std 3,x
|
|
|
158 ldd 1,x
|
|
|
159 adcb 2,s
|
|
|
160 adca 1,s
|
|
|
161 std 1,x
|
|
|
162 ldb ,x
|
|
|
163 adcb ,s
|
|
|
164 stb ,x
|
|
|
165 ldd 8,s
|
|
|
166 andb #$0f
|
|
|
167 addd 5,x
|
|
|
168 std 5,x
|
|
|
169 ldd #0
|
|
|
170 adcb 4,x
|
|
|
171 adca 3,x
|
|
|
172 std 3,x
|
|
|
173 ldd #0
|
|
|
174 adcb 2,x
|
|
|
175 adca 1,x
|
|
|
176 std 1,x
|
|
|
177 lda #0
|
|
|
178 adca ,x
|
|
|
179 sta ,x
|
|
|
180 leas 10,s
|
|
|
181 rts
|
|
|
182
|
|
|
183 endsect
|
|
|
184
|
