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