anchor.diff:  (define-insn-0 emit-rep-movs "rep ; movs")
   (define-insn-0 emit-pushf "pushf")
   (define-insn-0 emit-popf "popf")
  +
  +(define (emit-scale-number out scale oper)
  +  (unless (= scale number-tag-bits)
  +    (if (< scale number-tag-bits)
  +        (emit-sar out (immediate (- number-tag-bits scale)) oper)
  +        (emit-shl out (immediate (- scale number-tag-bits)) oper))))
   
   ;;; Branching, jumping, and output handling
   
  
positive.code:         (emit-extend-sign-bit out %d)
          (emit-idiv out %c)
          (emit-convert-value out %d dest in-frame-base out-frame-base))))
  
  (define (emit-scale-number out scale oper)
    (unless (= scale number-tag-bits)
      (if (< scale number-tag-bits)
          (emit-sar out (immediate (- number-tag-bits scale)) oper)
          (emit-shl out (immediate (- scale number-tag-bits)) oper))))
  
  ;;; Strings and vectors
  
  
negative.code:          (retaddr (second ac-regs)))
      ;; comment this
      (codegen arg-count (dest-value ac) in-frame-base out-frame-base ac-regs out)
      (emit-scale-number out value-scale ac)
      (emit-lea out (dispmem 0 value-size %bp ac) ac)
      (emit-mov out (dispmem 0 value-size %bp) retaddr)
      (emit-mov out (mem %bp) %bp)
      (emit-mov out ac %sp)
      (emit-mov out retaddr (mem ac))
  