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

Refactor and shorten c64/c16 main.fth files

Browse Source
This commit is contained in:
Philip Zembrod 2020-07-31 01:17:41 +02:00
parent dbf4fe35e0
commit 9edb7280ad
11 changed files with 99 additions and 119 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
6502/C64/Makefile
View File

@ -54,17 +54,17 @@ cbmfiles/tcbase: emulator/c64-vf-390.T64 emulator/build-tcbase.sh \
cbmfiles/c64-vf-latest: emulator/tcbase.T64 emulator/build-vf.sh \
disks/vforth4_2.d64 disks/tc38q.d64 $(vf_fth_files_petscii)
emulator/build-vf.sh vf-c64-main.fth c64-vf-latest
emulator/build-vf.sh vf-main-c64.fth c64-vf-latest
# C16 with 64 kB RAM or Plus4 - called (C16+ in the sources.
cbmfiles/c16-vf-latest: emulator/tcbase.T64 emulator/build-vf.sh \
disks/vforth4_2.d64 disks/tc38q.d64 $(vf_fth_files_petscii)
emulator/build-vf.sh vf-c16-main.fth c16-vf-latest
emulator/build-vf.sh vf-main-c16+.fth c16-vf-latest
# C16 with 32 kB RAM - called (C16- in the sources.
cbmfiles/c16-vf-32k: emulator/tcbase.T64 emulator/build-vf.sh \
disks/vforth4_2.d64 disks/tc38q.d64 $(vf_fth_files_petscii)
emulator/build-vf.sh vf-c16-32k.fth c16-vf-32k
emulator/build-vf.sh vf-main-c16-.fth c16-vf-32k
# Core test targets

38
6502/C64/src/vf-c16-32k.fth
View File

@ -1,38 +0,0 @@
hex
\ load transient part of target compiler
2 drive 27 30 thru
Onlyforth hex
\ clear memory and clr labels .status
include vf-tc-prep.fth
\ Host and target settings and display
cr .( Host is: )
(64 .( C64) C)
(16 .( C16) C)
: ) ; immediate
: (C ; immediate
: (C16 ; immediate
: (C16- ; immediate
: (C64 [compile] ( ; immediate
: (C16+ [compile] ( ; immediate
\ ) - just to unconfuse my editor
include vf-pr-target.fth
\ The actual volksForth sources
include vf-head-c16.fth
include vf-cbm-core.fth
include vf-sys-c16.fth
include vf-cbm-file.fth
include vf-cbm-bufs.fth
include vf-finalize.fth
include vf-pr-target.fth
quit

40
6502/C64/src/vf-c16-main.fth
View File

@ -1,40 +0,0 @@
hex
\ load transient part of target compiler
2 drive 27 30 thru
Onlyforth hex
\ clear memory and clr labels .status
include vf-tc-prep.fth
\ Host and target settings and display
cr .( Host is: )
(64 .( C64) C)
(16 .( C16) C)
: ) ; immediate
: (C ; immediate
: (C16 ; immediate
: (C16+ ; immediate
: (C64 [compile] ( ; immediate
: (C16- [compile] ( ; immediate
\ ) - just to unconfuse my editor
include vf-pr-target.fth
\ The actual volksForth sources
\ including an initial C16+ tweak
include vf-c16+jsr.fth
include vf-head-c16.fth
include vf-cbm-core.fth
include vf-sys-c16.fth
include vf-cbm-file.fth
include vf-cbm-bufs.fth
include vf-finalize.fth
include vf-pr-target.fth
quit

38
6502/C64/src/vf-c64-main.fth
View File

@ -1,38 +0,0 @@
hex
\ load transient part of target compiler
2 drive 27 30 thru
Onlyforth hex
\ clear memory and clr labels .status
include vf-tc-prep.fth
\ Host and target settings and display
cr .( Host is: )
(64 .( C64) C)
(16 .( C16) C)
: ) ; immediate
: (C ; immediate
: (C64 ; immediate
: (C16 [compile] ( ; immediate
: (C16+ [compile] ( ; immediate
: (C16- [compile] ( ; immediate
\ ) - just to unconfuse my editor
include vf-pr-target.fth
\ The actual volksForth sources
include vf-head-c64.fth
include vf-cbm-core.fth
include vf-sys-c64.fth
include vf-cbm-file.fth
include vf-cbm-bufs.fth
include vf-finalize.fth
include vf-pr-target.fth
quit

16
6502/C64/src/vf-main-c16+.fth Normal file
View File

@ -0,0 +1,16 @@
include vf-tc-prep.fth
include vf-trg-c16+.fth
\ The actual volksForth sources
include vf-head-c16.fth
include vf-cbm-core.fth
include vf-sys-c16.fth
include vf-cbm-file.fth
include vf-cbm-bufs.fth
include vf-finalize.fth
include vf-pr-target.fth
quit

16
6502/C64/src/vf-main-c16-.fth Normal file
View File

@ -0,0 +1,16 @@
include vf-tc-prep.fth
include vf-trg-c16-.fth
\ The actual volksForth sources
include vf-head-c16.fth
include vf-cbm-core.fth
include vf-sys-c16.fth
include vf-cbm-file.fth
include vf-cbm-bufs.fth
include vf-finalize.fth
include vf-pr-target.fth
quit

16
6502/C64/src/vf-main-c64.fth Normal file
View File

@ -0,0 +1,16 @@
include vf-tc-prep.fth
include vf-trg-c64.fth
\ The actual volksForth sources
include vf-head-c64.fth
include vf-cbm-core.fth
include vf-sys-c64.fth
include vf-cbm-file.fth
include vf-cbm-bufs.fth
include vf-finalize.fth
include vf-pr-target.fth
quit

15
6502/C64/src/vf-tc-prep.fth
View File

@ -1,3 +1,13 @@
hex
\ load transient part of target compiler
2 drive 27 30 thru
Onlyforth hex
\ clear memory and clr labels .status
\ *** Block No. 12, Hexblock c
\ ramfill 3:
@ -73,3 +83,8 @@ variable current-page 0 current-page !
current-page @ ;
' blk-or-page@ is blk@
\ Host and target settings and display
cr .( Host is: )
(64 .( C64) C)
(16 .( C16) C)

13
6502/C64/src/vf-trg-c16+.fth Normal file
View File

@ -0,0 +1,13 @@
: ) ; immediate
: (C ; immediate
: (C16 ; immediate
: (C16+ ; immediate
: (C64 [compile] ( ; immediate
: (C16- [compile] ( ; immediate
include vf-pr-target.fth
\ C16+ jsr tweak
include vf-c16+jsr.fth

10
6502/C64/src/vf-trg-c16-.fth Normal file
View File

@ -0,0 +1,10 @@
: ) ; immediate
: (C ; immediate
: (C16 ; immediate
: (C16- ; immediate
: (C64 [compile] ( ; immediate
: (C16+ [compile] ( ; immediate
include vf-pr-target.fth

10
6502/C64/src/vf-trg-c64.fth Normal file
View File

@ -0,0 +1,10 @@
: ) ; immediate
: (C ; immediate
: (C64 ; immediate
: (C16 [compile] ( ; immediate
: (C16+ [compile] ( ; immediate
: (C16- [compile] ( ; immediate
include vf-pr-target.fth