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: ;;; Loots of testing / hacking around currently
  ;;;
  
  ;;; write value to the stream
  
  (defun write-value (stream value byte-count)
  