| blob | 657d479eb12987a00d2d58faff6ffe38346d034f |
1 ;;; Compiled by f2cl version:
2 ;;; ("f2cl1.l,v 2edcbd958861 2012/05/30 03:34:52 toy $"
3 ;;; "f2cl2.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
4 ;;; "f2cl3.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
5 ;;; "f2cl4.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
6 ;;; "f2cl5.l,v 3fe93de3be82 2012/05/06 02:17:14 toy $"
7 ;;; "f2cl6.l,v 1d5cbacbb977 2008/08/24 00:56:27 rtoy $"
8 ;;; "macros.l,v 3fe93de3be82 2012/05/06 02:17:14 toy $")
10 ;;; Using Lisp CMU Common Lisp 20d (20D Unicode)
11 ;;;
12 ;;; Options: ((:prune-labels nil) (:auto-save t) (:relaxed-array-decls t)
13 ;;; (:coerce-assigns :as-needed) (:array-type ':array)
14 ;;; (:array-slicing t) (:declare-common nil)
15 ;;; (:float-format double-float))
63 incx))))
81 x-%offset%)
82 (/
86 x-%offset%)
90 a-%offset%))))
103 x-%offset%)
108 x-%offset%)
109 (* temp
113 a-%offset%))))
114 label10))))
115 label20)))
121 incx)))
131 x-%offset%)
132 (/
136 x-%offset%)
140 a-%offset%))))
145 x-%offset%))
158 x-%offset%)
163 x-%offset%)
164 (* temp
168 a-%offset%))))
169 label30))))
171 label40)))))
184 x-%offset%)
185 (/
189 x-%offset%)
193 a-%offset%))))
203 x-%offset%)
208 x-%offset%)
209 (* temp
213 a-%offset%))))
214 label50))))
215 label60)))
227 x-%offset%)
228 (/
232 x-%offset%)
236 a-%offset%))))
241 x-%offset%))
251 x-%offset%)
256 x-%offset%)
257 (* temp
261 a-%offset%))))
262 label70))))
264 label80)))))))
276 ((> i
279 nil)
283 (*
287 a-%offset%)
291 x-%offset%))))
292 label90))
295 (/ temp
299 a-%offset%))))
301 temp)
302 label100)))
312 ((> i
315 nil)
319 (*
323 a-%offset%)
327 x-%offset%))))
329 label110))
332 (/ temp
336 a-%offset%))))
338 temp)
340 label120)))))
355 (*
359 a-%offset%)
363 x-%offset%))))
364 label130))
367 (/ temp
371 a-%offset%))))
373 temp)
374 label140)))
380 incx)))
394 (*
398 a-%offset%)
402 x-%offset%))))
404 label150))
407 (/ temp
411 a-%offset%))))
413 temp)
415 label160))))))))
417 end_label