;;; -*- Mode:LISP; Package:SYSTEM-INTERNALS; Base:10 -*-



(defvar *mbc-array* nil)

(defun setup-mbc ()
  (setq *mbc-array* (make-wireable-array 1 'art8b nil))
  (let ((address (1+ (%pointer *mbc-array*))))
    (fresh-line)
    (write-string "The target address is ")
    (write address :base 16. :radix nil)
    (write-char #\.)
    (terpri)
    (format t "Max block size is ~D.~%" (* sys:page-size 4))))