anchor.diff:    (command hda codec pin #x70740) ; enable output
     (stream-go hda 4))
   
  -(defun report-pos (hda)
  -  (loop
  -     (format t "~S ~S~%"
  -             (dma-position hda 4)
  -             (sd-reg/32 hda 4 +sdnlpib+))))
  -
  -(defun play-sound (sound buffer hda codec dac pin &optional mixer)
  -  (let ((buf-len #x20000)
  +(defun play-sound (sound buffer hda)
  +  (let ((output-pin (default-output-pin hda))
  +        (buf-len #x20000)
           (buffer-offset 0)
           (sound-position nil)
           (sound-len (length sound))
  
positive.code:                        (setf buffer-offset 0)))))
              (sleep 0.01))
        (stream-reset hda 4))))
  
negative.code:       (setf (mezzano.supervisor::physical-memref-unsigned-byte-8 buffer i)
              (aref sound i)))
      (setf sound-position buf-len)
      (multiple-value-bind (converter mixer)
          (output-path output-pin)
        (test hda buffer (cad output-pin) (nid converter) (nid output-pin) (and mixer (nid mixer))))
      (unwind-protect
           (loop
              ;; Wait for the dma position to move from the
  