anchor.diff:     loop8
      (let ((regs (list r0 r1 r2 r3 r4 r5 r8 r10)))
        (emit-ldmia src 8 regs)
  +     (emit-pld (sb-vm::@ src 256))
        (emit-stmia dst 8 regs)
        (sb-assem:inst sub n-words n-words 8))
      loop8-test
  
positive.code: (defun emit-stmia (tn n-words reg-list)
    (emit-bulk-transfer :store tn n-words reg-list))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  
negative.code: (defmacro fast-sap+ (sap index &key (scale +fixnum-zero-mask+1+) (offset 0))
    (multiple-value-bind (index shift offset)
        (check-arm-fixnum-addressing index scale offset)
      `(%fast-sap+ ,sap ,index ,shift ,offset)))
  
  
  (defun emit-bulk-transfer (kind tn n-words reg-list)
  