anchor.diff:  						; here we can start pushing out the instructions but just printing now
   						(print i)))))))
   
  +;;;
   ;;;
   ;;; Test code
   ;;;
  
positive.code: (def-inst-type fpu-inst1 ((ft fs fd))) 
  (def-inst-type fpu-inst2 ((rt rs))) 
  
  ; (def-inst-type inst-type0 *fpu-registers* ((rd rt) #x0000ffff)) 
  
  ;;; List over all ee - instructions
  
  (defparameter *instruction-vector* (make-array 200))
  
negative.code: 						 				  '((mult #b011000) (multu #b011001) 
  												(div  #b011010) (divu #b011011)))
  
  (make-ee-instructions (make-encoding :spec #b011100 :fixed #b001000 :inst 6 :rs 16 :rt 11 :type 4 :func #'inst-type4)
  											'((pext5  #b11110) (ppac5 #b11111)))
  
  (make-ee-instructions (make-encoding :spec #b011100 :fixed #b001001 :inst 6 :rs 21 :rt 16 :type 4 :func #'inst-type4)
  											'((pdivbw #b11101) (pexeh  #b11010) (pabsh #b00101) (pabsw #b00001) (pexew  #b11110)
  												(pdivw  #b01101) (pdivuw #b01001)))
  
  (make-ee-instructions (make-encoding :spec #b011100 :fixed #b101001 :inst 6 :rs 16 :rt 11 :type 4 :func #'inst-type4)
  											'((pcpyh  #b11001) (pexch  #b11010) (pexcw  #b11110)))
  
  (make-ee-instructions (make-encoding :inst 0 :rt 11 :type 5 :func #'inst-type5) 
  											 '((mfhi #b010000) (mflo #b010010)))
  
  (make-ee-instructions (make-encoding :spec #b011100 :fixed #b001001 :inst 6 :rt 16 :type 5 :func #'inst-type5)
  											 '((pmfhi  #b01000) (pmflo  #b01001)))
  
  (make-ee-instructions (make-encoding :inst 0 :rt 21 :type 5 :func #'inst-type5) 
  										   '((pmfhl.lh  #b110011) (pmfhl.lw #b110000) (pmfhl.sh #b110100)
  