Parcourir la source

* jump to PASCALMAIN in the ZX Spectrum startup code

git-svn-id: branches/z80@44868 -
nickysn il y a 5 ans
Parent
commit
4bc5270f34
1 fichiers modifiés avec 2 ajouts et 2 suppressions
  1. 2 2
      rtl/zxspectrum/prt0.asm

+ 2 - 2
rtl/zxspectrum/prt0.asm

@@ -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