;;; div-iter.scm
(define (create-n n)
(do ((n n (- n 1))
(a '() (cons '() a)))
((= n 0) a)))
(define *ll* (create-n 200))
(define (iterative-div2 l)
(do ((l l (cddr l))
(
library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_signed.all;
entity div is
port(clk:in std_logic; --clk:1MHZ
y:buffer std_logic); -- y:1M/2000=500HZ
end div;
arch
Fitter Status : Successful - Tue Nov 25 10:38:05 2008
Quartus II Version : 7.0 Build 33 02/05/2007 SJ Full Version
Revision Name : div
Top-level Entity Name : div
Family : ACEX1K
Device : EP1K30Q
Flow report for div
Tue Nov 25 10:38:13 2008
Quartus II Version 7.0 Build 33 02/05/2007 SJ Full Version
---------------------
; Table of Contents ;
---------------------
1. Legal Notice