anchor.diff:  ;;; Loots of testing / hacking around currently
   ;;;
   
  -(defmacro make-ee-registers-hash ()
  +(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 "R~d" i)) hash) i)) hash))
  -
  -(defparameter *ee-registers* (make-ee-registers-hash)) 
  -(defparameter *fpu-registers* nil) 
  +    (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*))
   
  
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: 
  ;; fpu instructions
  
  (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 250))
  (defparameter *current-instruction* 0)
  
  (defun make-ee-instructions (enc opcode-list) 
  