6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-11-26 02:49:17 +00:00
Code Issues Projects Releases Wiki Activity

Split vf-blk-10-7d.fth into a (mostly) system independent part, a finailze part

Browse Source 
and pull the loading of the system dependent part up one level in the
file include hierarchy.
This commit is contained in:
Philip Zembrod 2020-07-12 13:25:31 +02:00
parent e4d6de49a2
commit 906d4dfbf2
3 changed files with 82 additions and 94 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
6502/C64/src/vf-finalize.fth Normal file
View File

@ -0,0 +1,76 @@
\ *** Block No. 123, Hexblock 7b
7b fthpage
\ The remainder to do after loading the
\ system-dependent part of the sources.
Host ' Transient 8 + @
Transient Forth Context @ 6 + !
Target
Forth also definitions
(C16 : (64 ) \ jumps belhind C)
(C64 : (16 )
BEGIN name count 0= abort" C) missing"
@ [ Ascii C Ascii ) $100 * + ] Literal
= UNTIL ; immediate
: C) ; immediate
(C16 : (16 ) (C64 : (64 ) ; immediate
: forth-83 ; \ last word in Dictionary
\ *** Block No. 124, Hexblock 7c
7c fthpage
( System dependent Constants bp/ks)
Vocabulary Assembler
Assembler definitions
Transient Assembler
PushA Constant PushA
\ put A sign-extended on stack
Push0A Constant Push0A
\ put A on stack
Push Constant Push
\ MSB in A and LSB on jsr-stack
RP Constant RP
UP Constant UP
SP Constant SP
IP Constant IP
N Constant N
Puta Constant Puta
W Constant W
Setup Constant Setup
Next Constant Next
xyNext Constant xyNext
(2drop Constant Poptwo
(drop Constant Pop
\ *** Block No. 125, Hexblock 7d
7d fthpage
\ System patchup clv06aug87
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

7
6502/C64/src/vf-main.fth
View File

@ -8,7 +8,12 @@ Onlyforth
Target definitions here! Target definitions here!
include vf-blk-10-7d.fth include vf-sys-indep.fth
$7E $93 thru \ CBM-Interface
(c16+ $94 load ) \ c16init RamIRQ
include vf-finalize.fth
Assembler nonrelocate Assembler nonrelocate

93
6502/C64/src/vf-blk-10-7d.fth → 6502/C64/src/vf-sys-indep.fth
View File

@ -2963,16 +2963,6 @@ Label forth-init
Label donothing rts Label donothing rts
\ *** Block No. 122, Hexblock 7a \ *** Block No. 122, Hexblock 7a
7a fthpage 7a fthpage
@ -2997,86 +2987,3 @@ Label warmboot
Label xyNext Label xyNext
0 # ldx 1 # ldy Next jmp end-code 0 # ldx 1 # ldy Next jmp end-code
\ *** Block No. 123, Hexblock 7b
7b fthpage
\ System-Loadscreen 01oct87clv/re)
$7E $93 thru \ CBM-Interface
(c16+ $94 load ) \ c16init RamIRQ
Host ' Transient 8 + @
Transient Forth Context @ 6 + !
Target
Forth also definitions
(C16 : (64 ) \ jumps belhind C)
(C64 : (16 )
BEGIN name count 0= abort" C) missing"
@ [ Ascii C Ascii ) $100 * + ] Literal
= UNTIL ; immediate
: C) ; immediate
(C16 : (16 ) (C64 : (64 ) ; immediate
: forth-83 ; \ last word in Dictionary
\ *** Block No. 124, Hexblock 7c
7c fthpage
( System dependent Constants bp/ks)
Vocabulary Assembler
Assembler definitions
Transient Assembler
PushA Constant PushA
\ put A sign-extended on stack
Push0A Constant Push0A
\ put A on stack
Push Constant Push
\ MSB in A and LSB on jsr-stack
RP Constant RP
UP Constant UP
SP Constant SP
IP Constant IP
N Constant N
Puta Constant Puta
W Constant W
Setup Constant Setup
Next Constant Next
xyNext Constant xyNext
(2drop Constant Poptwo
(drop Constant Pop
\ *** Block No. 125, Hexblock 7d
7d fthpage
\ System patchup clv06aug87
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