2824
|
1 * Disassembly by Os9disasm of scale.r
|
|
2
|
|
3 section bss
|
|
4
|
|
5 * Initialized Data (class G)
|
|
6 atoftbl: fcb $00
|
|
7 fcb $00
|
|
8 fcb $00
|
|
9 fcb $00
|
|
10 fcb $00
|
|
11 fcb $00
|
|
12 fcb $00
|
|
13 fcb $80
|
|
14 fcb $20
|
|
15 fcb $00
|
|
16 fcb $00
|
|
17 fcb $00
|
|
18 fcb $00
|
|
19 fcb $00
|
|
20 fcb $00
|
|
21 fcb $84
|
|
22 fcb $48
|
|
23 fcb $00
|
|
24 fcb $00
|
|
25 fcb $00
|
|
26 fcb $00
|
|
27 fcb $00
|
|
28 fcb $00
|
|
29 fcb $87
|
|
30 fcb $7a
|
|
31 fcb $00
|
|
32 fcb $00
|
|
33 fcb $00
|
|
34 fcb $00
|
|
35 fcb $00
|
|
36 fcb $00
|
|
37 fcb $8a
|
|
38 fcb $1c
|
|
39 fcb $40
|
|
40 fcb $00
|
|
41 fcb $00
|
|
42 fcb $00
|
|
43 fcb $00
|
|
44 fcb $00
|
|
45 fcb $8e
|
|
46 fcb $43
|
|
47 fcb $50
|
|
48 fcb $00
|
|
49 fcb $00
|
|
50 fcb $00
|
|
51 fcb $00
|
|
52 fcb $00
|
|
53 fcb $91
|
|
54 fcb $74
|
|
55 fcb $24
|
|
56 fcb $00
|
|
57 fcb $00
|
|
58 fcb $00
|
|
59 fcb $00
|
|
60 fcb $00
|
|
61 fcb $94
|
|
62 fcb $18
|
|
63 fcb $96
|
|
64 fcb $80
|
|
65 fcb $00
|
|
66 fcb $00
|
|
67 fcb $00
|
|
68 fcb $00
|
|
69 fcb $98
|
|
70 fcb $3e
|
|
71 fcb $bc
|
|
72 fcb $20
|
|
73 fcb $00
|
|
74 fcb $00
|
|
75 fcb $00
|
|
76 fcb $00
|
|
77 fcb $9b
|
|
78 fcb $6e
|
|
79 fcb $6b
|
|
80 fcb $28
|
|
81 fcb $00
|
|
82 fcb $00
|
|
83 fcb $00
|
|
84 fcb $00
|
|
85 fcb $9e
|
|
86 fcb $15
|
|
87 fcb $02
|
|
88 fcb $f9
|
|
89 fcb $00
|
|
90 fcb $00
|
|
91 fcb $00
|
|
92 fcb $00
|
|
93 fcb $a2
|
|
94 fcb $2d
|
|
95 fcb $78
|
|
96 fcb $eb
|
|
97 fcb $c5
|
|
98 fcb $ac
|
|
99 fcb $62
|
|
100 fcb $00
|
|
101 fcb $c3
|
|
102 fcb $49
|
|
103 fcb $f2
|
|
104 fcb $c9
|
|
105 fcb $cd
|
|
106 fcb $04
|
|
107 fcb $67
|
|
108 fcb $4f
|
|
109 fcb $e4
|
|
110
|
|
111 endsect
|
|
112
|
|
113 section code
|
|
114
|
|
115 L0000 pshs u
|
|
116 ldd 12,s
|
|
117 beq L003c
|
|
118 ldd 14,s
|
|
119 beq L0023
|
|
120 leax 4,s
|
|
121 lbsr _dstack
|
|
122 ldd 20,s
|
|
123 lslb
|
|
124 rola
|
|
125 lslb
|
|
126 rola
|
|
127 lslb
|
|
128 rola
|
|
129 leax atoftbl,y
|
|
130 leax d,x
|
|
131 lbsr _dmul
|
|
132 bra L003e
|
|
133 L0023 leax 4,s
|
|
134 lbsr _dstack
|
|
135 ldd 20,s
|
|
136 lslb
|
|
137 rola
|
|
138 lslb
|
|
139 rola
|
|
140 lslb
|
|
141 rola
|
|
142 leax atoftbl,y
|
|
143 leax d,x
|
|
144 lbsr _ddiv
|
|
145 bra L003e
|
|
146 L003c leax 4,s
|
|
147 L003e leau _flacc,y
|
|
148 pshs u
|
|
149 lbsr _dmove
|
|
150 puls u,pc
|
|
151 scale: pshs u
|
|
152 ldd 12,s
|
|
153 cmpd #9
|
|
154 ble L0079
|
|
155 leax 4,s
|
|
156 pshs x
|
|
157 ldd 16,s
|
|
158 pshs d
|
|
159 ldd 16,s
|
|
160 pshs d
|
|
161 ldd #$000a
|
|
162 lbsr ccdiv
|
|
163 addd #9
|
|
164 pshs d
|
|
165 leax 10,s
|
|
166 lbsr _dstack
|
|
167 lbsr L0000
|
|
168 leas 12,s
|
|
169 lbsr _dmove
|
|
170 L0079 ldd 14,s
|
|
171 pshs d
|
|
172 ldd 14,s
|
|
173 pshs d
|
|
174 ldd #$000a
|
|
175 lbsr ccmod
|
|
176 pshs d
|
|
177 leax 8,s
|
|
178 lbsr _dstack
|
|
179 lbsr L0000
|
|
180 leas 12,s
|
|
181 puls u,pc
|
|
182
|
|
183 endsect
|
|
184
|