;;; -*- Mode:LISP; Package:GC-RAM; Readtable:ZL; Base:10 -*-

(defsubst address-gc-ram (quantum)
  (hw:write-md-unboxed (hw:dpb quantum hw:%%gc-ram-md-byte 0.))
  ;; Wait for md to be loaded.
  (hw:nop)
  (hw:nop)
  (hw:nop)
  nil)

;(progn (send terminal-io :clear-screen) (do-forever (send terminal-io :set-cursorpos 0 0) (march-print-parameter-block)))

;(run-march 'mtest1 'mtest2)

;(defun foo ()
;  (hw:write-microsecond-clock (hw:unboxed-constant 0))
;  (li:break "Fact complete." (user:fact 100) (hw:read-microsecond-clock))
;  (loop))