anchor.diff:  ;;; This function will parse a whole score file to lists to be processed  
   ;;; We might want to track line/similar things for better error reporting later
  +
  +(defparameter *mips-instructions* (make-hash-table :test #'eq))
   
   (defun read-score-file (filename)
     (with-open-file (stream filename)
  
positive.code:   (dotimes (test 100)
      (format t "test ~a~%" test)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Implements a very basic register allocator for given code.
  ;;; Currently doesn't track depth of loops/etc so it's extremly naive but a start
  ;;; 
  ;;; This code expects to get a function with (expanded assembly) 
  
  (defparameter *test-code* '(def-ee-fun test-ee-code (test1)
  			    (addi loop-counter test1 0)
     			    (:loop)
     			      (addi loop-counter loop-counter -1)
     			      (addi loop-counter loop-counter -1)
     			      (bne loop-counter :loop)
     			      (addi r0 r0 r0)
     			    (:loop2)
     			      (addi loop-counter loop-counter -1)
     			      (bne loop-counter :loop2)
     			      (addi r0 r0 r0)))
  
  (defun allocate-registers (code)
    (values code))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Fixes up local branches on labels
  
negative.code:   (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*
  