: (get-disk-info) \ -- oc
Read the disk root block and save the disk format details.
Returns: 0 OK, -1 wrong format, -2 read error
: init-root-block { l_buff | l_dest -- }
Initialise the root block on the disk.
: write-filename { fld *name len buff -- }
Write the given file number and name to the buffer.
: init-root-dir \ --
Initialise the root directory.
: init-vol-bitmap \ --
Initialise the disk bitmap.
: (create-fld) { l_buff l_fld l_bytes l_type l_blocks l_expan l_start -- }
Initialise a file entry in a buffer.
: create-fld { l_buff l_fld l_bytes l_type l_blocks l_expan l_start -- }
Given a directory block buffer, initialise the given FLD entry.
: init-fld \ --
Initialise the system FLDs.
: show-drive \ --
Display the drive details.
: init-vol \ --
Initialise (format) the disk.
: inited-disk \ --
Performed at power up in InitFileSys, checks the
disk format and, if invalid prompts the user to reformat
disk.
: .block \ blk# --
Read a disk block and display the first part of the data.
: .SysBlocks \ --
Display the system data blocks.
: Test-disk-speed { l_*dest | l_time -- }
Check disk performance.