anchor.diff:  
   ;; fpu instructions
   
  -(def-inst-type fpu-inst0 ((ft fs))) 
  -(def-inst-type fpu-inst1 ((ft fs fd))) 
  -(def-inst-type fpu-inst2 ((rt rs))) 
  +(def-inst-type fpu-type0 ((ft fs) #x0000ffff)) 
  +(def-inst-type fpu-type1 ((fd fs ft))) 
  +(def-inst-type fpu-type2 ((fd fs))) 
  +(def-inst-type fpu-type3 ((rt fs))) 
   
   ;;; List over all ee - instructions
   
  -(defparameter *instruction-vector* (make-array 200))
  +(defparameter *instruction-vector* (make-array 250))
   (defparameter *current-instruction* 0)
   
   (defun make-ee-instructions (enc opcode-list) 
  
positive.code:             (3 (format stream "(~(~s~) 12)~%" instruction))   
              (4 (format stream "(~(~s~) r2 r3)~%" instruction))
              (5 (format stream "(~(~s~) r2)~%" instruction))   
              (6 (format stream "(~(~s)~)~%" instruction)))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Implementing the mips (r5900 assembler here)
  
negative.code: ;;; Loots of testing / hacking around currently
  ;;;
  
  (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*))
  
  