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:                      (eval (macroexpand (labels-to-exprs .x)))))
       0))
  
  (defun assemble-operand (out inst operand)
    (when (eq 'branch (instruction-addrmode inst))
      (= operand (- operand *pc* 1)))
    (dotimes (i (instruction-operand-size inst))
      (princ (code-char (mod operand 256)) out)
      (++! *pc*)
      (= operand (>> operand 8))))
  
  (defun check-branch-range (inst operand)
  
negative.code:                             in-names))
      (clear-labels)
      (= *pass* 0)
      (alet *pc*
        (while (| *label-changed?*
                  (< *pass* 2))
               nil
          (= *label-changed?* nil)
          (assemble-pass-to-file out-name i)
          (++! *pass*)))))
  