add constant for BASIC start address

rhalkyard · Dec 8, 2020 · 837d1a4 · 837d1a4
1 parent 61b6f33
commit 837d1a4
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 4 deletions.
diff --git a/durexforth.asm b/durexforth.asm
@@ -28,11 +28,13 @@
 !set TARGET = 128
 
 !if TARGET = 128 {
-* = $1c01
+BASIC_START = $1c01
 } else {
-* = $0801
+BASIC_START = $0801
 }
 
+* = BASIC_START
+
 !byte $b, $08, $a, 0 
 !byte $9E ; SYS
 !byte '0' + entry % 10000 / 1000 ; entrypoint address as decimal digits       
@@ -192,6 +194,9 @@ ONE
 !src "lowercase.asm"
 !src "disk.asm"
 
+    +BACKLINK "basic-start", 11
+    +VALUE BASIC_START
+
     +BACKLINK "native-c128?", 12
 !if TARGET = 128 {
     +VALUE 1

diff --git a/forth_src/base.fs b/forth_src/base.fs
@@ -224,7 +224,7 @@ include turnkey
 cr
 .( cart: )
 $4000 $68 -
-here $1c01 - top latest -
+here basic-start - top latest -
 $21 + + -
 . .( bytes remain.) cr
 

diff --git a/forth_src/turnkey.fs b/forth_src/turnkey.fs
@@ -20,7 +20,7 @@ start @ to oldstart
 top to oldtop 
 ['] restore-forth start ! 
 here $20 + top latest - + top!
-$1c01 top 1+ $d word count saveb ;
+basic-start top 1+ $d word count saveb ;
 
 : save-prg ( strptr strlen -- )
 here 0 , top to latest top!