anchor.diff:  
   (defun assemble-list (out x)
     (adolist x
  -    (format t "Assembling: ~A~%" !)
  +    (format t "~LAssembling: ~A~%" !)
  +    (print-hexword *pc*)
  +    (princ ": ")
       (case !.
         'label        (add-label .! *pc*)
         'instruction  (funcall #'assemble-instruction
  
positive.code:     (= (instruction-operand inst) operand)
      (check-branch-range inst operand)
      (instruction-optimize-addrmode inst)
      (princ (code-char (instruction-opcode inst)) out)
      (++! *pc*)
      (assemble-operand out inst operand)))
  
  (defun assemble-assignment (x)
  
negative.code:                      (eval (macroexpand (labels-to-exprs .x)))))
       0))
  
  (defun dump-byte (x)
    (print-hexbyte x)
    (princ " ")
    x)
  
  (defun assemble-byte (x out)
    (princ (code-char (dump-byte x)) out)
    (++! *pc*))
  
  (defun assemble-operand (out inst operand)
    (when (eq 'branch (instruction-addrmode inst))
      (= operand (- operand *pc* 1)))
    (dotimes (i (instruction-operand-size inst))
      (assemble-byte (mod operand 256) out)
      (= operand (>> operand 8))))
  
  (defun check-branch-range (inst operand)
  