| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227 |
- /*
- $Id$
- */
- /*
- This file is part of the Free Pascal run time library.
- Copyright (c) 2004 by Karoly Balogh for Genesi Sarl
- Thanks for Martin 'MarK' Kuchinka <[email protected]>
- for his help.
- 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.
- */
- .section ".text"
- .globl _start
- .align 4
- _start:
- mflr 0
- stw 0,4(1)
- stwu 1,-16(1)
- /* Get ExecBase */
- lwz 3,4(0)
- lis 4,_ExecBase@ha
- stw 3,_ExecBase@l(4)
- /* Allocating new stack */
- lis 4,__stklen@ha
- lwz 3,__stklen@l(4)
- stw 3,0(2)
- lwz 3,4(0)
- stw 3,56(2)
- lwz 3,100(2)
- mtlr 3
- li 3,-858 /* AllocTaskPooled */
- blrl
- cmplwi cr0,3,0
- beq cr0,_exit
- lis 4,stackArea@ha
- stw 3,stackArea@l(4)
- /* Setting up stackSwap struct */
- lis 4,stackSwap@ha
- addi 4,4,stackSwap@l
- stw 3,0(4)
- lis 5,__stklen@ha
- lwz 6,__stklen@l(5)
- add 3,3,6
- stw 3,4(4)
- stw 3,8(4)
- /* Calling main function with the new stack */
- stw 4,32(2)
- lis 4,_initproc@ha
- addi 4,4,_initproc@l
- stw 4,36(2)
- li 3,0
- stw 3,40(2)
- lwz 4,100(2)
- mtlr 4
- li 3,-804 /* NewPPCStackSwap */
- blrl
- /* Setting return value */
- lis 4,returnValue@ha
- lwz 3,returnValue@l(4)
- _exit:
- addi 1,1,16
- lwz 0,4(1)
- mtlr 0
- blr
- _initproc:
- mflr 0
- stw 0,4(1)
- stwu 1,-128(1)
- stw 13,52(1)
- stw 14,56(1)
- stw 15,60(1)
- stw 16,64(1)
- stw 17,68(1)
- stw 18,72(1)
- stw 19,76(1)
- stw 20,80(1)
- stw 21,84(1)
- stw 22,88(1)
- stw 23,92(1)
- stw 24,96(1)
- stw 25,100(1)
- stw 26,104(1)
- stw 27,108(1)
- stw 28,112(1)
- stw 29,116(1)
- stw 30,120(1)
- stw 31,124(1)
- /* Save Stackpointer */
- lis 4,OriginalStkPtr@ha
- stw 1,OriginalStkPtr@l(4)
- bl PASCALMAIN
- .globl _haltproc
- _haltproc:
- /* Restore Stackpointer */
- lis 4,OriginalStkPtr@ha
- lwz 1,OriginalStkPtr@l(4)
- /* Store return value */
- lis 4,returnValue@ha
- stw 3,returnValue@l(4)
- lwz 13,52(1)
- lwz 14,56(1)
- lwz 15,60(1)
- lwz 16,64(1)
- lwz 17,68(1)
- lwz 18,72(1)
- lwz 19,76(1)
- lwz 20,80(1)
- lwz 21,84(1)
- lwz 22,88(1)
- lwz 23,92(1)
- lwz 24,96(1)
- lwz 25,100(1)
- lwz 26,104(1)
- lwz 27,108(1)
- lwz 28,112(1)
- lwz 29,116(1)
- lwz 30,120(1)
- lwz 31,124(1)
- addi 1,1,128
- lwz 0,4(1)
- mtlr 0
- blr
- .globl _ExecBase
- .globl SysBase
- .align 4
- SysBase:
- _ExecBase:
- .long 0
- .globl OriginalStkPtr
- .align 4
- OriginalStkPtr:
- .long 0
- .globl OriginalLinkRegister
- .align 4
- OriginalLinkRegister:
- .long 0
- .globl returnValue
- .align 4
- returnValue:
- .long 0
- .globl stackArea
- .align 4
- stackArea:
- .long 0
- .globl stackSwap
- .align 4
- stackSwap:
- .long 0
- .long 0
- .long 0
- /* This is needed to be a proper MOS ABox executable */
- /* This symbol _MUST NOT_ be stripped out from the executable */
- /* or else... */
- .globl __abox__
- .type __abox__,@object
- .size __abox__,4
- __abox__:
- .long 1
- /*
- $Log$
- Revision 1.12 2005-02-03 19:09:11 karoly
- * reworked startup code:
- - now uses AllocTaskPooled
- - check for unsuccessful stack allocation
- Revision 1.11 2004/06/06 22:02:22 karoly
- * hopefully fixed stack problems causing hits
- Revision 1.10 2004/06/06 12:51:06 karoly
- * changelog fixed
- Revision 1.9 2004/06/06 12:47:57 karoly
- * some cleanup, comments added
- Revision 1.8 2004/06/05 19:25:12 karoly
- + reworked to support resizing of stack
- Revision 1.7 2004/05/13 01:15:42 karoly
- - removed comment about argc/argv, made it work another way
- Revision 1.6 2004/05/01 15:08:57 karoly
- + haltproc added, saving/restoring stackpointer added
- Revision 1.5 2004/04/21 03:24:55 karoly
- * rewritten to be similar to GCC startup code
- Revision 1.4 2004/04/09 04:02:43 karoly
- * abox id symbol fixed
- Revision 1.3 2004/04/09 02:58:15 karoly
- * typo fixed.
- Revision 1.2 2004/04/09 02:54:25 karoly
- * execbase loading oops fixed.
- Revision 1.1 2004/03/16 10:29:22 karoly
- * first implementation of some startup code for MOS
- */
|
