anchor.diff:  (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 :imm 0 :fixed 0 :inst 0 :rs 21 :rt 16 :type 4 :func #'inst-type4)
  +(make-ee-instructions (make-encoding :spec #b011100 :imm 0 :fixed 0 :inst 0 :rs 16 :rt 21 :type 4 :func #'inst-type4)
                         '((pdivbw #b11101001001 ) (pdivw  #b01101001001 ) (pdivuw #b01101101001 )))
   
   (make-ee-instructions (make-encoding :spec #b011100 :fixed 0 :inst 0 :rs 16 :rt 11 :type 4 :func #'inst-type4)
  
positive.code: ;;; write value to the stream
  
  (defun write-value (stream value byte-count)
    (format t "Writing value #x~x" value)
    (loop for i from 0 to (1- byte-count)
      do (write-byte (ldb (byte 8 (* 8 i)) value) stream)))
  
  
negative.code: 
  ;;; List over all ee - instructions
  
  (defparameter *instruction-vector* (make-array 300))
  (defparameter *current-instruction* 0)
  
  (defun make-ee-instructions (enc opcode-list) 
  