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



(defun write-d-mem (addr value)
  (si:%write-internal-processor-memories 7 addr 0 value))