paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 12:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Initial revision ELF start file

Browse Source
This commit is contained in:
carl 1998-10-30 22:45:46 +00:00
parent 869769c502
commit 26e2e72ad3
1 changed files with 39 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
rtl/linux/m68k/prt1.as Normal file
View File

@ -0,0 +1,39 @@
.file "prt0.as"
.text
.globl __entry
.globl _start
.globl __start
__entry:
_start:
__start:
movel (sp)+, d0
lea (4,sp,d0*4),a0
movel a0, U_SYSLINUX_ENVP
movel sp,U_SYSLINUX_ARGV
movel d0,U_SYSLINUX_ARGC
/*
movel d0,U_SYSLINUX_ENVP
movel 4(sp),d0
movel d0,U_SYSLINUX_ARGV
movel (sp),d0
movel d0,U_SYSLINUX_ARGC */
jsr PASCALMAIN
.globl _haltproc
.globl _HALTPROC
_haltproc:
_HALTPROC:
moveq #1,d0
movew U_SYSLINUX_EXITCODE,d1
trap #0
bra _haltproc
.data
.align 4
.globl ___FPC_BRK_ADDR
.globl ___fpc_brk_addr
___fpc_brk_addr:
___FPC_BRK_ADDR:
.long 0