mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-26 02:49:17 +00:00
Move including the buffer/block mechanism to the top level source files
This commit is contained in:
parent
e853730042
commit
bf4dcca1b4
@ -26,10 +26,12 @@ 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-cbm-file.fth
|
||||
include vf-cbm-bufs.fth
|
||||
include vf-finalize.fth
|
||||
|
||||
include vf-pr-target.fth
|
||||
|
@ -33,6 +33,7 @@ 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
|
||||
|
@ -26,10 +26,12 @@ 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-cbm-file.fth
|
||||
include vf-cbm-bufs.fth
|
||||
include vf-finalize.fth
|
||||
|
||||
include vf-pr-target.fth
|
||||
|
@ -297,3 +297,5 @@ Defer diskerr ' (diskerr Is diskerr
|
||||
: all-buffers
|
||||
BEGIN first @ allotbuffer
|
||||
first @ = UNTIL ;
|
||||
|
||||
include vf-sys-cbmrw.fth
|
||||
|
@ -2374,7 +2374,10 @@ Label wake wake >wake !
|
||||
end-code
|
||||
|
||||
|
||||
|
||||
\ Hooks for buffer mechanism to hook into the
|
||||
\ overall system.
|
||||
\ Needed somewhere around here so that
|
||||
\ loading vf-cbm-bufs.fth o can be ptional.
|
||||
|
||||
E400 Constant limit Variable first
|
||||
|
||||
@ -2385,8 +2388,6 @@ Defer r/w
|
||||
Defer save-buffers ' noop IS save-buffers
|
||||
Defer init-buffers ' noop IS init-buffers
|
||||
|
||||
include vf-cbm-bufs.fth
|
||||
|
||||
|
||||
\ *** Block No. 113, Hexblock 71
|
||||
71 fthpage
|
||||
|
@ -224,5 +224,3 @@ Code bus@ ( -- 8b)
|
||||
IF BEGIN emit bus@ dup #cr = UNTIL
|
||||
0= cr ELSE BEGIN bus@ #cr = UNTIL
|
||||
THEN 0= busoff ;
|
||||
|
||||
include vf-sys-cbmrw.fth
|
||||
|
Loading…
Reference in New Issue
Block a user