anchor.diff:  						 				  '((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)
  
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: 												(sub   #b100010) (subu  #b100011) (xor   #b100110)))
  
  (make-ee-instructions (make-encoding :spec #b011100 :fixed #b001000 :inst 6 :rs 21 :rt 16 :rd 11 :type 1 :func #'inst-type1)
  											'((paddb  #b01000) (paddh  #b00100) (paddsb #b11000) (paddsh #b10100) (paddsw #b10000)
  												(paddw  #b00000) (pcgtb  #b01010) (pcgth  #b00110) (pcgtw  #b00010) 
  												(pextlb #b11010) (pextlh #b10110) (pextlw #b10010) (pmaxh  #b00111) (pmaxw  #b00011)
  												(ppacb  #b11011) (ppach  #b10111) (ppacw  #b10011) (psubb  #b01001)
  												(psubh  #b00101) (psubsb #b11001) (psubsh #b10101) (psubsw #b10001) (psubw  #b00001)))
  
  (make-ee-instructions (make-encoding :spec #b011100 :fixed #b101000 :inst 6 :rs 21 :rt 16 :rd 11 :type 1 :func #'inst-type1)
  											'((paddub #b11000) (padduh #b10100) (padduw #b10000)
  												(padsbh #b00100) (pceqb  #b01010) (pceqh  #b00110) (pceqw  #b00010) (pextub #b11010)
  												(pextuh #b10110) (pextuw #b10010) (pminh  #b00111) (pminw  #b00011) (psubub #b11001)
  												(psubuh #b10101) (psubuw #b10001) (qfsrv  #b11011)))
  
  (make-ee-instructions (make-encoding :spec #b011100 :fixed #b001001 :inst 6 :rs 21 :rt 16 :rd 11 :type 1 :func #'inst-type1)
  											'((pand   #b10010) (pcpyld #b01110) 
  												(phmadh #b10001) (phmsbh #b10101) (pinth  #b01010) (pmaddh #b10000) (pmaddw #b00000)
  												(pmsubh #b10100) (pmsubw #b00100) (pmulth #b11100)
  												(pmultw #b01100) (psllvw #b00010) (psrlvw #b00011)
  												(pxor   #b10011)))
  
  (make-ee-instructions (make-encoding :spec #b011100 :fixed #b101001 :inst 6 :rs 21 :rt 16 :rd 11 :type 1 :func #'inst-type1)
  											'((pcpyud #b01110) (pinteh #b01010) (pmadduw #b00000) 
  												(psllh #b111100) (psllw #b111101) (psravw #b111101) (psrlh #b111101) (psrlvw #b111101)
  												(psrlw #b111101)))
  
  (make-ee-instructions (make-encoding :spec #b011100 :inst 0 :rs 16 :rt 11 :rd 6 :type 1 :func #'inst-type1)
  											'((psllh #b111100) (psllw #b111101) (psrlh #b111101) (psrlw #b111101)))
  
  (make-ee-instructions (make-encoding :spec 1 :inst 16 :rs 21 :imm 0 :type 2 :func #'inst-type2)
  											'((bgez #b00001) (bgezal #b10001) (bgezall #b10011) (bgezl #b00011)
  