mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-26 17:49:18 +00:00
52 lines
3.1 KiB
Forth
52 lines
3.1 KiB
Forth
|
\ *** Block No. 0 Hexblock 0
|
||
|
|
\ cas 11nov05
|
||
|
|
Routines to copy physical blocks into files.
|
||
|
|
|
||
|
|
The copy will done from the current file and drive into a new
|
||
|
|
file created in on the current MS-DOS drive and sub-directory.
|
||
|
|
So there can be a different drives used in the DIRECT Mode and
|
||
|
|
in the FILE Mode.
|
||
|
|
|
||
|
|
This command sequence will copy the physical blocks 10-20 on
|
||
|
|
driver C: into file "TEST.FB" on drive D: in Subdirectory
|
||
|
|
"\VOLKS".
|
||
|
|
|
||
|
|
|
||
|
|
KERNEL.FB D: CD \VOLKS
|
||
|
|
DIRECT C:
|
||
|
|
10 20 BLOCKS>FILE TEST.FB
|
||
|
|
\ *** Block No. 1 Hexblock 1
|
||
|
|
\ copy physical blocks to file cas 10nov05
|
||
|
|
|
||
|
|
| File outfile
|
||
|
|
|
||
|
|
: blocks>file ( <filename> from to -- ) [ Dos ]
|
||
|
|
isfile@ -rot outfile make 1+ swap
|
||
|
|
?DO I over (block
|
||
|
|
ds@ swap b/blk isfile@ lfputs
|
||
|
|
LOOP close isfile ! ;
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
\ *** Block No. 2 Hexblock 2
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|