16 constant dirlines \ -- n
Number of lines on a DIR display screen.
80 constant pathmax \ -- n
Length of path string.
10 constant #files \ -- n
Maximum number of open files.
6 constant #buffers \ -- n
Number of sector buffers.
512 constant bytes/sec \ -- n
Number of bytes in a sector - nearly always 512, but Microsoft
documents say that it can be different. Some operations
will fail if this is not a power of two.
bytes/sec 1- constant secsizemask \ -- mask
Bit mask used for some positioning operations. Relies on
bytes/sec being a power of two.
9 constant secshift \ -- u
Number of bits to shift to scale by the sector size.
Nearly always 9 as 2^9=512.
1 constant FastShift? \ -- n
If non-zero, the conversion between clusters and sectors is
performed by a shift rather than a multiply or divide. Set
this according to the capabilities of your CPU.
include VFXharn \ VFX Forth for Windows harness include Drivers\WinDriver \ Windows raw disk read/write include FatCore \ core file system code include PlainDir \ simple directory listing