Mercurial > hg > Members > kono > nitros9-code

comparison 3rdparty/customboots/boisy/testmul.a @ 2426:5ade5dd9c3cb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated
author boisy
date Thu, 04 Feb 2010 15:17:15 +0000
parents
children 6bc8200fd0ba
comparison
equal deleted inserted replaced
2425:375bbafa44fa 2426:5ade5dd9c3cb
1 tylg set $01 Prgrm+Objct
2 atrv set $80+rev ReEnt+rev
3 rev set $00
4 edition set 5
5
6 psect testmul_a,tylg,atrv,edition,200,start
7
8 vsect
9 multiplicand rmb 1
10 multiplier rmb 1
11 endsect
12
13 * capture two parameters
14 start clr multiplicand,u
15 clr multiplier,u
16
17 * if no params, just go straight to multiplication
18 lda ,x
19 cmpa #C$CR
20 beq go
21
22 * get first number
23 lbsr DEC_BIN
24 stb multiplicand,u
25 leax ,y
26 lbsr TO_NON_SP
27
28 * if no second number, go straight to multiplication
29 cmpb #C$CR
30 beq go
31 lbsr DEC_BIN
32 stb multiplier,u
33
34 go
35 orcc #IntMasks
36 top
37 ldd multiplicand,u
38 mul
39 ldd multiplicand,u
40 mul
41 ldd multiplicand,u
42 mul
43 ldd multiplicand,u
44 mul
45 ldd multiplicand,u
46 mul
47 ldd multiplicand,u
48 mul
49 ldd multiplicand,u
50 mul
51 ldd multiplicand,u
52 mul
53 ldd multiplicand,u
54 mul
55 ldd multiplicand,u
56 mul
57 ldd multiplicand,u
58 mul
59 ldd multiplicand,u
60 mul
61 ldd multiplicand,u
62 mul
63 ldd multiplicand,u
64 mul
65 ldd multiplicand,u
66 mul
67 ldd multiplicand,u
68 mul
69 ldd multiplicand,u
70 mul
71 ldd multiplicand,u
72 mul
73 ldd multiplicand,u
74 mul
75 ldd multiplicand,u
76 mul
77 ldd multiplicand,u
78 mul
79 ldd multiplicand,u
80 mul
81 ldd multiplicand,u
82 mul
83 ldd multiplicand,u
84 mul
85 ldd multiplicand,u
86 mul
87 ldd multiplicand,u
88 mul
89 ldd multiplicand,u
90 mul
91 ldd multiplicand,u
92 mul
93 ldd multiplicand,u
94 mul
95 ldd multiplicand,u
96 mul
97 ldd multiplicand,u
98 mul
99 ldd multiplicand,u
100 mul
101 ldd multiplicand,u
102 mul
103 ldd multiplicand,u
104 mul
105 ldd multiplicand,u
106 mul
107 ldd multiplicand,u
108 mul
109 ldd multiplicand,u
110 mul
111 ldd multiplicand,u
112 mul
113 ldd multiplicand,u
114 mul
115 ldd multiplicand,u
116 mul
117 ldd multiplicand,u
118 mul
119 ldd multiplicand,u
120 mul
121 ldd multiplicand,u
122 mul
123 ldd multiplicand,u
124 mul
125 ldd multiplicand,u
126 mul
127 ldd multiplicand,u
128 mul
129 ldd multiplicand,u
130 mul
131 ldd multiplicand,u
132 mul
133 ldd multiplicand,u
134 mul
135 ldd multiplicand,u
136 mul
137 ldd multiplicand,u
138 mul
139 ldd multiplicand,u
140 mul
141 ldd multiplicand,u
142 mul
143 ldd multiplicand,u
144 mul
145 ldd multiplicand,u
146 mul
147 ldd multiplicand,u
148 mul
149 ldd multiplicand,u
150 mul
151 ldd multiplicand,u
152 mul
153 ldd multiplicand,u
154 mul
155 ldd multiplicand,u
156 mul
157 ldd multiplicand,u
158 mul
159 ldd multiplicand,u
160 mul
161 ldd multiplicand,u
162 mul
163 ldd multiplicand,u
164 mul
165 ldd multiplicand,u
166 mul
167 ldd multiplicand,u
168 mul
169 ldd multiplicand,u
170 mul
171 ldd multiplicand,u
172 mul
173 ldd multiplicand,u
174 mul
175 ldd multiplicand,u
176 mul
177 ldd multiplicand,u
178 mul
179 ldd multiplicand,u
180 mul
181 ldd multiplicand,u
182 mul
183 ldd multiplicand,u
184 mul
185 ldd multiplicand,u
186 mul
187 ldd multiplicand,u
188 mul
189 ldd multiplicand,u
190 mul
191 ldd multiplicand,u
192 mul
193 ldd multiplicand,u
194 mul
195 ldd multiplicand,u
196 mul
197 ldd multiplicand,u
198 mul
199 ldd multiplicand,u
200 mul
201 ldd multiplicand,u
202 mul
203 ldd multiplicand,u
204 mul
205 ldd multiplicand,u
206 mul
207 ldd multiplicand,u
208 mul
209 ldd multiplicand,u
210 mul
211 ldd multiplicand,u
212 mul
213 ldd multiplicand,u
214 mul
215 ldd multiplicand,u
216 mul
217 ldd multiplicand,u
218 mul
219 ldd multiplicand,u
220 mul
221 ldd multiplicand,u
222 mul
223 ldd multiplicand,u
224 mul
225 ldd multiplicand,u
226 mul
227 ldd multiplicand,u
228 mul
229 ldd multiplicand,u
230 mul
231 ldd multiplicand,u
232 mul
233 ldd multiplicand,u
234 mul
235 ldd multiplicand,u
236 mul
237 lbra top
238
239
240
241 endsect