Works for me. It runs this loop:
Code:
00010000 41f9 00df f180 LEA.L $00dff180,A0
00010006 43e8 fe86 LEA.L (A0,-$017a) == $00dff006,A1
0001000A 317c 4000 ff1a MOVE.W #$4000,(A0,-$00e6) == $00dff09a
00010010 3091 MOVE.W (A1),(A0)
00010012 3091 MOVE.W (A1),(A0)
00010014 3091 MOVE.W (A1),(A0)
00010016 3091 MOVE.W (A1),(A0)
00010018 60f6 BT .B #$f6 == $00010010