anchor.diff:        (setf (mezzano.supervisor::physical-memref-unsigned-byte-8 buffer i)
               (aref sound i)))
       (setf sound-position buf-len)
  -    (test hda buffer codec dac pin mixer)
  +    (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
  
positive.code:   (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)
          (buffer-offset 0)
          (sound-position nil)
          (sound-len (length sound))
  
negative.code:     "Other"))
  
  (defparameter *pin-colour*
    #(:unknown
      :black
      :grey
      :blue
      :green
      :red
      :orange
      :yellow
      :purple
      :pink
      :reserved-10
      :reserved-11
      :reserved-12
      :reserved-13
      :white
      :other))
  
  (defun parameter (node parameter)
    (command (hda node) (cad node) (nid node) (make-parameter parameter)))
  