anchor.diff:  			(write-value stream (logior code 
   																	(ash instruction (encoding-inst enc)) 
   																	(ash (encoding-spec enc) 26) 
  -																	(ash (encoding-fixed enc) 0)) 4)))))
  +																	(encoding-fixed enc)) 4)))))
   
   ;; diffrent type of ee instructions
   
  
positive.code: ;; Registers all instructions 
  ;;
  
  (make-ee-instructions (make-encoding :inst 26 :rs 21 :rt 16 :imm 0 :type 0 :func #'inst-type0)
  											'((addi #b001000) (addiu #b001001) (andi #b001100) (daddi #b011000) (daddiu #b011001)
  											  (lui  #b001111) (ori   #b001101) (slti #b001010) (sltiu #b001011) (xori   #b001110)
  												(lb  #b100000) (lbu #b100100) (ld  #b110111) (ldl #b011010) (ldr #b011011)
  												(lwl #b100010) (lh  #b100000) (lhu #b100001) (lw  #b100011) (lq  #b011110)
  												(lwl #b100010) (lwr #b100110) (lwu #b100111)
  												(sb  #b101000) (sd  #b111111) (sdl #b101100) (sdr #b101101) (sh  #b101001)
  												(sw  #b101011) (swl #b101010) (swr #b101110) (sq  #b011111)
  
negative.code: 
  (make-ee-instructions (make-encoding :spec 0 :inst 26 :rs 21 :imm 0 :type 2 :func #'inst-type2)
  											'((pref #b110011)))
  
  (make-ee-instructions (make-encoding :spec 0 :inst 26 :rs 16 :imm 0 :type 2 :func #'inst-type2)
  											'((lui #b001111)))
  
  (make-ee-instructions (make-encoding :inst 26 :imm 0 :type 3 :func #'inst-type3)
  											'((j #b00010) (jal #b00011)))
  