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: ;;; Address modes
  
  (define (immediate x)
    (format nil "$~A" x))
  
  (define (dispmem correction offset reg . reg2)
    (if (null reg2)
  
negative.code: (define (mem reg)
    (format nil "(~A)" (value-sized reg)))
  
  (define (register? reg)
    (symbol? reg))
  
  (define (insn-operand operand scale)
    (cond ((symbol? operand)
           (elt (cdr (assoc operand register-operands)) scale))
          ((string? operand) operand)
          ((number? operand) (format nil "$~D" operand))
          (true (error "strange operand ~S" operand))))
  
  (define (value-sized operand)
  