File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -76,7 +76,7 @@ PROC SaveCompiledFile
7676 if err() < 128
7777 ' Open ok, write header
7878 bput # 1 , @COMP_HEAD_1, 12
79- bput # 1 , @@__INTERP_START__ , @@__INTERP_SIZE__
79+ bput # 1 , @@ZP_INTERP_LOAD , @@ZP_INTERP_SIZE
8080 bput # 1 , @__PREHEAD_RUN__, @COMP_RT_SIZE
8181 ' Note, the compiler writes to "NewPtr" the end of program code
8282 bput # 1 , MemEnd + 1 , NewPtr - MemEnd
Original file line number Diff line number Diff line change 2323 .export heap_start
2424 .export BYTECODE_ADDR
2525
26+ .exportzp ZP_INTERP_LOAD , ZP_INTERP_SIZE
27+
2628 .include "atari.inc"
2729
2830 ; Linker vars
3335
3436 .import interpreter_run , bytecode_start
3537
38+ ; Interpreter locations exported as ZP to the BASIC sources
39+ ZP_INTERP_LOAD = < __INTERP_START__
40+ ZP_INTERP_SIZE = < __INTERP_SIZE__
41+
3642 ; Start of HEAP - aligned to 256 bytes
3743heap_start= ( __BSS_RUN__ + __BSS_SIZE__ + 255 ) & $ FF00
3844
Original file line number Diff line number Diff line change @@ -1060,7 +1060,7 @@ PROC SaveCompiledFile
10601060 if err () = 1
10611061 ' Open ok, write header
10621062 bput #1 , @COMP_HEAD_1, 12
1063- bput #1 , @@__INTERP_START__ , @@__INTERP_SIZE__
1063+ bput #1 , @@ZP_INTERP_LOAD , @@ZP_INTERP_SIZE
10641064 bput #1 , @__PREHEAD_RUN__, @COMP_RT_SIZE
10651065 ' Note, the compiler writes to "NewPtr" the end of program code
10661066 bput #1 , MemEnd + 1 , NewPtr - MemEnd
You can’t perform that action at this time.
0 commit comments