|
@@ -0,0 +1,55 @@
|
|
|
|
+#
|
|
|
|
+# This file is part of the Free Pascal run time library.
|
|
|
|
+# Copyright (c) 2017 by Karoly Balogh
|
|
|
|
+# member of the Free Pascal development team.
|
|
|
|
+#
|
|
|
|
+# See the file COPYING.FPC, included in this distribution,
|
|
|
|
+# for details about the copyright.
|
|
|
|
+#
|
|
|
|
+# This program 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.
|
|
|
|
+#
|
|
|
|
+#**********************************************************************}
|
|
|
|
+#
|
|
|
|
+# NetBSD standard (shared) ELF/m68k startup code for Free Pascal
|
|
|
|
+
|
|
|
|
+.section .text
|
|
|
|
+ .globl _start
|
|
|
|
+_start:
|
|
|
|
+| move.l %a2,-(%sp) | ps_strings
|
|
|
|
+| move.l %a0,-(%sp) | obj
|
|
|
|
+| move.l %a1,-(%sp) | cleanup
|
|
|
|
+
|
|
|
|
+ move.l 0(%a2),operatingsystem_parameter_argv
|
|
|
|
+ move.l 4(%a2),operatingsystem_parameter_argc
|
|
|
|
+ move.l 8(%a2),operatingsystem_parameter_envp
|
|
|
|
+ move.l 8(%a2),environ
|
|
|
|
+
|
|
|
|
+ jsr PASCALMAIN
|
|
|
|
+ jmp _haltproc
|
|
|
|
+
|
|
|
|
+ .globl _haltproc
|
|
|
|
+_haltproc:
|
|
|
|
+ move.l operatingsystem_result,-(%sp)
|
|
|
|
+ move.l #0,-(%sp)
|
|
|
|
+ moveq.l #1,%d0
|
|
|
|
+ trap #0
|
|
|
|
+ rts
|
|
|
|
+
|
|
|
|
+
|
|
|
|
+.section .data
|
|
|
|
+ .comm environ,4,4
|
|
|
|
+ .comm operatingsystem_parameter_envp,4,4
|
|
|
|
+ .comm operatingsystem_parameter_argc,4,4
|
|
|
|
+ .comm operatingsystem_parameter_argv,4,4
|
|
|
|
+
|
|
|
|
+
|
|
|
|
+.section ".note.netbsd.ident", "a"
|
|
|
|
+ .long 2f-1f
|
|
|
|
+ .long 4f-3f
|
|
|
|
+ .long 1
|
|
|
|
+1: .asciz "NetBSD"
|
|
|
|
+2: .p2align 2
|
|
|
|
+3: .long 400000000
|
|
|
|
+4: .p2align 2
|