summaryrefslogtreecommitdiff
path: root/gcc/config/m68k/mot3300Mcrt0.S
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/config/m68k/mot3300Mcrt0.S')
-rwxr-xr-xgcc/config/m68k/mot3300Mcrt0.S142
1 files changed, 142 insertions, 0 deletions
diff --git a/gcc/config/m68k/mot3300Mcrt0.S b/gcc/config/m68k/mot3300Mcrt0.S
new file mode 100755
index 0000000..539fe8e
--- /dev/null
+++ b/gcc/config/m68k/mot3300Mcrt0.S
@@ -0,0 +1,142 @@
+/* The start module mcrt0.s for the SysV68 Motorola 3300 Delta Series.
+ Copyright (C) 1996, 1997 Free Software Foundation, Inc.
+ Contributed by Manfred Hollstein (manfred@lts.sel.alcatel.de).
+
+This file is part of GNU CC.
+
+GNU CC is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+GNU CC is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU CC; see the file COPYING. If not, write to
+the Free Software Foundation, 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA. */
+
+#ifdef MOTOROLA
+# define COMM comm
+# define DATA data
+# define EVEN even
+# define FILE(n) file n
+# define GLOBAL_SYM(s) global s
+# define LOCAL_LABEL(l) L%##l
+# define IDENT(s) ident s
+# define TEXT text
+#else /* Assume we are using GNU as. */
+# define COMM .comm
+# define DATA .data
+# define EVEN .even
+# define FILE(name) .file name
+# define GLOBAL_SYM(s) .globl s
+# define LOCAL_LABEL(l) .L.##l
+# define IDENT(s) .section .comment;.asciz s
+# define TEXT .text
+#endif
+
+ FILE ("mcrt0.s")
+ TEXT
+ GLOBAL_SYM (_start)
+_start: mov.l %d0,splimit%
+ subq.w &8,%sp
+ mov.l 8(%sp),(%sp)
+ lea 12(%sp),%a0
+ mov.l %a0,___Argv
+ mov.l %a0,4(%sp)
+ mov.l %a0,%a1
+LOCAL_LABEL(0):
+ tst.l (%a0)+
+ bne.b LOCAL_LABEL(0)
+#ifdef SGS_CMP_ORDER
+ cmpa.l %a0,(%a1)
+#else
+ cmpa.l (%a1),%a0
+#endif
+ blt.b LOCAL_LABEL(1)
+ subq.w &4,%a0
+LOCAL_LABEL(1):
+ mov.l %a0,8(%sp)
+ mov.l %a0,environ
+ jsr initfpu
+
+ sub &8,%sp
+ clr.l %d0 /* if (! isatty (fileno (stderr))) */
+ mov.b _iob+27,%d0
+ mov.l %d0,-(%sp)
+ jsr isatty
+ addq.w &4,%sp
+ tst.l %d0
+ bne.b LOCAL_LABEL(isatty)
+ clr.l -(%sp) /* setbuf (stderr, NULL) */
+ pea _iob+28
+ jsr setbuf
+ addq.w &8,%sp
+LOCAL_LABEL(isatty):
+ addq.w &8,%sp
+
+ mov.l &600,-(%sp)
+ mov.l &etext,%d1
+ subi.l &LOCAL_LABEL(endofstart),%d1
+ addq.l &1,%d1
+ bclr &0,%d1
+ addi.l &4812,%d1
+ asr.l &1,%d1
+ mov.l %d1,-(%sp)
+ add.l %d1,%d1
+ mov.l %d1,-(%sp)
+ jsr sbrk
+ addq.w &4,%sp
+#ifdef SGS_CMP_ORDER
+ cmpa.l %a0,&-1
+#else
+ cmpa.l &-1,%a0
+#endif
+ beq.b LOCAL_LABEL(3)
+ mov.l %a0,-(%sp)
+ add.l &12,%a0
+ mov.l %a0,_countbase
+ mov.l &etext,-(%sp)
+ mov.l &LOCAL_LABEL(endofstart),-(%sp)
+ jsr monitor
+ lea 20(%sp),%sp
+ jsr main
+ mov.l %d0,(%sp)
+ jsr exit
+_exit: moveq &1,%d0
+ trap &0
+
+ GLOBAL_SYM (__stop_monitor)
+__stop_monitor:
+ clr.l -(%sp)
+ jsr monitor
+ add.w &4,%sp
+ rts
+
+LOCAL_LABEL(errtxt):
+ byte 'N,'o,' ,'s,'p,'a,'c,'e,' ,'f,'o,'r,' ,'m,'o,'n
+ byte 'i,'t,'o,'r,' ,'b,'u,'f,'f,'e,'r,'\n
+LOCAL_LABEL(errtxt_end):
+
+ EVEN
+LOCAL_LABEL(3):
+ pea LOCAL_LABEL(errtxt_end)-LOCAL_LABEL(errtxt)
+ pea LOCAL_LABEL(errtxt)(%pc)
+ pea 2
+ jsr write
+ bra.b _exit
+LOCAL_LABEL(endofstart):
+
+ EVEN
+
+ COMM splimit%,4
+ COMM environ,4
+ COMM _countbase,4
+
+ IDENT ("$Id: mot3300Mcrt0.S,v 1.23 1999/01/15 07:37:19 law Exp $")
+ IDENT ("Contributed by Manfred Hollstein (manfred@lts.sel.alcatel.de)")
+ IDENT ("Corrections by Philippe De Muyter (phdm@macqel.be)")