mirror of
https://github.com/pmret/gcc-papermario.git
synced 2024-11-10 04:42:35 +01:00
143 lines
3.2 KiB
ArmAsm
143 lines
3.2 KiB
ArmAsm
/* 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.2 1997/12/22 23:39:48 kenner Exp $")
|
|
IDENT ("Contributed by Manfred Hollstein (manfred@lts.sel.alcatel.de)")
|
|
IDENT ("Corrections by Philippe De Muyter (phdm@macqel.be)")
|