paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 02:59:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* jump to PASCALMAIN in the ZX Spectrum startup code

Browse Source 
git-svn-id: branches/z80@44868 -
This commit is contained in:
nickysn 2020-04-19 19:32:30 +00:00
parent 77058d0877
commit 4bc5270f34
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/zxspectrum/prt0.asm
View File

@ -1,10 +1,10 @@
.area _CODE .area _CODE
.globl _todo_pascal_main_ .globl PASCALMAIN
.globl FPC_SAVE_IY .globl FPC_SAVE_IY
start:: start::
ld sp, #stack_area_end ld sp, #stack_area_end
ld (FPC_SAVE_IY), iy ld (FPC_SAVE_IY), iy
jp _todo_pascal_main_ jp PASCALMAIN
.area _DATA .area _DATA
stack_area_start: .rs 1022 stack_area_start: .rs 1022