mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 09:09:30 +02:00
zxspectrum: pascal startup code. this allows the RTL to be built with any assembler
git-svn-id: trunk@45165 -
This commit is contained in:
Károly Balogh
parent
60c73dd14b
commit
c206415450
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -12200,6 +12200,7 @@ rtl/zxspectrum/Makefile svneol=native#text/plain
|
||||
rtl/zxspectrum/Makefile.fpc svneol=native#text/plain
|
||||
rtl/zxspectrum/prt0.asm svneol=native#text/plain
|
||||
rtl/zxspectrum/rtldefs.inc svneol=native#text/plain
|
||||
rtl/zxspectrum/si_prc.pp svneol=native#text/plain
|
||||
rtl/zxspectrum/sysdir.inc svneol=native#text/plain
|
||||
rtl/zxspectrum/sysfile.inc svneol=native#text/plain
|
||||
rtl/zxspectrum/sysheap.inc svneol=native#text/plain
|
||||
|
||||
@ -365,301 +365,301 @@ ifdef NO_EXCEPTIONS_IN_SYSTEM
|
||||
override FPCOPT+=-dNO_EXCEPTIONS_IN_SYSTEM
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-linux)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-go32v2)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-win32)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-os2)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-freebsd)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-beos)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-haiku)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-netbsd)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-solaris)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-netware)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-openbsd)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wdosx)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-darwin)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-emx)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-watcom)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-netwlibc)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wince)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-embedded)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-symbian)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-nativent)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-iphonesim)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-android)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-aros)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-linux)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-netbsd)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-amiga)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-atari)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-palmos)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-macos)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-embedded)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-linux)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-netbsd)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-amiga)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-macos)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-darwin)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-morphos)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-embedded)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-wii)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-aix)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),sparc-linux)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),sparc-netbsd)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),sparc-solaris)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),sparc-embedded)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-linux)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-freebsd)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-haiku)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-netbsd)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-solaris)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-openbsd)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-darwin)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-win64)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-embedded)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-iphonesim)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-android)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-aros)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-dragonfly)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-linux)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-netbsd)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-palmos)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-darwin)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-wince)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-gba)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-nds)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-embedded)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-symbian)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-android)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-aros)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-freertos)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc64-linux)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc64-darwin)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc64-embedded)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc64-aix)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),avr-embedded)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),armeb-linux)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),armeb-embedded)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),mips-linux)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),mipsel-linux)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),mipsel-embedded)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),mipsel-android)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),jvm-java)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),jvm-android)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i8086-embedded)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i8086-msdos)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i8086-win16)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),aarch64-linux)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),aarch64-darwin)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),aarch64-win64)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),aarch64-android)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),wasm-wasm)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),sparc64-linux)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),riscv32-linux)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),riscv32-embedded)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),riscv64-linux)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),riscv64-embedded)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),xtensa-linux)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),xtensa-embedded)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),xtensa-freertos)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),z80-embedded)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),z80-zxspectrum)
|
||||
override TARGET_UNITS+=system
|
||||
override TARGET_UNITS+=system si_prc
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-linux)
|
||||
override TARGET_LOADERS+=prt0
|
||||
@ -2845,3 +2845,5 @@ prt0$(OEXT) : prt0.asm
|
||||
system$(PPUEXT) : system.pp $(SYSDEPS)
|
||||
$(COMPILER) $(FPC_SYSTEM_OPT) -Us -Sg system.pp
|
||||
$(EXECPPAS)
|
||||
si_prc$(PPUEXT) : system$(PPUEXT)
|
||||
$(COMPILER) si_prc.pp
|
||||
|
||||
@ -5,7 +5,7 @@
|
||||
main=rtl
|
||||
[target]
|
||||
loaders=prt0
|
||||
units=system
|
||||
units=system si_prc
|
||||
|
||||
[require]
|
||||
nortl=y
|
||||
@ -54,11 +54,14 @@ SYSDEPS=$(SYSINCDEPS) $(SYSCPUDEPS)
|
||||
#
|
||||
|
||||
prt0$(OEXT) : prt0.asm
|
||||
$(MAKE) $(COMPILER_UNITTARGETDIR)
|
||||
$(MAKE) $(COMPILER_UNITTARGETDIR)
|
||||
sdcc-sdasz80 -o $(UNITTARGETDIRPREFIX)prt0$(OEXT) prt0.asm
|
||||
#
|
||||
# System Units (System, Objpas, Strings)
|
||||
#
|
||||
system$(PPUEXT) : system.pp $(SYSDEPS)
|
||||
$(COMPILER) $(FPC_SYSTEM_OPT) -Us -Sg system.pp
|
||||
$(EXECPPAS)
|
||||
$(EXECPPAS)
|
||||
|
||||
si_prc$(PPUEXT) : system$(PPUEXT)
|
||||
$(COMPILER) si_prc.pp
|
||||
|
||||
37
rtl/zxspectrum/si_prc.pp
Normal file
37
rtl/zxspectrum/si_prc.pp
Normal file
@ -0,0 +1,37 @@
|
||||
{
|
||||
This file is part of the Free Pascal run time library.
|
||||
Copyright (c) 2020 by Free Pascal development team
|
||||
|
||||
This file contains startup code for the ZX Spectrum
|
||||
|
||||
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.
|
||||
|
||||
**********************************************************************}
|
||||
|
||||
unit si_prc;
|
||||
|
||||
interface
|
||||
|
||||
implementation
|
||||
|
||||
var
|
||||
FPC_SAVE_IY: word; external name 'FPC_SAVE_IY';
|
||||
fpc_stackarea_start: word; external name '__fpc_stackarea_start';
|
||||
fpc_stackarea_end: word; external name '__fpc_stackarea_end';
|
||||
|
||||
procedure PascalMain; external name 'PASCALMAIN';
|
||||
|
||||
{ this *must* always remain the first procedure with code in this unit }
|
||||
procedure _start; assembler; nostackframe; public name '_start';
|
||||
asm
|
||||
ld sp, fpc_stackarea_end
|
||||
ld (FPC_SAVE_IY), iy
|
||||
jp PASCALMAIN
|
||||
end;
|
||||
|
||||
end.
|
||||
Loading…
Reference in New Issue
Block a user