Преглед на файлове

* jump to PASCALMAIN in the ZX Spectrum startup code

git-svn-id: branches/z80@44868 -
nickysn преди 5 години
родител
ревизия
4bc5270f34
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  1. 2 2
      rtl/zxspectrum/prt0.asm

+ 2 - 2
rtl/zxspectrum/prt0.asm

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