Disk formatting and initialisation





: (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.




Test code

: .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.