anchor.diff:        (assemble o x)
         (let bytes (get-stream-string o)
           (when (length bytes)
  -          (assemble-dump-line pc bytes *assembler-current-line*.)
  +          (assemble-dump-line pc bytes)
             (princ bytes out))))))
   
   (defun assemble-parsed-expressions (out x)
  
positive.code:                       (< *pass* 3))
                     nil
                (format t "Pass ~A…~%" *pass*)
                (= *label-changed?* nil)
                (assemble-pass-to-file out-name parsed)
                (++! *pass*)))))))
  
negative.code:     (while (< (stream-location-column (stream-output-location o)) 26)
             nil
         (princ " " o))
      (princ *assembler-current-line*.. o)))
  
  (defun assemble-and-dump (out x)
    (= *cycles* nil)
  