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: 												(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)
  