;; ------------------------------------------------------------------
;; The Memory

(define mem-array (make-vector MAX-ADD 0))

(define get-mem 
  (lambda (addr)
    (if (address? addr)
	(vector-ref mem-array addr)
	(machine-error (format "invalid address ~s" addr)))))

(define set-mem!
  (lambda (addr val)
    (if (and (address? addr) (value? val))
	(vector-set! mem-array addr val)
	(machine-error (format "invalid address ~s" addr)))))