;;; -*- Mode:LISP; Package:TF1; Readtable:CL; Base:10 -*-
;;;
;;; Control functions for frobbing the TF1
;;;
;;; -dg 10/26/85
;;;


(defun request-dump (channel format-code)
  (midi:vcmem-tyo #b11110000)
  (midi:vcmem-tyo #b01000011)
  (midi:vcmem-tyo (dpb channel (byte 4 0) 0))
  (midi:vcmem-tyo format-code)
  (midi:vcmem-tyo #b11110111))

(defun get-dump-of-tf1-voices (midi-channel voice-list)
  (fill (car voice-list) 0)
  (request-dump midi-channel 9)
  (midi:read-array (car voice-list))
  (midi:@note-on 60.)	;seems to be necessary to unwedge MKB-1000
  (process-sleep 20)
  (midi:@note-off 60.))