anchor.diff:  (define-insn-2 emit-sar "sar")
   
   (define (emit-movzx out src dest src-scale . dest-scale)
  -  (set! dest-scale (if (null dest-scale) value-scale (car dest-scale)))
  +  (set! dest-scale (if (null? dest-scale) value-scale (car dest-scale)))
     (labels ((movzx (src-scale dest-scale)
                (emit out "mov~A ~A,~A"
                      (elt (elt '(("b")
  
positive.code:                    (insn-operand dest dest-scale))))
      (if (= dest-scale 3)
          (if (= src-scale 3)
              (emit-mov out src dest 3)
              (movzx src-scale 2))
          (movzx src-scale dest-scale))))
  
  (define (emit-clear out reg)
    (emit-xor out reg reg 2))
  
  (define (emit-push out reg)
    (emit out "push~A ~A" value-insn-size-suffix (value-sized reg)))
  
negative.code: ;;; Address modes
  
  (define (immediate x)
    (if (number? x) x (format nil "$~A" x)))
  
  (define (dispmem correction offset reg . reg2)
    (if (null reg2)
  