(in-package "CL-USER")

(defun init-memory ()
  (loop
   for i from 0 to (- (* 128 1024) 1) by 4 do
   (msys::set-word i 0 0)))
   


(defun dump-memory (fname)
  (with-open-file (fo 
		(concatenate 'string "/home/juergen/lisp/micasm/" fname)
			 :direction :output :if-exists :supersede :if-does-not-exist :create)
    (let ((page-size 1024)
          (pages 128))
      (let ((max-addr (- (* pages page-size) 1)))
        (loop
         for i from 0 upto max-addr by 4 do
         (if (= 0 (mod i 16))
             (format fo "//@~8,'0,X~%" i))
         (format fo "~8,'0,X~%" (msys::get-word i 0)))))))