;;; -*- Mode:LISP; Package:LAMBDA; Base:8 -*-

(defvar half-half-quad-slot #xfa)

(defun loop-on-config-prom (&optional (adr (+ #xfffffc
					      (ash half-half-quad-slot 24.))))
    (do-forever
      (bb-nd-read-fastest-loop adr)))