6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-10-31 19:04:43 +00:00
Code Issues Projects Releases Wiki Activity

Extract the platform dependent heads/preambles and make vf-cbm-core.fth

Browse Source 
really platform-independent. Likely this might eventually deserve the name
vf-6502-core.fth
This commit is contained in:
Philip Zembrod 2020-07-12 22:49:41 +02:00
parent d31aaed5e6
commit 6fb1f6d972
6 changed files with 67 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -26,6 +26,7 @@ cr .( Host is: )
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-finalize.fth

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

@ -29,6 +29,7 @@ include vf-pr-target.fth
\ 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-finalize.fth

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

@ -26,6 +26,7 @@ cr .( Host is: )
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-finalize.fth

38
6502/C64/src/vf-cbm-core.fth
View File

@ -1,40 +1,4 @@
\ The main and mostly system independent part of CBM VolkForth
\ Initial part of load screen
Onlyforth
(C64 $801 ) (C16 $1001 ) dup displace !
Target definitions here!
\ *** Block No. 16, Hexblock 10
10 fthpage
\ FORTH Preamble and ID clv06aug87
(C64 $D c, $8 c, $A c, 00 c, 9E c, 28 c, 32 c, 30 c, )
(C64 36 c, 34 c, 29 c, 00 c, 00 c, 00 c, 00 c, ) \ SYS(2064)
(C16 $D c, 10 c, $A c, 00 c, 9E c, 28 c, 34 c, 31 c, )
(C16 31 c, 32 c, 29 c, 00 c, 00 c, 00 c, 00 c, ) \ SYS(4112)
Assembler
nop 0 jmp here 2- >label >cold
nop 0 jmp here 2- >label >restart
here dup origin!
\ Here are coldstart- and Uservariables
\
0 jmp 0 jsr here 2- >label >wake
end-code
$100 allot
Create logo
(C64 ," volksFORTH-83 3.80.1-C64 " )
(C16+ ," volksFORTH-83 3.80.1-C16+ " )
(C16- ," volksFORTH-83 3.80.1-C16- " )
\ The system independent part of CBM VolkForth
\ *** Block No. 17, Hexblock 11
11 fthpage

32
6502/C64/src/vf-head-c16.fth Normal file
View File

@ -0,0 +1,32 @@
\ The head of C16 VolkForth
\ Initial part of load screen
Onlyforth
$1001 dup displace !
Target definitions here!
\ *** Block No. 16, Hexblock 10
10 fthpage
\ FORTH Preamble and ID clv06aug87
$D c, 10 c, $A c, 00 c, 9E c, 28 c, 34 c, 31 c,
31 c, 32 c, 29 c, 00 c, 00 c, 00 c, 00 c, \ SYS(4112)
Assembler
nop 0 jmp here 2- >label >cold
nop 0 jmp here 2- >label >restart
here dup origin!
\ Here are coldstart- and Uservariables
\
0 jmp 0 jsr here 2- >label >wake
end-code
$100 allot
Create logo
(C16+ ," volksFORTH-83 3.80.1-C16+ " )
(C16- ," volksFORTH-83 3.80.1-C16- " )

31
6502/C64/src/vf-head-c64.fth Normal file
View File

@ -0,0 +1,31 @@
\ The head of C64 VolkForth
\ Initial part of load screen
Onlyforth
$801 dup displace !
Target definitions here!
\ *** Block No. 16, Hexblock 10
10 fthpage
\ FORTH Preamble and ID clv06aug87
$D c, $8 c, $A c, 00 c, 9E c, 28 c, 32 c, 30 c,
36 c, 34 c, 29 c, 00 c, 00 c, 00 c, 00 c, \ SYS(2064)
Assembler
nop 0 jmp here 2- >label >cold
nop 0 jmp here 2- >label >restart
here dup origin!
\ Here are coldstart- and Uservariables
\
0 jmp 0 jsr here 2- >label >wake
end-code
$100 allot
Create logo
," volksFORTH-83 3.80.1-C64 "