anchor.diff:  
   ;;; List over all ee - instructions
   
  -(defparameter *instruction-vector* (make-array 250))
  +(defparameter *instruction-vector* (make-array 300))
   (defparameter *current-instruction* 0)
   
   (defun make-ee-instructions (enc opcode-list) 
  
positive.code: (defmacro def-inst-type (name inst-layout)
   `(progn
      (defun ,name (stream instruction arguments enc)
        (pprint enc)
        (pprint instruction)
        (let ((code 0))
          ,(when (first inst-layout)
            ;; Generate the let for all the registers
  
negative.code: (make-ee-instructions (make-encoding :spec #b010001 :fixed 0 :rt 16 :fs 11 :inst 21 :type 10 :func #'fpu-type3) 
                        '((mfc1 #b00000) (mtc1 #b00100)))
  
  ;;
  ;; cop-0 instructions
  ;;
  
  (make-ee-instructions (make-encoding :spec #b010000 :fixed #x1000000 :inst 16 :type 3 :func #'inst-type3) 
                        '((bc0f #b00000) (bc0fl #b00010) (bc0t #b00001) (bc0tl #b00011)))
  
  (make-ee-instructions (make-encoding :spec #b101111 :rs 21 :imm 0 :inst 16 :type 2 :func #'inst-type2) 
                        '((cache.ixin #b00111)   (cache.ixltg #b00000) (cache.ixstg #b00100)  (cache.ihin #b01011)
                          (cache.ifl #b01110)    (cache.ixldt #b00001) (cache.ixsdt #b00101)  (cache.bxlbt #b00010)
                          (cache.bxsbt #b00110)  (cache.bfh #b01100)   (cache.bhinbt #b01010) (cache.dxwbin #b10100)
                          (cache.dxltg #b10000)  (cache.dxstg #b10010) (cache.dxin #b10110)   (cache.dhin #b11010)
                          (cache.dhwbin #b11000) (cache.dxldt #b10001) (cache.dxsdt #b10011)  (cache.dhwoin #b1110)))
  
  (make-ee-instructions (make-encoding :spec #b010000 :fixed #x2000000 :inst 0 :type 6 :func #'inst-type6) 
                        '((di #b111001) (ei #b111000) (eret #b011000))) 
  
  (make-ee-instructions (make-encoding :spec #b010000 :fixed #xc000 :inst 0 :rt 16 :imm 0 :type 5 :func #'inst-type5)
                        '((mfbpc #b00000) (mfdab  #b00100) (mfdabm  #b00101) (mfdvb   #b00110) (mfdvbm  #b00111)
                          (mfiab #b00010) (mfiabm #b00011)))
  
  (make-ee-instructions (make-encoding :spec #b010000 :fixed #x80c000 :inst 0 :rt 16 :imm 0 :type 5 :func #'inst-type5)
                        '((mtdab  #b0000100) (mtdabm  #b0000101) (mtdvb   #b0000110) (mtdvbm  #b0000111) 
                          (mtiab  #b0000010) (mtiabm  #b0000011)))
                          
  (make-ee-instructions (make-encoding :spec #b010000 :inst 21 :rt 16 :rs 11 :type 4 :func #'inst-type4)
                        '((mfc0 #b00000) (mtc0 #b00100)))
  
  (make-ee-instructions (make-encoding :spec #b010000 :fixed #xc800 :rs 16 :imm 1 :inst 0 :type 2 :func #'inst-type2) 
                        '((mfpc #b0000001) (mfps #b0000000) (mtpc #x800001) (mtps #x800000)))
  
  (make-ee-instructions (make-encoding :spec #b010000 :fixed #x2000000 :inst 0 :type 6 :func #'inst-type6) 
                        '((tbpl #b0001000) (tlbr #b0000001) (tlwi #b0000010) (tlwr  #b0000110)))
  
  