testpico/asmtools.s

   1 # Assemble with gas
   2 #   --register-prefix-optional --bitwise-or
   3
   4 .macro ldarg  arg, stacksz, reg
   5     move.l (4 + \arg * 4 + \stacksz)(%sp), \reg
   6 .endm
   7
   8 .global burn10 /* u16 val */
   9 burn10:
  10     ldarg       0, 0, d0
  11     subq.l      #1, d0
  12 0:
  13     dbra        d0, 0b
  14     rts
  15
  16 # vim:filetype=asmM68k:ts=4:sw=4:expandtab