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

(defun gross-data-test-csm-ram ()
  (loop for pattern in '(0 37777777777 25252525252 12525252525)
	do (loop for address from 0 below 4096.
		 do (write-csm address pattern)
		 for read = (read-csm address)
		 do (if (not (= read pattern))
			(format t "~&CSMRAM addr ~o:  wrote ~o,  read ~o"
				address pattern read)))))