anchor.diff:  						 (tbpl    #b0000000 :tlb-type)
   						 (tlbr    #b0000000 :tlb-type)
   						 (tlwi    #b0000000 :tlb-type)
  -						 (tlwr    #b0000000 :tlb-type)
  -
  -
  -
  -
  -
  -
  -
  -
  -
  +						 (tlwr    #b0000000 :tlb-type)))
  +
  +
  +
  +
  +
  +
  +
  +
  +
  
positive.code: 						; here we can start pushing out the instructions but just printing now
  						(print i)))))))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Implementing the mips (r5900 assembler here)
  ;;;
  ;;; Loots of testing / hacking around currently
  ;;;
  
  (def-mips-instructions '((addi   #b001000 :si-type)
  						 (addiu  #b001001 :lui-type)
  						 (andi   #b001100 :si-type)
  						 (daddi  #b011000 :si-type)
  
negative.code: 
  (defun read-score-file (filename)
  	(with-open-file (stream filename)
  		(let ((end (gensym "end")))
  			(loop for i = (read stream nil end)
  				while (not (eq i end)) collect i)))) 
  
  