X-Git-Url: https://notaz.gp2x.de/cgi-bin/gitweb.cgi?p=megadrive.git;a=blobdiff_plain;f=testpico%2Fasmtools.s;fp=testpico%2Fasmtools.s;h=47259b56caaa0a86955e445d290ce041f6153a1c;hp=0000000000000000000000000000000000000000;hb=ffd4b35c4235e0c1a10cb8137c607c4788fd543a;hpb=3ee911dcf68d53ea0febcb256b34e7848b7c2bf0

diff --git a/testpico/asmtools.s b/testpico/asmtools.s
new file mode 100644
index 0000000..47259b5
--- /dev/null
+++ b/testpico/asmtools.s
@@ -0,0 +1,16 @@
+# Assemble with gas
+#   --register-prefix-optional --bitwise-or
+
+.macro ldarg  arg, stacksz, reg
+    move.l (4 + \arg * 4 + \stacksz)(%sp), \reg
+.endm
+
+.global burn10 /* u16 val */
+burn10:
+    ldarg       0, 0, d0
+    subq.l      #1, d0
+0:
+    dbra        d0, 0b
+    rts
+
+# vim:filetype=asmM68k:ts=4:sw=4:expandtab