anchor.diff:     			      (bne r0 loop-counter :loop)
      			      (addi r0 r0 0)
   			    (jr r31)))
  +
  +(defparameter *test-code-col* '(def-ee-fun set-col (temp)
  +						       (lui color-reg #x1200)
  +						       (ori color-reg color-reg #x00e0)
  +						       (ori color r0 #xff)
  +						       (sw color color-reg 0)  
  +						       (jr r31)))
  +
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +
  +(defun send-data (buffer length)
  +  (declare (type (simple-array (unsigned-byte 8) (*)) buffer))
  +  (let ((socket (usocket:socket-connect "192.168.0.8" 1339 :element-type '(unsigned-byte 8))))
  +	(when socket
  +      (loop for i from 0 to (- length 1) do
  +	    (write-byte (aref buffer i) (usocket:socket-stream socket)))
  +	  (force-output (usocket:socket-stream socket))
  +	  (usocket:socket-close socket))))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
  
positive.code:                               :element-type '(unsigned-byte 8))
          (loop for i in (nthcdr 3 code) do
  	  (format t "~{~a~^, ~}~%" i)
            (encode-ee-instruction stream i)))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Compile a score function and output a binary blob
  ;;
  
negative.code: 
  
  (defparameter *mips-instructions* (make-hash-table :test #'eq))
  (defmacro make-ee-registers-hash (prefix)
    (let ((hash (make-hash-table :test #'eq)))
      (loop for i from 0 to 31 collecting (setf (gethash (intern (format nil "~S~d" prefix i)) hash) i)) hash))
  
  (defparameter *ee-registers* (make-ee-registers-hash R))
  (defparameter *fpu-registers* (make-ee-registers-hash F))
  (defparameter *register-type-lut* '(rs *ee-registers* rt *ee-registers* rd *ee-registers*
                                      fs *fpu-registers* ft *fpu-registers* fd *fpu-registers*))
  
  ;
  
  (defun read-score-file (filename)
    (with-open-file (stream filename)
      (let ((end (gensym "end")))
        (loop for i = (read stream nil end)
    		while (not (eq i end)) collect i)))) 
  
  ; test code
  
  