6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2025-01-24 04:31:45 +00:00
Code Issues Projects Releases Wiki Activity

Move memory size setup to top level loadfile and set it different for

Browse Source 
C16+, C16-, C64 x full and lite, enabling large dictionary for C16+ and
lite versions without need for buffers.
This commit is contained in:
Philip Zembrod 2020-08-04 01:25:07 +02:00
parent d58c9a5646
commit ece0f104e0
13 changed files with 32 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
6502/C64/Makefile
View File

@ -30,6 +30,8 @@ clean:
# Convenience targets # Convenience targets
binaries: $(vf_binaries)
test: $(test_resuls) test: $(test_resuls)
test64: full64 lite64 test64: full64 lite64

BIN
6502/C64/cbmfiles/vf-full-c16+
View File

Binary file not shown.

BIN
6502/C64/cbmfiles/vf-lite-c16+
View File

Binary file not shown.

BIN
6502/C64/cbmfiles/vf-lite-c16-
View File

Binary file not shown.

BIN
6502/C64/cbmfiles/vf-lite-c64
View File

Binary file not shown.

25
6502/C64/src/vf-finalize.fth
View File

@ -55,29 +55,4 @@ xyNext Constant xyNext
(2drop Constant Poptwo (2drop Constant Poptwo
(drop Constant Pop (drop Constant Pop
\ *** Block No. 125, Hexblock 7d
7d fthpage
\ System patchup clv06aug87
Forth definitions Forth definitions
(C64 C000 ' limit >body ! 7B00 s0 ! 7F00 r0 ! )
(C16 8000 ' limit >body ! 7700 s0 ! 7b00 r0 ! )
\ (C16+ fd00 ' limit >body !
\ 7B00 s0 ! 7F00 r0 ! )
s0 @ dup s0 2- ! 6 + s0 7 - !
here dp !
Host Tudp @ Target udp !
Host Tvoc-link @ Target voc-link !
Host move-threads
\ Final part of loadscreen
Assembler nonrelocate
.unresolved

2
6502/C64/src/vf-full-c16+.fth
View File

@ -11,6 +11,8 @@ include vf-sys-c16.fth
include vf-cbm-file.fth include vf-cbm-file.fth
include vf-cbm-bufs.fth include vf-cbm-bufs.fth
include vf-finalize.fth include vf-finalize.fth
fd00 ' limit >body ! bc00 s0 ! c000 r0 !
include vf-memsetup.fth
include vf-pr-target.fth include vf-pr-target.fth
quit quit

2
6502/C64/src/vf-full-c16-.fth
View File

@ -11,6 +11,8 @@ include vf-sys-c16.fth
include vf-cbm-file.fth include vf-cbm-file.fth
include vf-cbm-bufs.fth include vf-cbm-bufs.fth
include vf-finalize.fth include vf-finalize.fth
8000 ' limit >body ! 7700 s0 ! 7b00 r0 !
include vf-memsetup.fth
include vf-pr-target.fth include vf-pr-target.fth
quit quit

2
6502/C64/src/vf-full-c64.fth
View File

@ -11,6 +11,8 @@ include vf-sys-c64.fth
include vf-cbm-file.fth include vf-cbm-file.fth
include vf-cbm-bufs.fth include vf-cbm-bufs.fth
include vf-finalize.fth include vf-finalize.fth
C000 ' limit >body ! 7B00 s0 ! 7F00 r0 !
include vf-memsetup.fth
include vf-pr-target.fth include vf-pr-target.fth
quit quit

2
6502/C64/src/vf-lite-c16+.fth
View File

@ -10,6 +10,8 @@ include vf-cbm-core.fth
include vf-sys-c16.fth include vf-sys-c16.fth
include vf-cbm-file.fth include vf-cbm-file.fth
include vf-finalize.fth include vf-finalize.fth
fd00 ' limit >body ! f900 s0 ! fd00 r0 !
include vf-memsetup.fth
include vf-pr-target.fth include vf-pr-target.fth
quit quit

2
6502/C64/src/vf-lite-c16-.fth
View File

@ -10,6 +10,8 @@ include vf-cbm-core.fth
include vf-sys-c16.fth include vf-sys-c16.fth
include vf-cbm-file.fth include vf-cbm-file.fth
include vf-finalize.fth include vf-finalize.fth
8000 ' limit >body ! 7c00 s0 ! 8000 r0 !
include vf-memsetup.fth
include vf-pr-target.fth include vf-pr-target.fth
quit quit

2
6502/C64/src/vf-lite-c64.fth
View File

@ -10,6 +10,8 @@ include vf-cbm-core.fth
include vf-sys-c64.fth include vf-sys-c64.fth
include vf-cbm-file.fth include vf-cbm-file.fth
include vf-finalize.fth include vf-finalize.fth
c000 ' limit >body ! bc00 s0 ! c000 r0 !
include vf-memsetup.fth
include vf-pr-target.fth include vf-pr-target.fth
quit quit

18
6502/C64/src/vf-memsetup.fth Normal file
View File

@ -0,0 +1,18 @@
\ *** Block No. 125, Hexblock 7d
7d fthpage
\ System patchup clv06aug87
s0 @ dup s0 2- ! 6 + s0 7 - !
here dp !
Host Tudp @ Target udp !
Host Tvoc-link @ Target voc-link !
Host move-threads
\ Final part of loadscreen
Assembler nonrelocate
.unresolved