X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=a314%2Fsoftware-amiga%2Fa314fs_pistorm%2Fbcpl_start.asm;fp=a314%2Fsoftware-amiga%2Fa314fs_pistorm%2Fbcpl_start.asm;h=748c350ba23efbb2b0eec6b12ec40e842c5a59fb;hb=e9b74306a577f539e6d91d3139db7d462f13910a;hp=0000000000000000000000000000000000000000;hpb=19ddc78d9bfd0106274977fb01f364e119e62710;p=pistorm

diff --git a/a314/software-amiga/a314fs_pistorm/bcpl_start.asm b/a314/software-amiga/a314fs_pistorm/bcpl_start.asm
new file mode 100644
index 0000000..748c350
--- /dev/null
+++ b/a314/software-amiga/a314fs_pistorm/bcpl_start.asm
@@ -0,0 +1,8 @@
+		dc.l	0
+
+		movem.l	a0-a6,-(a7)
+		lsl.l	#2,d1
+		move.l	d1,a0
+		bsr	_start
+		movem.l	(a7)+,a0-a6
+		jmp	(a6)