anchor.diff:  	    (format stream "~a" (code-char char-at-cell)))))
       (if newline (format stream "~%"))))
   
  -(defun disasm (&key (file nil))
  +(defun disasm (&key (file nil) (example #()))
     (setf *disasm* t)
  -  (loop-instructions (load-instructions-into-ram (load-instructions :file file))))
  -
  -(defun main (&key (file nil) (display nil) (stream t) (newline nil))
  +  (loop-instructions (load-instructions-into-ram (load-instructions :file file :example example))))
  +
  +(defun main (&key (file nil) (example #()) (display nil) (stream t) (newline nil))
     (setf *disasm* nil)
  -  (loop-instructions (load-instructions-into-ram (load-instructions :file file)))
  +  (loop-instructions (load-instructions-into-ram (load-instructions :file file :example example)))
     (when display
       (print-video-ram :stream stream :newline newline)))
   
  
positive.code: (defun load-flags-from-ah ()
    (disasm-instr '("lahf")
      (setf (flags-register nil) (byte-register :ah))))
  
  ;; Binary-coded decimal
  
  
negative.code:       (read-sequence instrs in)
        instrs)))
  
  (defun load-instructions (&key (file nil) (example #()))
    (if file
        (load-instructions-from-file file)
        example))
  
  (defun print-video-ram (&key (width 80) (height 25) (stream t) (newline nil))
    (dotimes (line height)
  