anchor.diff:            (fresh-line)
             (print-hexword pc)
             (princ ":")
  +          (format t " ~A :" (| *cycles* " "))
             (adolist ((string-list bytes))
               (princ " ")
               (print-hexbyte (char-code !))))
  
positive.code:       (error "Unexpected parser expression ~A." x))))
  
  (defun assemble-and-dump (out x line)
    (with-string-stream o
      (let pc *pc*
        (assemble o x)
  
negative.code:     (check-branch-range inst operand)
      (instruction-optimize-addrmode inst)
      (assemble-byte out (instruction-opcode inst))
      (assemble-operand out inst operand)
      (= *cycles* (instruction-cycles inst))))
  
  (defun assemble-assignment (x)
    (add-label .x. (assemble-expression ..x.)))
  