      movem.w d0-d1,$24(a1)
      ori.b #$1,$21(a1)
      move.b #$f,$1e(a1)
     rts
