| blob | a8b101b925855d0123fa715a1134b6b512817247 |
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))
67 incx))))
87 x-%offset%)
88 (/
92 x-%offset%)
96 a-%offset%))))
104 ((> i
109 k)))))
110 nil)
115 x-%offset%)
120 x-%offset%)
121 (* temp
124 j)
126 a-%offset%))))
127 label10))))
128 label20)))
134 incx)))
148 x-%offset%)
149 (/
153 x-%offset%)
157 a-%offset%))))
162 x-%offset%))
168 ((> i
173 k)))))
174 nil)
179 x-%offset%)
184 x-%offset%)
185 (* temp
188 j)
190 a-%offset%))))
192 label30))))
194 label40)))))
208 x-%offset%)
209 (/
213 x-%offset%)
217 a-%offset%))))
222 ((> i
226 nil)
231 x-%offset%)
236 x-%offset%)
237 (* temp
240 j)
242 a-%offset%))))
243 label50))))
244 label60)))
259 x-%offset%)
260 (/
264 x-%offset%)
268 a-%offset%))))
273 x-%offset%))
276 ((> i
280 nil)
285 x-%offset%)
290 x-%offset%)
291 (* temp
294 j)
296 a-%offset%))))
298 label70))))
300 label80)))))))
320 k))))
322 ((> i
326 nil)
330 (*
333 j)
335 a-%offset%)
339 x-%offset%))))
340 label90))
343 (/ temp
347 a-%offset%)))))
354 k))))
356 ((> i
360 nil)
364 (*
368 j)
370 a-%offset%))
374 x-%offset%))))
375 label100))
378 (/ temp
383 a-%offset%)))))))
385 temp)
386 label110)))
403 k))))
405 ((> i
409 nil)
413 (*
416 j)
418 a-%offset%)
422 x-%offset%))))
424 label120))
427 (/ temp
431 a-%offset%)))))
438 k))))
440 ((> i
444 nil)
448 (*
452 j)
454 a-%offset%))
458 x-%offset%))))
460 label130))
463 (/ temp
468 a-%offset%)))))))
470 temp)
473 label140)))))
495 (*
498 j)
500 a-%offset%)
504 x-%offset%))))
505 label150))
508 (/ temp
512 a-%offset%)))))
524 (*
528 j)
530 a-%offset%))
534 x-%offset%))))
535 label160))
538 (/ temp
543 a-%offset%)))))))
545 temp)
546 label170)))
552 incx)))
573 (*
576 j)
578 a-%offset%)
582 x-%offset%))))
584 label180))
587 (/ temp
591 a-%offset%)))))
603 (*
607 j)
609 a-%offset%))
613 x-%offset%))))
615 label190))
618 (/ temp
623 a-%offset%)))))))
625 temp)
629 label200))))))))
631 end_label